what is level 66 means??
- 7 Answers
- 25606 Views
- I also Faced
- E-Mail Answers
Answers were Sorted based on User's Feedback
Answer / raghunandan
Level no. 66 can be used for data description entries
that contains RENAME clause.
Remember that level-66 entry can not rename another
level-66 entry and also it can not rename level-01, level-
77, or level-88 entry.
For logical records one or more RENAME entries can be
written.
| Is This Answer Correct ? | 26 Yes | 4 No |
IDENTIFICATION DIVISION.
PROGRAM-ID. PGM003.
AUTHOR. PREMYADAV.
DATA DIVISION.
WORKING-STORAGE SECTION.
01 GROUP1.
05 REC1.
10 ELEMENT1 PIC X(3) VALUE 'WWW'.
10 ELEMENT2 PIC X(9) VALUE 'TECH'.
05 REC2.
10 ELEMENT3 PIC X(6) VALUE 'HELP'.
10 ELEMENT4 PIC X(1) VALUE '.'.
10 ELEMENT5 PIC X(3) VALUE 'COM'.
66 GROUP2 RENAMES ELEMENT2 THRU ELEMENT5.
PROCEDURE DIVISION.
10000-MAIN-PARA.
DISPLAY 'RENAME CLAUSE DEPICTED BY ' GROUP2.
STOP RUN.
OUTPUT
RENAME CLAUSE DEPICTED BY TECHHELP.COM
| Is This Answer Correct ? | 1 Yes | 0 No |
Answer / yogendra singh
working-storage section.
01 A1.
02 A pic x(5) value "seeta".
02 B pic x(5) value "geeta".
02 C pic x(5) value "neeta".
01 A2 RENAMES A THROUGH C.
PROCEDURE DIVISION.
DISPLAY A2.
STOP RUN.
| Is This Answer Correct ? | 3 Yes | 8 No |
Answer / srikanth doki
It is a rename clause. It is used for seperately grouping
the elements from sub group items.
For ex:
01 emp-details.
02 empname pic x(10).
02 empno pic x(4).
01 dept-details.
02 deptname pic x(10).
02 deptno pic x(4).
66 cust-details renames empno thru deptno.
| Is This Answer Correct ? | 9 Yes | 17 No |
What is normalisation?
how can you identify wheather the program is using search or search all in the cobol program?
what is the coding difference between COBOL and CICS.
Suppose, file A has 100 records and file B has 500 records. We want to write records common to both A and B into file C and records which are present only in either A or B into another file D. What should be the logic of Cobol program to achieve this?
7 Answers Bank Of America, Mind Tree,
DATAONLY, MAPONLY functionality?
ID DIVISION. PROGRAM-ID. PLO. DATA DIVISION. WORKING-STORAGE SECTION. 01 VAR1 PIC 9(2). 01 VAR2 PIC X(2). PROCEDURE DIVISION. ACCEPT VAR2. MOVE VAR2 TO VAR1. STOP RUN. if i give 'PI' in var2 then what will b output of progr. any abend?????
Give some advantages of REDEFINES clause?
How to display the index.(displacement from an array)
Why is it necessary that file needs to be opened in I-O mode for REWRITE?
The below is the declaration for a variable ws 01 ws pic 9(3). if you want to insert space how will you do that. in which level u should do it
Explain sorting techniques in cobol program? Provide the sort file definition, the sort statement, its syntax and meaning
can any one give good example for cond 88 level number and for renames pls urgent dudes ?
COBOL 
