
{ pdt define_local_host (physical_identifier, pid, pi : string 3 = $required
{                        logical_identifiers, logical_identifier, lid, ..
{                           li : list of string 1..31 = $required
{                        connection_password, cp : name 7 = passwrd
{                        subsystem_identifier, si : name 2 = rh
{                        connection_timeout, ct : integer 10..1800 = 30
{                        data_transfer_timeout, dtt : integer 30..3600 = 600)

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

  VAR
    define_local_host: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^define_local_host_names,
  ^define_local_host_params];

  VAR
    define_local_host_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 15] of
  clt$parameter_name_descriptor := [['PHYSICAL_IDENTIFIER', 1], ['PID', 1], ['PI', 1], ['LOGICAL_IDENTIFIERS'
  , 2], ['LOGICAL_IDENTIFIER', 2], ['LID', 2], ['LI', 2], ['CONNECTION_PASSWORD', 3], ['CP', 3], [
  'SUBSYSTEM_IDENTIFIER', 4], ['SI', 4], ['CONNECTION_TIMEOUT', 5], ['CT', 5], ['DATA_TRANSFER_TIMEOUT', 6], [
  'DTT', 6]];

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

{ PHYSICAL_IDENTIFIER PID PI }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 3, 3]],

{ LOGICAL_IDENTIFIERS LOGICAL_IDENTIFIER LID LI }
    [[clc$required], 1, clc$max_value_sets,1, 1, clc$value_range_not_allowed, [NIL, clc$string_value, 1, 31]],

{ CONNECTION_PASSWORD CP }
    [[clc$optional_with_default, ^define_local_host_dv3], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
  clc$name_value, 7, 7]],

{ SUBSYSTEM_IDENTIFIER SI }
    [[clc$optional_with_default, ^define_local_host_dv4], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
  clc$name_value, 2, 2]],

{ CONNECTION_TIMEOUT CT }
    [[clc$optional_with_default, ^define_local_host_dv5], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
  clc$integer_value, 10, 1800]],

{ DATA_TRANSFER_TIMEOUT DTT }
    [[clc$optional_with_default, ^define_local_host_dv6], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
  clc$integer_value, 30, 3600]]];

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

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

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

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

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