Answer / satya sivaji

The level 66 used for the purpose of RENAMES clause.The
advantage of the clause is we can group the data items
according to our requirement and it will acts in original
group and new group,roughly we can say it as regrouping or
rearranging the data items by using RENAMES CLAUSE

Answer / jkb

For RENAMES clause.

Answer / syed

Level 66 is the RENAMES Clause. RENAMES Clause is used for
regrouping of the elementary data items. Level no
01,66,77,88 can't be regrouped. Level no 66 is defined
after all the elementary data items so as to regroup the
existing elementary data items.

Why we should use cursor ?

3 Answers  

---

can u give result for the fallowing example... 05 a pic 9(2) 05 b redifines a pic x(2). move 'xy' to b. display a,b.

10 Answers   IBM,

---

How many bytes do a s9 (7) comp-3 field occupy?

1 Answers  

---

What is the linkage section?

4 Answers  

---

if we have a 10 steps how to override the 4th step in jcl?

2 Answers   Hewitt,

---

Explain call by context by comparing it to other calls.

1 Answers  

---

I have 100 records in a file.. i want to sort the records from 5 to 5o... give the syntax...

2 Answers   CTS, DSRC,

---

how to crack cts interview apps? NOVEMBER 21 2010

2 Answers   CTS,

---

How to read records from flat file in reverse order through COBOL program?

14 Answers   Accenture, Broadridge, IBM, MAT, Polaris, SPIC, Syntel, TCS, Wipro,

---

I have PS flat file with 14 records. I want to read from 4th to 9th record and want to write those 6 records (4th record to 9th record) to another PS file (output file). there is no key defined in the input file. I just want read a certain Consecutive records. can any one please give me the procedure division Coding for this. I have coded the below coding but the READ-PARA is performing only 1 time even though I have 14 records in my input file (i.e FILE-1): PROCEDURE DIVISION. A000-SECTION. MOVE 0 TO I. OPEN INPUT FILE-1. IF CHECK-KEY1 > 0 DISPLAY "OPEN ERROR FOR FILE-1, CODE IS:" CHECK-KEY1 END-IF. OPEN EXTEND NEWFILE-1 IF CHECK-KEY3 > 0 DISPLAY "OPEN ERROR FOR NEWFILE-1 COD IS" CHECK-KEY3 END-IF. PERFORM READ-PARA THRU EXIT-PARA UNTIL EOF-REC = 'YES'. DISPLAY " FINALLY OUT OF LOOP" CLOSE FILE-1 CLOSE NEWFILE-1 STOP RUN. READ-PARA. ADD 1 TO I READ FILE-1 AT END MOVE 'YES' TO EOF-REC IF I > 3 AND < 10 PERFORM WRITE-PARA ELSE DISPLAY "NOT IN RANGE" END-IF. EXIT-PARA. EXIT. WRITE-PARA. WRITE NEW-REC FROM FILE1-REC.

8 Answers   IBM,

---

How many sections are there in data division in COBOL?

0 Answers   B-Ways TecnoSoft,

---

consider the following two IF statements: IF X AND NOT Y MOVE A TO B IF Z=1 OR 9 MOVE A TO B select one of the following data divusion entries which gives identical results for both the above IF statements a.01 Z PIC 9 88 X VALUE 1.9 88 Y VALUE 0.2 THRU 8 b.01 Z PIC 9 88 X VALUE 0.2 THRU 8 Y VALUE 1.9 c.01 Z PIC 9 88 X VALUE 1.9 88 NOT-Y VALUE 0.2 THRU 1.9 d.none of yhe above

3 Answers   TCS,

---