{ PROCEDURE change_shared_queue_attribute, change_shared_queue_attributes, chasqa (
{   queue, q, shared_queue, sq: list of key
{       all
{       (system, s)
{       (site_defined, sd)
{       (task_service, ts)
{       (executable_file, ef)
{       (non_executable_file, nef)
{       (device_file, df)
{       (file_server, fs)
{       other, site_01, site_02, site_03, site_04, site_05, site_06, site_07, site_08, site_09, site_10, sit..
{ e_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
{   age_interval_modified, age_interval_ceiling_modified, aim, aicm: any of
{       key
{         (default, d)
{       keyend
{       integer 1..255
{     anyend = $optional
{   age_interval_unmodified, age_interval_ceiling_unmodified, aiu, aicu: any of
{       key
{         (default, d)
{       keyend
{       integer 1..255
{     anyend = $optional
{   minimum_size, mins: any of
{       key
{         (default, d)
{       keyend
{       integer 0..osc$max_page_frames
{     anyend = $optional
{   maximum_size, maxs: any of
{       key
{         (default, d)
{       keyend
{       integer 0..osc$max_page_frames
{     anyend = $optional
{   age_cycles, ac: (BY_NAME, ADVANCED) any of
{       key
{         (default, d)
{         (all, a)
{       keyend
{       list of integer c$page_queue_age_cycle_min..c$page_queue_age_cycle_max
{       record
{         starting_cycle: integer c$page_queue_age_cycle_min..c$page_queue_age_cycle_max
{         every_nth_cycle: integer c$page_queue_age_cycle_min..c$page_queue_age_cycle_max
{       recend
{     anyend = $optional
{   age_interval_ceiling, aic: (BY_NAME, ADVANCED) any of
{       key
{         (default, d)
{       keyend
{       integer 1..255
{     anyend = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 21] of clt$pdt_parameter_name,
      parameters: array [1 .. 8] 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 .. 41] of clt$keyword_specification,
        recend,
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
        recend,
      recend,
      type3: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
        recend,
      recend,
      type5: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
        recend,
      recend,
      type6: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 4] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$integer_type_qualifier,
          recend,
        recend,
        type_size_3: clt$type_specification_size,
        element_type_spec_3: record
          header: clt$type_specification_header,
          qualifier: clt$record_type_qualifier,
          field_spec_1: clt$field_specification,
          element_type_spec_1: record
            header: clt$type_specification_header,
            qualifier: clt$integer_type_qualifier,
          recend,
          field_spec_2: clt$field_specification,
          element_type_spec_2: record
            header: clt$type_specification_header,
            qualifier: clt$integer_type_qualifier,
          recend,
        recend,
      recend,
      type7: record
        header: clt$type_specification_header,
        qualifier: clt$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 2] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$integer_type_qualifier,
        recend,
      recend,
      type8: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [100, 5, 25, 16, 29, 45, 989],
    clc$command, 21, 8, 1, 2, 0, 0, 8, ''], [
    ['AC                             ',clc$abbreviation_entry, 6],
    ['AGE_CYCLES                     ',clc$nominal_entry, 6],
    ['AGE_INTERVAL_CEILING           ',clc$nominal_entry, 7],
    ['AGE_INTERVAL_CEILING_MODIFIED  ',clc$alias_entry, 2],
    ['AGE_INTERVAL_CEILING_UNMODIFIED',clc$alias_entry, 3],
    ['AGE_INTERVAL_MODIFIED          ',clc$nominal_entry, 2],
    ['AGE_INTERVAL_UNMODIFIED        ',clc$nominal_entry, 3],
    ['AIC                            ',clc$abbreviation_entry, 7],
    ['AICM                           ',clc$abbreviation_entry, 2],
    ['AICU                           ',clc$abbreviation_entry, 3],
    ['AIM                            ',clc$alias_entry, 2],
    ['AIU                            ',clc$alias_entry, 3],
    ['MAXIMUM_SIZE                   ',clc$nominal_entry, 5],
    ['MAXS                           ',clc$abbreviation_entry, 5],
    ['MINIMUM_SIZE                   ',clc$nominal_entry, 4],
    ['MINS                           ',clc$abbreviation_entry, 4],
    ['Q                              ',clc$alias_entry, 1],
    ['QUEUE                          ',clc$nominal_entry, 1],
    ['SHARED_QUEUE                   ',clc$alias_entry, 1],
    ['SQ                             ',clc$abbreviation_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 8]],
    [
{ PARAMETER 1
    [18, 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, 1540,
  clc$required_parameter, 0, 0],
{ PARAMETER 2
    [6, 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, 121,
  clc$optional_parameter, 0, 0],
{ PARAMETER 3
    [7, 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, 121,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [15, 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, 121,
  clc$optional_parameter, 0, 0],
{ PARAMETER 5
    [13, 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, 121,
  clc$optional_parameter, 0, 0],
{ PARAMETER 6
    [2, clc$advanced_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 334,
  clc$optional_parameter, 0, 0],
{ PARAMETER 7
    [3, clc$advanced_usage_entry, clc$non_secure_parameter,
    $clt$parameter_spec_methods[clc$specify_by_name],
    clc$pass_by_value, clc$immediate_evaluation, clc$standard_parameter_checking, 121,
  clc$optional_parameter, 0, 0],
{ PARAMETER 8
    [21, 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], [1524, 1, clc$max_list_size, 0, FALSE, FALSE],
      [[1, 0, clc$keyword_type], [41], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['DEVICE_FILE                    ', clc$nominal_entry, clc$normal_usage_entry, 7],
      ['DF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
      ['EF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
      ['EXECUTABLE_FILE                ', clc$nominal_entry, clc$normal_usage_entry, 5],
      ['FILE_SERVER                    ', clc$nominal_entry, clc$normal_usage_entry, 8],
      ['FS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
      ['NEF                            ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
      ['NON_EXECUTABLE_FILE            ', clc$nominal_entry, clc$normal_usage_entry, 6],
      ['OTHER                          ', clc$nominal_entry, clc$normal_usage_entry, 9],
      ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
      ['SD                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
      ['SITE_01                        ', clc$nominal_entry, clc$normal_usage_entry, 10],
      ['SITE_02                        ', clc$nominal_entry, clc$normal_usage_entry, 11],
      ['SITE_03                        ', clc$nominal_entry, clc$normal_usage_entry, 12],
      ['SITE_04                        ', clc$nominal_entry, clc$normal_usage_entry, 13],
      ['SITE_05                        ', clc$nominal_entry, clc$normal_usage_entry, 14],
      ['SITE_06                        ', clc$nominal_entry, clc$normal_usage_entry, 15],
      ['SITE_07                        ', clc$nominal_entry, clc$normal_usage_entry, 16],
      ['SITE_08                        ', clc$nominal_entry, clc$normal_usage_entry, 17],
      ['SITE_09                        ', clc$nominal_entry, clc$normal_usage_entry, 18],
      ['SITE_10                        ', clc$nominal_entry, clc$normal_usage_entry, 19],
      ['SITE_11                        ', clc$nominal_entry, clc$normal_usage_entry, 20],
      ['SITE_12                        ', clc$nominal_entry, clc$normal_usage_entry, 21],
      ['SITE_13                        ', clc$nominal_entry, clc$normal_usage_entry, 22],
      ['SITE_14                        ', clc$nominal_entry, clc$normal_usage_entry, 23],
      ['SITE_15                        ', clc$nominal_entry, clc$normal_usage_entry, 24],
      ['SITE_16                        ', clc$nominal_entry, clc$normal_usage_entry, 25],
      ['SITE_17                        ', clc$nominal_entry, clc$normal_usage_entry, 26],
      ['SITE_18                        ', clc$nominal_entry, clc$normal_usage_entry, 27],
      ['SITE_19                        ', clc$nominal_entry, clc$normal_usage_entry, 28],
      ['SITE_20                        ', clc$nominal_entry, clc$normal_usage_entry, 29],
      ['SITE_21                        ', clc$nominal_entry, clc$normal_usage_entry, 30],
      ['SITE_22                        ', clc$nominal_entry, clc$normal_usage_entry, 31],
      ['SITE_23                        ', clc$nominal_entry, clc$normal_usage_entry, 32],
      ['SITE_24                        ', clc$nominal_entry, clc$normal_usage_entry, 33],
      ['SITE_25                        ', clc$nominal_entry, clc$normal_usage_entry, 34],
      ['SITE_DEFINED                   ', clc$nominal_entry, clc$normal_usage_entry, 3],
      ['SYSTEM                         ', clc$nominal_entry, clc$normal_usage_entry, 2],
      ['TASK_SERVICE                   ', clc$nominal_entry, clc$normal_usage_entry, 4],
      ['TS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 4]]
      ]
    ],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$integer_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    20, [[1, 0, clc$integer_type], [1, 255, 10]]
    ],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$integer_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    20, [[1, 0, clc$integer_type], [1, 255, 10]]
    ],
{ PARAMETER 4
    [[1, 0, clc$union_type], [[clc$integer_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    20, [[1, 0, clc$integer_type], [0, osc$max_page_frames, 10]]
    ],
{ PARAMETER 5
    [[1, 0, clc$union_type], [[clc$integer_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    20, [[1, 0, clc$integer_type], [0, osc$max_page_frames, 10]]
    ],
{ PARAMETER 6
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type, clc$record_type],
    FALSE, 3],
    155, [[1, 0, clc$keyword_type], [4], [
      ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 2],
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    36, [[1, 0, clc$list_type], [20, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$integer_type], [c$page_queue_age_cycle_min, c$page_queue_age_cycle_max, 10]]
      ],
    119, [[1, 0, clc$record_type], [2],
      ['STARTING_CYCLE                 ', clc$required_field, 20], [[1, 0, clc$integer_type], [
  c$page_queue_age_cycle_min, c$page_queue_age_cycle_max, 10]],
      ['EVERY_NTH_CYCLE                ', clc$required_field, 20], [[1, 0, clc$integer_type], [
  c$page_queue_age_cycle_min, c$page_queue_age_cycle_max, 10]]
      ]
    ],
{ PARAMETER 7
    [[1, 0, clc$union_type], [[clc$integer_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['DEFAULT                        ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    20, [[1, 0, clc$integer_type], [1, 255, 10]]
    ],
{ PARAMETER 8
    [[1, 0, clc$status_type]]];

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

    CONST
      p$queue = 1,
      p$age_interval_modified = 2,
      p$age_interval_unmodified = 3,
      p$minimum_size = 4,
      p$maximum_size = 5,
      p$age_cycles = 6,
      p$age_interval_ceiling = 7,
      p$status = 8;

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

