diffrence between renames and redifnes with examples
Answers were Sorted based on User's Feedback
Answer / khasim
We can regroup using RENAMES.
02 MM PIC X(2).
02 DD PIC X(2).
02 YY PIC X(2).
66 DATE RENAMES DD TRRU YY.
We can devide an Element to multiple elements using
REDEFINES.
02 DATE1 X(6).
02 DATE2 REDEFINES DATE1.
05 MM PIC X(2).
05 DD PIC X(2).
05 YY PIC X(2).
This is main defference.
Remaining things all know.
| Is This Answer Correct ? | 16 Yes | 2 No |
Answer / swathi.k
Redefines are used to reuse the storage space where as
renames are used to regroup the elementary items.
Ex:For redefines
01 A.
02 PIC X(6) VALUE 'SWATHI'.
02 REDEFINES A PIC X(2).
fOR RENAMES
01 A.
02 B PIC X(5).
02 C PIC X(5).
02 D.
03 D1 PIC X(2).
03 D2 PIC X(5).
02 E PIC X(6).
66 GROUP1 RENAMES C THRU E.
2.Redefines are coded with 0 to 49 level numbers where
as renames are declared with 66 level no.
3.pic clause is required for redefines where as pic clause
is not used for renames.
| Is This Answer Correct ? | 18 Yes | 8 No |
Answer / chaitanya chandana
redefines can use the any level no(0-49)...
but renames uses the 66 level no...
redefine may not perform subsequent to earlier data-item.
rename perform subsequent to earlier data-item.
Plz correct me if any mistake to my answer..
| Is This Answer Correct ? | 6 Yes | 4 No |
what is call by value and call by reference ?
3 Answers Infosys, ITC Indian Tobacco Company,
What is the difference between PIC 9.99 and 9v99?
how do you reference the variable block file formats from cobol programs
What is the difference between Structured COBOL Programming and Object Oriented COBOL programming?
0 Answers TryTechnicals Pvt Ltd,
How can we increase the size of an existing PDS to include more no. of modules.
given the following: 77 A PIC 9V9 VALUE 9.5 77 B PIC 9 VALUE 9. 77 C PIC V9 VALUE 0.8 77 D PIC 9 77 E PIC 9 77 F PIC 9V999 what are the contenta of D E nad F after the following statements are executed: COMPUTE F ROUNDED=A+C/B MULTIPLY A BY C GIVING E ADD B C A GIVING D ROUNDED a.F=9.589 E=8 D=1 b.F=9.589 E=8 D=9 c.F=9.589 E=7 D=9 d.F=9.589 E=7 D=1
What is the default value of DISP parameter?
What is 88 level used for ?
COMPUTE X = A * B - C * D and COMPUTE X = (A * B) - (C * D) (a) Are not the same (b) Are same (c) Syntactically wrong (d) Will yield a run time error
WORKING-STORAGE SECTION. 01 A PIC X(3) VALUE 'ABC' 01 B PIC 9(3). PROCEDURE DIVISION. MOVE A TO B. STOP RUN. OUTPUT IS: AB3 WHY AND HOW THIS IS HAPPENING.
What is the difference between comp and comp-3?
what is the size of W-REC in the following 01 W-REC 05 A PIC 9(4)V99 05 B READLINES A 10 C PIC XX 10 D PIC S9(4) 05 E OCCURS 7 PIC ZZ.ZZ 05 F OCCURS 5 10 G PIC ZZ.ZZZ99 10 H OCCURS 3 15 J PIC 9(3) 15 K PIC V99