Thank you all for your supports. I have followed the following from Lim
Hock-Chai and it works perfect. Thanks again to all specially to Lim.
Best regards,
Kamelia
"Lim Hock-Chai" <Lim.Hock-Chai@xxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
06/12/2008 03:01 PM
Please respond to
RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
To
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
cc
Subject
RE: Help to extract a numeric value from string
If myString1 <> *all'0';
myString2 = %subst(myString1 :%check('0' :myString1));
Else;
myString2 = *blanks;
Endif;
-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of KOskooie@xxxxxxxxxxx
Sent: Thursday, June 12, 2008 12:11 PM
To: rpg400-l@xxxxxxxxxxxx
Subject: Help to extract a numeric value from string
Hello list,
I have a field that is string of 22 positions with a value of
0000317982.
I need to trim the zeros on the left to have only the value of 317982
and move it to another string field.
I have tried to convert it to numeric but it gives me leading blanks "
317982000000000000".
Any help would be appreciated.
Regards,
Kamelia Oskooie
Semtech Corporation
--
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.
As an Amazon Associate we earn from qualifying purchases.