?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE: Remote Host Dual State Environment Routines' ??
MODULE rhm$update_dual_state_environ;

{
{ PURPOSE:
{   This module updates the dual state environment to tell what will be displayed
{   if a user enters the DISPLAY_LINK_ATTRIBUTES command.

?? NEWTITLE := 'Global Declarations', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc oss$mainframe_pageable
?? POP ??

  VAR
    rhv$display_charge_link_attr: [XDCL, #GATE, oss$mainframe_pageable] boolean := TRUE,
    rhv$display_family_link_attr: [XDCL, #GATE, oss$mainframe_pageable] boolean := TRUE,
    rhv$display_project_link_attr: [XDCL, #GATE, oss$mainframe_pageable] boolean := TRUE,
    rhv$display_user_link_attr: [XDCL, #GATE, oss$mainframe_pageable] boolean := TRUE;
?? OLDTITLE ??
?? NEWTITLE := '[XDCL,#GATE] rhp$update_dual_state_environ', EJECT ??
*copy rhh$update_dual_state_environ

  PROCEDURE [XDCL, #GATE] rhp$update_dual_state_environ (
     display_charge: boolean;
     display_family: boolean;
     display_project: boolean;
     display_user: boolean);

    rhv$display_charge_link_attr := display_charge;
    rhv$display_family_link_attr := display_family;
    rhv$display_project_link_attr := display_project;
    rhv$display_user_link_attr := display_user;

  PROCEND rhp$update_dual_state_environ;
?? OLDTITLE ??
MODEND rhm$update_dual_state_environ;
