Oy! Griff!

Nagy Vilmos

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.

Rage

:omg: :cool: 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.

OriginalGriff

Tomorrow should be interesting : "Nxgy Vilmos" anyone? :laugh:

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 – ∞)

Johnny J

No programming questions in the Lounge!!!!! :mad:

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

Nagy Vilmos

I'd forgotten why I moved away from COBOL, now I remember. X|

Chris Maunder

You know you could do that in one line of Lisp...

cheers Chris Maunder

Rage

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.

OriginalGriff

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 – ∞)

Nagy Vilmos

Mandatory XKCD[^] link.

DeathByChocolate

Oh drat! .... that's my laptop cover gone! :mad: ... unless I can come up with an even better post to persuade Griff that I deserve it the most ... This is for you Griff!!![^]:rose::rose::rose: :-D

"State acheived after eating too many chocolate-covered coconut bars - bountiful" Chris C-B

Jorgen Andersson

You have moved up in the world now. :-D

Wrong is evil and must be defeated. - Jeff Ello[^]

Nagy Vilmos

In the balance, I'd lean towards COBOL over VB6 just for the novelty value.

Mike Hankey

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

Nueman

You forgot to put NSFW in the subject line.

What we got here is a failure to communicate

Jorgen Andersson

And you're also moving away from VB6, just not as far as you'd want to.

Wrong is evil and must be defeated. - Jeff Ello[^]

Nagy Vilmos

I'll see you and raise you![^]

V 0

Aaaaah my eyes X| No kidding, we had COBOL in uni. Two years in a row and two years in a row I woke up screaming of the nightmares I had the night before the exam. (true story actually :sigh: ) So griff, for all my suffering, I still deserve the laptop sleeve no ;P ?

V.
(MQOTD rules and previous solutions)

OriginalGriff wrote:

V is absolutely right

Nagy Vilmos

:sigh:

Kornfeld Eliyahu Peter

Now that was a real hit - I didn't saw COBOL for over 15 years...You made my day (or what left of it)!

I'm not questioning your powers of observation; I'm merely remarking upon the paradox of asking a masked man who he is. (V)

Tim Carmichael

My eyes are burning... haven't had to look at COBOL since college...