Interested to Buy Any Domain ? << Click Here >> for more details...
what is level 66 means??
- 7 Answers
- 27558 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 |
How do you define a sort file in JCL that runs the COBOL program?
01 a pic 9(9v99) 01 b pic 9(9.99) wht will be the stored vales in both cases
Write a program that uses move corresponding.
What COBOL construct is the COBOL II EVALUATE meant to replace?
What is the usage of comp fields in cobol?
What is amode(24)?
i have a variable block which is used in my cobol program as input file having records of 4080 after compilation while runing the program im getiing file attribut mismatch and it is saying tht the record length of the file is 4084 can any one knw the answer how to reslove it ?
i want to learn mainframe..any websites and material to learn from basic..? my mail id : rajeswaribe2010@gmail.com
How to convert bunch of words in a line to relvant ASCII values?
Define cobol?
01 a pic 9(3) value is 123 01 b pic 9(6) move a to b wht will be the value ? and 01 a pic x(6) value is abc 01 b pic x(3) move a to b wht will be the value ?
What is file status 92?
COBOL 
