{ MLI_LINK
{
{     The purpose of this procedure is to provide all linkage
{ facilities to the MLI for all IRHF applications.  This
{ procedure allows an application to sign on and sign off
{ the MLI.  As part of the sign on facilities, the partner
{ sending application is also identified to the MLI.
{
{     MLI_LINK (DIRECTION,APPLICATION_NAMES,STATUS)
{
{ DIRECTION: (input) This parameter specifies the linkage
{     direction; i.e., sign_on or sign_off.
{
{ APPLICATION_NAMES: (input) This parameter contains the sending and
{     receiving application names required for MLI communications.
{
{ STATUS: (output) This parameter returns the success or failure of
{     the application sign on or sign off.

 PROCEDURE[XREF] mli_link(
   direction: rht$mli_link_direction;
   VAR application_names: rht$mli_application_names;
   VAR status: ost$status);

?? PUSH (LISTEXT := ON) ??
*copyc rhd$nos_ve_types
*copyc ost$status
?? POP ??
