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

DFSORT/ICETOOL :: Format record to remove Leading zeroes

$
0
0
Author: Learncoholic
Subject: Format record to remove Leading zeroes
Posted: Wed Apr 05, 2017 2:43 pm (GMT 5.5)

Hi,
I have a file with below data:
Code:

     01KG009999 IRRELEVANTTXT
     0000MN1125 IRRELEVANTTXT
     0100032205 IRRELEVANTTXT
     0000032209 IRRE1EAAN11XT
     1100121419 IRRELEVANTTXT
     1100254004 IRR0LEVANMMXT
     1100990214 IRRELEVANTTZZ
     1100991487 IRRELEVANTTXT



The requirement is:
1. Left Justify the first 15 bytes
2. If the first 15 bytes(excluding leading spaces) is Numeric, remove off the leading zeroes
3. If the first 15 bytes(excluding leading spaces) is NOT Numeric, DON'T remove off the leading zeroes

The I/P file is FB file of 80 bytes & O/P is required with similar specifications.
_________________
Thanks for not dumping it


Viewing all articles
Browse latest Browse all 8500

Trending Articles