View previous topic :: View next topic
|
Author |
Message |
Antony Raj
New User
Joined: 05 Feb 2012 Posts: 1 Location: India
|
|
|
|
Hi,
01 WS-VAR1 PIC X(05) VALUE ‘AB12E’.
01 WS-VAR2 REDEFINES WS-VAR1 PIC 9(04).
PROCEDURE DIVISION.
1000-PARA-DISPLAY.
DISPLAY ‘WS-VAR1 BEFORE MOVE:’ WS-VAR1.
DISPLAY ‘WS-VAR2 BEFORE MOVE :’ WS-VAR2.
MOVE 45 TO WS-VAR2.
DISPLAY ‘WS-VAR1 AFTER MOVE:’ WS-VAR1.
DISPLAY ‘WS-VAR2 AFTER MOVE :’ WS-VAR2.
What will be the output? |
|
Back to top |
|
|
RahulG31
Active User
Joined: 20 Dec 2014 Posts: 446 Location: USA
|
|
|
|
Antony, you seem to join the forum in 2012 and If you are a COBOL programmer then, instead of asking it in a forum, why don't you test it yourself?
AB12E
AB12
0045E
0045 |
|
Back to top |
|
|
|