B Redefines A, C Redefines B

sivatechdrive · Posted: Wed Dec 08, 2004 9:54 am

hi all

1>

01 A PIC 99.
01 B REDEFINES A
01 C REDEFINES B

can we give like this,what is length of C

2> DO we the function like REM in cobol

ovreddy · Posted: Wed Dec 08, 2004 5:21 pm

1 ans: This is possible U can REDEFINE an already REDEFINED data item. C also will occupy the same location referred by A,B. all A,B,C have the same length that is 2.

2 ans: REM in the sense REMARK or COMMENT. Ya I think you know already that we have * for that. put * in 7th column so that the entire line becomes comment.

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

No u can`t redefine like this.
it shud be:
01 a pic 99.
01 b redefines a.
01 c redefines a.

jz1b0c · Posted: Wed Dec 08, 2004 10:54 pm

yes also you should give a PIc clause..

suryakanth HM · New User Joined: 28 Jun 2005 Posts: 6 Location: Bangalore

Ya, its possible to redefine a dataname which redefines another dataname.Thats what your case is...
I think you may have to use pic class in it..
check it....

nnaveenreddy · New User Joined: 19 Jul 2005 Posts: 7

1). C will occupy 2 bytes...

2). DO we the function like REM in cobol

Not sure.....

maggiebms · New User Joined: 23 May 2005 Posts: 16

REM gives the remainder value . It is the intrinsic function in COBOL.

Eg
COMPUTE A = FUNCTION REM(10,2.5)

yaju4ever · New User Joined: 30 Sep 2006 Posts: 19 Location: mumbai

as per my knowledge we cant redifned a data item which is redefining another data item....in the above code u r trying to re define B which is redifining A its is not correct....u can only redefine an original data item ....now it doesnot matter how many times its being redefined.....correct me if i am wrong.....

William Thompson · Posted: Mon Dec 11, 2006 6:18 pm

yaju4ever · New User Joined: 30 Sep 2006 Posts: 19 Location: mumbai

in cobol 85 we cant do such an action

mahesh.ajagtap · New User Joined: 30 Sep 2006 Posts: 6

01 a pic 99.
B Redefines A.
C Redefines B
will generate a syntax error.

dick scherrer · Posted: Wed Dec 13, 2006 3:44 am

This code
01 REDEFTST1 PIC X(15) VALUE SPACES.
01 REDEFTST1A REDEFINES REDEFTST1 PIC X(15).
01 REDEFTST1B REDEFINES REDEFTST1A PIC X(15).

MOVE 'QWERTYUIOPASDFG' TO REDEFTST1A.
DISPLAY '1 ' REDEFTST1
DISPLAY '1A ' REDEFTST1A
DISPLAY '1B ' REDEFTST1B

compiles correctly and
produces this result
1 QWERTYUIOPASDFG
1A QWERTYUIOPASDFG
1B QWERTYUIOPASDFG

This code
01 REDEFTST2 PIC X(15) VALUE SPACES.
01 REDEFTST2A REDEFINES REDEFTST2.
01 REDEFTST2B REDEFINES REDEFTST2A.
gets errors - "IGYDS1159-E A "PICTURE" CLAUSE WAS NOT FOUND FOR ELEMENTARY ITEM. . . ."

The TST1 style has worked on different platforms (pc, unix, mainframes) and various COBOL versions. The TST2 style has not worked on any platform that i'm familiar with. There is a RENAMES feature . . . .

It is possible that i do not understand the original problem. Please advise.

yaju4ever · New User Joined: 30 Sep 2006 Posts: 19 Location: mumbai

in ur code u r giving another name to REDEFTST1 as REDEFTST1A and REDEFTST1B it will work fine but in ur secind style u are trying to give a name to a data name which is redefining another data.....so it is not supported by cobol ....and conceptually it dosnt work.......i think i have explained up to my knowledge....

Arun Raj · Posted: Wed Dec 13, 2006 12:36 pm

Hi Yaju4ever

The REDEFINES clause allows different data description entries to describe the same storage area.Why should one go for REDEFINE without giving a PIC clause for the redefining data-item.

So the first one should work anyway.In the second example he is not giving any redefining data description.

I tried the same example of redefining a redefined data-item and it is working fine for me.May be yours is a different version of cobol.

SSR · New User Joined: 26 Feb 2006 Posts: 38

Hi,

[quote="sivatechdrive"]hi all

1>

01 A PIC 99.
01 B REDEFINES A
01 C REDEFINES B

can we give like this,what is length of C

You can redefine an item which is already redefined, but in your case you have to specify your data item PIC clause has to be provided.

Let me know in case you need any further details.

Regards
SSR

Marso · Posted: Wed Dec 13, 2006 2:49 pm

If the REM question stands for REMainder, then the classic DIVIDE sentence can also be used:

prabeesh · New User Joined: 07 Dec 2006 Posts: 9 Location: chennai

I given like this it is working

01 REDEFTST1.
05 NAME PIC X(9).
01 REDEFTST2A REDEFINES REDEFTST1.
05 FN PIC X(9).

if i am giving like this

01 REDEFTST1.
05 NAME PIC X(9).
01 REDEFTST2A REDEFINES REDEFTST1.

error is showing like this "A "PICTURE" clause was not found for elementary item "REDEFTST2A".
"PICTURE X(1)" was assumed. "