{ PROCEDURE mmd$mmu_set_debug_options (
{   force_dynamic_aging_attributes, fdaa: any of
{       key
{         all, none
{       keyend
{       list of key
{         (display_memory_attributes, dma)
{         (display_shared_queue_attributes, dsqa)
{         (change_memory_attributes, cma)
{         (change_shared_queue_attributes, csqa)
{       keyend
{     anyend = none
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 3] of clt$pdt_parameter_name,
      parameters: array [1 .. 2] of clt$pdt_parameter,
      type1: 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$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 8] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (4),
      recend,
      type2: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [100, 9, 5, 11, 24, 15, 733],
    clc$command, 3, 2, 0, 0, 0, 0, 2, ''], [
    ['FDAA                           ',clc$abbreviation_entry, 1],
    ['FORCE_DYNAMIC_AGING_ATTRIBUTES ',clc$nominal_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 2]],
    [
{ PARAMETER 1
    [2, 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, 420,
  clc$optional_default_parameter, 0, 4],
{ PARAMETER 2
    [3, 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$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['NONE                           ', clc$nominal_entry, clc$normal_usage_entry, 2]]
      ],
    319, [[1, 0, clc$list_type], [303, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [8], [
        ['CHANGE_MEMORY_ATTRIBUTES       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['CHANGE_SHARED_QUEUE_ATTRIBUTES ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['CMA                            ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['CSQA                           ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['DISPLAY_MEMORY_ATTRIBUTES      ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['DISPLAY_SHARED_QUEUE_ATTRIBUTES', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['DMA                            ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['DSQA                           ', clc$abbreviation_entry, clc$normal_usage_entry, 2]]
        ]
      ]
    ,
    'none'],
{ PARAMETER 2
    [[1, 0, clc$status_type]]];

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

    CONST
      p$force_dynamic_aging_attribute = 1 {FORCE_DYNAMIC_AGING_ATTRIBUTES} ,
      p$status = 2;

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