{ PROCEDURE vedisplay, ved (
{   display_options, display_option, do: any of
{       name
{       key
{         (active_jobs, aj)
{         (critical_window_log, cwl)
{         (device_status, ds)
{         (dynamic_aging_statistics, das)
{         (dynamic_aging_statistics_total, dast)
{         (file_server, fs)
{         (general_statistics, gs)
{         (initiated_jobs, ij)
{         (initiated_jobs_detailed, ijd)
{         (io_summary, is)
{         (job_log, jl)
{         (mass_storage, ms)
{         (mass_storage_space, mss)
{         (mass_storage_usage, msu)
{         (memory_manager_statistics, mms)
{         (memory_manager_statistics_total, mmst)
{         (memory_ring_request_trace, mrrt)
{         null
{         (operator_message, om)
{         (pp_assignment, pa)
{         (shared_aging_statistics, sas)
{         (shared_aging_statistics_total, sast)
{         (special_statistics, ss)
{         (swap_state_statistics, sss)
{         (swap_state_statistics_total, ssst)
{         (swap_trace_statistics, sts)
{         (swap_trace_statistics_total, stst)
{         (system_log, sl)
{         (tape_mount, tm)
{         (tape_reservations, tr)
{         (tape_status, ts)
{       advanced_key
{         (iou_resource_table, irt)
{       keyend
{     anyend = $required
{   output, o: any of
{       key
{         display_a, display_b
{       keyend
{       file
{     anyend = display_a
{   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$union_type_qualifier,
        type_size_1: clt$type_specification_size,
        element_type_spec_1: record
          header: clt$type_specification_header,
          qualifier: clt$name_type_qualifier,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
          qualifier: clt$keyword_type_qualifier,
          keyword_specs: array [1 .. 63] 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,
        recend,
        default_value: string (9),
      recend,
      type3: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [100, 8, 29, 13, 38, 6, 509],
    clc$command, 6, 3, 1, 0, 0, 0, 3, ''], [
    ['DISPLAY_OPTION                 ',clc$alias_entry, 1],
    ['DISPLAY_OPTIONS                ',clc$nominal_entry, 1],
    ['DO                             ',clc$abbreviation_entry, 1],
    ['O                              ',clc$abbreviation_entry, 2],
    ['OUTPUT                         ',clc$nominal_entry, 2],
    ['STATUS                         ',clc$nominal_entry, 3]],
    [
{ 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, 2363,
  clc$required_parameter, 0, 0],
{ 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, 104,
  clc$optional_default_parameter, 0, 9],
{ 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$union_type], [[clc$keyword_type, clc$name_type],
    FALSE, 2],
    5, [[1, 0, clc$name_type], [1, osc$max_name_size]],
    2338, [[1, 0, clc$keyword_type], [63], [
      ['ACTIVE_JOBS                    ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['AJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
      ['CRITICAL_WINDOW_LOG            ', clc$nominal_entry, clc$normal_usage_entry, 2],
      ['CWL                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
      ['DAS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
      ['DAST                           ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
      ['DEVICE_STATUS                  ', clc$nominal_entry, clc$normal_usage_entry, 3],
      ['DS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
      ['DYNAMIC_AGING_STATISTICS       ', clc$nominal_entry, clc$normal_usage_entry, 4],
      ['DYNAMIC_AGING_STATISTICS_TOTAL ', clc$nominal_entry, clc$normal_usage_entry, 5],
      ['FILE_SERVER                    ', clc$nominal_entry, clc$normal_usage_entry, 6],
      ['FS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
      ['GENERAL_STATISTICS             ', clc$nominal_entry, clc$normal_usage_entry, 7],
      ['GS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
      ['IJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
      ['IJD                            ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
      ['INITIATED_JOBS                 ', clc$nominal_entry, clc$normal_usage_entry, 8],
      ['INITIATED_JOBS_DETAILED        ', clc$nominal_entry, clc$normal_usage_entry, 9],
      ['IOU_RESOURCE_TABLE             ', clc$nominal_entry, clc$advanced_usage_entry, 32],
      ['IO_SUMMARY                     ', clc$nominal_entry, clc$normal_usage_entry, 10],
      ['IRT                            ', clc$abbreviation_entry, clc$advanced_usage_entry, 32],
      ['IS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
      ['JL                             ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
      ['JOB_LOG                        ', clc$nominal_entry, clc$normal_usage_entry, 11],
      ['MASS_STORAGE                   ', clc$nominal_entry, clc$normal_usage_entry, 12],
      ['MASS_STORAGE_SPACE             ', clc$nominal_entry, clc$normal_usage_entry, 13],
      ['MASS_STORAGE_USAGE             ', clc$nominal_entry, clc$normal_usage_entry, 14],
      ['MEMORY_MANAGER_STATISTICS      ', clc$nominal_entry, clc$normal_usage_entry, 15],
      ['MEMORY_MANAGER_STATISTICS_TOTAL', clc$nominal_entry, clc$normal_usage_entry, 16],
      ['MEMORY_RING_REQUEST_TRACE      ', clc$nominal_entry, clc$normal_usage_entry, 17],
      ['MMS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 15],
      ['MMST                           ', clc$abbreviation_entry, clc$normal_usage_entry, 16],
      ['MRRT                           ', clc$abbreviation_entry, clc$normal_usage_entry, 17],
      ['MS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
      ['MSS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
      ['MSU                            ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
      ['NULL                           ', clc$nominal_entry, clc$normal_usage_entry, 18],
      ['OM                             ', clc$abbreviation_entry, clc$normal_usage_entry, 19],
      ['OPERATOR_MESSAGE               ', clc$nominal_entry, clc$normal_usage_entry, 19],
      ['PA                             ', clc$abbreviation_entry, clc$normal_usage_entry, 20],
      ['PP_ASSIGNMENT                  ', clc$nominal_entry, clc$normal_usage_entry, 20],
      ['SAS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 21],
      ['SAST                           ', clc$abbreviation_entry, clc$normal_usage_entry, 22],
      ['SHARED_AGING_STATISTICS        ', clc$nominal_entry, clc$normal_usage_entry, 21],
      ['SHARED_AGING_STATISTICS_TOTAL  ', clc$nominal_entry, clc$normal_usage_entry, 22],
      ['SL                             ', clc$abbreviation_entry, clc$normal_usage_entry, 28],
      ['SPECIAL_STATISTICS             ', clc$nominal_entry, clc$normal_usage_entry, 23],
      ['SS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 23],
      ['SSS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 24],
      ['SSST                           ', clc$abbreviation_entry, clc$normal_usage_entry, 25],
      ['STS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 26],
      ['STST                           ', clc$abbreviation_entry, clc$normal_usage_entry, 27],
      ['SWAP_STATE_STATISTICS          ', clc$nominal_entry, clc$normal_usage_entry, 24],
      ['SWAP_STATE_STATISTICS_TOTAL    ', clc$nominal_entry, clc$normal_usage_entry, 25],
      ['SWAP_TRACE_STATISTICS          ', clc$nominal_entry, clc$normal_usage_entry, 26],
      ['SWAP_TRACE_STATISTICS_TOTAL    ', clc$nominal_entry, clc$normal_usage_entry, 27],
      ['SYSTEM_LOG                     ', clc$nominal_entry, clc$normal_usage_entry, 28],
      ['TAPE_MOUNT                     ', clc$nominal_entry, clc$normal_usage_entry, 29],
      ['TAPE_RESERVATIONS              ', clc$nominal_entry, clc$normal_usage_entry, 30],
      ['TAPE_STATUS                    ', clc$nominal_entry, clc$normal_usage_entry, 31],
      ['TM                             ', clc$abbreviation_entry, clc$normal_usage_entry, 29],
      ['TR                             ', clc$abbreviation_entry, clc$normal_usage_entry, 30],
      ['TS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 31]]
      ]
    ],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$file_type, clc$keyword_type],
    FALSE, 2],
    81, [[1, 0, clc$keyword_type], [2], [
      ['DISPLAY_A                      ', clc$nominal_entry, clc$normal_usage_entry, 1],
      ['DISPLAY_B                      ', clc$nominal_entry, clc$normal_usage_entry, 2]]
      ],
    3, [[1, 0, clc$file_type]]
    ,
    'display_a'],
{ PARAMETER 3
    [[1, 0, clc$status_type]]];

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

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

    VAR
      pvt: array [1 .. 3] of clt$parameter_value;
?? PUSH (LISTEXT := ON) ??
?? FMT (FORMAT := OFF) ??

