//SMAURYD$ JOB ,'DFH0STAT',CLASS=X,MSGCLASS=X,MSGLEVEL=(1,1), // NOTIFY=&SYSUID //JOBLIB DD DISP=SHR,DSN=CICS410.SDFHLOAD //* DD DISP=SHR,DSN=IMS410.LOAD //* DD DISP=SHR,DSN=CORTEX4.LINKLIB //*------------PREPROCESSOR-----------------------------------* //CICS EXEC PGM=DFHECP1$,REGION=1024K, // PARM='XOPTS(CICS,COBOL2,SP)' 01650000 //SYSIN DD DSN=CICS410.SDFHSAMP(DFH0STAT),DISP=SHR //SYSPUNCH DD UNIT=SYSDA,DISP=(,PASS), // SPACE=(6160,(50,30),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SYSPRINT DD SYSOUT=* //*------------COBOL------------------------------------------* //COBOL EXEC PGM=IGYCRCTL,REGION=1024K, 00660000 // PARM=('COMPILE,DATA(24),APOST,NODYNAM', 00670000 // 'RES,NOTEST,LIB,NUM,SEQ,OFFSET,XREF') 00680000 //STEPLIB DD DSNAME=SYS1.COB2COMP,DISP=SHR 00690000 //SYSLIB DD DSN=CICS410.SDFHCOB,DISP=SHR //SYSIN DD DSN=*.CICS.SYSPUNCH,DISP=(OLD,DELETE) //SYSLIN DD UNIT=SYSDA,DISP=(,PASS), // SPACE=(6160,(50,20),RLSE), // DCB=(RECFM=FB,LRECL=80,BLKSIZE=6160) //SYSUT1 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT3 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT2 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT4 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT5 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT6 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT7 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSUT8 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSPRINT DD SYSOUT=* //*-----------LNKEDT-------------------------------------------* //LKED EXEC PGM=HEWL, // PARM=('AMODE=24,REUS,XREF,LIST'), // COND=((8,LT,COBOL),(8,LT,CICS)) //SYSLIB DD DSN=SYS1.COB2CICS,DISP=(SHR), // DCB=BLKSIZE=6160 // DD DSN=SYS1.COB2LIB,DISP=(SHR) // DD DSN=CICS410.SDFHLOAD,DISP=(SHR) //SYSLIN DD DSN=CICS410.SDFHCOB(DFHEIC2),DISP=SHR // DD DSN=*.COBOL.SYSLIN,DISP=(OLD,DELETE) //SYSLMOD DD DSN=CICS410.UGAP.LOAD(DFH0STAT),DISP=(SHR) //SYSUT1 DD SPACE=(1024,(120,120),,,ROUND),UNIT=SYSDA //SYSPRINT DD SYSOUT=* //*--------END-------------------------------------------------*