Tuesday, 17 April 2012

Sorting by using modifying dd parameters


//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