
{ PDT change_trunk_state_pdt (
{     nad, n : LIST OF NAME OR KEY ALL = ALL
{     trunk, t : LIST OF NAME  = $REQUIRED
{     state, s  : KEY ON OFF = $REQUIRED
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    change_trunk_state_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^change_trunk_state_pdt_names, ^change_trunk_state_pdt_params];

  VAR
    change_trunk_state_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 7] of
      clt$parameter_name_descriptor := [['NAD', 1], ['N', 1], ['TRUNK', 2], ['T', 2], ['STATE', 3], ['S', 3],
      ['STATUS', 4]];

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

{ NAD N }
    [[clc$optional_with_default, ^change_trunk_state_pdt_dv1], 1, clc$max_value_sets,1, 1,
      clc$value_range_not_allowed, [^change_trunk_state_pdt_kv1, clc$name_value, 1, osc$max_name_size]],

{ TRUNK T }
    [[clc$required], 1, clc$max_value_sets,1, 1, clc$value_range_not_allowed, [NIL, clc$name_value, 1,
      osc$max_name_size]],

{ STATE S }
    [[clc$required], 1, 1, 1, 1, clc$value_range_not_allowed, [^change_trunk_state_pdt_kv3, clc$keyword_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
    change_trunk_state_pdt_kv1: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 1] of ost$name := [
      'ALL'];

  VAR
    change_trunk_state_pdt_kv3: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 2] of ost$name := ['ON'
      ,'OFF'];

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

?? POP ??
