MVSFORUMS.com

[dhansr]

Hi,

I used below techniques to replace the leading zeros but not getting expected result, please advise.

[William Collins]

How does the data get into B, including the definition of the source field?

I think you are expecting it to be left-justified, but it is not.

When you UNSTRING, you are picking up a zero-length value (DELIMITED BY ALL SPACE is best) prior to the first space, so you get space, and space alone, in C. The LOW-VALUES was never going to work (not sure why you tried that).

Just MOVE B TO C and then do your INSPECT. For a four-byte field, INSPECT is a bit heavy, I'd just define appropriately test for one, two, three or four spaces, and MOVE ZERO to the place where the spaces have been identified as being.

More thinking, more typing (or more using of the editor) but less CPU day-in, day-out, for the next 15 years.

[dhansr]

Hi,

OUTSTANDING !!!

As suggested I moved B to C and did INSPECT, it works great !!, outstanding