{ PROCEDURE display_memory_attribute, display_memory_attributes, disma (
{   display_option, display_options, do: list of key
{       all
{       (age_interval_ceiling, aic)
{       (age_interval_floor, aif)
{       (aggressive_aging_level, aal)
{       (aggressive_aging_level_2, aal2)
{       (aging_algorithm, aa)
{       (available_modified_queue_max, amqm)
{       (dynamic_available_floor, daf)
{       (dynamic_available_emergency_min, daem)
{       (dynamic_available_max, damax)
{       (dynamic_available_min, damin)
{       (dynamic_negative_increment_max, dnim)
{       (dynamic_positive_increment_max, dpim)
{       (job_working_set_age_interval, jwsai)
{       (minimum_available_pages, minap)
{       (page_streaming_prestream, psp)
{       (page_streaming_random_limit, psrl)
{       (page_streaming_reads, psr)
{       (page_streaming_threshold, pst)
{       (page_streaming_transfer_size, psts)
{       (periodic_call_interval, pci)
{       (shared_working_set_age_interval, swsai)
{       (swapping_aic_modified, sam)
{       (swapping_aic_unmodified, sau)
{       (tick_time, tt)
{     keyend = all
{   output, o: file = $output
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 6] of clt$pdt_parameter_name,
      parameters: array [1 .. 3] 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 .. 49] of clt$keyword_specification,
        recend,
        default_value: string (3),
      recend,
      type2: record
        header: clt$type_specification_header,
        default_value: string (7),
      recend,
      type3: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [100, 3, 22, 16, 21, 2, 176],
    clc$command, 6, 3, 0, 0, 0, 0, 3, ''], [
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 1],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 1],
    ['DO                             ',clc$abbreviation_entry, 1],
    ['O                              ',clc$abbreviation_entry, 2],
    ['OUTPUT                         ',clc$nominal_entry, 2],
    ['STATUS                         ',clc$nominal_entry, 3]],
    [
{ 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, 1836,
  clc$optional_default_parameter, 0, 3],
{ PARAMETER 2
    [5, 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, 3,
  clc$optional_default_parameter, 0, 7],
{ PARAMETER 3
    [6, 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], [1820, 1, clc$max_list_size, 0, FALSE, FALSE],
      [[1, 0, clc$keyword_type], [49], [
      ['AA                             ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
      ['AAL                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
      ['AAL2                           ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
      ['AGE_INTERVAL_CEILING           ', clc$nominal_entry, clc$normal_usage_entry, 2],
      ['AGE_INTERVAL_FLOOR             ', clc$nominal_entry, clc$normal_usage_entry, 3],
      ['AGGRESSIVE_AGING_LEVEL         ', clc$nominal_entry, clc$normal_usage_entry, 4],
      ['AGGRESSIVE_AGING_LEVEL_2       ', clc$nominal_entry, clc$normal_usage_entry, 5],
      ['AGING_ALGORITHM                ', clc$nominal_entry, clc$normal_usage_entry, 6],
      ['AIC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
      ['AIF                            ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['AMQM                           ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
      ['AVAILABLE_MODIFIED_QUEUE_MAX   ', clc$nominal_entry, clc$normal_usage_entry, 7],
      ['DAEM                           ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
      ['DAF                            ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
      ['DAMAX                          ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
      ['DAMIN                          ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
      ['DNIM                           ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
      ['DPIM                           ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
      ['DYNAMIC_AVAILABLE_EMERGENCY_MIN', clc$nominal_entry, clc$normal_usage_entry, 9],
      ['DYNAMIC_AVAILABLE_FLOOR        ', clc$nominal_entry, clc$normal_usage_entry, 8],
      ['DYNAMIC_AVAILABLE_MAX          ', clc$nominal_entry, clc$normal_usage_entry, 10],
      ['DYNAMIC_AVAILABLE_MIN          ', clc$nominal_entry, clc$normal_usage_entry, 11],
      ['DYNAMIC_NEGATIVE_INCREMENT_MAX ', clc$nominal_entry, clc$normal_usage_entry, 12],
      ['DYNAMIC_POSITIVE_INCREMENT_MAX ', clc$nominal_entry, clc$normal_usage_entry, 13],
      ['JOB_WORKING_SET_AGE_INTERVAL   ', clc$nominal_entry, clc$normal_usage_entry, 14],
      ['JWSAI                          ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
      ['MINAP                          ', clc$abbreviation_entry, clc$normal_usage_entry, 15],
      ['MINIMUM_AVAILABLE_PAGES        ', clc$nominal_entry, clc$normal_usage_entry, 15],
      ['PAGE_STREAMING_PRESTREAM       ', clc$nominal_entry, clc$normal_usage_entry, 16],
      ['PAGE_STREAMING_RANDOM_LIMIT    ', clc$nominal_entry, clc$normal_usage_entry, 17],
      ['PAGE_STREAMING_READS           ', clc$nominal_entry, clc$normal_usage_entry, 18],
      ['PAGE_STREAMING_THRESHOLD       ', clc$nominal_entry, clc$normal_usage_entry, 19],
      ['PAGE_STREAMING_TRANSFER_SIZE   ', clc$nominal_entry, clc$normal_usage_entry, 20],
      ['PCI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 21],
      ['PERIODIC_CALL_INTERVAL         ', clc$nominal_entry, clc$normal_usage_entry, 21],
      ['PSP                            ', clc$abbreviation_entry, clc$normal_usage_entry, 16],
      ['PSR                            ', clc$abbreviation_entry, clc$normal_usage_entry, 18],
      ['PSRL                           ', clc$abbreviation_entry, clc$normal_usage_entry, 17],
      ['PST                            ', clc$abbreviation_entry, clc$normal_usage_entry, 19],
      ['PSTS                           ', clc$abbreviation_entry, clc$normal_usage_entry, 20],
      ['SAM                            ', clc$abbreviation_entry, clc$normal_usage_entry, 23],
      ['SAU                            ', clc$abbreviation_entry, clc$normal_usage_entry, 24],
      ['SHARED_WORKING_SET_AGE_INTERVAL', clc$nominal_entry, clc$normal_usage_entry, 22],
      ['SWAPPING_AIC_MODIFIED          ', clc$nominal_entry, clc$normal_usage_entry, 23],
      ['SWAPPING_AIC_UNMODIFIED        ', clc$nominal_entry, clc$normal_usage_entry, 24],
      ['SWSAI                          ', clc$abbreviation_entry, clc$normal_usage_entry, 22],
      ['TICK_TIME                      ', clc$nominal_entry, clc$normal_usage_entry, 25],
      ['TT                             ', clc$abbreviation_entry, clc$normal_usage_entry, 25]]
      ]
    ,
    'all'],
{ PARAMETER 2
    [[1, 0, clc$file_type],
    '$output'],
{ PARAMETER 3
    [[1, 0, clc$status_type]]];

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

    CONST
      p$display_option = 1,
      p$output = 2,
      p$status = 3;

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

