Answer / 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 !!!!

Determine the total no of bytes in the following. 01 rec1. 02 a pic x(6) 02 b redefines a. 03 c occus 6 times pic 9. 02 d occurs 6 times pic 9. 03 e pic x(5) 03 f pic 999.

12 Answers  

---

can we use variable picture clause as xx.99 in cobol.

3 Answers  

---

what is difference bt COND, REGION & TIME parameters at JOB & EXEC. give an exp.

1 Answers   Syntel,

---

What is Redefines clause?

8 Answers  

---

what is difference between cobol and cobol/400

1 Answers   HCL,

---

how will u find out 3rd week's 2nd day using occurs ?

3 Answers   L&T,

---

what is the purpose of linkage section?

10 Answers  

---

have in 100 records in a file i want to move only matched records to one output_file1 and nonmathed records are moved to another output_file2 ... any one can provide logic code

3 Answers  

---

subscript and index r not coded in u r application program what will happen?

2 Answers  

---

What is a scope terminator give example?

0 Answers  

---

Can anybody give me example of subscript and index

5 Answers  

---

whats the difference between search and search all?

4 Answers   Patni,

---