Re: CLP - Open file, read to end, close file, reopen, still at end...

Thank you all for the excellent ideas... I got swamped with a different
responsibility but now am getting back to the problem. The looping read
sounds interesting...


On Sat, Aug 23, 2008 at 7:12 AM, <vhamberg@xxxxxxxxxxx> wrote:

Hi Dave

I googled for "cpf0864 reopen" and got this link to a midrange-l article -

http://archive.midrange.com/midrange-l/199903/msg00785.html

Now Simon gives 3 solutions. I like a 4th - use RTVMBRD to get the number
of records, then do the read loop that many time - don't go to EOF. Then you
can reposition with POSDBF and do it again.

Now of course, there's always doing the thing in RPG with QCMDEXC to do
the duping.

Actually, to do what you want, maybe use embedded SQL in RPG and have the
first SELECT use a WHERE clause to include only the PFs, run the loop, then
have the second SELECT use a WHERE clause that excludes PFs. Run the loop
again.

HTH
Vern

-------------- Original message --------------
From: "David Turnidge" <daveturnidge@xxxxxxxxx>

Shouldn't be this hard...

I am writing a CLP to read a file resulting from a DSPOBD for a data
library.

I want to read the file through once to create all my physicals.

(CRTDUPOBJ

- Data(*NO).

When I get to EOF, I want to take whatever steps are necessary to start

at

the top of the file to read all the objects that are NOT Physical files,

and

create them.

Right now, when I get to the EOF, I am closing (CLOF) the file, and
reopening it... When I do my next read, it says that the file is still

at

EOF and I drop out of the program.

What am I missing?

TIA,

Dave
--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing

list

To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.

--
This is the Midrange Systems Technical Discussion (MIDRANGE-L) mailing
list
To post a message email: MIDRANGE-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/midrange-l
or email: MIDRANGE-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/midrange-l.