Code: |
//STEP1 EXEC PGM=FILEAID //DD01 DD DISP=SHR,DSN=YOUR.VSAM.KSDS //DD01O DD SYSOUT=* //SYSPRINT DD SYSOUT=* //SYSIN DD * $$DD01 COPY IF=(9,EQ,C'12345'),OUT=1 /* // |
Code: |
//S1 EXEC PGM=ICEMAN //SYSOUT DD SYSOUT=* //SORTIN DD * AAAAA BBBBB 12345 CCCCC DDDDD //SORTOUT DD SYSOUT=* //SYSIN DD * SORT FIELDS=COPY,STOPAFT=1 INCLUDE COND=(9,5,CH,EQ,C'12345') |
Code: |
12345 |
Code: |
ICE055I 0 INSERT 0, DELETE 2 ICE054I 0 RECORDS - IN: 3, OUT: 1 |
Code: |
SORT FIELDS=COPY,STOPAFT=N INCLUDE COND=(9,5,CH,EQ,C'12345') |
output generated using printer-friendly topic mod. All times are GMT - 5 Hours