Author: Sysaron
Subject: Using 'parm' to vary SORTOUT record values ?
Posted: Wed Sep 07, 2016 9:24 pm (GMT 5.5)
Could anyone please help me setup ICEMAN or DFSORT to change a value in a column based on what is in the 'parm card'? Even if I have to concat the parm to the SORTIN. Thank you for any advice you can give.
Input
Output
Problematic Sort Cards
Code'd for you this time
Subject: Using 'parm' to vary SORTOUT record values ?
Posted: Wed Sep 07, 2016 9:24 pm (GMT 5.5)
Could anyone please help me setup ICEMAN or DFSORT to change a value in a column based on what is in the 'parm card'? Even if I have to concat the parm to the SORTIN. Thank you for any advice you can give.
| Code: |
| Parm 05200 KKK 000 -03 -02 -01 0000000000000 |
Input
| Code: |
| SERVER.100.1100 Someones_password CD /NewDirectory PUT 'SYSXX.SOMTHING.DATA1â THEIRQQQ.SOMETHING1.txt PUT 'SYSXX.SOMTHING.DATA2â THEIRQQQ.SOMETHING2.txt PUT 'SYSXX.SOMTHING.DATA3â THEIRQQQ.SOMETHING3.txt Dir QUIT |
Output
| Code: |
| SERVER.100.1100 Someones_password CD /NewDirectory PUT 'SYSXX.SOMTHING.DATA1â THEIR333.SOMETHING1.txt PUT 'SYSXX.SOMTHING.DATA2â THEIR333.SOMETHING2.txt PUT 'SYSXX.SOMTHING.DATA3â THEIR333.SOMETHING3.txt Dir QUIT |
Problematic Sort Cards
| Code: |
| SORT FIELDS=COPY INREC IFTHEN=(WHEN=(8,3,CH,EQ,C'KKK')), OUTREC OVERLAY=(WHEN=(47,3,EQ,C'QQQ')), BUILD=(47,3,C'333') |
Code'd for you this time