
{ pdt define_remote_host (physical_identifier, pid, pi : string 3 = $required
{                         logical_identifiers, logical_identifier, lid, ..
{                            li : list of string 1..31 = $required)

?? PUSH (LISTEXT := ON) ??

  VAR
    define_remote_host: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^define_remote_host_names,
  ^define_remote_host_params];

  VAR
    define_remote_host_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 7] of
      clt$parameter_name_descriptor := [['PHYSICAL_IDENTIFIER', 1], ['PID', 1], ['PI', 1], [
      'LOGICAL_IDENTIFIERS', 2], ['LOGICAL_IDENTIFIER', 2], ['LID', 2], ['LI', 2]];

  VAR
    define_remote_host_params: [STATIC, READ, cls$pdt_parameters] array [1 .. 2] 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
      ]]];

?? POP ??
