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

here is my requirement A1 is alphanumeric with value 'A1B2C3D4' as defined below 05 A1 PIC X(8) VALUE IS 'A1B2C3D4' but i need to have A2,A3 as ABCD & 1234 repectively...... A2 = ABCD A3 = 1234 Can you please explain me what are the different ways to do it?

2 Answers   IBM,

---

If I want to increase the Limit in GDG. What should I do?

1 Answers   IBM,

---

How can you add a particular field/coloumn in copybook?

3 Answers   ADP, DELL, L&T,

---

Is It Possible to Update or change in VIEW Mode?

5 Answers   CSC,

---

What is the difference between SEARCH and SEARCH ALL?

6 Answers   Cognizant,

---

What is LENGTH in COBOL II?

2 Answers   CSC,

---

What is the significance of 'above the line' and 'below the line'?

2 Answers   Nokia,

---

Can anybody give me example of subscript and index

5 Answers  

---

In an EVALUATE statement, can I give a complex condition on a when clause?

2 Answers  

---

how do u indetify files succesfully executed or not ?

4 Answers   TCS,

---

What is the significance of the PROGRAM-ID paragraph? If this name doesnt match with the name of the COBOL program, does it make a difference? Is the name specified in the PROGRAM-ID paragraph used as a name for the load module or any such thing?

4 Answers   IBM,

---

what will happen if i give program name and member name as different? program runs successful or w'll abend?

5 Answers   CTS,

---