Answer Posted / maveric
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 |
Post New Answer View All Answers
What are declaratives and what are their uses in cobol?
What is the difference between Call and a Link?
What is an in line perform? When would you use it? Anything else you wish to say about it.
Difference between array and sub-script ?
1.give the details about WHEN OTHER. 2. how many form are available in evaluate.
How to change size of Initial number of records to *NOMAX for ALL PF files from perticular library, how can I do that
Why occurs cannot be used in 01 level in COBOL?
Name the sections present in data division.
What rules are to be followed while using the corresponding options?
What is the Purpose of POINTER Phrase in STRING command in COBOL?
What are literals?
IF I mention stop run in CICS what happens?
Which is not true about evaluate statement
Are you comfortable in cobol or jcl?
What is difference between static and dynamic call in cobol?