I'm not understanding something with OVRDBF.
My desire is to loop through a number of libraries all with same file, and update them.
The below CL program sets the current library as it loops through a file listing the libraries. *(I would think this isn't needed with the OVRDBF but added as an extra precaution).
The rpg program that the below CL calls (VND040R) will check the record lock before updating the record.
What I have discovered is that if the file has a record lock in the first library, the log file is coming back showing the record is locked in every library. Which makes me think that the OVRDBF isn't redirecting to the library.
What am I doing (or assuming) wrong about the OVRDBF?


/****************************************/
/* Loop Through All Global Libraries */
/****************************************/
DOUNTIL COND(&EOF)
RCVF RCDFMT(SPPLNTGV) OPNID(GLIB)
MONMSG MSGID(CPF0864) EXEC(LEAVE)

/************************/
/* Add Global Library */
/************************/
ADDLIBLE LIB(&GLIB_SPGLIB) POSITION(*FIRST)
MONMSG MSGID(CPF2103)
CHGCURLIB CURLIB(&GLIB_SPGLIB)


OVRDBF FILE(MYFILE) TOFILE(&GLIB_SPGLIB/MYFILE) +
RCDFMTLCK((VENDR *SHRRD)) WAITRCD(5) SHARE(*YES)

/* CALL - Update Vendor */
CALL PGM(VND040R) PARM(&PVEND &PTERM &PUSER +
&GLIB_SPGLIB)

DLTOVR FILE(MYFILE)

/************************/
/* Remove Global Library*/
/************************/
RMVLIBLE LIB(&GLIB_SPGLIB)
MONMSG MSGID(CPF2103)


ENDDO

Thanks

As an Amazon Associate we earn from qualifying purchases.

This thread ...

Follow-Ups:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2025 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact [javascript protected email address].

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.