How to remove High-values in the Alphamumeric field

itjagadesh · New User Joined: 05 Dec 2006 Posts: 89 Location: chennai

Hi,
Could anyone please tell me how to remove high-values and leading zeros in the alpha numeric field?

Input layout:
---------------
01 Ws-Name Pic X(04).

INput Values
--------------
David
0John
"FFFF
FFFF" -> High values in Hex decimal format

Output layout:
----------------
01 ws-name-output Pic X(04)

Values
-------
David
John - (Leading zeros in the input were removed)
SPACES - (Spaces were moved when high values in the input)

bhairon singh rathore · New User Joined: 19 Jun 2008 Posts: 91 Location: banglore

hi,

Why don't you INSPECT leading zeroes and X'00' and replace it with spaces.

Marso · Posted: Mon Jul 06, 2009 12:20 pm

The INSPECT REPLACING statement should do the job.

itjagadesh · New User Joined: 05 Dec 2006 Posts: 89 Location: chennai

Yes you are correct. The Inspect statement will replace zeros and H'00' with spaces. but the requirement is something like

Input - Output
0TATA -> TATA (Zero was removed and moved a step forward)
00NAN -> NAN (Zeros were removed and moved 2 steps forward)
"FFFF
FFFF" -> SPACES (High values will be spaces)

Robert Sample · Posted: Mon Jul 06, 2009 2:52 pm

Reference modification -- the COBOL Language Reference manual will give you the details.

Bill O'Boyle · Posted: Mon Jul 06, 2009 5:24 pm

Click on this link -

ibmmainframes.com/viewtopic.php?p=143786&highlight=#143786

Although the result of the above link is a left-justified value, adapting the logic to right-justification should not be too much of a chore.

Regards,

Robert Sample · Posted: Mon Jul 06, 2009 5:27 pm

This sounds like another student exercise. Especially since the data conflicts with the problem statement:

dick scherrer · Posted: Mon Jul 06, 2009 8:22 pm