Can I redefine an X(100) field with a field of X(200)?

Post by **Krishna** » Sun Jul 19, 2009 4:13 pm

Post by **Krishna** » Sun Jul 19, 2009 4:13 pm

Yes. Redefines just causes both fields to start at the same location. For example:

01 WS-TOP PIC X(1)
01 WS-TOP-RED REDEFINES WS-TOP PIC X(2).
If you MOVE '12' to WS-TOP-RED,
DISPLAY WS-TOP will show 1 while
DISPLAY WS-TOP-RED will show 12.

sambit_mech · Post by **sambit_mech** » Wed Jul 14, 2010 11:33 am

It will cause memory overflow giving S0c4.

dbzTHEdinosauer · Post by **dbzTHEdinosauer** » Wed Jul 14, 2010 1:05 pm

sambit_mech,

again you are posting erroneous information.

depending on the version of COBOL,
you will either receive a compiler error,
or the structure will be defined by the compiler at the longest length,
regardless of the order of redefines.

mainframegurukul.com

Can I redefine an X(100) field with a field of X(200)?

Can I redefine an X(100) field with a field of X(200)?

FREE TUTORIALS