//MYJOB JOB 1,NOTIFY=KC03H0E
//MYPROC PROC
//STEP1 EXEC PGM=SORT
//SORTIN DD DSN=KC03H0E.X.Y(MEMBER2),DISP=SHR
//SORTOUT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
// PEND
//STEP2 EXEC PROC=MYPROC
//STEP1.SORTIN DD DSN=KC03H0E.X.Y(MEMBER1),
// DISP=SHR
//SYSIN DD *
SORT FIELDS(1,3,CH,A)
No comments:
Post a Comment