How can I access the name of a current library in a CL program?

I need to use the current library name explicitly in a CL program.

CHGVAR &LIB *CURLIB

doesn't work (after this line &lib = '*curlib'). This should be simple - any ideas?

Found it:

RTVJOBA CURLIB(&LIB)