JCL Examples for Program Compilation and Link Edit › COBOL Example (z/OS)

COBOL Example (z/OS)

//DFHEITCL PROC SUFFIX=1$,
//             INDEX='CICSSYS.V321',
//             INDEX2='usershlq.CAB1LOAD',
//             OUTC='*',
//             REG=1024K,
//             WORK=SYSDA
//*
//*      THIS PROCEDURE CONTAINS 3 STEPS
//*      1.   EXEC THE COBOL TRANSLATOR
//*      2.   EXEC THE OS/VS COBOL COMPILER
//*      3.   LINK EDIT THE OUTPUT TO USER LOADLIB
//*
//* NOTE: FOR VS COBOL II USE PROCEDURE DFHEITVL
//*
//*      THE FOLLOWING JCL SHOULD BE USED
//*      TO EXECUTE THIS PROCEDURE
//*
//*      //APPLPROG EXEC DFHEITCL
//*      //TRN.SYSIN  DD *
//*         .
//*         . APPLICATION PROGRAM
//*         .
//*      /*
//*      //LKED.SYSIN DD *
//*         NAME ANYNAME(R)
//*      /*
//*
//*      WHERE ANYNAME IS THE NAME OF YOUR APPLICATION PROGRAM
//*
//*
//TRN     EXEC PGM=DFHECP&SUFFIX.,
//             REGION=&REG.,COND=EVEN
//STEPLIB   DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//SYSPRINT  DD SYSOUT=&OUTC.
//SYSPUNCH  DD DSN=&.&SYSCIN.,
//             DISP=(,PASS),UNIT=&WORK.,
//             DCB=BLKSIZE=400,
//             SPACE=(400,(400,100))
//*
//*
//COB     EXEC PGM=IGYCRCTL,REGION=&REG.,COND=EVEN,
//        PARM='APOST,DMAP,PMAP'
//SYSLIB    DD DSN=&INDEX..SDFHCOB,DISP=SHR
//          DD DSN=&INDEX..SDFHMAC,DISP=SHR
//SYSPRINT  DD SYSOUT=&OUTC.
//SYSIN     DD DSN=&.&SYSCIN.,DISP=(OLD,DELETE)
//SYSLIN    DD DSN=&.&LOADSET.,DISP=(MOD,PASS),
//             UNIT=&WORK.,SPACE=(80,(250,100))
//SYSUT1    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT2    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT3    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT4    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT5    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT6    DD UNIT=&WORK.,SPACE=(460,(350,100))
//SYSUT7    DD UNIT=&WORK.,SPACE=(460,(350,100))
//*
//LKED    EXEC PGM=IEWL,REGION=&REG.,
//             PARM='XREF.LIST,MAP,LET',COND=EVEN
//SYSLIB    DD DSN=&INDEX2.,DISP=SHR
//          DD DSN=&INDEX..SDFHLOAD,DISP=SHR
//          DD DSN=IBMPROD.COB2LIB,DISP=SHR
//          DD DSN=IBMPROD.COB2CICS,DISP=SHR
//SYSUT1    DD UNIT=&WORK.,DCB=BLKSIZE=1024,
//             SPACE=(1024,(200,20))
//SYSPRINT  DD SYSOUT=&OUTC.
//SYSLMOD   DD DSN=USER..LOADLIB,DISP=SHR
//SYSLIN    DD DSN=&INDEX..SDFHCOB(DFHEILIC),DISP=SHR
//          DD DSN=&INDEX2.(DBCSRPR),DISP=SHR
//          DD DSN=&.&LOADSET.,DISP=(OLD,DELETE)
//          DD DDNAME=SYSIN
//       PEND