1.3.txt

COBOL实验源码

编译cobol的JCL程序
//TEP06A JOB 2008,'L.G.Y',CLASS=A,MSGLEVEL=(1,1),NOTIFY=TEP06
//STEP1 EXEC PROC=IGYWCL                                     
//SYSIN DD DSN=TEP06.COBOL.SOURCE(LAB1),DISP=SHR             
//DD2 DD DSN=TEP06.cobol.LOADLIB(HELLO),DISP=SHR 
运行cobol的JCL程序
//TEP06A JOB 2008,'L.G.Y',CLASS=A,MSGLEVEL=(1,1),NOTIFY=TEP06
//STEP1 EXEC PGM=HELLO                                       
//STEPLIB  DD DSN=TEP06.cobol.LOADLIB,DISP=SHR 
cobol源程序
        IDENTIFICATION DIVISION.        
        PROGRAM-ID.    LAB1.            
        ENVIRONMENT   DIVISION.         
        DATA          DIVISION.         
        PROCEDURE     DIVISION.         
        S1.                             
                DISPLAY  "HELLO WORLD!".
                STOP RUN.