Author: Sysaron
Subject: Can you write 2 recs on SORTOUT when SORTIN has only 1 rec
Posted: Thu Feb 23, 2017 12:07 am (GMT 5.5)
I am trying to create a SYMNAMES file for a following step and it seems that this type of file needs a different line for each symbolic character.
I want my output to look like this. But I cannot figure out how to get the 2nd line written.
Is there anyone that could advise me? I have already been thru the DFSORT manual both online and paper form.
The SORTIN looks like this
My SortCards look like this
I want the output to look like this, but cant write the 2nd record:
Thank you for any help you can give.
Subject: Can you write 2 recs on SORTOUT when SORTIN has only 1 rec
Posted: Thu Feb 23, 2017 12:07 am (GMT 5.5)
I am trying to create a SYMNAMES file for a following step and it seems that this type of file needs a different line for each symbolic character.
I want my output to look like this. But I cannot figure out how to get the 2nd line written.
Is there anyone that could advise me? I have already been thru the DFSORT manual both online and paper form.
The SORTIN looks like this
| Code: |
| ****** ***************************** Top of Data *********** =COLS> ----+----1----+----2----+----3----+----4----+----5--- 000001 HOX A 000002 |
My SortCards look like this
| Code: |
| //SYSIN DD * SORT FIELDS=COPY INREC IFTHEN=(WHEN=(8,3,CH,EQ,C'3RD'), <-- 1ST RCD OVERLAY=(1:C' JP1,''201''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(8,3,CH,EQ,C'HOX'), OVERLAY=(1:C' JP1,''203''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(42,1,CH,EQ,C'A'), <-- 2ND RCD not writing OVERLAY=(1:C' JP2,''A''',11:33C' '),HIT=NEXT), IFTHEN=(WHEN=(42,1,CH,EQ,C'C'), OVERLAY=(1:C' JP2,''C''',11:33C' ')) OUTFIL ENDREC=2 |
I want the output to look like this, but cant write the 2nd record:
| Code: |
| ****** ***************************** Top of Data * 000001 JP1,'203' 000002 JP2,'B' ****** **************************** Bottom of Data |
Thank you for any help you can give.