RE: MOVE 'PP' TO NUMERIC

Domenico,

Check the hex values....

ABC
---
CCC
123

I *think* an automatic conversion is done and the low-order
values are picked-up.

Terry

> -----Original Message-----
> From: Finucci Domenico [mailto:Domenico.Finucci@Fiditalia.it]
> Sent: Friday, April 05, 2002 10:37 AM
> To: 'midrange-l@midrange.com'
> Subject: MOVE 'PP' TO NUMERIC
>
>
> Please try this:
> ---------------------------------------------------------
>   Identification Division.
>   Program-Id. uprovac1.
>   Data Division.
> *
>   Working-Storage Section.
>   01 w-char  pic x(3) value 'ABC'.
>   01 w-num  pic 9(3) value zero.
>   Linkage Section.
>   Procedure Division.
>   Main.
>       move   w-char to w-num.
>       display 'w-num '   w-num.
>       GoBack.
>  **
> ---------------------------------------------------------
> What do you think you will get ?
> Try and then explain your point of view.
> Sincerely.
> Domenico Finucci
> Fiditalia , Milano, 02- 4301-2494
> _______________________________________________
> This is the Midrange Systems Technical Discussion
> (MIDRANGE-L) mailing list
> To post a message email: MIDRANGE-L@midrange.com
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/cgi-bin/listinfo/midrange-l
> or email: MIDRANGE-L-request@midrange.com
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/midrange-l.
>