CICS_JCL

 000010 //HOG0009C JOB ,NOTIFY=&SYSUID
 000020 //CICSPR  PROC MEMBER=HLCICS09,
 000040 //   CICSNUM=002
 000106 //COMPILE EXEC PGM=IGYCRCTL,COND=(4,LT),
 000107 // PARM='APOST,DATA(31),AR(E),XREF,RENT,LIB,MAP,OFF,TRUNC(BIN),CICS'
 000108 //STEPLIB  DD DSN=CICSTS.V3R2.CICS.SDFHLOAD,DISP=SHR
 000109 //         DD DSN=COBOL.V3R4.SIGYCOMP,DISP=SHR
 000110 //SYSPRINT DD SYSOUT=*
 000120 //SYSIN    DD DSN=HOG0009.TRANS.CICS.COBOL(HLCICS09),
 000121 //  DISP=(SHR)
 000130 //SYSLIN   DD DSN=HOG0009.TRANS.CICS.LINK,
 000131 //  DISP=(NEW,PASS,DELETE),
 000140 //  SPACE=(CYL,(1,1)),RECFM=FB,LRECL=80
 000150 //SYSUT1   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000160 //SYSUT2   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000170 //SYSUT3   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000180 //SYSUT4   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000190 //SYSUT5   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000200 //SYSUT6   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000300 //SYSUT7   DD SPACE=(CYL,(1,1)),UNIT=SYSDA
 000310 //**********************************************************************
 000320 //*      LINK
 000330 //**********************************************************************
 000340 //*
 000350 //LINKAGE  EXEC PGM=IEWL,COND=(4,LT),
 000360 //     PARM=('LIST,XREF,LET,AMODE=31,RMODE=ANY')
 000370 //SYSPRINT DD SYSOUT=*
 000380 //SYSLIB   DD DSN=CICSTS.V3R2.CICS.SDFHLOAD,DISP=SHR
 000390 //         DD DSN=CEE.SCEELKED,DISP=SHR
 000400 //         DD DSN=DB2.V9R1.SDSNLOAD,DISP=SHR
 000500 //SYSLIN   DD DSN=HOG0009.TRANS.CICS.LINK,
 000510 //   DISP=(OLD,DELETE,DELETE)
 000600 //SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(1,1))
 000700 //SYSLMOD  DD DSN=USER.CICS.Z&CICSNUM..LOADLIB(&MEMBER),DISP=SHR
 000800 // PEND
 000900 //START EXEC CICSPR