
{ PDT display_rhfam_client_pdt (
{     client, c : LIST OF NAME 1 .. 7 OR KEY ALL = ALL
{     output, o : FILE = $OUTPUT
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    display_rhfam_client_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^display_rhfam_client_pdt_names, ^display_rhfam_client_pdt_params];

  VAR
    display_rhfam_client_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 5] of
      clt$parameter_name_descriptor := [['CLIENT', 1], ['C', 1], ['OUTPUT', 2], ['O', 2], ['STATUS', 3]];

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

{ CLIENT C }
    [[clc$optional_with_default, ^display_rhfam_client_pdt_dv1], 1, clc$max_value_sets,1, 1,
      clc$value_range_not_allowed, [^display_rhfam_client_pdt_kv1, clc$name_value, 1, 7]],

{ OUTPUT O }
    [[clc$optional_with_default, ^display_rhfam_client_pdt_dv2], 1, 1, 1, 1, clc$value_range_not_allowed,
      [NIL, clc$file_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
    display_rhfam_client_pdt_kv1: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 1] of ost$name := [
      'ALL'];

  VAR
    display_rhfam_client_pdt_dv1: [STATIC, READ, cls$pdt_names_and_defaults] string (3) := 'ALL';

  VAR
    display_rhfam_client_pdt_dv2: [STATIC, READ, cls$pdt_names_and_defaults] string (7) := '$OUTPUT';

?? POP ??
