//IBMUSERA JOB NOTIFY=&SYSUID
//*UNLOAD THE DATA INTO PS FROM VSAM USING RRN*****
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO IDS(IBMUSER.RATNESH.RRDS)-
ODS(IBMUSER.RATNESH.PS)-
FROMNUMBER(1)-
TONUMBER(4)
/*
//*UNLOAD THE DATA INTO PS FROM VSAM USING RRN*****
//S1 EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
REPRO IDS(IBMUSER.RATNESH.RRDS)-
ODS(IBMUSER.RATNESH.PS)-
FROMNUMBER(1)-
TONUMBER(4)
/*
No comments:
Post a Comment