RE: Text wrapping question

This is V5R1 but maybe you can take this and make it work in V4R5:

<incomplete snip>
     D detailRec       s                   like(chgDtl) dim(100)
     D chars           c                    'ABCDEFGHIJKLMNOPQRSTUVWXYZ+
     D                                      abcdefghijklmnopqrstuvwxyz+
     D                                      0123456789,./<>?+()+
     D                                      !@#$%^&*_+-=[]\{}|;'''':"'
     D
     D setBack         s              5  0
     D offset          s              5  0
     D length          s              5  0
     D blankPos        s              5  0
     D tempBuffer      s           1024
      /free
              blankPos = %checkr(chars:%subst(tempBuffer:offset:length));
                if blankPos > 0;
                  length = blankPos;
                endif;

              %subst(detailRec(totrrn):setBack) =
                       %subst(tempBuffer:offset:length);
              offset = offset + length;
      /end-free
</snip>

What's going on is I'm checking a part of tempBuffer for the last blank.  I
set the length equal to that position.  Then, I set detailRec element equal
to that piece of tempBuffer.  I then go back and get the next piece of
tempBuffer.  chgDtl is defined in the display file and is 70 positions long.

Phil



> -----Original Message-----
> From: rpg400-l-admin@midrange.com [mailto:rpg400-l-admin@midrange.com]On
> Behalf Of Wills, Mike N. (TC)
> Sent: Thursday, May 23, 2002 12:47 PM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Text wrapping question
>
>
> But that won't work in this case, will it?
>
> >>>Let's say this is my string:
> This is a sentence that is longer than what will fit in my field.
>
> >>>Currently my report looks like this (%subst(string:1:37)):
> This is a sentence that is longer tha
> n what will fit in my field.
>
> >>>I want it to look like this (%subst(string:1:last space but less than
> 37)):
> This is a sentence that is longer
> than what will fit in my field.
>
> -----Original Message-----
> From: Booth Martin [mailto:Booth@MartinVT.com]
> Sent: Thursday, May 23, 2002 11:25 AM
> To: rpg400-l@midrange.com
> Subject: Re: Text wrapping question
>
>
>
>
> What about:  %len(%TrimR(Text)) + 1
>
> Would that do what you wish?
>
>
> -----------------------------------------------
> Booth Martin ResoDirect, ext. 528
> BMartin@ResoDirect.com
> Booth@MartinVT.com
> http://www.MartinVT.com
> -----------------------------------------------
> -------Original Message-------
>
> From: rpg400-l@midrange.com
> Date: Thursday, May 23, 2002 11:52:23
> To: Midrange - RPG (E-mail)
> Subject: Text wrapping question
>
> I need to do some text wrapping and am trying to figure out how to locate
> the last space in the text. We are on V4R5. I know I can do it in
> a loop, I
> was just wondering if there is already a bif that can do it.
>
> Mike Wills
> IT Corporate Support
> Taylor Corporation
> mnwills@taylorcorp.com
> Phone: (507) 386-3187
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>
>
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
> _______________________________________________
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/rpg400-l
> or email: RPG400-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>