|
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 |
|
|
|
|
