MVSFORUMS.com

prog_mario · Beginner Joined: 08 Sep 2007 Posts: 86 Topics: 27

I have a field PIC 9(17) VALUE 00000001234567890.
I need to move that to an alpha field but first I have to remove the leading zeros and the target field must have the data justified left with no spaces on the left.
Any help?
Thanks.
_________________
The more I learn, the more I want to learn.

prog_mario · Beginner Joined: 08 Sep 2007 Posts: 86 Topics: 27

I need to do that in a Cobol program.
_________________
The more I learn, the more I want to learn.

Anuj Dhawan · Posted: Thu Jan 20, 2011 7:20 am Post subject:

prog_mario · Beginner Joined: 08 Sep 2007 Posts: 86 Topics: 27

target field is a PIC X(15).
_________________
The more I learn, the more I want to learn.

RonB · Posted: Thu Jan 20, 2011 8:33 am Post subject:

Try this:

1) DEFINE a tally-field with a PIC of S9(2) COMP.
2) REDEFINE source-field as source-field-X with a PIC of X(17).
3) MOVE SPACES TO target-field.
4) MOVE ZERO TO tally-field.
5) INSPECT source-field-X TALLYING tally-field FOR LEADING ZEROS
6) ADD 1 TO tally-field.
7) MOVE source-field-X (tally-field:) to target-field.
_________________
A computer once beat me at chess, but it was no match for me at kick boxing.

prog_mario · Beginner Joined: 08 Sep 2007 Posts: 86 Topics: 27

Thanks RonB, it works perfectly.
_________________
The more I learn, the more I want to learn.

aquarian · Posted: Wed Sep 17, 2014 7:26 am Post subject:

Just curious !!

What if the target field is

Z.ZZZ.ZZZ.ZZZ.ZZZ.ZZ9,99-

I did tried it and its moving to right? Is there any way we can move it toleft without hurting the declaration
_________________
cheers,
Aquarian

kolusu · Posted: Wed Sep 17, 2014 11:02 am Post subject:

aquarian,

Unless that is trick question isn't it removing the leading spaces instead of zeroes?

Right now you get this

William Collins · Supermod Joined: 03 Jun 2012 Posts: 437 Topics: 0

Since the field can only contain leading blanks (and you should ensure there is at least one, putting an extra leading Z on if necessary) then you can use UNSTRING with DELIMITED BY ALL SPACE. You'll need two target fields, the first just a dummy field (it will receive the content before the leading spaces) and the second field being the one you want.

This solution is not possible for the leading zeros, as within an number there can easily be one or more significant zero.