Writing sequentially from an indexed file 1

[Preka]

Quite basically, how do I do it?

The book I have says that, to read an indexed file, I have to first move a value into the key field to do it. Ok, fine, got it.

But I have an indexed file with about 35 records on it and I want to write the whole thing sequentially to another file. Typing each of the keys in manually is obviously impractical. I figure there has to be a fairly simple way to do it, but I don't know how.

Thanks for any help,
Cobol-newb.

 

[fredericofonseca]

search in your manual for the use of the "start" (optional but useful), and "read next" options.

if you go to

http://www.liant.com/support/code/

you will find at least one example with what you need.



Regards

Frederico Fonseca
SysSoft Integrated Ltd

http://www.syssoft-int.com

 

[3gm]

At least in environments I've used, you don't even have to START the file. Simply specify ACCESS SEQUENTIAL in the SELECT. OPEN the file INPUT. READ the file. It will be retrieved in primary key order.

Glenn

 

[MuadDubby]

Actually, the access mode shouldn't really matter. As soon as you open an indexed file (whether in sequentail or dynamic mode), the file pointer is set to the first record, and the current key is set to the primary key.

Do something like this ...

open input in-file
open output out-file

read in-file next
perform until in-file-eof
  write out-record from in-record
  read in-file next
end-perform

close in-file out-file

 

[ceh4702]

Use the key and move low values to it and and then use that to start the file using dynamic access on the file. After that use a loop that just uses READ NEXT RECORD.

If you do not like my post feel free to point out your opinion or my errors.

 

[ShadowFox333]

just use the access mode sequential.
open input file-name.
read file-name at end etc;
I use this all the time in Rm_Cobol

Enjoy Bob

 

[ceh4702]

I often use Dynamic because I am updating redords also.

If you do not like my post feel free to point out your opinion or my errors.

 

[webrabbit]

Or specify ACCESS MODE DYNAMIC, OPEN file-name I-O, and READ file-name NEXT RECORD.