*----------------------------------------------------------------------- * UZLGET / UZLSET / UZLSTX *----------------------------------------------------------------------- SUBROUTINE UZLGET(CP, LPARA) CHARACTER CP*(*) CHARACTER CX*8 CHARACTER CL*40 LOGICAL LPARA, LP CALL UZLQID(CP, IDX) CALL UZLQVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY UZLSET(CP, LPARA) CALL UZLQID(CP, IDX) CALL UZLSVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY UZLSTX(CP, LPARA) LP = LPARA CALL UZLQID(CP, IDX) * SHORT NAME CALL UZLQCP(IDX, CX) CALL RTLGET('UZ:', CX, LP, 1) * LONG NAME CALL UZLQCL(IDX, CL) CALL RLLGET(CL, LP, 1) CALL UZLSVL(IDX,LP) RETURN END