Author: Sysaron
Posted: Thu Feb 23, 2017 4:45 am (GMT 5.5)
I tried this, but the output file is only 40 bytes, not 80 and the 2nd line still wont write.
Posted: Thu Feb 23, 2017 4:45 am (GMT 5.5)
I tried this, but the output file is only 40 bytes, not 80 and the 2nd line still wont write.
| Code: |
| SORT FIELDS=COPY OUTFIL FILES=1,BUILD=(1,40,/,41,40),ENDREC=1 INREC IFTHEN=(WHEN=(8,3,CH,EQ,C'3RD'), <-- 1ST RCD BUILD=(1:C' SS1,''201''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(8,3,CH,EQ,C'HOX'), BUILD=(1:C' SS1,''203''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(42,1,CH,EQ,C'A'), <-- 2ND RCD NOT WRITING OVERLAY=(1:C' SS2,''A''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(42,1,CH,EQ,C'C'), OVERLAY=(1:C' SS2,''C''',11:33C' ')) |