RE: Right aligning text

["Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxx>]

try this:

C                   eval      %subst(textfield :1 :%check('0' :textfield) -1) 
C                             = *blank                                      

-----Original Message-----
From: Wills, Mike N. (TC) [mailto:MNWills@xxxxxxxxxxxxxx]
Sent: Wednesday, May 21, 2003 4:08 PM
To: Midrange - RPG (E-mail)
Subject: Right aligning text


Hey guys I have a question. I am trying to trim out some leading zeros in a
text field. The data looks like this '000000304'. I want it to look like
this '      304' so I can then do a chain on the file. What is the best or
easiest way to do this?

Mike Wills
iSeries Programmer
Taylor Development
P: (507) 386-3187
F: (507) 625-3002
E-mail: mnwills@xxxxxxxxxxxxxx

CONFIDENTIAL INFORMATION
NOT TO BE COPIED WITHOUT AUTHORIZATION
The information contained in this electronic mail transmission may contain
privileged communications and/or confidential information intended only for
the use of the named recipient(s).  If the reader of this information is not
the named recipient(s) or you receive this transmission in error, please:
(1) immediately notify us by return electronic transmission at
mnwills@xxxxxxxxxxxxxx; and (2) permanently delete this message from your
computer and all servers and other stored devices

_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.