
*copyc OSD$DEFAULT_PRAGMATS
?? NEWTITLE := 'NOS/VE  Remote Host :' ??
MODULE rhm$save_link_user_description;

{ PURPOSE:
{   The purpose of this module is to save a link_user_description.

?? NEWTITLE := '         Global Type Declarations' ??
?? SET (LIST := ON) ??
?? EJECT ??

*copyc OST$STATUS

?? TITLE := '         External Procedures Referenced By This Module' ??
?? SET (LIST := ON) ??
?? EJECT ??

*copyc RHP$LINK_USER_DESCRIPTOR_SAVED

?? TITLE := '         rhp$save_link_user_description' ??
?? SET (LIST := ON) ??
?? EJECT ??
*copyc RHH$SAVE_LINK_USER_DESCRIPTOR
*copyc osv$170_os_type
*copyc osp$set_status_abnormal
*copyc cle$ecc_parameter_list

  PROCEDURE [XDCL, #GATE] rhp$save_link_user_description (user: string (31);
        family: string (31);
        password: string (31);
        charge: string (31);
        project: string (31);
    VAR status: ost$status);

{ Call ring 2 procedure to save link_user_description in job pageable.

    rhp$link_user_descriptor_saved (user, family, password,
        charge, project, status);

  PROCEND rhp$save_link_user_description;

MODEND rhm$save_link_user_description;
