
{ pdt define_lcn_path   (local_nad, ln: name = $required
{                        remote_nad, rn: name = $required
{                        exclude_trunk, et: list 1..3 of name = $optional
{                        physical_identifier, pid, pi: string 3 = $optional
{                        host_connection, hc: integer 0..3 = 0
{                        logical_network, lnet: integer 0..0FF(16) = 0
{                        logical_nad, lnad: integer 0..0FF(16) = 0
{                        access_code, ac: integer 0..0FFFF(16) = 0)

?? PUSH (LISTEXT := ON) ??

  VAR
    define_lcn_path: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [^define_lcn_path_names,
      ^define_lcn_path_params];

  VAR
    define_lcn_path_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 17] of
      clt$parameter_name_descriptor := [['LOCAL_NAD', 1], ['LN', 1], ['REMOTE_NAD', 2], ['RN', 2], [
      'EXCLUDE_TRUNK', 3], ['ET', 3], ['PHYSICAL_IDENTIFIER', 4], ['PID', 4], ['PI', 4], ['HOST_CONNECTION', 5
      ], ['HC', 5], ['LOGICAL_NETWORK', 6], ['LNET', 6], ['LOGICAL_NAD', 7], ['LNAD', 7], ['ACCESS_CODE', 8],
      ['AC', 8]];

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

{ LOCAL_NAD LN }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ REMOTE_NAD RN }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

{ EXCLUDE_TRUNK ET }
    [[clc$optional], 1, 3, 1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1, osc$max_name_size]],

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

{ HOST_CONNECTION HC }
    [[clc$optional_with_default, ^define_lcn_path_dv5], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 3]],

{ LOGICAL_NETWORK LNET }
    [[clc$optional_with_default, ^define_lcn_path_dv6], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0FF(16)]],

{ LOGICAL_NAD LNAD }
    [[clc$optional_with_default, ^define_lcn_path_dv7], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0FF(16)]],

{ ACCESS_CODE AC }
    [[clc$optional_with_default, ^define_lcn_path_dv8], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$integer_value, 0, 0FFFF(16)]]];

  VAR
    define_lcn_path_dv5: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_lcn_path_dv6: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_lcn_path_dv7: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

  VAR
    define_lcn_path_dv8: [STATIC, READ, cls$pdt_names_and_defaults] string (1) := '0';

?? POP ??
