Program Code : Code For Catalog : 000001 //CATLOG11 PROC A=OZA090.ANN22.PS 000002 //STEP1 EXEC PGM=IEFBR14 ...
Code For Catalog :
000001 //CATLOG11 PROC A=OZA090.ANN22.PS
000002 //STEP1 EXEC PGM=IEFBR14
000003 //DD1 DD DSN=&A,DISP=(NEW,CATLG,DELETE),
000004 //SPACE=(TRK,(1,3),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000005 //
000001 //OZA09012 JOB NOTIFY=&SYSUID
000002 //DDI JCLLIB ORDER=OZA090.PROC.PDS
000003 //STEP1 EXEC PROC=PROC,A=OZA090.ANN13.PS
000004 //SYSPRINT DD SYSOUT=*
000005 //SYSOUT DD SYSOUT=*
000006 //SYSIN DD *
000007 /*
000008 //
Code For Instream :
000001 //OZA090BB JOB NOTIFY=&SYSUID
000002 //AB PROC A=0ZA090.BAL2.PS
000003 //STEP1 EXEC PGM=IEFBR14
000004 //DD1 DD DSN=&A,
000005 // DISP=(NEW,CATLG,DELETE),
000006 // SPACE=(CYL,(2,3),RLSE),
000007 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000008 // PEND
000009 //STEP2 EXEC PROC=AB,A=OZA090.BALUU.PS
000010 //SYSPRINT DD SYSOUT=*
000011 //SYSOUT DD SYSOUT=*
000012 //
No comments
Post a Comment