Azure Jane Lunatic (Azz) 🌺 (
azurelunatic) wrote2003-11-05 12:30 pm
COBOL notes
McGuirk is saying that we're in a Victor/Victoria scenario: we're on a PC, running Mainframe Express, emulating a PC. *snork*
I'm old enough to get that.
NOTE: make sure to set it non-mainframe!!!! Also, make sure to generate listing file. Check this every time we open MFE.
(I have insufficient rights on this machine to format my shiny new zip disk. Kiss my screwdriver.)
*boggle*
OK, now I KNOW that Shrimpy's an idiot. HOW THE FUCK can you mistake a COBOL file for a Job Control Language file? The FUCK?!?!?!?!??!?!?!?!?
That just signed, stamped, and sealed his doom.
COBOL file snippet:
JCL file:
THE. FUCK.
Sheesh.
I'm old enough to get that.
NOTE: make sure to set it non-mainframe!!!! Also, make sure to generate listing file. Check this every time we open MFE.
(I have insufficient rights on this machine to format my shiny new zip disk. Kiss my screwdriver.)
*boggle*
OK, now I KNOW that Shrimpy's an idiot. HOW THE FUCK can you mistake a COBOL file for a Job Control Language file? The FUCK?!?!?!?!??!?!?!?!?
That just signed, stamped, and sealed his doom.
COBOL file snippet:
01 TL-FINAL-TOTAL-LINE. 05 PIC X(12) VALUE SPACES. 05 PIC X(46) VALUE 'TOTAL UNIVERSITY BUDGET WILL BE INCREASED BY '. 05 TL-TOTAL-COST PIC $ZZZ,ZZZ,ZZ9.99. 05 PIC X(09) VALUE SPACES. * PROCEDURE DIVISION. *================================================================* *0000-DRIVER-RTN: CONTROLS THE OPENING AND CLOSING OF FILES, * HEADERS, DIRECTION OF PROGRAM LOGIC, AND * RETURNS CONTROL TO OPERATING SYSTEM WHEN THE * PROGRAM FINISHES. *================================================================* 0000-DRIVER-RTN. PERFORM 0010-OPEN-RTN THRU 0010-OPEN-RTN-EXIT. PERFORM 0020-HEADER-RTN THRU 0020-HEADER-RTN-EXIT.
JCL file:
//SAMPLE01 JOB (0000040651,0010000081),'jMCGUIRK CIS-430', // TIME=(,05),MSGCLASS=X //*===================================* //* PGM TO READ STUDENT INFOR DATA * //*===================================* //JS0010 EXEC PGM=SAMPLE //SYSOUT DD SYSOUT=* //SYSPRINT DD SYSOUT=* /*
THE. FUCK.
Sheesh.

no subject
no subject
Evidently it's a common enough mistake, but... gha. Still. It's something for five minutes "WTF?" on the first day, and a "Woops, wrong one" thereafter.
no subject
--m4
no subject
no subject
no subject