MVSFORUMS.com

[enge]

hello everyone,

i need to transfrom a string pic x(12)

[dbzTHEdinosauer]

First of all, in COBOL, the only way to 'shrink' a string is to move it to a field that is smaller.
What you are refering to, I would call: Left justification, removing spaces, which by the way - DFSORT does a good job of doing.

This UNTESTED CODE will work
if you only have two words in your string.
If you can have more than 2 words,
then you need to add a WS-WORK-n for each additional word.

[jsharon1248]

For this task, I'd recommend just coding a PERFORM UNTIL that increments an index (or subscript if you prefer). You'll need a second pointer to store the current next available position in the receiving field. MOVE the characters that you want to keep 1 by 1; only bump the next available position pointer when you actually MOVE a character. Here's some untested code that should get you moving in the right direction:

[enge]

good solutions.
i choose the last one.
thank a lot.

[dbzTHEdinosauer]

enge,

jsharon1248's solution will work if you add a line to bump PTR2 if it is used (second if is true).
_________________
Dick Brenholtz
American living in Varel, Germany

[jsharon1248]

DOH!!

Should've paid more attention to what I wrote. Thanks for the second set of eyes dbz.

This is a little closer to what you'll need.

[dbzTHEdinosauer]

no problem jsharon1248. I just had to spend about an hour apologizing and amending several posts that I made this week.

i should have sent a private message to you, so that you could have amended it. It was not necessary to blow my own horn.
_________________
Dick Brenholtz
American living in Varel, Germany

[enge]

great work ! thanks you again.