Quote: |
If the step3 abends, the new GDG generations are already catalogued and if step3 is referring them it should now refer the GDG(0).
|
Code: |
//STEP010 EXEC PGM=IEFBR14 //FILE01 DD DSN=MYTID.GDG.TEST(+1), // DISP=(NEW,CATLG,DELETE), // UNIT=SYSDA, // SPACE=(TRK,(1,1),RLSE), // DCB=(LRECL=80,RECFM=FB,BLKSIZE=0) //* //STEP020 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=MYTID.GDG.TEST(+1),DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY //* //STEP030 EXEC PGM=SORT //SYSOUT DD SYSOUT=* //SORTIN DD DSN=MYTID.GDG.TEST(+1),DISP=SHR //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=(81,8,CH,A) //* |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours