Code: Select all
//SORT01 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SRTWKSP INCLUDE MEMBER=SRTWRK00
//SORTJNF1 DD DSN=INPUT1,
// DISP=SHR
//SORTJNF2 DD DSN=INPU2,
// DISP=SHR
//OSORT1 DD DSN=&&TEMP1,DISP=(NEW,PASS)
//OSORT2 DD DSN=&&TEMP2,DISP=(NEW,PASS)
//OSORT3 DD DSN=&&TEMP3,DISP=(NEW,PASS)
//SYSIN DD *
JOINKEYS FILE=F1,FIELDS=(001,015,A)
JOINKEYS FILE=F2,FIELDS=(001,015,A)
JOIN UNPAIRED
REFORMAT FIELDS=(F1:001,015,F2:001,023)
SORT FIELDS=COPY
OUTFIL FNAMES=OSORT1,INCLUDE=((1,15,CH,EQ,16,15,CH),AND,
(35,1,CH,EQ,C'Y')),
OUTREC=(01:016,20)
OUTFIL FNAMES=OSORT2,INCLUDE=((1,15,CH,EQ,16,15,CH),AND,
(35,1,CH,EQ,C'N')),
OUTREC=(01:016,20)
OUTFIL FNAMES=OSORT3,INCLUDE=(16,1,CH,EQ,C' '),
OUTREC=(01:01,20)
//*
//SORT02 EXEC PGM=SORT
//SORTLIB DD DSN=SYS1.SORTLIB,
// DISP=SHR
//SYSOUT DD SYSOUT=*
//SYSPRINT DD SYSOUT=*
//SRTWKSP INCLUDE MEMBER=SRTWRK00
//SORTIN DD DSN=&&TEMP1,DISP=OLD
// DD DSN=&&TEMP2,DISP=OLD
// DD DSN=&&TEMP3,DISP=OLD
//SORTOUT DD SYSOUT=*
//SYSIN DD *
SORT FIELDS=COPY
/*
375000000102001
375000000341013
375000000431004
375000000651007
Input2:
375000000102009 YYDE
375000000211000 NYDE
375000000341013 YYDE
375000000431004 NYDE
375000000472008 NYDE
375000000651007 YYDE
375000000762002 NYDE
O/P 1:
375000000341013 Y
375000000651007 Y
375000000431004 N
375000000102001
I want to create a O/P file having the count of recors based on the indicator 'Y/N & Space'.
O/P 2:
2 >> INDICATOR Y
2 >> INDICATOR N or Space
Can this ll be acheived in a single SORT Step? If it can be done in a single step how it can be done?