{ PROCEDURE pdt (
{   catalog, c: any of
{       key
{         all_families
{       keyend
{       file
{     anyend = $required
{   fields, f: list of record
{       attribute: key
{         (access_control_list, acl)
{         (account_project, ap)
{         (actual_job_access, access_mode, am, access_modes, aja)
{         (archive_media_descriptor, amd)
{         (archive_tape_vsn_list, atvl)
{         (attached, a)
{         (attached_external_vsn_list, aevl)
{         (attached_recorded_vsn_list, arvl)
{         (attached_transfer_size, ats)
{         (attached_vol_overflow_allowed, avoa)
{         (attached_volume_number, avn)
{         (attachment_log, al)
{         (attachment_logging_selected, als)
{         (average_record_length, arl)
{         (block_type, bt)
{         (character_conversion, cc)
{         (collate_table_name, ctn)
{         (compression_procedure_name, cpn)
{         (connected_files, cf)
{         (creation_date_time, cdt)
{         (cycle_number, cn)
{         (data_padding, dp)
{         (device_class, dc)
{         (dynamic_home_block_space, dhbs)
{         (embedded_key, ek)
{         (error_exit_procedure_name, een, error_exit_name, eepn)
{         (error_limit, el)
{         (estimated_record_count, erc)
{         (exception_conditions, exception_condition, ec)
{         (expiration_date, ed)
{         (external_vsn_list, evsnl, evl)
{         (file_access_procedure_name, file_access_procedure, fap, fapn)
{         (file_contents, file_content, fs, file_structure, fc)
{         (file_label_type, flt)
{         (file_limit, fl)
{         (file_name, fn)
{         (file_organization, fo)
{         (file_previously_opened, fpo)
{         (file_processor, fp)
{         (file_residency, fr)
{         (fill, f)
{         (forced_write, fw)
{         full_path
{         (hashing_procedure_name, hpn)
{         (index_levels, index_level, il)
{         (index_padding, ip)
{         (initial_home_block_count, ihbc)
{         (internal_code, ic)
{         (job_file_address, gfa, global_file_address, jfa)
{         (job_file_position, gfp, global_file_position, jfp)
{         (job_instances_of_open, jioo)
{         (job_write_concurrency, jwc)
{         (key_length, kl)
{         (key_position, kp)
{         (key_type, kt)
{         (last_access_date_time, ladt)
{         (last_data_modification_time, ldmd, last_data_modification_date, ..
{         ldmdt, ldmt)
{         (last_modification_date_time, lmdt)
{         (lifetime, permanent, l)
{         (lifetime_attachment_count, lac)
{         (line_number, ln)
{         (loading_factor, lf)
{         (lock_expiration_time, let)
{         (log_residence, lr)
{         (logging_options, lo)
{         (mainframe_attachment, ma)
{         (mainframe_write_concurrency, mwc)
{         (mass_storage_allocation_size, msas)
{         (mass_storage_bytes_allocated, msba)
{         (mass_storage_class, msc)
{         (mass_storage_free_behind, msfb)
{         (mass_storage_initial_volume, msiv)
{         (mass_storage_sequential_access, mssa)
{         (mass_storage_transfer_size, msts)
{         (maximum_block_length, maxbl)
{         (maximum_record_length, maxrl)
{         (message_control, mc)
{         (minimum_block_length, minbl)
{         (minimum_record_length, minrl)
{         (open_position, op)
{         (padding_character, pc)
{         (page_format, pf)
{         (page_length, pl)
{         (page_width, pw)
{         password
{         (path, p)
{         (permitted_access, application_information, application_info, ai, pa)
{         (potential_job_access, global_share_mode, global_access_modes, gam,..
{  ..
{         gsm, global_share_modes, global_access_mode, pja)
{         (preset_value, pv)
{         (private_read, pr)
{         (record_delimiting_character, rdc)
{         (record_limit, rl)
{         (record_type, rt)
{         (recorded_vsn_list, rvsnl, rvl)
{         (records_per_block, rpb)
{         (registered, r)
{         (removable_media_group, rmg)
{         (retrieve_option, ro)
{         (ring_attributes, ring_attribute, ra)
{         (secondary_residence, sr)
{         (set_name, sn)
{         (shared_queue, sq)
{         (site_archive_option, sao)
{         (site_backup_option, sbo)
{         (site_release_option, sro)
{         (size, s)
{         (statement_identifier, si)
{         (tape_density, td)
{         (unique_data_name, gfn, global_file_name, udn)
{         (unique_name, un)
{         (user_information, ui)
{         (vertical_print_density, vpd)
{         (volume_overflow_allowed, voa)
{       keyend
{       field_width: integer 1..511 = $optional
{     recend = $required
{   output, o: file = $output
{   fill_character, fc: string 1..1 = ' '
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 9] of clt$pdt_parameter_name,
      parameters: array [1 .. 5] 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 .. 1] of clt$keyword_specification,
        recend,
        type_size_2: clt$type_specification_size,
        element_type_spec_2: record
          header: clt$type_specification_header,
        recend,
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$list_type_qualifier_v2,
        element_type_spec: 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$keyword_type_qualifier,
            keyword_specs: array [1 .. 258] of clt$keyword_specification,
          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,
      type3: record
        header: clt$type_specification_header,
        default_value: string (7),
      recend,
      type4: record
        header: clt$type_specification_header,
        qualifier: clt$string_type_qualifier,
        default_value: string (3),
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [98, 11, 11, 16, 5, 12, 938],
    clc$command, 9, 5, 2, 0, 0, 0, 5, ''], [
    ['C                              ',clc$abbreviation_entry, 1],
    ['CATALOG                        ',clc$nominal_entry, 1],
    ['F                              ',clc$abbreviation_entry, 2],
    ['FC                             ',clc$abbreviation_entry, 4],
    ['FIELDS                         ',clc$nominal_entry, 2],
    ['FILL_CHARACTER                 ',clc$nominal_entry, 4],
    ['O                              ',clc$abbreviation_entry, 3],
    ['OUTPUT                         ',clc$nominal_entry, 3],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ 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, 67, 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, 9668, clc$required_parameter, 0, 0],
{ PARAMETER 3
    [8, 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 4
    [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, 8, clc$optional_default_parameter, 0, 3],
{ PARAMETER 5
    [9, 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$file_type, clc$keyword_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL_FAMILIES                   ', clc$nominal_entry,
  clc$normal_usage_entry, 1]]
      ],
    3, [[1, 0, clc$file_type]]
    ],
{ PARAMETER 2
    [[1, 0, clc$list_type], [9652, 1, clc$max_list_size, 0, FALSE, FALSE],
      [[1, 0, clc$record_type], [2],
      ['ATTRIBUTE                      ', clc$required_field, 9553], [[1, 0,
  clc$keyword_type], [258], [
        ['A                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 6],
        ['ACCESS_CONTROL_LIST            ', clc$nominal_entry,
  clc$normal_usage_entry, 1],
        ['ACCESS_MODE                    ', clc$alias_entry,
  clc$normal_usage_entry, 3],
        ['ACCESS_MODES                   ', clc$alias_entry,
  clc$normal_usage_entry, 3],
        ['ACCOUNT_PROJECT                ', clc$nominal_entry,
  clc$normal_usage_entry, 2],
        ['ACL                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 1],
        ['ACTUAL_JOB_ACCESS              ', clc$nominal_entry,
  clc$normal_usage_entry, 3],
        ['AEVL                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 7],
        ['AI                             ', clc$alias_entry,
  clc$normal_usage_entry, 87],
        ['AJA                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 3],
        ['AL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 12],
        ['ALS                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 13],
        ['AM                             ', clc$alias_entry,
  clc$normal_usage_entry, 3],
        ['AMD                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 4],
        ['AP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 2],
        ['APPLICATION_INFO               ', clc$alias_entry,
  clc$normal_usage_entry, 87],
        ['APPLICATION_INFORMATION        ', clc$alias_entry,
  clc$normal_usage_entry, 87],
        ['ARCHIVE_MEDIA_DESCRIPTOR       ', clc$nominal_entry,
  clc$normal_usage_entry, 4],
        ['ARCHIVE_TAPE_VSN_LIST          ', clc$nominal_entry,
  clc$normal_usage_entry, 5],
        ['ARL                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 14],
        ['ARVL                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 8],
        ['ATS                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 9],
        ['ATTACHED                       ', clc$nominal_entry,
  clc$normal_usage_entry, 6],
        ['ATTACHED_EXTERNAL_VSN_LIST     ', clc$nominal_entry,
  clc$normal_usage_entry, 7],
        ['ATTACHED_RECORDED_VSN_LIST     ', clc$nominal_entry,
  clc$normal_usage_entry, 8],
        ['ATTACHED_TRANSFER_SIZE         ', clc$nominal_entry,
  clc$normal_usage_entry, 9],
        ['ATTACHED_VOLUME_NUMBER         ', clc$nominal_entry,
  clc$normal_usage_entry, 11],
        ['ATTACHED_VOL_OVERFLOW_ALLOWED  ', clc$nominal_entry,
  clc$normal_usage_entry, 10],
        ['ATTACHMENT_LOG                 ', clc$nominal_entry,
  clc$normal_usage_entry, 12],
        ['ATTACHMENT_LOGGING_SELECTED    ', clc$nominal_entry,
  clc$normal_usage_entry, 13],
        ['ATVL                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 5],
        ['AVERAGE_RECORD_LENGTH          ', clc$nominal_entry,
  clc$normal_usage_entry, 14],
        ['AVN                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 11],
        ['AVOA                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 10],
        ['BLOCK_TYPE                     ', clc$nominal_entry,
  clc$normal_usage_entry, 15],
        ['BT                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 15],
        ['CC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 16],
        ['CDT                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 20],
        ['CF                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 19],
        ['CHARACTER_CONVERSION           ', clc$nominal_entry,
  clc$normal_usage_entry, 16],
        ['CN                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 21],
        ['COLLATE_TABLE_NAME             ', clc$nominal_entry,
  clc$normal_usage_entry, 17],
        ['COMPRESSION_PROCEDURE_NAME     ', clc$nominal_entry,
  clc$normal_usage_entry, 18],
        ['CONNECTED_FILES                ', clc$nominal_entry,
  clc$normal_usage_entry, 19],
        ['CPN                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 18],
        ['CREATION_DATE_TIME             ', clc$nominal_entry,
  clc$normal_usage_entry, 20],
        ['CTN                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 17],
        ['CYCLE_NUMBER                   ', clc$nominal_entry,
  clc$normal_usage_entry, 21],
        ['DATA_PADDING                   ', clc$nominal_entry,
  clc$normal_usage_entry, 22],
        ['DC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 23],
        ['DEVICE_CLASS                   ', clc$nominal_entry,
  clc$normal_usage_entry, 23],
        ['DHBS                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 24],
        ['DP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 22],
        ['DYNAMIC_HOME_BLOCK_SPACE       ', clc$nominal_entry,
  clc$normal_usage_entry, 24],
        ['EC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 29],
        ['ED                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 30],
        ['EEN                            ', clc$alias_entry,
  clc$normal_usage_entry, 26],
        ['EEPN                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 26],
        ['EK                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 25],
        ['EL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 27],
        ['EMBEDDED_KEY                   ', clc$nominal_entry,
  clc$normal_usage_entry, 25],
        ['ERC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 28],
        ['ERROR_EXIT_NAME                ', clc$alias_entry,
  clc$normal_usage_entry, 26],
        ['ERROR_EXIT_PROCEDURE_NAME      ', clc$nominal_entry,
  clc$normal_usage_entry, 26],
        ['ERROR_LIMIT                    ', clc$nominal_entry,
  clc$normal_usage_entry, 27],
        ['ESTIMATED_RECORD_COUNT         ', clc$nominal_entry,
  clc$normal_usage_entry, 28],
        ['EVL                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 31],
        ['EVSNL                          ', clc$alias_entry,
  clc$normal_usage_entry, 31],
        ['EXCEPTION_CONDITION            ', clc$alias_entry,
  clc$normal_usage_entry, 29],
        ['EXCEPTION_CONDITIONS           ', clc$nominal_entry,
  clc$normal_usage_entry, 29],
        ['EXPIRATION_DATE                ', clc$nominal_entry,
  clc$normal_usage_entry, 30],
        ['EXTERNAL_VSN_LIST              ', clc$nominal_entry,
  clc$normal_usage_entry, 31],
        ['F                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 41],
        ['FAP                            ', clc$alias_entry,
  clc$normal_usage_entry, 32],
        ['FAPN                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 32],
        ['FC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 33],
        ['FILE_ACCESS_PROCEDURE          ', clc$alias_entry,
  clc$normal_usage_entry, 32],
        ['FILE_ACCESS_PROCEDURE_NAME     ', clc$nominal_entry,
  clc$normal_usage_entry, 32],
        ['FILE_CONTENT                   ', clc$alias_entry,
  clc$normal_usage_entry, 33],
        ['FILE_CONTENTS                  ', clc$nominal_entry,
  clc$normal_usage_entry, 33],
        ['FILE_LABEL_TYPE                ', clc$nominal_entry,
  clc$normal_usage_entry, 34],
        ['FILE_LIMIT                     ', clc$nominal_entry,
  clc$normal_usage_entry, 35],
        ['FILE_NAME                      ', clc$nominal_entry,
  clc$normal_usage_entry, 36],
        ['FILE_ORGANIZATION              ', clc$nominal_entry,
  clc$normal_usage_entry, 37],
        ['FILE_PREVIOUSLY_OPENED         ', clc$nominal_entry,
  clc$normal_usage_entry, 38],
        ['FILE_PROCESSOR                 ', clc$nominal_entry,
  clc$normal_usage_entry, 39],
        ['FILE_RESIDENCY                 ', clc$nominal_entry,
  clc$normal_usage_entry, 40],
        ['FILE_STRUCTURE                 ', clc$alias_entry,
  clc$normal_usage_entry, 33],
        ['FILL                           ', clc$nominal_entry,
  clc$normal_usage_entry, 41],
        ['FL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 35],
        ['FLT                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 34],
        ['FN                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 36],
        ['FO                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 37],
        ['FORCED_WRITE                   ', clc$nominal_entry,
  clc$normal_usage_entry, 42],
        ['FP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 39],
        ['FPO                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 38],
        ['FR                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 40],
        ['FS                             ', clc$alias_entry,
  clc$normal_usage_entry, 33],
        ['FULL_PATH                      ', clc$nominal_entry,
  clc$normal_usage_entry, 43],
        ['FW                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 42],
        ['GAM                            ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['GFA                            ', clc$alias_entry,
  clc$normal_usage_entry, 49],
        ['GFN                            ', clc$alias_entry,
  clc$normal_usage_entry, 109],
        ['GFP                            ', clc$alias_entry,
  clc$normal_usage_entry, 50],
        ['GLOBAL_ACCESS_MODE             ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['GLOBAL_ACCESS_MODES            ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['GLOBAL_FILE_ADDRESS            ', clc$alias_entry,
  clc$normal_usage_entry, 49],
        ['GLOBAL_FILE_NAME               ', clc$alias_entry,
  clc$normal_usage_entry, 109],
        ['GLOBAL_FILE_POSITION           ', clc$alias_entry,
  clc$normal_usage_entry, 50],
        ['GLOBAL_SHARE_MODE              ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['GLOBAL_SHARE_MODES             ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['GSM                            ', clc$alias_entry,
  clc$normal_usage_entry, 88],
        ['HASHING_PROCEDURE_NAME         ', clc$nominal_entry,
  clc$normal_usage_entry, 44],
        ['HPN                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 44],
        ['IC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 48],
        ['IHBC                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 47],
        ['IL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 45],
        ['INDEX_LEVEL                    ', clc$alias_entry,
  clc$normal_usage_entry, 45],
        ['INDEX_LEVELS                   ', clc$nominal_entry,
  clc$normal_usage_entry, 45],
        ['INDEX_PADDING                  ', clc$nominal_entry,
  clc$normal_usage_entry, 46],
        ['INITIAL_HOME_BLOCK_COUNT       ', clc$nominal_entry,
  clc$normal_usage_entry, 47],
        ['INTERNAL_CODE                  ', clc$nominal_entry,
  clc$normal_usage_entry, 48],
        ['IP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 46],
        ['JFA                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 49],
        ['JFP                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 50],
        ['JIOO                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 51],
        ['JOB_FILE_ADDRESS               ', clc$nominal_entry,
  clc$normal_usage_entry, 49],
        ['JOB_FILE_POSITION              ', clc$nominal_entry,
  clc$normal_usage_entry, 50],
        ['JOB_INSTANCES_OF_OPEN          ', clc$nominal_entry,
  clc$normal_usage_entry, 51],
        ['JOB_WRITE_CONCURRENCY          ', clc$nominal_entry,
  clc$normal_usage_entry, 52],
        ['JWC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 52],
        ['KEY_LENGTH                     ', clc$nominal_entry,
  clc$normal_usage_entry, 53],
        ['KEY_POSITION                   ', clc$nominal_entry,
  clc$normal_usage_entry, 54],
        ['KEY_TYPE                       ', clc$nominal_entry,
  clc$normal_usage_entry, 55],
        ['KL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 53],
        ['KP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 54],
        ['KT                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 55],
        ['L                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 59],
        ['LAC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 60],
        ['LADT                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 56],
        ['LAST_ACCESS_DATE_TIME          ', clc$nominal_entry,
  clc$normal_usage_entry, 56],
        ['LAST_DATA_MODIFICATION_DATE    ', clc$alias_entry,
  clc$normal_usage_entry, 57],
        ['LAST_DATA_MODIFICATION_TIME    ', clc$nominal_entry,
  clc$normal_usage_entry, 57],
        ['LAST_MODIFICATION_DATE_TIME    ', clc$nominal_entry,
  clc$normal_usage_entry, 58],
        ['LDMD                           ', clc$alias_entry,
  clc$normal_usage_entry, 57],
        ['LDMDT                          ', clc$alias_entry,
  clc$normal_usage_entry, 57],
        ['LDMT                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 57],
        ['LET                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 63],
        ['LF                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 62],
        ['LIFETIME                       ', clc$nominal_entry,
  clc$normal_usage_entry, 59],
        ['LIFETIME_ATTACHMENT_COUNT      ', clc$nominal_entry,
  clc$normal_usage_entry, 60],
        ['LINE_NUMBER                    ', clc$nominal_entry,
  clc$normal_usage_entry, 61],
        ['LMDT                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 58],
        ['LN                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 61],
        ['LO                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 65],
        ['LOADING_FACTOR                 ', clc$nominal_entry,
  clc$normal_usage_entry, 62],
        ['LOCK_EXPIRATION_TIME           ', clc$nominal_entry,
  clc$normal_usage_entry, 63],
        ['LOGGING_OPTIONS                ', clc$nominal_entry,
  clc$normal_usage_entry, 65],
        ['LOG_RESIDENCE                  ', clc$nominal_entry,
  clc$normal_usage_entry, 64],
        ['LR                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 64],
        ['MA                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 66],
        ['MAINFRAME_ATTACHMENT           ', clc$nominal_entry,
  clc$normal_usage_entry, 66],
        ['MAINFRAME_WRITE_CONCURRENCY    ', clc$nominal_entry,
  clc$normal_usage_entry, 67],
        ['MASS_STORAGE_ALLOCATION_SIZE   ', clc$nominal_entry,
  clc$normal_usage_entry, 68],
        ['MASS_STORAGE_BYTES_ALLOCATED   ', clc$nominal_entry,
  clc$normal_usage_entry, 69],
        ['MASS_STORAGE_CLASS             ', clc$nominal_entry,
  clc$normal_usage_entry, 70],
        ['MASS_STORAGE_FREE_BEHIND       ', clc$nominal_entry,
  clc$normal_usage_entry, 71],
        ['MASS_STORAGE_INITIAL_VOLUME    ', clc$nominal_entry,
  clc$normal_usage_entry, 72],
        ['MASS_STORAGE_SEQUENTIAL_ACCESS ', clc$nominal_entry,
  clc$normal_usage_entry, 73],
        ['MASS_STORAGE_TRANSFER_SIZE     ', clc$nominal_entry,
  clc$normal_usage_entry, 74],
        ['MAXBL                          ', clc$abbreviation_entry,
  clc$normal_usage_entry, 75],
        ['MAXIMUM_BLOCK_LENGTH           ', clc$nominal_entry,
  clc$normal_usage_entry, 75],
        ['MAXIMUM_RECORD_LENGTH          ', clc$nominal_entry,
  clc$normal_usage_entry, 76],
        ['MAXRL                          ', clc$abbreviation_entry,
  clc$normal_usage_entry, 76],
        ['MC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 77],
        ['MESSAGE_CONTROL                ', clc$nominal_entry,
  clc$normal_usage_entry, 77],
        ['MINBL                          ', clc$abbreviation_entry,
  clc$normal_usage_entry, 78],
        ['MINIMUM_BLOCK_LENGTH           ', clc$nominal_entry,
  clc$normal_usage_entry, 78],
        ['MINIMUM_RECORD_LENGTH          ', clc$nominal_entry,
  clc$normal_usage_entry, 79],
        ['MINRL                          ', clc$abbreviation_entry,
  clc$normal_usage_entry, 79],
        ['MSAS                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 68],
        ['MSBA                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 69],
        ['MSC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 70],
        ['MSFB                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 71],
        ['MSIV                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 72],
        ['MSSA                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 73],
        ['MSTS                           ', clc$abbreviation_entry,
  clc$normal_usage_entry, 74],
        ['MWC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 67],
        ['OP                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 80],
        ['OPEN_POSITION                  ', clc$nominal_entry,
  clc$normal_usage_entry, 80],
        ['P                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 86],
        ['PA                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 87],
        ['PADDING_CHARACTER              ', clc$nominal_entry,
  clc$normal_usage_entry, 81],
        ['PAGE_FORMAT                    ', clc$nominal_entry,
  clc$normal_usage_entry, 82],
        ['PAGE_LENGTH                    ', clc$nominal_entry,
  clc$normal_usage_entry, 83],
        ['PAGE_WIDTH                     ', clc$nominal_entry,
  clc$normal_usage_entry, 84],
        ['PASSWORD                       ', clc$nominal_entry,
  clc$normal_usage_entry, 85],
        ['PATH                           ', clc$nominal_entry,
  clc$normal_usage_entry, 86],
        ['PC                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 81],
        ['PERMANENT                      ', clc$alias_entry,
  clc$normal_usage_entry, 59],
        ['PERMITTED_ACCESS               ', clc$nominal_entry,
  clc$normal_usage_entry, 87],
        ['PF                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 82],
        ['PJA                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 88],
        ['PL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 83],
        ['POTENTIAL_JOB_ACCESS           ', clc$nominal_entry,
  clc$normal_usage_entry, 88],
        ['PR                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 90],
        ['PRESET_VALUE                   ', clc$nominal_entry,
  clc$normal_usage_entry, 89],
        ['PRIVATE_READ                   ', clc$nominal_entry,
  clc$normal_usage_entry, 90],
        ['PV                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 89],
        ['PW                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 84],
        ['R                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 96],
        ['RA                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 99],
        ['RDC                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 91],
        ['RECORDED_VSN_LIST              ', clc$nominal_entry,
  clc$normal_usage_entry, 94],
        ['RECORDS_PER_BLOCK              ', clc$nominal_entry,
  clc$normal_usage_entry, 95],
        ['RECORD_DELIMITING_CHARACTER    ', clc$nominal_entry,
  clc$normal_usage_entry, 91],
        ['RECORD_LIMIT                   ', clc$nominal_entry,
  clc$normal_usage_entry, 92],
        ['RECORD_TYPE                    ', clc$nominal_entry,
  clc$normal_usage_entry, 93],
        ['REGISTERED                     ', clc$nominal_entry,
  clc$normal_usage_entry, 96],
        ['REMOVABLE_MEDIA_GROUP          ', clc$nominal_entry,
  clc$normal_usage_entry, 97],
        ['RETRIEVE_OPTION                ', clc$nominal_entry,
  clc$normal_usage_entry, 98],
        ['RING_ATTRIBUTE                 ', clc$alias_entry,
  clc$normal_usage_entry, 99],
        ['RING_ATTRIBUTES                ', clc$nominal_entry,
  clc$normal_usage_entry, 99],
        ['RL                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 92],
        ['RMG                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 97],
        ['RO                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 98],
        ['RPB                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 95],
        ['RT                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 93],
        ['RVL                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 94],
        ['RVSNL                          ', clc$alias_entry,
  clc$normal_usage_entry, 94],
        ['S                              ', clc$abbreviation_entry,
  clc$normal_usage_entry, 106],
        ['SAO                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 103],
        ['SBO                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 104],
        ['SECONDARY_RESIDENCE            ', clc$nominal_entry,
  clc$normal_usage_entry, 100],
        ['SET_NAME                       ', clc$nominal_entry,
  clc$normal_usage_entry, 101],
        ['SHARED_QUEUE                   ', clc$nominal_entry,
  clc$normal_usage_entry, 102],
        ['SI                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 107],
        ['SITE_ARCHIVE_OPTION            ', clc$nominal_entry,
  clc$normal_usage_entry, 103],
        ['SITE_BACKUP_OPTION             ', clc$nominal_entry,
  clc$normal_usage_entry, 104],
        ['SITE_RELEASE_OPTION            ', clc$nominal_entry,
  clc$normal_usage_entry, 105],
        ['SIZE                           ', clc$nominal_entry,
  clc$normal_usage_entry, 106],
        ['SN                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 101],
        ['SQ                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 102],
        ['SR                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 100],
        ['SRO                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 105],
        ['STATEMENT_IDENTIFIER           ', clc$nominal_entry,
  clc$normal_usage_entry, 107],
        ['TAPE_DENSITY                   ', clc$nominal_entry,
  clc$normal_usage_entry, 108],
        ['TD                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 108],
        ['UDN                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 109],
        ['UI                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 111],
        ['UN                             ', clc$abbreviation_entry,
  clc$normal_usage_entry, 110],
        ['UNIQUE_DATA_NAME               ', clc$nominal_entry,
  clc$normal_usage_entry, 109],
        ['UNIQUE_NAME                    ', clc$nominal_entry,
  clc$normal_usage_entry, 110],
        ['USER_INFORMATION               ', clc$nominal_entry,
  clc$normal_usage_entry, 111],
        ['VERTICAL_PRINT_DENSITY         ', clc$nominal_entry,
  clc$normal_usage_entry, 112],
        ['VOA                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 113],
        ['VOLUME_OVERFLOW_ALLOWED        ', clc$nominal_entry,
  clc$normal_usage_entry, 113],
        ['VPD                            ', clc$abbreviation_entry,
  clc$normal_usage_entry, 112]]
        ],
      ['FIELD_WIDTH                    ', clc$optional_field, 20], [[1, 0,
  clc$integer_type], [1, 511, 10]]
      ]
    ],
{ PARAMETER 3
    [[1, 0, clc$file_type],
    '$output'],
{ PARAMETER 4
    [[1, 0, clc$string_type], [1, 1, FALSE],
    ''' '''],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$catalog = 1,
      p$fields = 2,
      p$output = 3,
      p$fill_character = 4,
      p$status = 5;

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