Re: Move 'ABC' to Numeric?

[Hans Boldt <boldt@xxxxxxxxxx>]

Bill Hopkins wrote:
>                           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?


For completeness, here are the results for moving the 16 values from 
x'010203' to x'F1F2F3' to an 8 digit packed decimal initialized to 
66666666:

> call stu
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123
  DSPLY  66666123-
  DSPLY  66666123
  DSPLY  66666123

BTW, results are similar if the target is a 10I0 integer variable.

Oh, the joys of dealing with the MOVE opcode!

As mentioned before, for numeric targets and character Factor 2, 
MOVE treats the bytes of the Factor 2 value as a zoned decimal 
numeric value. The appropriate conversions between the various 
numeric formats are automatic.

Cheers! Hans