View previous topic :: View next topic
|
Author |
Message |
dharmaraok
New User
Joined: 10 Mar 2011 Posts: 45 Location: india
|
|
|
|
I am having date value in the below comp-3 format
101
413
(y/m/d)
when i move the value to 01 ws-a pic 9(6) .
I am getting the output as
output : 14011
the value "3" is not displaying.
Could you please let me how to achieve this. |
|
Back to top |
|
|
Bill Woodger
Moderator Emeritus
Joined: 09 Mar 2011 Posts: 7309 Location: Inside the Matrix
|
|
|
|
That is not PACKED-DECIMAL/COMP-3, that is a BCD field (like packed, but with no sign nybble).
Code: |
01 deal-with-bcd.
05 your-field-in PIC X(3).
05 FILLER COMP-3 PIC V9 VALUE ZERO.
01 FILLER REDEFINES deal-with-bcd.
05 your-fieldout COMP-3 PIC 9(6)V9. |
Define your source field as PIC XXX/X(3), do the two obvious MOVEs, ending with the value you want. |
|
Back to top |
|
|
dharmaraok
New User
Joined: 10 Mar 2011 Posts: 45 Location: india
|
|
|
|
Thanks !! its Working |
|
Back to top |
|
|
|