Re: Move 'ABC' to Numeric?

[Tadashi Kakefuda <xenxen@xxxxxxxxxxxxxxxxx>]

Hi, Bill

Huumm, very interesting. I didn't know such thing. I've never coded such 
statments before.

It seems that the RPG converts several characters that are considered as 
character numerics into normal numeric automatically. I mean 'MOVE 'ABC' 
PACK80' is equal to 'MOVE '123' PACK80'

Code Page 37

ABCDEFGHI=x'c1.....c9' character numeric
JKLMNOPQR=X'd1.....d9' negative numeric
STUVWXYZ=x'e2......e9' ???
123456789=x'f1.....f9' positive numeric

Well, would you try 'MOVE 'STU' pack80' ? Does it work without any errors?


Regards

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

---
Tadashi Kakefuda
xenxen@xxxxxxxxxxxxxxxxx