Well, no matter how convoluted, the problem is still the fact that you're
relying on only one counter (well, I guess there are two, but one of them
is set by the other).  You need separate counters for the input and
output string.  Otherwise, you're just moving the letters into the same
position in the new string.

Dave

On Wed, May 18, 2005 at 12:45:47PM -0700, Newton, Ernie wrote:
> It might by convoluted, but HORRIBLY convoluted?
> Now my feelings are hurt.
>
> Actually I need to clarify.  I am concatenating a series
> of comments into one text line and I want to get rid
> of EXTRA spaces.  I only want ONE space between words.
>
> Thanks for your input.
>
> Ernie
>
>
> -----Original Message-----
> From: Shawn Gordon [mailto:[log in to unmask]]
> Sent: Wednesday, May 18, 2005 12:11 PM
> To: [log in to unmask]
> Subject: Re: [HP3000-L] COBOL question
>
>
> well as a matter of form I'd put that in an inline PERFORM instead of
> branching to another paragraph, but your objective isn't clear, it looks
> like you are only moving characters if you have two spaces in a row,
> which could be indicated much easier by just saying
> COMMENT-BUFFER(DL-COUNTER
> -1:2) or just setting DL-COUNTER to 1 to start instead of 2 and you
> wouldn't need the -1.  Basically this is a horribly convoluted way to do
> this and you are using the same pointer for the source and destination
> string which isn't right since you are taking spaces out the destination
> pointer will be smaller.  If you want to get the fields out delimited by
> space then just use UNSTRING, but if you want to remove each space then
> something like the following should work fine:
>
> MOVE 0 TO NEW-COUNTER
> PERFORM VARYING DL-COUNTER FROM 1 BY 1 UNTIL DL-COUNTER > 186
>     IF COMMENT-BUFFER(DL-COUNTER:1) <> SPACE
>        ADD 1 TO NEW COUNTER
>        MOVE COMMENT-BUFFER(DL-COUNTER:1) TO DL-COMMENTS(NEW-COUNTER:1)
>     END-IF
> END-PERFORM.
>
> At 11:31 AM 5/18/2005, Newton, Ernie wrote:
> >Greetings,
> >
> >I'm trying to take spaces out of the middle of a string.
> >
> >I cannot see the error in my logic.
> >
> >Here's what I'm doing...
> >
> >*************************************************
> >
> >PERFORM 2005-SQUISH-COMMENTS
> >     VARYING DL-COUNTER FROM 2
> >         BY 1 UNTIL DL-COUNTER > 186
> >
> >2005-SQUISH-COMMENTS.
> >     COMPUTE LESS-1-COUNTER = DL-COUNTER - 1.
> >     IF COMMENT-BUFFER(LESS-1-COUNTER : 1) = SPACE
> >         AND COMMENT-BUFFER(DL-COUNTER : 1) = SPACE
> >             NEXT SENTENCE
> >     ELSE
> >         MOVE COMMENT-BUFFER(DL-COUNTER : 1)
> >           TO DL-COMMENTS(DL-COUNTER : 1)
> >
> >**************************************************
> >
> >DL-COMMENTS should be clean of extra spaces....shouldn't it?
> >
> >Is there an easier way using the STRING statement?
> >
> >Thanks,
> >
> >Ernie
> >
> >* To join/leave the list, search archives, change list settings, *
> >* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
>
> Regards,
>
> Shawn Gordon
> President
> theKompany.com
> www.thekompany.com
> www.mindawn.com
> 949-713-3276
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
>
> * To join/leave the list, search archives, change list settings, *
> * etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

--
+---------------David Oksner-----http://www.case.net/----------------+
|Rules for driving in New York:                                      |
|        (1) Anything done while honking your horn is legal.         |
|        (2) You may park anywhere if you turn your four-way flashers|
|            on.                                                     |
|        (3) A red light means the next six cars may go through the  |
|            intersection.                                           |
[log in to unmask]

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *