Answer / satish.klnm

esds<rno, rname....>,

Procedure division.
open input fileksds, input fileesds, output file33.
para-1.
read fileesds at end perform end-para.
para-2.
start fileksds key = rno<esds> invalid key
perform para-1.
write rec33 from rec<esds>.
perform para-1.
end-para.
close fileksds, fileesds, file33.
stop run.

Answer / lu

you can do like Satish or you move KSDS to flat file and
ESDS to another flat file and after this, u sort it...

What is the difference between Perform para and perform asaection in cobol?

3 Answers   TCS,

---

What is 77 level used for ?

12 Answers   IBM, iGate,

---

how to transfer the file from pc to mainframe??

2 Answers  

---

When the working storage variables get allocated? a.At Compile time b.At starting of the run time c.At end of the run time. d.None of these

6 Answers   Wipro,

---

There is a production file which has millions of records in it.The program that uses it ends up with an SOC7 abend.It is sure that the abend is due to some invalid data in the file.Is there any way to debugg the SOC7 abend with out giving displays? I need the record which is cause for the abend.

8 Answers   Danske, iGate,

---

what are decleratives in cobol?

0 Answers   GGG, Satyam,

---

What is 66 level number and where it is used in real time by software developers?

2 Answers   ITC Indian Tobacco Company, TCS,

---

HOW TO MOVE REDEFINES CLAUSE FROM INPUT TO OUTPUT ?

1 Answers  

---

how to pass 100 to s9(4) how r they inserted ?

3 Answers   TCS,

---

Can a REDEFINES clause be used along with an OCCURS clause? if yes, 01 WS-TABLE. 03 WS-TABLE-EL OCCURS 5 TIMES PIC X(1) VALUE 'A'. 03 WS-EX REDEFINES WS-TABLE-EL PIC X(5). What can you expect? if no,why?

6 Answers  

---

How to print 10 to 1 if the input have only 10 digit number?

0 Answers  

---

Under which scenario you would go for a static call as opposed to dynamic call?

5 Answers   TCS,

---