Another CL Question - RCVF

["Kerwin Crawford" <crawfork@xxxxxxxxxxxxxxx>]

I know this is a RPG list but I don't know of a CLP list.

 

I have a CLP that is basically the following.  The main process is to read all of the files in a library do some things with it and then read all of the files from a related library and do some things.  See example:

 

           DCLF       FILE(QTEMP/FILE)

           DSPOBJD    OBJ(LIB1/*ALL) OBJTYPE(*FILE) +
                      OUTPUT(*OUTFILE) OUTFILE(QTEMP/FILE) +
                      OUTMBR(*FIRST *REPLACE)

LOOP1:     RCVF       DEV(*FILE) RCDFMT(*FILE) WAIT(*YES)
           MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF1))

           /*  Code...  */

           GOTO       CMDLBL(LOOP1)

EOF1:

           DLTF       FILE(QTEMP/FILE)

           DSPOBJD    OBJ(LIB2/*ALL) OBJTYPE(*FILE) +
                      OUTPUT(*OUTFILE) OUTFILE(QTEMP/FILE) +
                      OUTMBR(*FIRST *REPLACE)

LOOP2:     RCVF       DEV(*FILE) RCDFMT(*FILE) WAIT(*YES)
           MONMSG     MSGID(CPF0864) EXEC(GOTO CMDLBL(EOF2))

           /*  Code...  */

           GOTO       CMDLBL(LOOP2)

EOF2:

           DLTF       FILE(QTEMP/FILE)

 

My problem is that when it gets to the second rcvf it acts as if it has hit the EOF before processing the first record.  I have tried putting in ovrdbf in several ways, but never got it to work.  There has to be a way to reset the pointer or message to allow for the second rcvf.

 

I ended up splitting this up into two CLP's and doing it that way.

 

Any thoughts?

Kerwin S. Crawford
Toastmaster Inc.
System Analyst