{ PROCEDURE set_to_default, settd (
{   set: list of key
{       all
{       (device_file, df)
{       (executable_file, ef)
{       (file_server, fs)
{       (memory_attribute, memory_attributes, ma)
{       (non_executable_file, nef)
{       (other, o)
{       (shared_queue_attribute, shared_queue_attributes, sqa)
{       (site_defined, sd)
{       (system, s)
{       (task_service, ts)
{       site_01, site_02, site_03, site_04, site_05, site_06, site_07, site_08, site_09, site_10, site_11
{       site_12, site_13, site_14, site_15, site_16, site_17, site_18, site_19, site_20, site_21, site_22
{       site_23, site_24, site_25
{     keyend = $required
{   status)

?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 2] of clt$pdt_parameter_name,
      parameters: array [1 .. 2] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$list_type_qualifier_v2,
        element_type_spec: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 48] of clt$keyword_specification,
        recend,
      recend,
      type2: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [106, 5, 3, 17, 59, 15, 493],
    clc$command, 2, 2, 1, 0, 0, 0, 2, ''], [
    ['SET                            ',clc$nominal_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 2]],
    [
{ PARAMETER 1
    [1, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name, clc$specify_positionally],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 1799,
  clc$required_parameter, 0, 0],
{ PARAMETER 2
    [2, clc$normal_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_reference, clc$immediate_evaluation, clc$standard_parameter_checking, 3,
  clc$optional_parameter, 0, 0]],
{ PARAMETER 1
    [[1, 0, clc$list_type], [1783, 1, clc$max_list_size, 0, FALSE, FALSE],
      [[1, 0, clc$keyword_type], [48], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['DEVICE_FILE                    ', clc$nominal_entry, clc$normal_usage_entry, 2],
      ['DF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
      ['EF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
      ['EXECUTABLE_FILE                ', clc$nominal_entry, clc$normal_usage_entry, 3],
      ['FILE_SERVER                    ', clc$nominal_entry, clc$normal_usage_entry, 4],
      ['FS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
      ['MA                             ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
      ['MEMORY_ATTRIBUTE               ', clc$nominal_entry, clc$normal_usage_entry, 5],
      ['MEMORY_ATTRIBUTES              ', clc$alias_entry, clc$normal_usage_entry, 5],
      ['NEF                            ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
      ['NON_EXECUTABLE_FILE            ', clc$nominal_entry, clc$normal_usage_entry, 6],
      ['O                              ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
      ['OTHER                          ', clc$nominal_entry, clc$normal_usage_entry, 7],
      ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
      ['SD                             ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
      ['SHARED_QUEUE_ATTRIBUTE         ', clc$nominal_entry, clc$normal_usage_entry, 8],
      ['SHARED_QUEUE_ATTRIBUTES        ', clc$alias_entry, clc$normal_usage_entry, 8],
      ['SITE_01                        ', clc$nominal_entry, clc$normal_usage_entry, 12],
      ['SITE_02                        ', clc$nominal_entry, clc$normal_usage_entry, 13],
      ['SITE_03                        ', clc$nominal_entry, clc$normal_usage_entry, 14],
      ['SITE_04                        ', clc$nominal_entry, clc$normal_usage_entry, 15],
      ['SITE_05                        ', clc$nominal_entry, clc$normal_usage_entry, 16],
      ['SITE_06                        ', clc$nominal_entry, clc$normal_usage_entry, 17],
      ['SITE_07                        ', clc$nominal_entry, clc$normal_usage_entry, 18],
      ['SITE_08                        ', clc$nominal_entry, clc$normal_usage_entry, 19],
      ['SITE_09                        ', clc$nominal_entry, clc$normal_usage_entry, 20],
      ['SITE_10                        ', clc$nominal_entry, clc$normal_usage_entry, 21],
      ['SITE_11                        ', clc$nominal_entry, clc$normal_usage_entry, 22],
      ['SITE_12                        ', clc$nominal_entry, clc$normal_usage_entry, 23],
      ['SITE_13                        ', clc$nominal_entry, clc$normal_usage_entry, 24],
      ['SITE_14                        ', clc$nominal_entry, clc$normal_usage_entry, 25],
      ['SITE_15                        ', clc$nominal_entry, clc$normal_usage_entry, 26],
      ['SITE_16                        ', clc$nominal_entry, clc$normal_usage_entry, 27],
      ['SITE_17                        ', clc$nominal_entry, clc$normal_usage_entry, 28],
      ['SITE_18                        ', clc$nominal_entry, clc$normal_usage_entry, 29],
      ['SITE_19                        ', clc$nominal_entry, clc$normal_usage_entry, 30],
      ['SITE_20                        ', clc$nominal_entry, clc$normal_usage_entry, 31],
      ['SITE_21                        ', clc$nominal_entry, clc$normal_usage_entry, 32],
      ['SITE_22                        ', clc$nominal_entry, clc$normal_usage_entry, 33],
      ['SITE_23                        ', clc$nominal_entry, clc$normal_usage_entry, 34],
      ['SITE_24                        ', clc$nominal_entry, clc$normal_usage_entry, 35],
      ['SITE_25                        ', clc$nominal_entry, clc$normal_usage_entry, 36],
      ['SITE_DEFINED                   ', clc$nominal_entry, clc$normal_usage_entry, 9],
      ['SQA                            ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
      ['SYSTEM                         ', clc$nominal_entry, clc$normal_usage_entry, 10],
      ['TASK_SERVICE                   ', clc$nominal_entry, clc$normal_usage_entry, 11],
      ['TS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 11]]
      ]
    ],
{ PARAMETER 2
    [[1, 0, clc$status_type]]];

?? FMT (FORMAT := ON) ??
?? POP ??

    CONST
      p$set = 1,
      p$status = 2;

    VAR
      pvt: array [1 .. 2] of clt$parameter_value;


