//STEP010 EXEC PGM=SORT
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=PCCCD.CD0041DP.CHGO.BENCHEK.IMAGE(0),
// DISP=SHR
//SORTOUT DD DSN=TCCPU.PU0700DP.CHGO.BENCHEK.IMAGE.TEST.TDY16,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE),
// DCB=RECFM=FB
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,1,CH,EQ,C'1',AND,2,6,CH,EQ,C' ',OR,
(9,8,CH,NE,C' ',
AND,17,6,CH,EQ,C' ',AND,23,7,CH,NE,C' ',
AND,28,7,CH,EQ,C' ',AND,35,1,CH,NE,C' '))
/*
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=PCCCD.CD0041DP.CHGO.BENCHEK.IMAGE(0),
// DISP=SHR
//SORTOUT DD DSN=TCCPU.PU0700DP.CHGO.BENCHEK.IMAGE.TEST.TDY16,
// DISP=(,CATLG,DELETE),
// UNIT=SYSDA,
// SPACE=(CYL,(1,1),RLSE),
// DCB=RECFM=FB
//SYSIN DD *
SORT FIELDS=COPY
INCLUDE COND=(1,1,CH,EQ,C'1',AND,2,6,CH,EQ,C' ',OR,
(9,8,CH,NE,C' ',
AND,17,6,CH,EQ,C' ',AND,23,7,CH,NE,C' ',
AND,28,7,CH,EQ,C' ',AND,35,1,CH,NE,C' '))
/*
No comments:
Post a Comment