Re: Move 'ABC' to Numeric?

["Bill Hopkins" <BHopkins@xxxxxxxxxxxxxxxxxxx>]

                          Display Program Variables 
 
Program . . . . . . . . . . . . . . . . : TESTR 
Recursion level . . . . . . . . . . . . : 1 
Start position  . . . . . . . . . . . . : 1 
Format  . . . . . . . . . . . . . . . . : *CHAR 
Length  . . . . . . . . . . . . . . . . : *DCL 
 
Variable  . . . . . . . . . . . . . . . : PACK80 
  Type  . . . . . . . . . . . . . . . . :   PACKED 
  Length  . . . . . . . . . . . . . . . :   8 0 
 '        0' 

Test Code
C                     MOVE 'ABC'      PACK80  80 
C   PACK80  IFEQ    123
C            "SOME MORE CODE" 
C                     ENDIF
C                     MOVE *ON       *INLR 

                          Display Program Variables 
 
 Program . . . . . . . . . . . . . . . . : TESTR 
 Recursion level . . . . . . . . . . . . : 1 
 Start position  . . . . . . . . . . . . : 1 
 Format  . . . . . . . . . . . . . . . . : *CHAR 
 Length  . . . . . . . . . . . . . . . . : *DCL 
 
 Variable  . . . . . . . . . . . . . . . : PACK80 
   Type  . . . . . . . . . . . . . . . . :   PACKED 
   Length  . . . . . . . . . . . . . . . :   8 0 
  '      123' 

Simple test program results. 
The question was "why they would code that way", not if it worked or not.

Thanks 
Bill H





Tadashi Kakefuda <kakefuda@xxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/28/2003 01:47 AM
Please respond to RPG programming on the AS400 / iSeries

 
        To:     RPG programming on the AS400 / iSeries <rpg400-l@xxxxxxxxxxxx>
        cc: 
        Subject:        Re: Move 'ABC' to Numeric?


Hi

The string 'ABC' is x'C1C2C3' in hex decimal and if the attribute of the
NUM is zoned decimal type,it will work. The x'C1C2C3' means '123' in
Character Numeric at main frame (I'm not sure, but I heard so.) And SNA
will support it on AS/400 also. 

But... if it is a packed decimal field, it causes a decimal error.
Because the last 4bit is '3' in x'C1C2C3'.(If it is X'123F', it will be
OK.) Is the RPG program made with IGNORE DECIMAL ERROR option?


Tadashi

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