Quantcast
Channel: IBM Mainframe Computers Forums
Viewing all articles
Browse latest Browse all 8500

DFSORT/ICETOOL :: RE: Format record to remove Leading zeroes

$
0
0
Author: RahulG31
Subject: Reply to: Format record to remove Leading zeroes
Posted: Thu Apr 06, 2017 9:46 pm (GMT 5.5)

If your input is like this:
Code:
     01KG009999 IRRELEVANTTXT
       00MN1125 IRRELEVANTTXT
     0100032205 IRRELEVANTTXT
      000032209 IRRE1EAAN11XT
     1100121419 IRRELEVANTTXT
     1100254004 IRR0LEVANMMXT
     1100990214 IRRELEVANTTZZ
     1100991487 IRRELEVANTTXT

And you want your output to be like this:
Code:
01KG009999      IRRELEVANTTXT
00MN1125        IRRELEVANTTXT
100032205       IRRELEVANTTXT
32209           IRRE1EAAN11XT
1100121419      IRRELEVANTTXT
1100254004      IRR0LEVANMMXT
1100990214      IRRELEVANTTZZ
1100991487      IRRELEVANTTXT

Then, it is not terribly difficult to change the above mentioned sort card.

You need to replace the leading spaces with zeroes to check if numeric and keep a copy of the original data (do this in Inrec) and use it for overlay edit and sqz.

But, as you have shown no signs of any kind of attempt/effort to achieve what you want, it would Not be worth to give you the code.

.


Viewing all articles
Browse latest Browse all 8500

Trending Articles