Answer Posted / ajay ahuja

Program:

1. Define sequential file of same record size as of Indexed
file. say "WS-SEQ-FILE-RECORD".

2. Open Indexed file in INPUT mode and Sequential file in
output mode.

3. Read Indexed file into "WS-SEQ-FILE-RECORD".

4. Write into Sequential file. Continue Step 3 thru 4 until
end of Indexed file.


JCL:

Use Utility = IDCAMS,
//DD1 DD DSN=INDEXED.FILE.NAME
//DD2 DD DSN=SEQUENTIAL.FILE.NAME
// SYSIN DD *
REPRO INFILE(DD1) OUTFILE(DD2)
/*
//

I Hope this will help you !!!!

How arrays can be defined in COBOL?

1202

---

Which mode is used to operate the sequential file?

1193

---

What is amode(24), amode(31), rmode(24) and rmode(any) (applicable to only mvsesa enterprise server) ?

1176

---

What are the various section in data division and briefly explain them.

1160

---

Differentiate cobol and cobol-ii. (Most of our programs are written in cobolii, so, it is good to know, how, this is different from cobol)?

1111

---

What are the cobol coding sheets?

1253

---

System Testing for Mainframe Developers What is System Testing? integration testing ? what's the procedure ..

2065

---

what is the use of outrecord?

2201

---

What is rmode(any) ?

1252

---

what happens if parmparameter passes zero bytes to the program

2121

---

how do you reference the rrds file formats from cobol programs

1563

---

How do get the result of your program directly on your pc?

2331

---

What are all the divisions of a COBOL program?

1208

---

What kind of error is trapped by on size error option?

1224

---

How do u write test cases?

2060

---