Re: IFS Stuff

[rick.baird@xxxxxxxxxxxxxxx]

Vance,

I ran into the same problem - the copy completes without critical errors,
even though it didn't work.

since you are doing an *replace, clear the file beforehand and then check
the number of records in the tofile using RTVMBRD - if the records is zero,
you have an error.

hth,

Rick

---------original message----------
<snip>
  CPYFRMIMPF FROMSTMF(&PATH) TOFILE(QTEMP/SYSUPLD) +
                MBROPT(*REPLACE) RCDDLM(*ALL) +
                RPLNULLVAL(*FLDDFT)
   /* OBJECT NOT FOUND */
   MONMSG     MSGID(CPFA0A9) EXEC(SNDRCVF RCDFMT(MSG1))
   /* OBJECT IN USE */
   MONMSG     MSGID(CPFA09E) EXEC(SNDRCVF RCDFMT(MSG2))
   RTVMBRD    FILE(QTEMP/SYSUPLD) NBRCURRCD(&RECCNT)
   OVRDBF     FILE(SYSUPLD) TOFILE(QTEMP/SYSUPLD) SHARE(*YES)
   CALL GBSR420 PARM(&RECCNT)

 The problem is with the MONMSG commands following the CPYFRMIMPF.  I can
be in the from file
(with   excel) and the the CPYFRMIMPF will execute and give return codes
but it's on a level I
cannot trap.
Thoughts?  Ridicule? All graciously excepted.