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