
{   PDT define_rhfam_client_pdt (
{   client, c                  : NAME 1..7 = $REQUIRED
{   maximum_connections, mc    : INTEGER 1..255 = 255
{   user_capability, uc        : NAME OR KEY none = none
{   ring, r                    : INTEGER 1..15 = 13
{   system_privilege, sp       : BOOLEAN = FALSE
{   system_wide_connection_mgmt, swcm  : BOOLEAN = FALSE
{   status)

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    define_rhfam_client_pdt: [STATIC, READ, cls$pdt]
  clt$parameter_descriptor_table := [^define_rhfam_client_pdt_names,
  ^define_rhfam_client_pdt_params];

  VAR
    define_rhfam_client_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults]
  array [1 .. 13] of clt$parameter_name_descriptor := [['CLIENT', 1], ['C', 1]
  , ['MAXIMUM_CONNECTIONS', 2], ['MC', 2], ['USER_CAPABILITY', 3], ['UC', 3], [
  'RING', 4], ['R', 4], ['SYSTEM_PRIVILEGE', 5], ['SP', 5], [
  'SYSTEM_WIDE_CONNECTION_MGMT', 6], ['SWCM', 6], ['STATUS', 7]];

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

{ CLIENT C }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
  clc$name_value, 1, 7]],

{ MAXIMUM_CONNECTIONS MC }
    [[clc$optional_with_default, ^define_rhfam_client_pdt_dv2], 1, 1, 1, 1,
  clc$value_range_not_allowed, [NIL, clc$integer_value, 1, 255]],

{ USER_CAPABILITY UC }
    [[clc$optional_with_default, ^define_rhfam_client_pdt_dv3], 1, 1, 1, 1,
  clc$value_range_not_allowed, [^define_rhfam_client_pdt_kv3, clc$name_value,
  1, osc$max_name_size]],

{ RING R }
    [[clc$optional_with_default, ^define_rhfam_client_pdt_dv4], 1, 1, 1, 1,
  clc$value_range_not_allowed, [NIL, clc$integer_value, 1, 15]],

{ SYSTEM_PRIVILEGE SP }
    [[clc$optional_with_default, ^define_rhfam_client_pdt_dv5], 1, 1, 1, 1,
  clc$value_range_not_allowed, [NIL, clc$boolean_value]],

{ SYSTEM_WIDE_CONNECTION_MGMT SWCM }
    [[clc$optional_with_default, ^define_rhfam_client_pdt_dv6], 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
    define_rhfam_client_pdt_kv3: [STATIC, READ, cls$pdt_names_and_defaults]
  array [1 .. 1] of ost$name := ['NONE'];

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

  VAR
    define_rhfam_client_pdt_dv3: [STATIC, READ, cls$pdt_names_and_defaults
  ] string (4) := 'none';

  VAR
    define_rhfam_client_pdt_dv4: [STATIC, READ, cls$pdt_names_and_defaults
  ] string (2) := '13';

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

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

?? FMT (FORMAT := ON) ??
?? POP ??
