
{ PDT change_host_state_pdt (
{     physical_identifier, pid, pi : LIST OF STRING 3 OR KEY ALL = $REQUIRED
{     state, s : KEY ON OFF = $REQUIRED
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    change_host_state_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^change_host_state_pdt_names, ^change_host_state_pdt_params];

  VAR
    change_host_state_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 6] of
      clt$parameter_name_descriptor := [['PHYSICAL_IDENTIFIER', 1], ['PID', 1], ['PI', 1], ['STATE', 2], ['S'
      , 2], ['STATUS', 3]];

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

{ PHYSICAL_IDENTIFIER PID PI }
    [[clc$required], 1, clc$max_value_sets,1, 1, clc$value_range_not_allowed, [^change_host_state_pdt_kv1,
      clc$string_value, 3, 3]],

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

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

?? POP ??
