

?? RIGHT := 110 ??
*copyc osd$default_pragmats
?? TITLE := 'NOS/VE MASSTOR assist' ??
?? NEWTITLE := '  Module Header', EJECT ??
MODULE cam$terminate_masstor_23d;
{
{  PURPOSE: This module contains the code to support MASSTOR shutdown.
{
{
?? TITLE := '  Declarations', EJECT ??
?? PUSH (LISTEXT := ON) ??
*copyc jmt$name
*copyc ost$system_flag
*copyc oss$mainframe_paged_literal
*copyc oss$task_private
*copyc clp$include_line
*copyc jmp$job_exists
*copyc jmp$get_job_ijl_ordinal
*copyc jmp$queue_operator_request
*copyc osp$verify_system_privilege
*copyc pmp$cause_task_condition
*copyc pmp$get_executing_task_gtid_r6
*copyc pmp$get_time
*copyc pmp$log
*copyc pmp$long_term_wait
*copyc jmt$job_state_set
*copyc jmt$dispatching_priority
*copyc osp$set_status_abnormal
*copyc ost$status
*copyc syt$180_idle_code

?? POP ??

  PROCEDURE [XDCL, #GATE] cap$change_termination_priority
    (    job_name: string (6);
     VAR status: ost$status);

    VAR
      ijl_ordinal: jmt$ijl_ordinal,
      privileged_job: boolean,
      priority: jmt$dispatching_priority,
      system_supplied_name: jmt$system_supplied_name;

    status.normal := TRUE;
    privileged_job := TRUE;
    priority := jmc$priority_p10;

    jmp$get_job_ijl_ordinal (job_name, privileged_job, ijl_ordinal, system_supplied_name, status);
    IF NOT status.normal THEN
      RETURN;
    IFEND;

      jmp$queue_operator_request (jmc$or_change_dispatching_prio, ijl_ordinal, system_supplied_name,
            priority, {disable_recovery} FALSE, status);

  PROCEND cap$change_termination_priority;

MODEND cam$terminate_masstor_23d;
