Re: IFS Stuff

[Vance Stanley <w_vance_stanley@xxxxxxxxx>]

Rick,
  This is exactly what my backup plan was.
Thanks,
Vance
--- rick.baird@xxxxxxxxxxxxxxx wrote:
> 
> 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.
> 
> 
> 
> _______________________________________________
> 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.
> 


__________________________________
Do you Yahoo!?
Free Pop-Up Blocker - Get it now
http://companion.yahoo.com/