retourne TEXT d'une bib pour TBLIBL

BoTTom | 
             PGM        PARM(&LIB &TEXT)
             DCL        VAR(&LIB) TYPE(*CHAR) LEN(10)
             DCL        VAR(&TEXT) TYPE(*CHAR) LEN(50)
             RTVOBJD    OBJ(&LIB) OBJTYPE(*LIB) TEXT(&TEXT)
             ENDPGM




©AF400