RE: Text wrapping question

Mike,

I know I'm jumping in late, but you didn't say if this was for a report or
an interactive display.  If DSPF, have a look at WRDWRAP.  Here's a generic
window I sometimes use for warning messages....

--------------------------------
A          R PGWARNING

A                                      WINDOW(10 24 7 30 *NOMSGLIN)

A                                      CA12

A                                      CA03

A                                      WDWBORDER((*COLOR RED) (*DSPATR RI)-

A                                       (*CHAR '        '))

A                                  1  1'- - = ='

A                                      COLOR(RED)

A                                  1  9'W A R N I N G'

A                                      COLOR(WHT)

A                                  1 23'= = - -'

A                                      COLOR(RED)

A            $VWARN       150A  B  2  1CNTFLD(030)

A                                      WRDWRAP

A                                      CHGINPDFT

A                                      DSPATR(PR)

--------------------------------

Eric DeLong
Sally Beauty Company
MIS-Sr. Programmer/Analyst
940-898-7863 or ext. 1863



-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@taylorcorp.com]
Sent: Thursday, May 23, 2002 10:49 AM
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.