{
{ PDT deact_rhfam_server_pdt (
{     server, s : NAME 1..7 = $REQUIRED
{     terminate_active_connections, tac : BOOLEAN = FALSE
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    deact_rhfam_server_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^deact_rhfam_server_pdt_names, ^deact_rhfam_server_pdt_params];

  VAR
    deact_rhfam_server_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 5] of
      clt$parameter_name_descriptor := [['SERVER', 1], ['S', 1], ['TERMINATE_ACTIVE_CONNECTIONS', 2], ['TAC',
      2], ['STATUS', 3]];

  VAR
    deact_rhfam_server_pdt_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 3] of
      clt$parameter_descriptor := [

{ SERVER S }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, 7]],

{ TERMINATE_ACTIVE_CONNECTIONS TAC }
    [[clc$optional_with_default, ^deact_rhfam_server_pdt_dv2], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$boolean_value]],

{ STATUS }
    [[clc$optional], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$variable_reference,
      clc$array_not_allowed, clc$status_value]]];

  VAR
    deact_rhfam_server_pdt_dv2: [STATIC, READ, cls$pdt_names_and_defaults] string (5) := 'FALSE';

?? POP ??
