{ PROCEDURE (osm$vedu_creijd) create_initiated_job_display, creijd (
{   name, n: name = $required
{   alias, a: (BY_NAME) name = $optional
{   same_as, sa: (BY_NAME) name = $optional
{   fields, field, f: (BY_NAME) list of record
{       field_name: key
{         (active_io_pages, aip)
{         (active_io_requests, air)
{         (ajl_ordinal, ajlo, ao)
{         (cpu_time_increment, cti)
{         (cpu_time_job, ctj)
{         (cpu_time_monitor, ctm)
{         (cpu_time_total, ctt)
{         (dispatching_priority, dp)
{         (dispatching_priority_actual, dpa)
{         (display_message, dm, command, c)
{         (fill, f)
{         (guaranteed_service_remaining, gsr)
{         (hung_task, ht)
{         (ijl_ordinal, ijlo, io)
{         (job_abort_disposition, jad)
{         (job_class, jc)
{         (job_entry_status, jes)
{         (job_mode, jm)
{         (job_priority, jp)
{         (job_recovery_disposition, jrd)
{         (job_status, js)
{         (job_swap_count, jsc)
{         (last_think_time, ltt)
{         (memory_pages, mp)
{         (page_fault_count, pfc)
{         (page_in, pi)
{         (pages_assigned, pa)
{         (pages_server, ps)
{         (pages_reclaimed, pr)
{         (percent_cpu_usage, pcu)
{         (permanent_file_space, pfs)
{         (ready_task_count, rtc)
{         (service_accumulator, sa)
{         (service_class, sc)
{         (service_since_swap, sss)
{         (system_job_name, sjn)
{         (system_job_name_long, sjnl)
{         (system_job_name_short, sjns)
{         (swap_entry_status, ses)
{         (swap_in_wait_time, siwt)
{         (swap_reason, sr)
{         (swap_status, ss)
{         (temporary_file_space, tfs)
{         (terminal_name, tn)
{         (think_time, tt)
{         (thrashing_flag, tf)
{         (time_in_swap_state, tiss)
{         (user_job_name, ujn)
{         (working_set_size, wss)
{       keyend
{       field_width: integer 1..130 = $optional
{       field_title: string 1..31 = $optional
{       scale: integer 1..1000000000 = $optional
{       field_overflow_action: key
{         (scale, s)
{         (maximum, max)
{         (asterisk, a)
{       keyend = $optional
{       numeric_display_mode: key
{         (incremental, i)
{         (total, t)
{       keyend = $optional
{       field_selection: key
{         (unconditional, u)
{         (active, a)
{         (swapped, s)
{       keyend = $optional
{       non_selection_action: key
{         (skip, s)
{         (blank, b)
{       keyend = $optional
{     recend = $optional
{   job_selection, js: (BY_NAME) key
{       (active, a)
{       (initiated, i)
{     keyend = active
{   jobs_per_line, jpl: (BY_NAME) integer 1..130 = 1
{   display_system_line, dsl: (BY_NAME) boolean = false
{   display_blank_lines, dbl: (BY_NAME) boolean = false
{   title, t: (BY_NAME) string 1..130 = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 20] of clt$pdt_parameter_name,
      parameters: array [1 .. 10] of clt$pdt_parameter,
      type1: record
        header: clt$type_specification_header,
        qualifier: clt$name_type_qualifier,
      recend,
      type2: record
        header: clt$type_specification_header,
        qualifier: clt$name_type_qualifier,
      recend,
      type3: record
        header: clt$type_specification_header,
        qualifier: clt$name_type_qualifier,
      recend,
      type4: 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 .. 102] 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,
          field_spec_3: clt$field_specification,
          element_type_spec_3: record
            header: clt$type_specification_header,
            qualifier: clt$string_type_qualifier,
          recend,
          field_spec_4: clt$field_specification,
          element_type_spec_4: record
            header: clt$type_specification_header,
            qualifier: clt$integer_type_qualifier,
          recend,
          field_spec_5: clt$field_specification,
          element_type_spec_5: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 6] of clt$keyword_specification,
          recend,
          field_spec_6: clt$field_specification,
          element_type_spec_6: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 4] of clt$keyword_specification,
          recend,
          field_spec_7: clt$field_specification,
          element_type_spec_7: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 6] of clt$keyword_specification,
          recend,
          field_spec_8: clt$field_specification,
          element_type_spec_8: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 4] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type5: record
        header: clt$type_specification_header,
        qualifier: clt$keyword_type_qualifier,
        keyword_specs: array [1 .. 4] of clt$keyword_specification,
        default_value: string (6),
      recend,
      type6: record
        header: clt$type_specification_header,
        qualifier: clt$integer_type_qualifier,
        default_value: string (1),
      recend,
      type7: record
        header: clt$type_specification_header,
        default_value: string (5),
      recend,
      type8: record
        header: clt$type_specification_header,
        default_value: string (5),
      recend,
      type9: record
        header: clt$type_specification_header,
        qualifier: clt$string_type_qualifier,
      recend,
      type10: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 6, 17, 10, 41, 40, 698],
    clc$command, 20, 10, 1, 0, 0, 0, 10, 'OSM$VEDU_CREIJD'], [
    ['A                              ',clc$abbreviation_entry, 2],
    ['ALIAS                          ',clc$nominal_entry, 2],
    ['DBL                            ',clc$abbreviation_entry, 8],
    ['DISPLAY_BLANK_LINES            ',clc$nominal_entry, 8],
    ['DISPLAY_SYSTEM_LINE            ',clc$nominal_entry, 7],
    ['DSL                            ',clc$abbreviation_entry, 7],
    ['F                              ',clc$abbreviation_entry, 4],
    ['FIELD                          ',clc$alias_entry, 4],
    ['FIELDS                         ',clc$nominal_entry, 4],
    ['JOBS_PER_LINE                  ',clc$nominal_entry, 6],
    ['JOB_SELECTION                  ',clc$nominal_entry, 5],
    ['JPL                            ',clc$abbreviation_entry, 6],
    ['JS                             ',clc$abbreviation_entry, 5],
    ['N                              ',clc$abbreviation_entry, 1],
    ['NAME                           ',clc$nominal_entry, 1],
    ['SA                             ',clc$abbreviation_entry, 3],
    ['SAME_AS                        ',clc$nominal_entry, 3],
    ['STATUS                         ',clc$nominal_entry, 10],
    ['T                              ',clc$abbreviation_entry, 9],
    ['TITLE                          ',clc$nominal_entry, 9]],
    [
{ PARAMETER 1
    [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, 5, clc$required_parameter, 0
  , 0],
{ PARAMETER 2
    [2, clc$normal_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, 5, clc$optional_parameter, 0
  , 0],
{ PARAMETER 3
    [17, clc$normal_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, 5, clc$optional_parameter, 0
  , 0],
{ PARAMETER 4
    [9, clc$normal_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, 4908,
  clc$optional_parameter, 0, 0],
{ PARAMETER 5
    [11, clc$normal_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, 155,
  clc$optional_default_parameter, 0, 6],
{ PARAMETER 6
    [10, clc$normal_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, 20,
  clc$optional_default_parameter, 0, 1],
{ PARAMETER 7
    [5, clc$normal_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, 3,
  clc$optional_default_parameter, 0, 5],
{ PARAMETER 8
    [4, clc$normal_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, 3,
  clc$optional_default_parameter, 0, 5],
{ PARAMETER 9
    [20, clc$normal_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, 8, clc$optional_parameter, 0
  , 0],
{ PARAMETER 10
    [18, 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$name_type], [1, osc$max_name_size]],
{ PARAMETER 2
    [[1, 0, clc$name_type], [1, osc$max_name_size]],
{ PARAMETER 3
    [[1, 0, clc$name_type], [1, osc$max_name_size]],
{ PARAMETER 4
    [[1, 0, clc$list_type], [4892, 1, clc$max_list_size, 0, FALSE, FALSE],
      [[1, 0, clc$record_type], [8],
      ['FIELD_NAME                     ', clc$required_field, 3781], [[1, 0, clc$keyword_type], [102], [
        ['ACTIVE_IO_PAGES                ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['ACTIVE_IO_REQUESTS             ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['AIP                            ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['AIR                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['AJLO                           ', clc$alias_entry, clc$normal_usage_entry, 3],
        ['AJL_ORDINAL                    ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['AO                             ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
        ['COMMAND                        ', clc$alias_entry, clc$normal_usage_entry, 10],
        ['CPU_TIME_INCREMENT             ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['CPU_TIME_JOB                   ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['CPU_TIME_MONITOR               ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['CPU_TIME_TOTAL                 ', clc$nominal_entry, clc$normal_usage_entry, 7],
        ['CTI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['CTJ                            ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['CTM                            ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CTT                            ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
        ['DISPATCHING_PRIORITY           ', clc$nominal_entry, clc$normal_usage_entry, 8],
        ['DISPATCHING_PRIORITY_ACTUAL    ', clc$nominal_entry, clc$normal_usage_entry, 9],
        ['DISPLAY_MESSAGE                ', clc$nominal_entry, clc$normal_usage_entry, 10],
        ['DM                             ', clc$alias_entry, clc$normal_usage_entry, 10],
        ['DP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
        ['DPA                            ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
        ['F                              ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
        ['FILL                           ', clc$nominal_entry, clc$normal_usage_entry, 11],
        ['GSR                            ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
        ['GUARANTEED_SERVICE_REMAINING   ', clc$nominal_entry, clc$normal_usage_entry, 12],
        ['HT                             ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
        ['HUNG_TASK                      ', clc$nominal_entry, clc$normal_usage_entry, 13],
        ['IJLO                           ', clc$alias_entry, clc$normal_usage_entry, 14],
        ['IJL_ORDINAL                    ', clc$nominal_entry, clc$normal_usage_entry, 14],
        ['IO                             ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
        ['JAD                            ', clc$abbreviation_entry, clc$normal_usage_entry, 15],
        ['JC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 16],
        ['JES                            ', clc$abbreviation_entry, clc$normal_usage_entry, 17],
        ['JM                             ', clc$abbreviation_entry, clc$normal_usage_entry, 18],
        ['JOB_ABORT_DISPOSITION          ', clc$nominal_entry, clc$normal_usage_entry, 15],
        ['JOB_CLASS                      ', clc$nominal_entry, clc$normal_usage_entry, 16],
        ['JOB_ENTRY_STATUS               ', clc$nominal_entry, clc$normal_usage_entry, 17],
        ['JOB_MODE                       ', clc$nominal_entry, clc$normal_usage_entry, 18],
        ['JOB_PRIORITY                   ', clc$nominal_entry, clc$normal_usage_entry, 19],
        ['JOB_RECOVERY_DISPOSITION       ', clc$nominal_entry, clc$normal_usage_entry, 20],
        ['JOB_STATUS                     ', clc$nominal_entry, clc$normal_usage_entry, 21],
        ['JOB_SWAP_COUNT                 ', clc$nominal_entry, clc$normal_usage_entry, 22],
        ['JP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 19],
        ['JRD                            ', clc$abbreviation_entry, clc$normal_usage_entry, 20],
        ['JS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 21],
        ['JSC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 22],
        ['LAST_THINK_TIME                ', clc$nominal_entry, clc$normal_usage_entry, 23],
        ['LTT                            ', clc$abbreviation_entry, clc$normal_usage_entry, 23],
        ['MEMORY_PAGES                   ', clc$nominal_entry, clc$normal_usage_entry, 24],
        ['MP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 24],
        ['PA                             ', clc$abbreviation_entry, clc$normal_usage_entry, 27],
        ['PAGES_ASSIGNED                 ', clc$nominal_entry, clc$normal_usage_entry, 27],
        ['PAGES_RECLAIMED                ', clc$nominal_entry, clc$normal_usage_entry, 29],
        ['PAGES_SERVER                   ', clc$nominal_entry, clc$normal_usage_entry, 28],
        ['PAGE_FAULT_COUNT               ', clc$nominal_entry, clc$normal_usage_entry, 25],
        ['PAGE_IN                        ', clc$nominal_entry, clc$normal_usage_entry, 26],
        ['PCU                            ', clc$abbreviation_entry, clc$normal_usage_entry, 30],
        ['PERCENT_CPU_USAGE              ', clc$nominal_entry, clc$normal_usage_entry, 30],
        ['PERMANENT_FILE_SPACE           ', clc$nominal_entry, clc$normal_usage_entry, 31],
        ['PFC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 25],
        ['PFS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 31],
        ['PI                             ', clc$abbreviation_entry, clc$normal_usage_entry, 26],
        ['PR                             ', clc$abbreviation_entry, clc$normal_usage_entry, 29],
        ['PS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 28],
        ['READY_TASK_COUNT               ', clc$nominal_entry, clc$normal_usage_entry, 32],
        ['RTC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 32],
        ['SA                             ', clc$abbreviation_entry, clc$normal_usage_entry, 33],
        ['SC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 34],
        ['SERVICE_ACCUMULATOR            ', clc$nominal_entry, clc$normal_usage_entry, 33],
        ['SERVICE_CLASS                  ', clc$nominal_entry, clc$normal_usage_entry, 34],
        ['SERVICE_SINCE_SWAP             ', clc$nominal_entry, clc$normal_usage_entry, 35],
        ['SES                            ', clc$abbreviation_entry, clc$normal_usage_entry, 39],
        ['SIWT                           ', clc$abbreviation_entry, clc$normal_usage_entry, 40],
        ['SJN                            ', clc$abbreviation_entry, clc$normal_usage_entry, 36],
        ['SJNL                           ', clc$abbreviation_entry, clc$normal_usage_entry, 37],
        ['SJNS                           ', clc$abbreviation_entry, clc$normal_usage_entry, 38],
        ['SR                             ', clc$abbreviation_entry, clc$normal_usage_entry, 41],
        ['SS                             ', clc$abbreviation_entry, clc$normal_usage_entry, 42],
        ['SSS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 35],
        ['SWAP_ENTRY_STATUS              ', clc$nominal_entry, clc$normal_usage_entry, 39],
        ['SWAP_IN_WAIT_TIME              ', clc$nominal_entry, clc$normal_usage_entry, 40],
        ['SWAP_REASON                    ', clc$nominal_entry, clc$normal_usage_entry, 41],
        ['SWAP_STATUS                    ', clc$nominal_entry, clc$normal_usage_entry, 42],
        ['SYSTEM_JOB_NAME                ', clc$nominal_entry, clc$normal_usage_entry, 36],
        ['SYSTEM_JOB_NAME_LONG           ', clc$nominal_entry, clc$normal_usage_entry, 37],
        ['SYSTEM_JOB_NAME_SHORT          ', clc$nominal_entry, clc$normal_usage_entry, 38],
        ['TEMPORARY_FILE_SPACE           ', clc$nominal_entry, clc$normal_usage_entry, 43],
        ['TERMINAL_NAME                  ', clc$nominal_entry, clc$normal_usage_entry, 44],
        ['TF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 46],
        ['TFS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 43],
        ['THINK_TIME                     ', clc$nominal_entry, clc$normal_usage_entry, 45],
        ['THRASHING_FLAG                 ', clc$nominal_entry, clc$normal_usage_entry, 46],
        ['TIME_IN_SWAP_STATE             ', clc$nominal_entry, clc$normal_usage_entry, 47],
        ['TISS                           ', clc$abbreviation_entry, clc$normal_usage_entry, 47],
        ['TN                             ', clc$abbreviation_entry, clc$normal_usage_entry, 44],
        ['TT                             ', clc$abbreviation_entry, clc$normal_usage_entry, 45],
        ['UJN                            ', clc$abbreviation_entry, clc$normal_usage_entry, 48],
        ['USER_JOB_NAME                  ', clc$nominal_entry, clc$normal_usage_entry, 48],
        ['WORKING_SET_SIZE               ', clc$nominal_entry, clc$normal_usage_entry, 49],
        ['WSS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 49]]
        ],
      ['FIELD_WIDTH                    ', clc$optional_field, 20], [[1, 0, clc$integer_type], [1, 130, 10]],
      ['FIELD_TITLE                    ', clc$optional_field, 8], [[1, 0, clc$string_type], [1, 31, FALSE]],
      ['SCALE                          ', clc$optional_field, 20], [[1, 0, clc$integer_type], [1, 1000000000,
  10]],
      ['FIELD_OVERFLOW_ACTION          ', clc$optional_field, 229], [[1, 0, clc$keyword_type], [6], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['ASTERISK                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['MAX                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['MAXIMUM                        ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['SCALE                          ', clc$nominal_entry, clc$normal_usage_entry, 1]]
        ],
      ['NUMERIC_DISPLAY_MODE           ', clc$optional_field, 155], [[1, 0, clc$keyword_type], [4], [
        ['I                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['INCREMENTAL                    ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['T                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['TOTAL                          ', clc$nominal_entry, clc$normal_usage_entry, 2]]
        ],
      ['FIELD_SELECTION                ', clc$optional_field, 229], [[1, 0, clc$keyword_type], [6], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['ACTIVE                         ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['SWAPPED                        ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['U                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['UNCONDITIONAL                  ', clc$nominal_entry, clc$normal_usage_entry, 1]]
        ],
      ['NON_SELECTION_ACTION           ', clc$optional_field, 155], [[1, 0, clc$keyword_type], [4], [
        ['B                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['BLANK                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['SKIP                           ', clc$nominal_entry, clc$normal_usage_entry, 1]]
        ]
      ]
    ],
{ PARAMETER 5
    [[1, 0, clc$keyword_type], [4], [
    ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
    ['ACTIVE                         ', clc$nominal_entry, clc$normal_usage_entry, 1],
    ['I                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
    ['INITIATED                      ', clc$nominal_entry, clc$normal_usage_entry, 2]]
    ,
    'active'],
{ PARAMETER 6
    [[1, 0, clc$integer_type], [1, 130, 10],
    '1'],
{ PARAMETER 7
    [[1, 0, clc$boolean_type],
    'false'],
{ PARAMETER 8
    [[1, 0, clc$boolean_type],
    'false'],
{ PARAMETER 9
    [[1, 0, clc$string_type], [1, 130, FALSE]],
{ PARAMETER 10
    [[1, 0, clc$status_type]]];

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

    CONST
      p$name = 1,
      p$alias = 2,
      p$same_as = 3,
      p$fields = 4,
      p$job_selection = 5,
      p$jobs_per_line = 6,
      p$display_system_line = 7,
      p$display_blank_lines = 8,
      p$title = 9,
      p$status = 10;

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