Azure Jane Lunatic (azurelunatic) wrote,
Azure Jane Lunatic
azurelunatic

  • Mood:

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:


       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.
Subscribe

Comments for this post were disabled by the author