IBM MAINFRAME HELP FORUMS for COBOL, JCL, CICS, DB2, IMS etc...

hitesh0000 · Joined: 01 Feb 2008 Posts: 6 Location: Noida

Hi,

I have to code a new online program which reads the VSAM file from start to end.

But i dont have the key for the first record, so my question is can i read the first record of the file and henceforth the entire VSAM file.

If yes, which way?

How is it that i bring the pointer to the first record so as to read the entire record and thereafter read the next record until EOF.

It doesnt allow me to Read file without RIDFLD.

Thanks,
Hitesh

Bill O'Boyle · Joined: 14 Jan 2008 Posts: 269 Location: Orlando, FL, USA

Move LOW-VALUES to the WS KEY and use this WS KEY as the RIDFLD in the STARTBR command to begin your browse.

FWIW, you cannot Browse a KSDS file without the RIDFLD as you'll get a translator error.

If for some strange reason a NOTFND condition is raised on the STARTBR, then the file is EMPTY.

Otherwise, issue subsequent READNEXT commands until you've reached EOF (EIBRESP=20) or the record that you've just read contains the information that you need. If this is the case, then it would be wise to issue an ENDBR command rather than wait until task termination.

Regards,

Bill

dbzTHEdinosauer · Joined: 20 Oct 2006 Posts: 1388 Location: germany

Quote:
I have to code a new online program which reads the VSAM file from start to end.

good use of online resources.

hitesh0000 · Joined: 01 Feb 2008 Posts: 6 Location: Noida

Hi Bill O'Boyle,

Its working, thank you very much.

U have really been of great help.

Thanks,
Hitesh