Re: Move 'ABC' to Numeric?

                          Display Program Variables 
 
Program . . . . . . . . . . . . . . . . : TESTR 
Recursion level . . . . . . . . . . . . : 1 
Start position  . . . . . . . . . . . . : 1 
Format  . . . . . . . . . . . . . . . . : *CHAR 
Length  . . . . . . . . . . . . . . . . : *DCL 
 
Variable  . . . . . . . . . . . . . . . : PACK80 
  Type  . . . . . . . . . . . . . . . . :   PACKED 
  Length  . . . . . . . . . . . . . . . :   8 0 
 '      234' 
 
Here you go. Test results with 'STU'

Thanks
Bill H 




Tadashi Kakefuda <xenxen@xxxxxxxxxxxxxxxxx>
Sent by: rpg400-l-bounces@xxxxxxxxxxxx
07/30/2003 09:53 PM
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, 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

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