Program Code : Code For Instream 000001 //OZA090A JOB NOTIFY=&SYSUID 000002 //REFR PROC ...
Program Code :
Code For Instream
000001 //OZA090A JOB NOTIFY=&SYSUID
000002 //REFR PROC
000003 //STEP1 EXEC PGM=IEFBR14
000004 //SYSUT1 DD DSN=OZA090.MMM.PS,DISP=SHR,
000005 // SPACE=(TRK,(2,2,1),RLSE),
000006 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000007 // PEND
000008 //STEP2 EXEC PROC=REFR
000009 //SYSUT2 DD DSN=*.STEP1.SYSUT1,DISP=SHR
000010 //SYSPRINT DD SYSOUT=*
000011 //SYSOUT DD SYSOUT=*
000012 //SYSIN DD *
000013 /*
000014 //
Code For Catalog:
000001 //OZA090A JOB NOTIFY=&SYSUID
000002 // JCLLIB ORDER=OZA090.MANI5.PDS
000003 //STEP1 EXEC PROC=REF
000004 //DD2 DD DSN=*.STEP1.DD1,DISP=SHR
000005 //SYSPRINT DD SYSOUT=*
000006 //SYSOUT DD SYSOUT=*
000007 //SYSIN DD *
000008 /*
000009 //
000001 //REF PROC
000002 //STEP1 EXEC PGM=IEFBR14
000003 //DD1 DD DSN=OZA090.MMM.PS,DISP=SHR,
000004 // SPACE=(TRK,(2,2,1),RLSE),
000005 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000006 //
---------------------------------------------------------------------
000001 //OZA090A JOB NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEFBR14
000003 //SYSUT1 DD DSN=OZA090.MMM.PS,DISP=(MOD,CATLG,CATLG),
000004 // SPACE=(TRK,(2,2,1),RLSE),
000005 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000006 //SYSUT2 DD DSN=*.STEP1.SYSUT1,DISP=SHR
000007 //SYSPRINT DD SYSOUT=*
000008 //SYSOUT DD SYSOUT=*
000009 //SYSIN DD *
000010 /*
000011 //
Refer Back Not Working For DISP,Space
000001 //OZA090A JOB NOTIFY=&SYSUID
000002 //STEP1 EXEC PGM=IEFBR14
000003 //SYSUT1 DD DSN=OZA090.MMM.PS,DISP=SHR,
000004 // SPACE=(TRK,(2,2,1),RLSE),
000005 // DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000006 //SYSUT2 DD DSN=*.STEP1.SYSUT1,DISP=SHR
000007 //SYSPRINT DD SYSOUT=*
000008 //SYSOUT DD SYSOUT=*
000009 //SYSIN DD *
000010 /*
000011 //
No comments
Post a Comment