?? NEWTITLE := '  NOS/VE Set Management ' ??
MODULE stm$user_display_interface;
?? RIGHT := 110 ??

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc ost$status
?? POP ??
*copyc stp$display_sets
*copyc stp$display_vol_set_table
?? OLDTITLE ??
?? NEWTITLE := ' [XDCL, #GATE]stp$display_volume', EJECT ??

  PROCEDURE [XDCL, #GATE] stp$display_volume
    (    volume: rmt$recorded_vsn;
     VAR display_control: clt$display_control;
     VAR status: ost$status);

    status.normal := TRUE;
    stp$display_vol_set_table (volume, display_control, status);

  PROCEND stp$display_volume;
?? OLDTITLE ??
?? NEWTITLE := '  [XDCL, #GATE] stp$display_all_sets', EJECT ??

  PROCEDURE [XDCL, #GATE] stp$display_all_sets
    (VAR display_control: clt$display_control;
     VAR status: ost$status);

    status.normal := TRUE;
    stp$display_sets (display_control, status);

  PROCEND stp$display_all_sets;
?? OLDTITLE ??
MODEND stm$user_display_interface;
