Author: Learncoholic
Posted: Fri Apr 07, 2017 12:02 pm (GMT 5.5)
Rahul,
I tried using the below ICETOOL card:
The O/P thrown was:
The Non Numeric fields are appended with zeroes.
I tried with storing of original data from 100th Bytes in INREC.
However, I guess that OVERLAY/FINDREP/BUILD cannot go togehter with INREC.
I used 2 SORT card to achieve it. It is possible in one?
_________________
Thanks for not dumping it
Posted: Fri Apr 07, 2017 12:02 pm (GMT 5.5)
Rahul,
I tried using the below ICETOOL card:
| Code: |
| //TOOLIN DD * COPY FROM(INDD01) TO(OUTDD01) USING(CNT1) /* //CNT1CNTL DD * INREC FINDREP=(IN=C' ',OUT=C'0',STARTPOS=1,ENDPOS=15) OUTREC IFTHEN=(WHEN=(1,15,FS,EQ,NUM), OVERLAY=(1:1,15,ZD,EDIT=(IIIIIIIIIIIIIII),LENGTH=15, 1:1,15,SQZ=(SHIFT=LEFT),16:16,14)) /* |
The O/P thrown was:
| Code: |
| 0000001KG009999 IRRELEVANTTXT 000000000MN1125 IRRELEVANTTXT 100032205 IRRELEVANTTXT 32209 IRRE1EAAN11XT 1100121419 IRRELEVANTTXT 1100254004 IRR0LEVANMMXT 1100990214 IRRELEVANTTZZ 1100991487 IRRELEVANTTXT |
The Non Numeric fields are appended with zeroes.
I tried with storing of original data from 100th Bytes in INREC.
However, I guess that OVERLAY/FINDREP/BUILD cannot go togehter with INREC.
I used 2 SORT card to achieve it. It is possible in one?
_________________
Thanks for not dumping it