what is level 66 means??
- 7 Answers
- 26537 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 |
HI THIS IS ANIL. HOW TO PASS A RECORDS OF A FILE(PS OR PDS) TO AN ARRAY?
If by mistake we MOVE a working storage variable into LINKAGE area. What will happen??
can we display comp-3 variables. if we want to display what we have to do . give me one example
i have the following varibles in the working storage 05 ws-A PIC X(30) VALUE 'ABCDEFGHIJKLMNOPQRESTUVWXYZ ' 05 WS-B REDEFINES WS-A 10 WS-B1 PIC X(10). 10 WS-B2 PIC 9(10). 10 WS-B3 PIC X(10). If I Display B1, B2 and B3 respectively, what is the value displayed in B2
Can we use goto statement in inline_perform ?
How to code fscode 10 in cobol program? Where yoy code in your pgm?give ans for the question.
How will 128 be saved in s9 (3) comp-3 How will 12 be saved in s9 (2) comp
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 difference between Call and a Link?
Differentiate between structured cobol programming and object-oriented cobol programming.
Which of the following files can be OPENed in all the 4 modes? The four modes are INPUT, I-O, OUTPUT and EXTEND. (a) INDEXED (b) RELATIVE (c) SEQUENTIAL (d) All of the above
) how do u code after getting data?
COBOL 
