Re: QRPLOBJ

On 12-Jul-2017 22:21 -0600, Gad Miron wrote:

[…] When the authorization checking program checks aut for a PGM
in QRPLOBJ, retrieve the original Lib name from the object's Text,
and check for authorization for that lib; e.g.:

Retrieve the original Lib *and* original Pgm name [i.e. the qualified name] for testing the user's authorization to that program [i.e. not just the library].

_Obj-Name_ _Obj-Typ_ _Obj-Attr_ _Obj-Text_
QCBEE19925 *PGM RPGLE DCMTLIB/ZKCCTP

Only problem is to have the system-generated name (QCBEE19925)
of the PGM in QRPLOBJ

The name QCBEE19925 will be seen in the run-time Program Status; i.e. the concern/"problem" is to obtain the *text* of the object, from which the original library and program name are available.

Any ideas ?

Implement a procedure, e.g. get_QRPLOBJ_text_qual_name, that returns the qualified program name from the TEXT() attribute of the *PGM object running in/from the QRPLOBJ library. (https://archive.midrange.com/midrange-l/201707/msg00195.html)

Then use the extracted program object and library names to [over]write the respective values that otherwise would have been obtained from the program status information; i.e. effect the authority-check for the user, to the original lib/pgm name.