Any suggestions would be greatly appreciated.
Code: Select all
INCLUDE COND=((80,18,CH,EQ,C'NNNNNNNNNNNNNNNNNN',AND,
39,1,CH,EQ,C'Y',AND,
38,1,CH,EQ,C'M'),OR,
(80,18,CH,NE,C'NNNNNNNNNNNNNNNNNN'))
INREC FIELDS=(1:1,24,25:27,06,31:34,24,55:59,46,
101:5,4,BI,TO=ZD,LENGTH=5)
SORT FIELDS=(5,4,BI,A,1,4,BI,A)
OUTFIL FNAMES=DD01O,INCLUDE=(105,1,ZD,EQ,0,OR,105,1,ZD,EQ,1)
OUTFIL FNAMES=DD02O,INCLUDE=(105,1,ZD,EQ,2,OR,105,1,ZD,EQ,3)
OUTFIL FNAMES=DD03O,INCLUDE=(105,1,ZD,EQ,4,OR,105,1,ZD,EQ,5)
OUTFIL FNAMES=DD04O,INCLUDE=(105,1,ZD,EQ,6,OR,105,1,ZD,EQ,7)
OUTFIL FNAMES=DD05O,INCLUDE=(105,1,ZD,EQ,8,OR,105,1,ZD,EQ,9)