IEBGENER : 000100 //OZA090A JOB A123,KAR,NOTIFY=&SYSUID 000200 //STEP1 EXEC PGM=IEBGENER ...
IEBGENER :
000100 //OZA090A JOB A123,KAR,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSUT DD DSN=OZA090.MOVE.PDS,DISP=(NEW,CATLG),
000400 // DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),
000500 // SPACE=(TRK,(1,2,3),RLSE)
000600 //SYSPRINT DD SYSOUT=*
000700 //SYSIN DD *
000800 /*
000900 //
---------
000100 //OZA090A JOB A123,MANI,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSUT1 DD DSN=OZA090.MANI.PDS(MEM1),DISP=SHR
000400 //SYSUT2 DD DSN=OZA090.MANI3.NEW(MEM1),SPACE=(TRK,(1,2,3),RLSE),
000500 // DISP=(NEW,CATLG,DELETE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
000700 //SYSPRINT DD SYSOUT=*
000800 //SYSIN DD *
000900 /*
-------------------
000100 //OZA090K JOB 5,KARTHIK,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSUT1 DD DSN=OZA090.KAR.PS,DISP=SHR
000400 //SYSUT2 DD DSN=OZA090.MANI5.PDS(MEM1),DISP=(NEW,CATLG,DELETE),
000500 // SPACE=(TRK,(1,2,3),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
000600 //SYSPRINT DD SYSOUT=*
000700 //SYSIN DD *
000800 /*
000900 //
----------------
000100 //OZA090K JOB 5,KARTHIK,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSUT1 DD DSN=OZA090.KAR.PS,DISP=SHR
000400 //SYSUT2 DD DSN=OZA090.MANI5.PDS(MEM1),DISP=(NEW,CATLG,DELETE),
000500 // SPACE=(TRK,(1,2,3),RLSE),DCB=(LRECL=80,RECFM=FB,BLKSIZE=800)
000600 //SYSPRINT DD SYSOUT=*
000700 //SYSIN DD *
000800 /*
000900 //
IEFBR14 :
000100 //OZA090A JOB A123,KAR,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEFBR14
000300 //DATA DD DSN=OZA090.FILE1.PDS,DISP=(NEW,KEEP),
000400 // DCB=(LRECL=80,BLKSIZE=800,RECFM=FB),
000500 // SPACE=(TRK,(1,2,3),RLSE)
000600 //SYSPRINT DD SYSOUT=*
000700 //SYSIN DD *
000800 /*
000900 //
------------------
000100 //OZA090A JOB 01,MANI,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEFBR14
000300 //DD1 DD DSN=OZA090.MANICOMP.PDS(MEM2),DISP=(NEW,CATLG,DELETE),
000400 // SPACE=(TRK,(1,2,3),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000500 //SYSPRINT DD SYSOUT=*
000600 //SYSIN DD *
000700 /*
000800 //
IEBCOPY (PS to PS):
000100 //OZA090A JOB NOTIFY=&SYSUID,TYPRUN=SCAN
000200 //STEP1 EXEC PGM=IEBCOPY
000300 //SYSPRINT DD SYSOUT=*
000400 //INP1 DD DSN=OZA090.MEM1.PS,DISP=SHR
000600 //SYSIN DD *
000610 COPY INDD=INP1,OUTDD=INP2
000700 /*
000800 //
To Send Message :
000100 //OZA090AS JOB NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IKJEFT01
000300 //SYSTSPRT DD SYSOUT=*
000400 //SYSTSIN DD DDNAME=SYSIN SEND 'HELLO' U(OZA090)
000600 /*
000700 //
Data Set Concanetion :
000100 //OZA090B JOB 10,MANKAR,NOTIFY=&SYSUID
000200 //STEP1 EXEC PGM=IEBGENER
000300 //SYSUT1 DD DSN=OZA090.MANI.PDS(PDSTOPDS),DISP=SHR
000400 // DD DSN=OZA090.MANI.PDS(PSTOPDS),DISP=SHR
000500 //SYSUT2 DD DSN=OZA090.MANKAR1.PS,DISP=(NEW,CATLG,DELETE),
000600 // SPACE=(TRK,(1,2),RLSE),DCB=(RECFM=FB,LRECL=80,BLKSIZE=800)
000700 //SYSPRINT DD SYSOUT=*
000800 //SYSIN DD *
000900 /*
001000 //
No comments
Post a Comment