Re: Right aligning text

["Chris Beck" <CBeck@xxxxxxxxxxxx>]

Here is one method:
evalr     x = %CHAR(ATOI(x))   

Or if you are at V5R2
evalr     x = %Char(%INT(x))     

Chris Beck

>>> MNWills@xxxxxxxxxxxxxx 05/21/03 04:07PM >>>
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.

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

This email transmission and any documents, files or previous 

email messages attached to it may contain information that is 

confidential or legally privileged. If you are not the intended 

recipient, you are hereby notified that any disclosure, copying, 

printing, distributing or use of this transmission is strictly 

prohibited. If you have received this transmission in error, 

please immediately notify the sender by telephone or return 

email and delete the original transmission and its attachments

without reading or saving in any manner.



The Evangelical Lutheran Good Samaritan Society.

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