Thank John for the explantion. so if suppose it is 9(05) then is the below
correct?
01 UNSIGNED-PACKED-TIMES-10.
05 UNSIGNED-PACKED PIC X(3).
05 FILLER PIC X VALUE IS X'0F'.
01 NORMAL-PACKED REDEFINES UNSIGNED-PACKED-TIMES-10 PIC S9(7)
PACKED-DECIMAL.
01 NORMAL-UNPACKED PIC 9(5) USAGE DISPLAY.
Thanks,
Ron T
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
