?? RIGHT := 110 ??
?? NEWTITLE := 'NOS/VE Deadstart : Deadstart Services 236', EJECT ??
MODULE dsm$deadstart_services_236;

{ PURPOSE:
{   This module contains deadstart procedures that need to run in osf$job_template_236.

?? NEWTITLE := 'Global Declarations Referenced by This Module', EJECT ??
*copyc dsp$dft_issue_system_alert

?? OLDTITLE ??
?? NEWTITLE := 'dsp$issue_system_alert', EJECT ??

{ PURPOSE:
{   This procedure issues a system alert to DFT.

  PROCEDURE [XDCL, #GATE] dsp$issue_system_alert
    (    alert_source: dst$dft_alert_source;
         supportive_information_p: ^SEQ ( * );
     VAR status: ost$status);

    VAR
      local_alert_source: dst$dft_alert_source,
      local_status: ost$status,
      local_supportive_information_p: ^SEQ ( * );

    status.normal := TRUE;

    local_status := status;
    local_alert_source := alert_source;
    local_supportive_information_p := supportive_information_p;

    dsp$dft_issue_system_alert (local_alert_source, local_supportive_information_p, local_status);
    status := local_status;

  PROCEND dsp$issue_system_alert;
MODEND dsm$deadstart_services_236;
