Author: RahulG31
Subject: Reply to: Format record to remove Leading zeroes
Posted: Wed Apr 05, 2017 10:23 pm (GMT 5.5)
Subject: Reply to: Format record to remove Leading zeroes
Posted: Wed Apr 05, 2017 10:23 pm (GMT 5.5)
| Code: |
| //SYSIN DD * OPTION COPY OUTREC IFTHEN=(WHEN=(1,10,FS,EQ,NUM), OVERLAY=(1:1,10,ZD,EDIT=(IIIIIIIIII),LENGTH=10, 1:1,10,SQZ=(SHIFT=LEFT),11:11,14)) /* |