RE: Another CL Question - RCVF

["MCPARTLAND, Stan" <stanley.mcpartland@xxxxxxxxxx>]

Kerwin,

You cannot process a file in a CL program after it has reached
EOF.  You should be able to get by without two programs if you
execute both DSPOBJD commands before the RCVF command and
process records based on the value of the library variable.
Use OUTMBR(*FIRST *ADD) on the second (and subsequent) DSPOBJD
commands.

>From the CL Programming manual:
    -   The file remains open until the procedure or OPM
program returns or when the end of file is reached. When end
of file is reached, message CPF0864 is sent to the CL procedure
or program, and additional operations are not allowed for the
file. The procedure or program should monitor for this message
and take appropriate action when end of file is reached.

Regards,
Stan McPartland


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

+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---