× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.




Why do people insist on making simple things difficult?



                                                                                
                                                        
                      "Deepak D                                                 
                                                        
                      \(KAGC\)"                 To:       "'RPG programming on 
the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>            
                      <deepak.deshpande@        cc:                             
                                                        
                      patni.com>                Subject:  RE: Moving Char field 
to Numeric field right justified                        
                      Sent by:                                                  
                                                        
                      rpg400-l-bounces@m                                        
                                                        
                      idrange.com                                               
                                                        
                                                                                
                                                        
                                                                                
                                                        
                      02/24/2004 10:53                                          
                                                        
                      AM                                                        
                                                        
                      Please respond to                                         
                                                        
                      RPG programming on                                        
                                                        
                      the AS400 /                                               
                                                        
                      iSeries                                                   
                                                        
                                                                                
                                                        
                                                                                
                                                        




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.







As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.