Re: QRPLOBJ

Hi !

If LIB = 'QRPLBOJ' ....
get text of object which is LIB/OBJNAME ....

....

regs.
herbert


GM> Hello guys

GM> Need some help with a QRPLOBJ issue

GM> We have here a (admittedly primitive) small home grown authorization system
GM> where users are authorized to certain PGMs (and to PGM's features) in
GM> certain Libraries.

GM> Like:User Bob is authorized to LIB1/PGM_A

GM> this system is implemented by having each PGM call (in *INZSR) a certain
GM> authority checking program (passing it's *PSSR's User, PGM and Library)
GM> that returns a pass/fail indication
GM> This works fine until some programmer compiles a PGM while it is in use by
GM> some user.
GM> The compile replaces the PGM and moves the original PGM obj to QRPLOBJ

GM> The scenario is as follows:

GM> User has authority to LIB1/PGM_A



GM> PGM_B calls PGM_A

GM> PGM_A checks authority of user to LIB1/PGM_A – User passes the check.

GM> LIB1/PGM_A is compiled. PGM_A in LIB1 is replaced, original PGM_A is
GM> moved to QRPLOBJ

GM> PGM_A returns to caller (PGM_B)

GM> PGM_B (re)calls PGM_A

GM> PGM_A in QRPLOBJ gets called.

GM> PGM_A checks authority of user to QRPLOBJ/PGM_A – User fails the check.


GM> Any idea how to circumvent the issue?

GM> TIA
GM> Gad