Re: COBOL STRING Command

On 22 Dec 2022, at 22:59, Jon Paris <jon.paris@xxxxxxxxxxxxxx> wrote:

Until you get a string that contains two valid spaces!

You should be able to nest the TRIM function into the STRING operation. Haven't time to play with it but it should work.


Jon P.

On Dec 22, 2022, at 1:58 PM, Rich Loeber <rich@xxxxxxxxx> wrote:

Mark,

I tried the option with 2 spaces as the delimiter and it seems to produce the result that I'm looking for.

Thanks!

Rich

________________________________


On 12/22/2022 1:36 PM, Mark Waterbury wrote:

Try: STRING SRC-STRING DELIMITED BY ' ' INTO TGT-STRING
END-STRING

On Thursday, December 22, 2022 at 01:25:52 PM EST, Rich Loeber <rich@xxxxxxxxx><mailto:rich@xxxxxxxxx> wrote:

I use the STRING command quite often and I've run into an issue. I normally do STRING delimited by SIZE which uses the defined field length when gluing fields together. What I'd really like to do in one application is have it delimited by the size of the field contents. For example, I have a 200 character field but it often only has the first 6 characters for content. I would like to the STRING command to only copy those 6 characters and not the other 194 blanks.

Any suggestions?

Rich Loeber
Kisco Systems LLC
https://www.kisco.com

________________________________


--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.

--
This is the COBOL Programming on the IBM i (AS/400 and iSeries) (COBOL400-L) mailing list
To post a message email: COBOL400-L@xxxxxxxxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: https://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxxxxxxxx
Before posting, please take a moment to review the archives
at https://archive.midrange.com/cobol400-l.