?? NEWTITLE := 'NOS/VE Job Scheduling : Profile Display Commands' ??
MODULE jmm$profile_display_commands;
?? RIGHT := 110 ??

{ PURPOSE:
{   This module defines the commands used to display objects on the profile.
{   It is used by ADMINISTER_SCHEDULING and MANAGE_ACTIVE_SCHEDLING to
{   process the commands -
{
{    display_application in MANAGE_ACTIVE_SCHEDULING or
{      display_attributes in ADMINISTER_APPLICATION.
{
{    display_controls in MANAGE_ACTIVE_SCHEDULING or
{      display_attributes in ADMINISTER_CONTROLS.
{
{    display_job_class in MANAGE_ACTIVE_SCHEDULING or
{      display_attributes in ADMINISTER_JOB_CLASS.
{
{    display_service_class in MANAGE_ACTIVE_SCHEDULING or
{      display_attributes in ADMINISTER_SERVICE_CLASS.
{
{    display_output_class in MANAGE_ACTIVE_SCHEDULING or
{      display_attributes in ADMINISTER_OUTPUT_CLASS.
{
{    display_job_categories in MANAGE_ACTIVE_SCHEDULING and
{      administer_scheduling.
{
{    display_job priorities in MANAGE_ACTIVE_SCHEDULING and
{      administer_scheduling.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc jmc$job_management_id
*copyc jme$object_display_errors
?? POP ??
*copyc clp$evaluate_parameters
*copyc jmp$display_objects
*copyc jmp$get_object_list

*copyc jmv$current_profile_level
?? OLDTITLE ??
?? NEWTITLE := '[XDCL] jmp$_display_application ', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_ATTRIBUTE command in ADMINISTER_SCHEDULING or
{   the DISPLAY_APPLICATION command in MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the applications to display and display their attribute values.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_application
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disa) display_application (
{   application_name, application_names, an: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_application
{   display_option, display_options, do: any of
{       key
{         all
{       keyend
{       list of key
{         (cyclic_aging_interval, cai)
{         (enable_application_scheduling, eas)
{         (maximum_working_set, maxws)
{         (minimum_working_set, minws)
{         (page_aging_interval, pai)
{         (service_class, sc)
{       hidden_key
{         (definition_name, dn)
{       keyend
{     anyend = all
{   group_option, group_options, go: any of
{       key
{         all
{       keyend
{       list of key
{         (membership, m)
{         (limit, l)
{         (priority, p)
{         (statistic, s)
{         (definition, d)
{         (control, c)
{       keyend
{     anyend = $optional
{   output, o: (BY_NAME) file = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 12] 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (20),
      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 .. 1] 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 .. 14] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (3),
      recend,
      type3: 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 12] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 17, 58, 246],
    clc$command, 12, 5, 0, 0, 0, 0, 5, 'OSM$MANAS_DISA'], [
    ['AN                             ',clc$abbreviation_entry, 1],
    ['APPLICATION_NAME               ',clc$nominal_entry, 1],
    ['APPLICATION_NAMES              ',clc$alias_entry, 1],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['GO                             ',clc$abbreviation_entry, 3],
    ['GROUP_OPTION                   ',clc$nominal_entry, 3],
    ['GROUP_OPTIONS                  ',clc$alias_entry, 3],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['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, 85,
  clc$optional_default_parameter, 0, 20],
{ PARAMETER 2
    [4, 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, 605,
  clc$optional_default_parameter, 0, 3],
{ 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, 531,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [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, 3, clc$optional_parameter, 0
  , 0],
{ PARAMETER 5
    [12, 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],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_application'],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    541, [[1, 0, clc$list_type], [525, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [14], [
        ['CAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['CYCLIC_AGING_INTERVAL          ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['DEFINITION_NAME                ', clc$nominal_entry, clc$hidden_entry, 7],
        ['DN                             ', clc$abbreviation_entry, clc$hidden_entry, 7],
        ['EAS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['ENABLE_APPLICATION_SCHEDULING  ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['MAXIMUM_WORKING_SET            ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['MAXWS                          ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['MINIMUM_WORKING_SET            ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['MINWS                          ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['PAGE_AGING_INTERVAL            ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['PAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['SC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['SERVICE_CLASS                  ', clc$nominal_entry, clc$normal_usage_entry, 6]]
        ]
      ]
    ,
    'all'],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CONTROL                        ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DEFINITION                     ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['L                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['LIMIT                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['M                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['MEMBERSHIP                     ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['PRIORITY                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['STATISTIC                      ', clc$nominal_entry, clc$normal_usage_entry, 4]]
        ]
      ]
    ],
{ PARAMETER 4
    [[1, 0, clc$file_type]],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$application_name = 1,
      p$display_option = 2,
      p$group_option = 3,
      p$output = 4,
      p$status = 5;

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

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_application;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    jmp$display_objects (jmc$profile_application, FALSE, pvt [p$application_name], pvt [p$display_option],
          pvt [p$group_option], pvt [p$output], status);

  PROCEND jmp$_display_application;
?? TITLE := '[XDCL] jmp$_display_controls ', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_ATTRIBUTE command of ADMINISTER_SCHEDULING and
{   the DISPLAY_CONTROLS command of MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the controls to display and display their attribute values.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_controls
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disc) display_controls (
{   mainframe_name, controls_name, controls_names, mainframe_names, mn, cn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_mainframe
{   display_option, display_options, do: any of
{       key
{         all
{       keyend
{       list of key
{         (abbreviation, a)
{         (cpu_dispatching_allocation, cda)
{         (cpu_dispatching_interval, cdi)
{         (cpu_quantum_time, cqt)
{         (dual_state_priority_control, dspc)
{         (enable_job_leveling, ejl)
{         (idle_dispatching_queue_time, idqt)
{         (initiation_excluded_categories, iec)
{         (initiation_required_categories, irc)
{         (job_leveling_interval, jli)
{         (job_leveling_priority_bias, jlpb)
{         (scheduling_memory_levels, sml)
{         (service_calculation_interval, sci)
{         (validation_excluded_categories, vec)
{         (validation_required_categories, vrc)
{       hidden_key
{         (profile_identification, pi)
{       keyend
{     anyend = all
{   group_option, group_options, go: any of
{       key
{         all
{       keyend
{       list of key
{         (membership, m)
{         (limit, l)
{         (priority, p)
{         (statistic, s)
{         (definition, d)
{         (control, c)
{       keyend
{     anyend = $optional
{   output, o: (BY_NAME) file = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 15] 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (18),
      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 .. 1] 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 .. 32] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (3),
      recend,
      type3: 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 12] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 18, 10, 90],
    clc$command, 15, 5, 0, 0, 0, 0, 5, 'OSM$MANAS_DISC'], [
    ['CN                             ',clc$abbreviation_entry, 1],
    ['CONTROLS_NAME                  ',clc$alias_entry, 1],
    ['CONTROLS_NAMES                 ',clc$alias_entry, 1],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['GO                             ',clc$abbreviation_entry, 3],
    ['GROUP_OPTION                   ',clc$nominal_entry, 3],
    ['GROUP_OPTIONS                  ',clc$alias_entry, 3],
    ['MAINFRAME_NAME                 ',clc$nominal_entry, 1],
    ['MAINFRAME_NAMES                ',clc$alias_entry, 1],
    ['MN                             ',clc$alias_entry, 1],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ PARAMETER 1
    [10, 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, 85,
  clc$optional_default_parameter, 0, 18],
{ PARAMETER 2
    [4, 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, 1271,
  clc$optional_default_parameter, 0, 3],
{ 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, 531,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [14, 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_parameter, 0
  , 0],
{ PARAMETER 5
    [15, 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],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_mainframe'],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    1207, [[1, 0, clc$list_type], [1191, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [32], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['ABBREVIATION                   ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['CDA                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['CDI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['CPU_DISPATCHING_ALLOCATION     ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['CPU_DISPATCHING_INTERVAL       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['CPU_QUANTUM_TIME               ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['CQT                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['DSPC                           ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DUAL_STATE_PRIORITY_CONTROL    ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['EJL                            ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['ENABLE_JOB_LEVELING            ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['IDLE_DISPATCHING_QUEUE_TIME    ', clc$nominal_entry, clc$normal_usage_entry, 7],
        ['IDQT                           ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
        ['IEC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
        ['INITIATION_EXCLUDED_CATEGORIES ', clc$nominal_entry, clc$normal_usage_entry, 8],
        ['INITIATION_REQUIRED_CATEGORIES ', clc$nominal_entry, clc$normal_usage_entry, 9],
        ['IRC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
        ['JLI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
        ['JLPB                           ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
        ['JOB_LEVELING_INTERVAL          ', clc$nominal_entry, clc$normal_usage_entry, 10],
        ['JOB_LEVELING_PRIORITY_BIAS     ', clc$nominal_entry, clc$normal_usage_entry, 11],
        ['PI                             ', clc$abbreviation_entry, clc$hidden_entry, 16],
        ['PROFILE_IDENTIFICATION         ', clc$nominal_entry, clc$hidden_entry, 16],
        ['SCHEDULING_MEMORY_LEVELS       ', clc$nominal_entry, clc$normal_usage_entry, 12],
        ['SCI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
        ['SERVICE_CALCULATION_INTERVAL   ', clc$nominal_entry, clc$normal_usage_entry, 13],
        ['SML                            ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
        ['VALIDATION_EXCLUDED_CATEGORIES ', clc$nominal_entry, clc$normal_usage_entry, 14],
        ['VALIDATION_REQUIRED_CATEGORIES ', clc$nominal_entry, clc$normal_usage_entry, 15],
        ['VEC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
        ['VRC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 15]]
        ]
      ]
    ,
    'all'],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CONTROL                        ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DEFINITION                     ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['L                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['LIMIT                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['M                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['MEMBERSHIP                     ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['PRIORITY                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['STATISTIC                      ', clc$nominal_entry, clc$normal_usage_entry, 4]]
        ]
      ]
    ],
{ PARAMETER 4
    [[1, 0, clc$file_type]],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$mainframe_name = 1,
      p$display_option = 2,
      p$group_option = 3,
      p$output = 4,
      p$status = 5;

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

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_controls;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    jmp$display_objects (jmc$profile_controls, FALSE, pvt [p$mainframe_name], pvt [p$display_option],
          pvt [p$group_option], pvt [p$output], status);

  PROCEND jmp$_display_controls;
?? TITLE := '[XDCL] jmp$_display_job_class', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_ATTRIBUTE command of ADMINISTER_JOB_CLASS and
{   the DISPLAY_JOB_CLASS command of MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the job classes to display and display their attribute values.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_job_class
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disjcl) display_job_class (
{   class_name, class_names, cn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_job_class
{   display_option, display_options, do: any of
{       key
{         all
{       keyend
{       list of key
{         (abbreviation, a)
{         (automatic_class_selection, acs)
{         (cpu_time_limit, ctl)
{         (cyclic_aging_interval, cai)
{         (defer_on_submit, dos)
{         (detached_job_wait_time, djwt)
{         (enable_class_initiation, eci)
{         (epilog, e)
{         (excluded_categories, ec)
{         (immediate_initiation_candidate, iic)
{         (initial_service_class, isc)
{         (initial_working_set, iws)
{         (initiated_jobs, ij)
{         (initiation_age_interval, iai)
{         (initiation_level, il)
{         (job_leveling_priority_bias, jlpb)
{         (magnetic_tape_limit, mtl)
{         (maximum_working_set, maxws)
{         (minimum_working_set, minws)
{         (multiple_job_bias, mjb)
{         (page_aging_interval, pai)
{         (prolog, p)
{         (queued_jobs, qj)
{         (required_categories, rc)
{         (selection_priority, sp)
{         (sru_limit, sl)
{       hidden_key
{         (definition_name, dn)
{         (profile_index, pi)
{         (job_class_index, jci)
{       keyend
{     anyend = all
{   group_option, group_options, go: any of
{       key
{         all
{       keyend
{       list of key
{         (membership, m)
{         (limit, l)
{         (priority, p)
{         (statistic, s)
{         (definition, d)
{         (control, c)
{       keyend
{     anyend = $optional
{   output, o: (BY_NAME) file = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 12] 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (18),
      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 .. 1] 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 .. 58] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (3),
      recend,
      type3: 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 12] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 18, 29, 774],
    clc$command, 12, 5, 0, 0, 0, 0, 5, 'OSM$MANAS_DISJCL'], [
    ['CLASS_NAME                     ',clc$nominal_entry, 1],
    ['CLASS_NAMES                    ',clc$alias_entry, 1],
    ['CN                             ',clc$abbreviation_entry, 1],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['GO                             ',clc$abbreviation_entry, 3],
    ['GROUP_OPTION                   ',clc$nominal_entry, 3],
    ['GROUP_OPTIONS                  ',clc$alias_entry, 3],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ 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, 85,
  clc$optional_default_parameter, 0, 18],
{ PARAMETER 2
    [4, 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, 2233,
  clc$optional_default_parameter, 0, 3],
{ 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, 531,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [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, 3, clc$optional_parameter, 0
  , 0],
{ PARAMETER 5
    [12, 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],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_job_class'],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    2169, [[1, 0, clc$list_type], [2153, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [58], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['ABBREVIATION                   ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['ACS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['AUTOMATIC_CLASS_SELECTION      ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['CAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['CPU_TIME_LIMIT                 ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['CTL                            ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['CYCLIC_AGING_INTERVAL          ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['DEFER_ON_SUBMIT                ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['DEFINITION_NAME                ', clc$nominal_entry, clc$hidden_entry, 27],
        ['DETACHED_JOB_WAIT_TIME         ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['DJWT                           ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['DN                             ', clc$abbreviation_entry, clc$hidden_entry, 27],
        ['DOS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['E                              ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
        ['EC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
        ['ECI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
        ['ENABLE_CLASS_INITIATION        ', clc$nominal_entry, clc$normal_usage_entry, 7],
        ['EPILOG                         ', clc$nominal_entry, clc$normal_usage_entry, 8],
        ['EXCLUDED_CATEGORIES            ', clc$nominal_entry, clc$normal_usage_entry, 9],
        ['IAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
        ['IIC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
        ['IJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
        ['IL                             ', clc$abbreviation_entry, clc$normal_usage_entry, 15],
        ['IMMEDIATE_INITIATION_CANDIDATE ', clc$nominal_entry, clc$normal_usage_entry, 10],
        ['INITIAL_SERVICE_CLASS          ', clc$nominal_entry, clc$normal_usage_entry, 11],
        ['INITIAL_WORKING_SET            ', clc$nominal_entry, clc$normal_usage_entry, 12],
        ['INITIATED_JOBS                 ', clc$nominal_entry, clc$normal_usage_entry, 13],
        ['INITIATION_AGE_INTERVAL        ', clc$nominal_entry, clc$normal_usage_entry, 14],
        ['INITIATION_LEVEL               ', clc$nominal_entry, clc$normal_usage_entry, 15],
        ['ISC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
        ['IWS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
        ['JCI                            ', clc$abbreviation_entry, clc$hidden_entry, 29],
        ['JLPB                           ', clc$abbreviation_entry, clc$normal_usage_entry, 16],
        ['JOB_CLASS_INDEX                ', clc$nominal_entry, clc$hidden_entry, 29],
        ['JOB_LEVELING_PRIORITY_BIAS     ', clc$nominal_entry, clc$normal_usage_entry, 16],
        ['MAGNETIC_TAPE_LIMIT            ', clc$nominal_entry, clc$normal_usage_entry, 17],
        ['MAXIMUM_WORKING_SET            ', clc$nominal_entry, clc$normal_usage_entry, 18],
        ['MAXWS                          ', clc$abbreviation_entry, clc$normal_usage_entry, 18],
        ['MINIMUM_WORKING_SET            ', clc$nominal_entry, clc$normal_usage_entry, 19],
        ['MINWS                          ', clc$abbreviation_entry, clc$normal_usage_entry, 19],
        ['MJB                            ', clc$abbreviation_entry, clc$normal_usage_entry, 20],
        ['MTL                            ', clc$abbreviation_entry, clc$normal_usage_entry, 17],
        ['MULTIPLE_JOB_BIAS              ', clc$nominal_entry, clc$normal_usage_entry, 20],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 22],
        ['PAGE_AGING_INTERVAL            ', clc$nominal_entry, clc$normal_usage_entry, 21],
        ['PAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 21],
        ['PI                             ', clc$abbreviation_entry, clc$hidden_entry, 28],
        ['PROFILE_INDEX                  ', clc$nominal_entry, clc$hidden_entry, 28],
        ['PROLOG                         ', clc$nominal_entry, clc$normal_usage_entry, 22],
        ['QJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 23],
        ['QUEUED_JOBS                    ', clc$nominal_entry, clc$normal_usage_entry, 23],
        ['RC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 24],
        ['REQUIRED_CATEGORIES            ', clc$nominal_entry, clc$normal_usage_entry, 24],
        ['SELECTION_PRIORITY             ', clc$nominal_entry, clc$normal_usage_entry, 25],
        ['SL                             ', clc$abbreviation_entry, clc$normal_usage_entry, 26],
        ['SP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 25],
        ['SRU_LIMIT                      ', clc$nominal_entry, clc$normal_usage_entry, 26]]
        ]
      ]
    ,
    'all'],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CONTROL                        ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DEFINITION                     ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['L                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['LIMIT                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['M                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['MEMBERSHIP                     ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['PRIORITY                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['STATISTIC                      ', clc$nominal_entry, clc$normal_usage_entry, 4]]
        ]
      ]
    ],
{ PARAMETER 4
    [[1, 0, clc$file_type]],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$class_name = 1,
      p$display_option = 2,
      p$group_option = 3,
      p$output = 4,
      p$status = 5;

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

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_job_class;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN; {----->
    IFEND;

    jmp$display_objects (jmc$profile_job_class, FALSE, pvt [p$class_name], pvt [p$display_option],
          pvt [p$group_option], pvt [p$output], status);

  PROCEND jmp$_display_job_class;
?? TITLE := '[XDCL] jmp$_display_job_category', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_JOB_CATEGORY command for ADMINISTER_SCHEDULING and
{   MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the job categories to display and display them.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_job_category
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disjca) display_job_category (
{   category_name, category_names, cn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_job_category
{   output, o: (BY_NAME) file = $optional
{   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$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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (21),
      recend,
      type2: record
        header: clt$type_specification_header,
      recend,
      type3: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 18, 46, 863],
    clc$command, 6, 3, 0, 0, 0, 0, 3, 'OSM$MANAS_DISJCA'], [
    ['CATEGORY_NAME                  ',clc$nominal_entry, 1],
    ['CATEGORY_NAMES                 ',clc$alias_entry, 1],
    ['CN                             ',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, 85,
  clc$optional_default_parameter, 0, 21],
{ PARAMETER 2
    [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_parameter, 0
  , 0],
{ 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$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_job_category'],
{ PARAMETER 2
    [[1, 0, clc$file_type]],
{ PARAMETER 3
    [[1, 0, clc$status_type]]];

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

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

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

    VAR
      ommitted: clt$parameter_value;

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_category;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    ommitted.specified := FALSE;
    ommitted.passing_method := clc$pass_by_value;
    ommitted.value := NIL;
    jmp$display_objects (jmc$profile_category, TRUE, pvt [p$category_name],
          ommitted, ommitted, pvt [p$output], status);

  PROCEND jmp$_display_job_category;
?? TITLE := '[XDCL] jmp$_display_job_priority', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_JOB_PRIORITY command for ADMINISTER_SCHEDULING and
{   MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the job priorities to display and display them.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_job_priority
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disjp) display_job_priority (
{   priority_name, priority_names, pn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = all
{   output, o: (BY_NAME) file = $optional
{   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$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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (3),
      recend,
      type2: record
        header: clt$type_specification_header,
      recend,
      type3: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 18, 56, 229],
    clc$command, 6, 3, 0, 0, 0, 0, 3, 'OSM$MANAS_DISJP'], [
    ['O                              ',clc$abbreviation_entry, 2],
    ['OUTPUT                         ',clc$nominal_entry, 2],
    ['PN                             ',clc$abbreviation_entry, 1],
    ['PRIORITY_NAME                  ',clc$nominal_entry, 1],
    ['PRIORITY_NAMES                 ',clc$alias_entry, 1],
    ['STATUS                         ',clc$nominal_entry, 3]],
    [
{ PARAMETER 1
    [4, 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, 85,
  clc$optional_default_parameter, 0, 3],
{ 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, 3, clc$optional_parameter, 0
  , 0],
{ 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$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    'all'],
{ PARAMETER 2
    [[1, 0, clc$file_type]],
{ PARAMETER 3
    [[1, 0, clc$status_type]]];

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

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

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

    VAR
      ommitted: clt$parameter_value;

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_priority;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    ommitted.specified := FALSE;
    ommitted.passing_method := clc$pass_by_value;
    ommitted.value := NIL;
    jmp$display_objects (jmc$profile_priority, TRUE, pvt [p$priority_name],
          ommitted, ommitted, pvt [p$output], status);

  PROCEND jmp$_display_job_priority;
?? TITLE := '[XDCL] jmp$_display_output_class', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_ATTRIBUTE command for ADMINISTER_OUTPUT_CLASS and
{   the DISPLAY_OUTPUT_CLASS command for MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the output classes to display and display their attribute values.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_output_class
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_disoc) display_output_class (
{   class_name, class_names, cn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_output_class
{   display_option, display_options, do: any of
{       key
{         all
{       keyend
{       list of key
{         (abbreviation, a)
{         (delivery_priority, dp)
{         (enable_class_scheduling, ecs)
{         (output_age_interval, oai)
{       hidden_key
{         (definition_name, dn)
{         (output_class_index, oci)
{       keyend
{     anyend = all
{   group_option, group_options, go: any of
{       key
{         all
{       keyend
{       list of key
{         (membership, m)
{         (limit, l)
{         (priority, p)
{         (statistic, s)
{         (definition, d)
{         (control, c)
{       keyend
{     anyend = $optional
{   output, o: (BY_NAME) file = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 12] 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (21),
      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 .. 1] 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 .. 12] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (3),
      recend,
      type3: 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 12] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [102, 8, 9, 17, 19, 6, 927],
    clc$command, 12, 5, 0, 0, 0, 0, 5, 'OSM$MANAS_DISOC'], [
    ['CLASS_NAME                     ',clc$nominal_entry, 1],
    ['CLASS_NAMES                    ',clc$alias_entry, 1],
    ['CN                             ',clc$abbreviation_entry, 1],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['GO                             ',clc$abbreviation_entry, 3],
    ['GROUP_OPTION                   ',clc$nominal_entry, 3],
    ['GROUP_OPTIONS                  ',clc$alias_entry, 3],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ 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, 85,
  clc$optional_default_parameter, 0, 21],
{ PARAMETER 2
    [4, 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, 531,
  clc$optional_default_parameter, 0, 3],
{ 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, 531,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [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, 3, clc$optional_parameter, 0
  , 0],
{ PARAMETER 5
    [12, 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],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_output_class'],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['ABBREVIATION                   ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['DEFINITION_NAME                ', clc$nominal_entry, clc$hidden_entry, 5],
        ['DELIVERY_PRIORITY              ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['DN                             ', clc$abbreviation_entry, clc$hidden_entry, 5],
        ['DP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['ECS                            ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['ENABLE_CLASS_SCHEDULING        ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['OAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['OCI                            ', clc$abbreviation_entry, clc$hidden_entry, 6],
        ['OUTPUT_AGE_INTERVAL            ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['OUTPUT_CLASS_INDEX             ', clc$nominal_entry, clc$hidden_entry, 6]]
        ]
      ]
    ,
    'all'],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CONTROL                        ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DEFINITION                     ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['L                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['LIMIT                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['M                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['MEMBERSHIP                     ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['PRIORITY                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['STATISTIC                      ', clc$nominal_entry, clc$normal_usage_entry, 4]]
        ]
      ]
    ],
{ PARAMETER 4
    [[1, 0, clc$file_type]],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$class_name = 1,
      p$display_option = 2,
      p$group_option = 3,
      p$output = 4,
      p$status = 5;

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

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_output_class;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    jmp$display_objects (jmc$profile_output_class, FALSE, pvt [p$class_name], pvt [p$display_option],
          pvt [p$group_option], pvt [p$output], status);

  PROCEND jmp$_display_output_class;
?? TITLE := '[XDCL] jmp$_display_service_class', EJECT ??

{ PURPOSE:
{   Processes the DISPLAY_ATTRIBUTE command for ADMINISTER_SERVICE_CLASS and
{   the DISPLAY_SERVICE_CLASS command for MANAGE_ACTIVE_SCHEDULING.
{
{ DESIGN:
{   Determine the service classes to display and display their attribute
{   values.
{
{ NOTES:
{   See JMM$ADMINISTER_DISPLAY.

  PROCEDURE [XDCL] jmp$_display_service_class
    (    parameter_list: clt$parameter_list;
     VAR status: ost$status);

{ PROCEDURE (osm$manas_dissc) display_service_class (
{   class_name, class_names, cn: any of
{       key
{         all
{       keyend
{       list of name
{     anyend = $current_service_class
{   display_option, display_options, do: any of
{       key
{         all
{       keyend
{       list of key
{         (abbreviation, a)
{         (active_jobs, aj)
{         (aio_limit, aiol)
{         (attempt_preemption, ap)
{         (class_service_threshold, cst)
{         (dispatching_control, dc)
{         (enable_class_execution, ece)
{         (guaranteed_service_quantum, gsq)
{         (long_wait_think_time, lwtt)
{         (maximum_active_jobs, maxaj)
{         (next_service_class, nsc)
{         (queued_jobs, qj)
{         (scheduling_priority, sp)
{         (service_factors, sf)
{         (swap_age_interval, sai)
{         (swap_jobs_in_longwait, sjil)
{         (swapped_jobs, sj)
{       hidden_key
{         (definition_name, dn)
{         (service_class_index, sci)
{       keyend
{     anyend = all
{   group_option, group_options, go: any of
{       key
{         all
{       keyend
{       list of key
{         (membership, m)
{         (limit, l)
{         (priority, p)
{         (statistic, s)
{         (definition, d)
{         (control, c)
{       keyend
{     anyend = $optional
{   output, o: (BY_NAME) file = $optional
{   status)

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

  VAR
    pdt: [STATIC, READ, cls$declaration_section] record
      header: clt$pdt_header,
      names: array [1 .. 12] 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$name_type_qualifier,
          recend,
        recend,
        default_value: string (22),
      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 .. 1] 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 .. 38] of clt$keyword_specification,
          recend,
        recend,
        default_value: string (3),
      recend,
      type3: 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,
          qualifier: clt$list_type_qualifier_v2,
          element_type_spec: record
            header: clt$type_specification_header,
            qualifier: clt$keyword_type_qualifier,
            keyword_specs: array [1 .. 12] of clt$keyword_specification,
          recend,
        recend,
      recend,
      type4: record
        header: clt$type_specification_header,
      recend,
      type5: record
        header: clt$type_specification_header,
      recend,
    recend := [
    [1,
    [106, 8, 18, 19, 35, 44, 930],
    clc$command, 12, 5, 0, 0, 0, 0, 5, 'OSM$MANAS_DISSC'], [
    ['CLASS_NAME                     ',clc$nominal_entry, 1],
    ['CLASS_NAMES                    ',clc$alias_entry, 1],
    ['CN                             ',clc$abbreviation_entry, 1],
    ['DISPLAY_OPTION                 ',clc$nominal_entry, 2],
    ['DISPLAY_OPTIONS                ',clc$alias_entry, 2],
    ['DO                             ',clc$abbreviation_entry, 2],
    ['GO                             ',clc$abbreviation_entry, 3],
    ['GROUP_OPTION                   ',clc$nominal_entry, 3],
    ['GROUP_OPTIONS                  ',clc$alias_entry, 3],
    ['O                              ',clc$abbreviation_entry, 4],
    ['OUTPUT                         ',clc$nominal_entry, 4],
    ['STATUS                         ',clc$nominal_entry, 5]],
    [
{ 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, 85,
  clc$optional_default_parameter, 0, 22],
{ PARAMETER 2
    [4, 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, 1493,
  clc$optional_default_parameter, 0, 3],
{ 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, 531,
  clc$optional_parameter, 0, 0],
{ PARAMETER 4
    [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, 3, clc$optional_parameter, 0
  , 0],
{ PARAMETER 5
    [12, 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],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    21, [[1, 0, clc$list_type], [5, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$name_type], [1, osc$max_name_size]]
      ]
    ,
    '$current_service_class'],
{ PARAMETER 2
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    1429, [[1, 0, clc$list_type], [1413, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [38], [
        ['A                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['ABBREVIATION                   ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['ACTIVE_JOBS                    ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['AIOL                           ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['AIO_LIMIT                      ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['AJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['AP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['ATTEMPT_PREEMPTION             ', clc$nominal_entry, clc$normal_usage_entry, 4],
        ['CLASS_SERVICE_THRESHOLD        ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['CST                            ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DC                             ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['DEFINITION_NAME                ', clc$nominal_entry, clc$hidden_entry, 18],
        ['DISPATCHING_CONTROL            ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['DN                             ', clc$abbreviation_entry, clc$hidden_entry, 18],
        ['ECE                            ', clc$abbreviation_entry, clc$normal_usage_entry, 7],
        ['ENABLE_CLASS_EXECUTION         ', clc$nominal_entry, clc$normal_usage_entry, 7],
        ['GSQ                            ', clc$abbreviation_entry, clc$normal_usage_entry, 8],
        ['GUARANTEED_SERVICE_QUANTUM     ', clc$nominal_entry, clc$normal_usage_entry, 8],
        ['LONG_WAIT_THINK_TIME           ', clc$nominal_entry, clc$normal_usage_entry, 9],
        ['LWTT                           ', clc$abbreviation_entry, clc$normal_usage_entry, 9],
        ['MAXAJ                          ', clc$abbreviation_entry, clc$normal_usage_entry, 10],
        ['MAXIMUM_ACTIVE_JOBS            ', clc$nominal_entry, clc$normal_usage_entry, 10],
        ['NEXT_SERVICE_CLASS             ', clc$nominal_entry, clc$normal_usage_entry, 11],
        ['NSC                            ', clc$abbreviation_entry, clc$normal_usage_entry, 11],
        ['QJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 12],
        ['QUEUED_JOBS                    ', clc$nominal_entry, clc$normal_usage_entry, 12],
        ['SAI                            ', clc$abbreviation_entry, clc$normal_usage_entry, 15],
        ['SCHEDULING_PRIORITY            ', clc$nominal_entry, clc$normal_usage_entry, 13],
        ['SCI                            ', clc$abbreviation_entry, clc$hidden_entry, 19],
        ['SERVICE_CLASS_INDEX            ', clc$nominal_entry, clc$hidden_entry, 19],
        ['SERVICE_FACTORS                ', clc$nominal_entry, clc$normal_usage_entry, 14],
        ['SF                             ', clc$abbreviation_entry, clc$normal_usage_entry, 14],
        ['SJ                             ', clc$abbreviation_entry, clc$normal_usage_entry, 17],
        ['SJIL                           ', clc$abbreviation_entry, clc$normal_usage_entry, 16],
        ['SP                             ', clc$abbreviation_entry, clc$normal_usage_entry, 13],
        ['SWAPPED_JOBS                   ', clc$nominal_entry, clc$normal_usage_entry, 17],
        ['SWAP_AGE_INTERVAL              ', clc$nominal_entry, clc$normal_usage_entry, 15],
        ['SWAP_JOBS_IN_LONGWAIT          ', clc$nominal_entry, clc$normal_usage_entry, 16]]
        ]
      ]
    ,
    'all'],
{ PARAMETER 3
    [[1, 0, clc$union_type], [[clc$keyword_type, clc$list_type],
    FALSE, 2],
    44, [[1, 0, clc$keyword_type], [1], [
      ['ALL                            ', clc$nominal_entry, clc$normal_usage_entry, 1]]
      ],
    467, [[1, 0, clc$list_type], [451, 1, clc$max_list_size, 0, FALSE, FALSE],
        [[1, 0, clc$keyword_type], [12], [
        ['C                              ', clc$abbreviation_entry, clc$normal_usage_entry, 6],
        ['CONTROL                        ', clc$nominal_entry, clc$normal_usage_entry, 6],
        ['D                              ', clc$abbreviation_entry, clc$normal_usage_entry, 5],
        ['DEFINITION                     ', clc$nominal_entry, clc$normal_usage_entry, 5],
        ['L                              ', clc$abbreviation_entry, clc$normal_usage_entry, 2],
        ['LIMIT                          ', clc$nominal_entry, clc$normal_usage_entry, 2],
        ['M                              ', clc$abbreviation_entry, clc$normal_usage_entry, 1],
        ['MEMBERSHIP                     ', clc$nominal_entry, clc$normal_usage_entry, 1],
        ['P                              ', clc$abbreviation_entry, clc$normal_usage_entry, 3],
        ['PRIORITY                       ', clc$nominal_entry, clc$normal_usage_entry, 3],
        ['S                              ', clc$abbreviation_entry, clc$normal_usage_entry, 4],
        ['STATISTIC                      ', clc$nominal_entry, clc$normal_usage_entry, 4]]
        ]
      ]
    ],
{ PARAMETER 4
    [[1, 0, clc$file_type]],
{ PARAMETER 5
    [[1, 0, clc$status_type]]];

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

    CONST
      p$class_name = 1,
      p$display_option = 2,
      p$group_option = 3,
      p$output = 4,
      p$status = 5;

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

    status.normal := TRUE;

    jmv$current_profile_level := jmc$profile_service_class;
    clp$evaluate_parameters (parameter_list, #SEQ (pdt), NIL, ^pvt, status);
    IF NOT status.normal THEN
      RETURN {----->
    IFEND;

    jmp$display_objects (jmc$profile_service_class, FALSE, pvt [p$class_name], pvt [p$display_option],
          pvt [p$group_option], pvt [p$output], status);

  PROCEND jmp$_display_service_class;
MODEND jmm$profile_display_commands;
