|
glennPattonWork wrote: but I have to get something out by Friday
What's the problem? That is plenty of time to deliver an estimate.
|
|
|
|
|
Back in the early '90s, the company I worked out found out a competitor was bringing out a new product. They wanted to beat them to market.
I was asked if I could retrofit the system I supported to be able to able to make a new product and thereby beat the competitors to market... in 2 weeks.
I said, yes, it will require many extra hours, but, if I complete it, I want to attend an upcoming conference.
It was winter in Ontario and the conference was in San Francisco... nice climate change!
I busted my butt, completed and work and attended the conference. 20+ years later, I am working on the system the conference was for... worked out well for me.
Tim
|
|
|
|
|
You said Tuesday was good for COBOL:
000010 IDENTIFICATION DIVISION.
000020 PROGRAM-ID. SLEEVE.
000030 AUTHOR. NAGY VILMOS.
000040 DATE-WRITTEN. 2014-03-25
000050 ENVIRONMENT DIVISION.
000060 INPUT-OUTPUT SECTION.
000070 FILE-CONTROL.
000080 SELECT GRIFF-FILE ASSIGN TO SYSIN
000090 ORGANIZATION IS LINE SEQUENTIAL.
000100 SELECT VILMOS-FILE ASSIGN TO SYSOUT
000110 ORGANIZATION IS LINE SEQUENTIAL.
000120
000130 DATA DIVISION.
000140 FILE SECTION.
000150 FD GRIFF-FILE
000160 RECORD CONTAINS 80 CHARACTERS
000170 DATA RECORD IS GRIFF-IN.
000180 01 GRIFF-IN
000181 05 SOURCE PIC X(11).
000182 05 FILLER PIC X(69).
000190
000200 FD VILMOS-FILE
000210 RECORD CONTAINS 80 CHARACTERS
000220 DATA RECORD IS VILMOS-OUT.
000230 01 VILMOS-OUT PIC X(80).
000240
000250 WORKING-STORAGE SECTION.
000260 01 DATA-REMAINS-SWITCH PIC X(2) VALUE SPACES.
000261 01 RECORDS-WRITTEN PIC 99.
000270
000320 PROCEDURE DIVISION.
000321
000330 TRANSFER-LAPTOP-SLEEVE.
000340 OPEN INPUT GRIFF-FILE
000350 OUTPUT VILMOS-FILE.
000351 MOVE ZERO TO RECORDS-WRITTEN.
000360 READ GRIFF-FILE
000370 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
000380 END-READ.
000390 PERFORM TRANSFER-LAPTOP-SLEEVE
000410 UNTIL DATA-REMAINS-SWITCH = 'NO'.
000420 CLOSE GRIFF-FILE
000430 VILMOS-FILE.
000440 STOP RUN.
000450
000460 TRANSFER-LAPTOP-SLEEVE.
000470 MOVE GRIFF-IN TO VILMOS-OUT.
000480 IF SOURCE = 'CODEPROJECT'
000490 WRITE VILMOS-OUT.
000500 READ GRIFF-FILE
000510 AT END MOVE 'NO' TO DATA-REMAINS-SWITCH
000520 END-READ.
|
|
|
|
|
Tomorrow should be interesting : "Nxgy Vilmos" anyone?
Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952)
Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)
|
|
|
|
|
Definitely the coolest thing I've seen in a long time.
~RaGE();
I think words like 'destiny' are a way of trying to find order where none exists. - Christian Graus
Entropy isn't what it used to.
|
|
|
|
|
I'd forgotten why I moved away from COBOL, now I remember.
|
|
|
|
|
YOu've actually forgotten because you decided that 30 years ago.
~RaGE();
I think words like 'destiny' are a way of trying to find order where none exists. - Christian Graus
Entropy isn't what it used to.
|
|
|
|
|
You have moved up in the world now.
|
|
|
|
|
In the balance, I'd lean towards COBOL over VB6 just for the novelty value.
|
|
|
|
|
And you're also moving away from VB6, just not as far as you'd want to.
|
|
|
|
|
|
Nagy Vilmos wrote: I'd lean towards COBOL over VB6 just for the novelty value.
Not to mention the increased efficiency!
Will Rogers never met me.
|
|
|
|
|
No programming questions in the Lounge!!!!!
Anything that is unrelated to elephants is irrelephant Anonymous ----- The problem with quotes on the internet is that you can never tell if they're genuine Winston Churchill, 1944 ----- I'd just like a chance to prove that money can't make me happy. Me, all the time
|
|
|
|
|
You know you could do that in one line of Lisp...
cheers
Chris Maunder
|
|
|
|
|
Tho thweet! Thounds like you thould thow us!
Those who fail to learn history are doomed to repeat it. --- George Santayana (December 16, 1863 – September 26, 1952)
Those who fail to clear history are doomed to explain it. --- OriginalGriff (February 24, 1959 – ∞)
|
|
|
|
|
|
|
Too funny!
You must really want that sleeve?
Along with Antimatter and Dark Matter they've discovered the existence of Doesn't Matter which appears to have no effect on the universe whatsoever!
Rich Tennant 5th Wave
|
|
|
|
|
Well, I do like a challenge (and I know the way to Griff's heart)!
"State acheived after eating too many chocolate-covered coconut bars - bountiful"
Chris C-B
|
|
|
|
|
DeathByChocolate wrote: I know the way to Griff's heart)
Would that be the sheep, or the chocolate?
Will Rogers never met me.
|
|
|
|
|
|
|
But you see young lady, you can't [REDACTED] chocolate!
|
|
|
|
|
... all I got from that was "young" and "lady"!
"State acheived after eating too many chocolate-covered coconut bars - bountiful"
Chris C-B
|
|
|
|
|
You forgot to put NSFW in the subject line.
What we got here is a failure to communicate
|
|
|
|