Interested to Buy Any Domain ? << Click Here >> for more details...
what is level 66 means??
- 7 Answers
- 27648 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 |
i WANT ALL ERROR codes IN CICS and DB2
how many subpgms we can use in a main pgm ? how do u link sub pgm to main pgm ? how can i use the parameters declared in main pgm to sub pgm ?
What is the difference between PIC 9.99 and 9v99 in COBOL?
0 Answers SwanSoft Technologies,
u have passed sme charecters thru parm parameter in jcl. how do u code in cobol to recieve the values u gave in parm ?
2 input fles: 2 flat files, with different number of records. both are having unique key for each record and already sorted in ascending order . match these files using unique key and in output only matching key value has to be written. please procide cobol logic
1.What is the default print format in cobol?
I have 2 dimensional array with having 100 elements. So how to find the 11th item in an array?
What is binary search?
we can use set true for condition names.. similarly can we code set to false in cobol pgm? will it work?
What is Comm?
2 Answers IBM, Kemper Corporation,
how to run sub programs using static and dynamic call ...
What divisions, sections and paragraphs are mandatory for a COBOL program?
COBOL 
