How to eliminate the SPACES in String using COBOL Program

Laxminarsimharao · New User Joined: 08 May 2007 Posts: 26 Location: hyderabad

I have one string with the length of 80 (X(80)). the data comming in that string might contain Spaces in any place.

I need to eliminate the spaces before the data and after the data, also i need to eliminate the spaces in between data, only one spaces should be places in between the data.

Example:

Name Pic X(80)

Data in Name like below:
' ARUN RAJPAL '
'ARUN RAJPAL '
I need output like below:
'ARUN RAJPAL '

Data in Name like below:'ARUN RAJ PAL '
I need output like below:
'ARUN RAJ PAL '

Please help me out.

Gnanas N · Posted: Thu Jan 31, 2008 4:53 pm

ibmmainframes.com/viewtopic.php?t=26561

This post might help you to start the work.

dick scherrer · Posted: Thu Jan 31, 2008 10:28 pm

Hello,

Given the variety of possible input data and the requirement to ensure one space between each name component, i'd suggest defining 2 arrays (one of the input and one for the output) and looping across the input one byte at a time, moving all of the needed bytes to the output array - skipping leading, trailing and multiple-embedded spaces.