Skolusu
Senior Member
Joined: 07 Dec 2007 Posts: 2205 Location: San Jose
|
|
|
|
The following DFSORT JCL will give you the desired results. I assumed that your employee is 10 bytes length key and the indicator starts at pos 15. I also assumed that the indicator must be Y or N.
Code: |
//STEP0100 EXEC PGM=ICEMAN
//SYSOUT DD SYSOUT=*
//SORTIN DD *
1 Y
1 N
2 Y
3 Y
3 N
4 N
//SORTOUT DD SYSOUT=*
//SYSIN DD *
OPTION EQUALS
INREC IFTHEN=(WHEN=INIT,OVERLAY=(81:C'00')),
IFTHEN=(WHEN=(15,1,CH,EQ,C'Y'),OVERLAY=(81:C'1')),
IFTHEN=(WHEN=(15,1,CH,EQ,C'N'),OVERLAY=(82:C'1'))
SORT FIELDS=(01,10,CH,A)
SUM FIELDS=(81,1,ZD,82,1,ZD)
OUTFIL OMIT=((81,1,ZD,EQ,0,AND,82,1,ZD,GT,0),OR,
(81,1,ZD,GT,0,AND,82,1,ZD,EQ,0)),
BUILD=(01,80)
/* |
Hope this helps...
Cheers
Kolusu |
|