Re: Another CL Question - RCVF

["Mary Lynn Riggins" <cmcd@xxxxxxxxxx>]

I may be incorrect, but I seem to remember reading that you can only declare one file in a cl program - anyone who wishes to correct me please do so.

 

MLR

----- Original Message -----

From: Kerwin Crawford

To: RPG400-L@midrange.com

Sent: Thursday, December 30, 1999 2:31 PM

Subject: Another CL Question - RCVF

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