A problem with COBOL Redefines Clause

ksivapradeep · Active User Joined: 30 Jul 2004 Posts: 98

my coding is like this:

WORLING-STORAGE SECTION.
01 G-1.
05 FLD1 pic x(3) VALUE 'ABC'.
05 FLD2 pic x(6) VALUE 'DEFGHI'.
01 G-2 REDEFINES G-1.
05 FLD3 PIC X(6).
05 FILLER PIC X(3).
PROCEDURE DIVISION.
MOVE FLD3 TO FLD2.
DISPLAY 'RESULT OF G-1 AFTER MOVING FLD3 TO FLD2 = ' G-1.

O/P: RESULT OF G-1 AFTER MOVING FLD3 TO FLD2 = ABCABCABC

but how it is can any body explain.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1506

Hi K,

The explanation is: you performed an overlapping MOVE and you deserve everything you got.

I've seen this technique (OL move) used to initialize a field to spaces. It was supposed to be more efficient. Don't remember the details though.

My advice: don't do OL moves.

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1506

Hi K,

Just a follow-up to my previous post. I notice that you pose quite a few questions to the gruop but you don't bother to answer questions about your problem or send an indication that the proposed solution works or not. Not even a simple "thank you for taking the time and expending the effort to help".

Do you think we get paid for doing this?

ksivapradeep · Active User Joined: 30 Jul 2004 Posts: 98

hi jack,
thanks 4 ur advise, 4m now i will replly 4 every one who gave ans to me

regards
pradeep