space suppression

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

hi,

here is my query

01 HS PIC X(50)

MOVE a-3 TO HS(1:30)
MOVE a-4 TO HS(31:20)

O/P
203 E...............................114 ABCD.

But i need the o/p as

203 E, 114 ABCD.

if there are less than 30 characters i don't need spaces sometimes i'll get value for tht 30 characters also.

Robert Sample · Posted: Thu Nov 05, 2009 8:56 pm

Starting at the 30th character of HS and going backwards, find the first non-space AFTER you've done the MOVE a-3 statement. Add 1 to that location, then move in the comma, add 1 and use this as the starting location of HS for the MOVE a-4 statement.

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

thnks for your reply..can u explain it little more..

any suggestions.

dick scherrer · Posted: Fri Nov 06, 2009 9:39 am

Hello,

Robert Sample · Posted: Fri Nov 06, 2009 3:46 pm

This is a HELP forum, not a WRITE-THE-CODE-FOR-YOU forum. Once you post code that you're having a problem with, we can help you more. But unless you're showing some initiative in writing code, we won't write it for you.

dbzTHEdinosauer · Posted: Fri Nov 06, 2009 5:04 pm

how many times have we seen this homework assignment?

tally reverse, move (xx:xx)

search the forum for 'reverse', there are many posts where the TS needed to concatenate strings that had spaces at the end.

k.junaid83 · New User Joined: 19 Apr 2006 Posts: 22 Location: bangalore

Another option is

STRING a-3 DELIMITED BY SPACES,
a-4 DELIMITED BY SPACES,
INTO HS
END-STRING.

k.junaid83 · New User Joined: 19 Apr 2006 Posts: 22 Location: bangalore

Oh I forgot the statement to add comma, My apologies

STRING a-3 DELIMITED BY SPACES,
',' DELIMITED BY SIZE,
a-4 DELIMITED BY SPACES,
INTO HS
END-STRING.

dbzTHEdinosauer · Posted: Fri Nov 06, 2009 8:16 pm

k.junaid83,

problem with your solution is that the initial strings contain spaces.

203 E...............................114 ABCD

so, the end result of your solution would be:

203,114

instead of:
203 E, 114 ABCD

and before you step on yourself, and suggest that the delimiter be two spaces,

if the initial string were 29 chars, with intervening spaces, you would still end up with a 30 char move.

Robert Sample · Posted: Fri Nov 06, 2009 8:27 pm

Dick: BTDTGTTS?

dbzTHEdinosauer · Posted: Fri Nov 06, 2009 9:13 pm

took me a couple of times but finally learned how and when to use UNSTRING

mf_karthik · New User Joined: 26 Jul 2005 Posts: 55

robert,

i don't need the code,i asked for the explanation of reverse syntax..i know the basic commaon sense tht need to search the forum before posting the question..i searched but did'nt get the answer...

thanks for all the replies

Robert Sample · Posted: Sat Nov 07, 2009 6:21 pm

Method 1:
FUNCTION REVERSE is documented in the COBOL Language Reference manual (link at the top of the page), coupled with INSPECT and moves using reference modification.

Method 2:
Run a loop from 30 to 1 checking each character (using reference modification) of HS to be spaces. Exit the loop when you find one that isn't. Add 1 to the position and that tells you where to move the comma (and the other data field).

dchristensen · Posted: Mon Nov 09, 2009 9:54 pm

If you would also include a WITH POINTER in the string statement, you would have a length you could use for a move that would strip off the trailing spaces.