Re: SQLRPG getting the library where the file exists

Since this is not an RPG issue, this should probably be MIDRANGE-L

As embedded rather than dynamic, I suggest a better approach, being truly proactive rather than reactive. Since coding any attempt to look for the hard-coded name in the embedded is not able to know for sure what the SQL will use [the fact being, that the concern is there, already implies the SQL or overrides are not trusted], and only an after-the-fact review of what was updated could be positive of what library. I suggest...

Change the statement to refer to a bogus file name instead of a real file name. Then if the override is not properly implemented when the statement runs, the DELETE will fail with a -204. Optionally make the override to the production name Inhibit Write, for more protection. For example:

ovrdbf SQLDltFrom TOFILE(testlib/ITSEAR02) OVRSCOPE(as_required)
ovrdbf ITSEAR02 TOFILE(*FILE) OVRSCOPE(as_required) INHWRT(*YES)
delete from SQLDLTFROM dlt where (a, b, c) =
( select ea, eb, ec from qtemp.itcpyact
where dlt.a=ea and dlt.b=eb and dlt.c=ec )

Another option is to run the request after having started debug with the option to prevent Production file updates; i.e. STRDBG UPDPROD(*NO)

Regards, Chuck