Sample COBOL compile job

Below is a sample compile job for a COBOL program.


//RXS55MP3 JOB (8820,TEST),CLASS=X,MSGCLASS=8,NOTIFY=&SYSUID
//*------------------------------------------------------------------
//COMPILE EXEC PGM=CWPCMAIN,REGION=4M,COND=(8,LT),
// PARM=('NOADV,APOST,DYNAM,LIB,OPT,RENT,RES,NOSEQ,OFF')
//STEPLIB DD DISP=SHR,DSN=SYS1.SIGYCOMP
//SYSTERM DD SYSOUT=(*)
//SYSPRINT DD SYSOUT=(8)
//CWPERRM DD SYSOUT=(8)
//SYSPUNCH DD DUMMY
//SYSUT1 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT2 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT3 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT4 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT5 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT6 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSUT7 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//*-----------------------------------------------------------------
//* IF YOU ARE USING DFSMS 1.1 OR GREATER YOU MAY CHANGE THE
//* THE BLKSIZE=400 TO A BLKSIZE=4000 BELOW
//*-----------------------------------------------------------------
//SYSLIN DD DISP=(NEW,PASS),DCB=(LRECL=80,BLKSIZE=400),
// SPACE=(CYL,(1,1)),STORCLAS=STANDARD,UNIT=SYSDA
//SYSLIB DD DISP=SHR,DSN= copy lib goes here
//*------------------------------------------------------------------
//* INPUT DATATSET
//*------------------------------------------------------------------
//SYSIN DD DISP=(SHR,PASS),
// DSN=RXS5549.TSTS.ISS1142(SVCMBXXX) cobol source code
//*
//*------------------------------------------------------------------
//* COMPUWARE DD'S
//*------------------------------------------------------------------
//XOPTIONS DD DISP=SHR,DSN=COMPWARE.PRDS.TSO.XPED.XOPTIONS
//CWPDDIO DD DISP=SHR,
// DSN=RXS5549.TSTS.DDIO
//CWPPRMO DD *
COBOL(OUTPUT(PRINT,DDIO))
PROCESSOR(OUTPUT(NOPRINT,NODDIO),TEXT(NONE))
LANGUAGE(VSCOBOLII)
DDIO(OUTPUT(NOLIST,NOXREF,FIND,NODMAP,NOOFFSET,COMPRESS))
/*
//*
//*------------------------------------------------------------------
//* LINKEDIT STEP
//*------------------------------------------------------------------
//LINK EXEC PGM=IEWL,REGION=4M,COND=(8,LE),
// PARM=('LIST,LET,XREF,NAME=ALIAS')
//SYSPRINT DD SYSOUT=(8)
//SYSLIN DD DISP=(SHR,PASS),
// DSN=*.COMPILE.SYSLIN
//SYSLIB DD DSN=RXS5549.TSTS.LOADLIB,
// DISP=SHR,DCB=BLKSIZE=32760
// DD DISP=SHR,DSN=SYS1.LINKLIB
// DD DISP=SHR,DSN=SYS1.SCEELKED
//*------------------------------------------------------------------
//* LINKEDIT OUTPUT DATASET
//*------------------------------------------------------------------
//SYSLMOD DD DISP=SHR,
// DSN=RXS5549.TSTS.LOADLIB(SVCMBXXX)
//SYSUT1 DD SPACE=(CYL,(2,2)),STORCLAS=STANDARD,UNIT=SYSDA
//*
//*--------------------------------------------------------------------
//* ABEND; POSSIBLE E37, CHECK OUTPUT LISTING FOR DETAILS
//* EXECUTE THIS STEP ONLY IF A PREVIOUS STEP ABENDS
//*--------------------------------------------------------------------
//ABEND EXEC PGM=IKJEFT01,
// COND=ONLY
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY : JOB ABENDED; SEE LISTING FOR DETAILS.' USER(*) LOGON
//*
//*--------------------------------------------------------------------
//* COMPILE RETURN CODE MESSAGE
//*--------------------------------------------------------------------
//COMP00 EXEC PGM=IKJEFT01,
// COND=((00,NE,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC=00: COMPILE ' USER(*) LOGON
//*
//COMP04 EXEC PGM=IKJEFT01,
// COND=((04,NE,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC=04: COMPILE ' USER(*) LOGON
//*
//COMP08 EXEC PGM=IKJEFT01,
// COND=((08,GT,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC>=08: COMPILE ' USER(*) LOGON
//*
//*--------------------------------------------------------------------
//* LINKEDIT RETURN CODE MESSAGE
//*--------------------------------------------------------------------
//LINK00 EXEC PGM=IKJEFT01,
// COND=((00,NE,LINK),(8,LE,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC=00: LINKEDIT ' USER(*) LOGON
//*
//LINK04 EXEC PGM=IKJEFT01,
// COND=((04,NE,LINK),(8,LE,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC=04: LINKEDIT ' USER(*) LOGON
//*
//LINK08 EXEC PGM=IKJEFT01,
// COND=((08,GT,LINK),(8,LE,COMPILE))
//SYSTSPRT DD SYSOUT=*
//SYSTSIN DD *
SE 'COPY RC>=08: LINKEDIT ' USER(*) LOGON
//*

No comments :

Post a Comment

Note: Only a member of this blog may post a comment.