RE: Moving Char field to Numeric field right justified

The %DEC built-in function will blow up on this conversion. Do not use it
for that. But if you are on V5R2, you could use %INT instead of atoll() as I
suggested earlier, but still do the %SUBST and CHECK opcodes first.
-Bob Cozzi

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Duane Kehoe
Sent: Tuesday, February 24, 2004 9:15 AM
To: RPG programming on the AS400 / iSeries
Subject: Re: Moving Char field to Numeric field right justified

Take a look at the %DEC built in Function for RPG IV available on V5R2 
it does exactly what you need, hope this helps.  There are other BIFs 
for this type of move as well checkout the IBMs site(iSeries Information 
Center - don't have the link sorry).

Deepak D (KAGC) wrote:

>Hi
>
>Can anybody suggest me the way to move a Char field (9 length) with numeric
>data to Numeric field (9 length) right justified?
>
>e.g.
>
>Input field
>'123456((('
>
>Output expected
>000123456
>
>Since output field is numeric, it will not show leading zeros. Using
arrays,
>I moved the data in a numeric array but array does not allow me to move it
>to a numeric field directly. E.g. MOVEA array numfld.
>
>Please help.
>
>_______________________________________________
>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.
>
>
>  
>

-- 

/*Weyco** Group* -/

*/Florsheim, Brass Boot, Nunn Bush, Stacy Adams/*
Duane Kehoe
EC / Programmer / Analyst
        

Phone # 414.908.1814
Fax # 414.908.1601
Email: dkehoe@xxxxxxxxxxxxxx

_______________________________________________
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.