Redefines from AlphaNumeric to Numeric

brahmanandareddy · New User Joined: 16 Dec 2004 Posts: 44 Location: Hyderabad

see the following code

01 WS-VAR1 PIC X(10).
01 WS-VAR2 PIC 9(20) REDEFINES WS-VAR1.
.
.
MOVE 'BREDDY' TO WS-VAR1.
DISPLAY WS-VAR1.
DISPLAY WS-VAR2.
.
.
What would be the results in the above case?
Is it possible to redefine variables with different pic clauses as above (does it give error)?

01
77
49
66
of the above items for which redefines cannot be used?

anuradha · Posted: Mon Feb 28, 2005 3:43 pm

Hi BrahmanandaReddy,

Hope you asked this question already.Please take care not to post same queries more than once.

muthukumarapandian · Posted: Tue Mar 01, 2005 9:28 am

hI REDDY,

no it wont throw any error.

sunnyk · New User Joined: 20 Oct 2004 Posts: 59

Hi,
The result would be:

For WS-VAR1 : BREDDY$$$$ where $ means spaces.
For WS-VAR2 : 00000000000000BREDDY.

Only for level 66 redefines can`t be used.

Thanks
sunny