*----------------------------------------------------------------------- * UMLGET / UMLSET / UMLSTX *----------------------------------------------------------------------- SUBROUTINE UMLGET(CP, LPARA) CHARACTER CP*(*) CHARACTER CX*8 CHARACTER CL*40 LOGICAL LPARA, LP CALL UMLQID(CP, IDX) CALL UMLQVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY UMLSET(CP, LPARA) CALL UMLQID(CP, IDX) CALL UMLSVL(IDX, LPARA) RETURN *----------------------------------------------------------------------- ENTRY UMLSTX(CP, LPARA) LP = LPARA CALL UMLQID(CP, IDX) * SHORT NAME CALL UMLQCP(IDX, CX) CALL RTLGET('UM:', CX, LP, 1) * LONG NAME CALL UMLQCL(IDX, CL) CALL RLLGET(CL, LP, 1) CALL UMLSVL(IDX,LP) RETURN END