Variables with definition S9V99 COMP-3 and PIC 9(001)V99 ar
Posted: Tue Jun 19, 2018 3:34 pm
When I display the below variable, decimal is not showing in the spool.
.
012802 DISPLAY 'WS-A: 'WS-A
012804 MOVE WS-A TO WS-B
012806 DISPLAY 'WS-B: 'WS-B
Output is coming as below
********************************************************** Top of Data **************************************************
WS-A: 199
EE6C7444FFF4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
6201A0001990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------------------------------------------------------
WS-B: 199
EE6C7444FFF4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
6202A0001990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------------------------------------------------------
Could anyone tell why this is happen?
003700 01 WS-VARIABLE. .
003802 03 WS-A PIC S9V99 COMP-3 VALUE 1.99. .
003804 03 WS-B PIC 9(001)V99. .
003802 03 WS-A PIC S9V99 COMP-3 VALUE 1.99. .
003804 03 WS-B PIC 9(001)V99. .
012802 DISPLAY 'WS-A: 'WS-A
012804 MOVE WS-A TO WS-B
012806 DISPLAY 'WS-B: 'WS-B
Output is coming as below
********************************************************** Top of Data **************************************************
WS-A: 199
EE6C7444FFF4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
6201A0001990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------------------------------------------------------
WS-B: 199
EE6C7444FFF4444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444
6202A0001990000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000
-----------------------------------------------------------------------------------------------------------------------
Could anyone tell why this is happen?