Como posso acessar o nome de uma biblioteca atual em um programa de CL?

Question

Eu preciso usar o nome da biblioteca atual explicitamente em um programa de CL.

CHGVAR &LIB *CURLIB

não funciona (após esta linha e lib = '* CURLIB'). Isso deve ser simples -? Quaisquer ideias

Answer 1

A ele:

RTVJOBA CURLIB (& LIB)

Answer 2

Esteja ciente de que um determinado trabalho pode não ter uma biblioteca atual. Caso em que & LIB terá um valor de * NONE