
{ PDT display_logical_id_pdt (
{     physical_identifier, pid, pi : LIST OF STRING 3 OR KEY ALL LOCAL = ALL
{     logical_identifier, lid, li : LIST OF STRING 1..31 OR KEY ALL NONE = ALL
{     display_option, do : KEY ACTIVE A INSTALLED I = ACTIVE
{     output, o : FILE = $OUTPUT
{     status)

?? PUSH (LISTEXT := ON) ??

  VAR
    display_logical_id_pdt: [STATIC, READ, cls$pdt] clt$parameter_descriptor_table := [
      ^display_logical_id_pdt_names, ^display_logical_id_pdt_params];

  VAR
    display_logical_id_pdt_names: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 11] of
      clt$parameter_name_descriptor := [['PHYSICAL_IDENTIFIER', 1], ['PID', 1], ['PI', 1], [
      'LOGICAL_IDENTIFIER', 2], ['LID', 2], ['LI', 2], ['DISPLAY_OPTION', 3], ['DO', 3], ['OUTPUT', 4], ['O',
      4], ['STATUS', 5]];

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

{ PHYSICAL_IDENTIFIER PID PI }
    [[clc$optional_with_default, ^display_logical_id_pdt_dv1], 1, clc$max_value_sets,1, 1,
      clc$value_range_not_allowed, [^display_logical_id_pdt_kv1, clc$string_value, 3, 3]],

{ LOGICAL_IDENTIFIER LID LI }
    [[clc$optional_with_default, ^display_logical_id_pdt_dv2], 1, clc$max_value_sets,1, 1,
      clc$value_range_not_allowed, [^display_logical_id_pdt_kv2, clc$string_value, 1, 31]],

{ DISPLAY_OPTION DO }
    [[clc$optional_with_default, ^display_logical_id_pdt_dv3], 1, 1, 1, 1, clc$value_range_not_allowed, [^
      display_logical_id_pdt_kv3, clc$keyword_value]],

{ OUTPUT O }
    [[clc$optional_with_default, ^display_logical_id_pdt_dv4], 1, 1, 1, 1, clc$value_range_not_allowed, [NIL,
      clc$file_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
    display_logical_id_pdt_kv1: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 2] of ost$name := [
      'ALL','LOCAL'];

  VAR
    display_logical_id_pdt_kv2: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 2] of ost$name := [
      'ALL','NONE'];

  VAR
    display_logical_id_pdt_kv3: [STATIC, READ, cls$pdt_names_and_defaults] array [1 .. 4] of ost$name := [
      'ACTIVE','A','INSTALLED','I'];

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

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

  VAR
    display_logical_id_pdt_dv3: [STATIC, READ, cls$pdt_names_and_defaults] string (6) := 'ACTIVE';

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

?? POP ??
