//COMPLIE JOB (CBLCL),'B.C.L',CLASS=A,MSGCLASS=A,MSGLEVEL=(1,1),
// NOTIFY=&SYSUID;
//*****************************************************************
//* JOB TO COMPILE AND LINK-EDIT COBOL PROGRAM
//*****************************************************************
//COBOL EXEC PGM=IGYCRCTL,REGION=2048K
//STEPLIB DD DSNAME=IGY340.SIGYCOMP,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET;,UNIT=SYSDA,
// DISP=(MOD,PASS),SPACE=(TRK,(3,3)),
// DCB=(BLKSIZE=3200)
//SYSIN DD DSN=ADCDZ.COBOL.SOURCE(SAMPLE),DISP=SHR
//SYSUT1 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT2 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT3 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT4 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT5 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT6 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSUT7 DD UNIT=SYSDA,SPACE=(CYL,(1,1))
//*LKED EXEC PGM=HEWL,COND=(8,LT,COBOL),REGION=1024K
//LKED EXEC PGM=HEWL,REGION=1024K
//SYSLIB DD DSNAME=CEE.SCEELKED,
// DISP=SHR
//SYSPRINT DD SYSOUT=*
//SYSLIN DD DSNAME=&&LOADSET;,DISP=(OLD,DELETE)
// DD DDNAME=SYSIN
//SYSLMOD DD DSNAME=ADCDZ.COBOL.LOAD,
// SPACE=(TRK,(10,10,1)),
// UNIT=SYSDA,DISP=(MOD,PASS)
//SYSUT1 DD UNIT=SYSDA,SPACE=(TRK,(10,10))
//LKED.SYSIN DD *
NAME SAMPLE(R)
/*
//GOCOBOL EXEC PGM=SAMPLE
//STEPLIB DD DSN=ADCDZ.COBOL.LOAD,DISP=SHR
//
扫一扫
910
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
