Answer / santhosh vayathuri

use fallowing code

file-control
organization is indexed.
access mode is dynamic
record key is eno


procedure division

move 12 to eno


perform readpara until fnd = yes

stop run.

readpara.
read file1
if eno = 18
move 'yes' to fnd
end-if.

Answer / satish

it is dynamical acess.using start verb it is done

I have program P1 which calls file F1 which has 100 records and following structure 001 .................. 002 .................. 003 .................. 098 .................... 099 ................... 100 .................... Now I want to read these files and write these records in file F2 in following manner. 001 ...... 051 ..... 002 ...... 052 ..... 003 ...... 053 ..... .......... ....... .......... ....... .......... ....... 048 ........ 098 ...... 049 .......... 099 ....... 050 .... 100 ......

4 Answers   Accenture,

---

How do define dynamic array in cobol. how do you define single dimensional array and multidimensional array in your cobol?

0 Answers  

---

When is a scope terminator mandatory?

3 Answers  

---

study the following code 01 A1 05 B PIC 99 05 C PIC X(4) 01 A2 05 B PIC 99V99 05 C PIC A(4) pick out the valid statement from the following a.A1 and A2 can not have sub-ordinates b.A1 and A2 can have the same sub-ordinates but must have same PIC clause c.there is nothing wrong d.A1 and A2 can have same sub-ordinates provided they are not at 01 level

4 Answers   TCS,

---

How arrays can be defined in COBOL?

0 Answers  

---

what is Reentrancy and Quasi-reentrancy?

1 Answers  

---

what is S04E error in jcl?

11 Answers   IBM, L&T,

---

What is R-mode and A-mode?

3 Answers   TCS,

---

what is the difference between start and startbr?

2 Answers  

---

what is qualification on occurs clause?

2 Answers  

---

How to get the last record in vsam file in cluster? And how can you get the ksds file records into cobol program?

0 Answers  

---

Difference between ps, esds

3 Answers  

---