what is level 66 means??
- 7 Answers
- 25689 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 |
can we read in input the file with a variable length ? please , how ..could you help me ?
When is inspect verb is used in cobol?
What is an in-line perform ?
How do you submit JCL via a Cobol program?
Define cobol?
What are the different data types available in COBOL?
How do u know what version of cobol u are using?
How to read records from flat file in reverse order through COBOL program?
14 Answers Accenture, Broadridge, IBM, MAT, Polaris, SPIC, Syntel, TCS, Wipro,
How to delete leading spaces/blank in COBOL ? Example:- 01 data-name-1 pic x(220) " English is a language". I would like to delete leading spaces.
wht is structured cobol pgm and non structred cobol pgm ?
Why do we use COMP-3 variables for computation, when we know that they are non displayable fields and require additional MOVE to numeric field before we populate it in output Reports?
How to code fscode 10 in cobol program? Where yoy code in your pgm?give ans for the question.
COBOL 
