What is the use of Renames clause

purushoth_jp · New User Joined: 12 Dec 2004 Posts: 22

hi all

can anyone explain me what is the use of renames clause.

regards
purushoth

ovreddy · Posted: Thu Dec 16, 2004 12:51 pm

Hi,

RENAMES in cobol is used to declare a new data item in terms of an existing data item. The level number should be 66.

Eg: 01 MY-REC.
02 X PIC 9(3).
02 Y PIC X(10).
02 Z PIC X(20).
I want to declare a U-REC with same structure as MY-REC then

66 U-REC RENAMES MY-REC.
This is equilant to declaring U-REC with same structure of MY-REC.

If you want to declare U-REC with a part of MY-REC then u can declare it as...

66 U-REC RENAMES X THROUGH Y.
It means your record will contain only X,Y sub data items.

Bye,
Reddy.

muthukumarapandian · Posted: Tue Mar 01, 2005 6:21 pm

Hi reddy,

It is not possible to use renames in level numbers other than 02 to 49.

anuradha · Posted: Wed Mar 02, 2005 11:04 am

Hi muthukumarapandian

muthukumarapandian · Posted: Wed Mar 02, 2005 6:35 pm

Hi ,

I am telling that u can rename the elements declared in 02 to 49 level.

mcmillan · Site Admin Joined: 18 May 2003 Posts: 1210 Location: India

But the question is: "What's the use of Renames Clause"

The uses of RENAMES Clause:

1. To create a new group from one or more existing groups
2. To create an alias name

But the main purpose of RENAMES Clause, it can be used in DISPLAY statement effectively.

For example, assume that I have a group with 5 subjects. I want to display the second, third and forth subjects only.