RE: Moving Char field to Numeric field right justified

["Bob Cozzi" <cozzi@xxxxxxxxx>]

It's a bit tougher in RPGIII.  Is there something wrong with RPG IV that
you're still using RPGIII?

-Bob Cozzi


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Deepak D (KAGC)
Sent: Tuesday, February 24, 2004 9:53 AM
To: 'RPG programming on the AS400 / iSeries'
Subject: RE: Moving Char field to Numeric field right justified

Hi

Here is the sample code. I get the result in CUSN array. But I cannot move
it to a numeric field.

        *************** Beginning of data
*************************************
0001.00
*---------------------------------------------------------------*
0002.00      E                    CUSC        9  1               CUSID Char
0003.00      E                    CUSN        9  1 0             CUSID
Numeric
0004.00
*---------------------------------------------------------------*
0005.00      I              '1234567  '           C         CUSID
0006.00
*---------------------------------------------------------------*
0007.00      C                     MOVELCUSID     CUSIDC  9
0008.00      C                     MOVEACUSID     CUSC
0009.00      C           ' ':1     SCAN CUSIDC    I       30
0010.00      C           I         IFGT 0
0011.00      C           I         SUB  1         N       30
0012.00      C           I         SUB  1         I
0013.00      C                     Z-ADD9         J       30
0014.00      C                     DO   N
0015.00      C                     MOVE CUSC,I    POS1    10
0016.00      C                     MOVE POS1      CUSN,J
0017.00      C           I         SUB  1         I
0018.00      C           J         SUB  1         J
0019.00      C                     ENDDO
0020.00 ???  C****                 MOVEACUSN      CUSIDN  90
EXPECTED RESULT IS 001234567, OF COURSE 00 WILL NOT BE SHOWN.
0021.00      C                     ELSE
0022.00      C                     MOVE CUSIDC    CUSIDN  90
0023.00      C                     ENDIF
0024.00      C                     SETON                     LR
        ****************** End of data
****************************************

 -----Original Message-----
From:   rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
On Behalf Of Bob Cozzi
Sent:   Tuesday, February 24, 2004 8:59 PM
To:     'RPG programming on the AS400 / iSeries'
Subject:        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.



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