Moving unpacked numeric to packed numeric

[Tarbux]

Hi guys,

I'm currently working on something which requires me to move an unpacked numeric to a packed numeric variable in a copybook.

02 UNPACKED-NUMBER PIC S9(13)V9(02).

02 PACKED-NUMBER PIC S9(13)V9(02) COMP-3.

I remember that someone told me this can't be done but I'm not sure if I remember it correctly. Is this possible? I tried displaying it also just to see but nothing comes up.

I also tried using the REDEFINES verb and I get weird values when displayed. So I'm not sure if I'm doing it right.

02 W-REDEFINED-NUM PIC S9(13)V9(02) COMP-3.
02 W-TEMP REDEFINES W-REDEFINED-NUM.
03 W-TEMP2 PIC S9(13)V9(02).

Am I doing something wrong? Please help. I'm using Microfocus by the way.

 

[mikrom]

The packed number
PIC S9(13)V9(02) COMP-3
is ceil((13+2)/2) = ceil(7.5) = 8 Bytes long /where ceil() is upper integer part of the number/, but the number
PIC S9(13)V9(02)
is 13+2=15 Bytes long.

Therefore your redefinition don't work.
So try this:

02  W-REDEFINED-INPUT.
    03 FILLER           PIC X(7).     
    03 W-REDEFINED-NUM  PIC S9(13)V9(02) COMP-3.
02  W-TEMP           REDEFINES W-REDEFINED-INPUT.
    03   W-TEMP2     PIC S9(13)V9(02).

But simply moving this

MOVE UNPACKED-NUMBER TO PACKED-NUMBER

should work.

 

[sln007]

Simply MOVE UNPACKED-NUMBER to PACKED_NUMBER.

Then work with PACKED-NUMBER.

SLN