.PROC,RUNIRHF.
*IF ($string($name(wev$target_operating_system))='NOSBE')
.*
.*   THE RUNIRHF PROCEDURE RUNS THE IRHF HELPER JOB.
.*
.*   IF SWITCH 5 IS ON WHEN IRHF GOES DOWN, THE DUMP
.*   IS SENT TO THE PRINTER, IN ANY CASE, THE DUMP IS
.*   SAVED ON FILE IRHFDMP,ID=IRHFDMP AND COPIED TO THE
.*   SHORT DUMP FILE TAKEN BY THE NVE SUBSYSTEM WHEN IT
.*   TERMINATES ABNORMALLY.
.*
  REQUEST,IRHFJOB,*Q.
  COPYBF,JOB,IRHFJOB.
  ROUTE,IRHFJOB,DC=IN.
  REVERT. IRHF STARTED.
.DATA,JOB.
IRHF170,T0.
PURGE,IRHFDMP,ID=IRHFDMP.
SKIP,NODMP.
EXIT(U)
SET(EF=0)
BKSP(OUTPUT)
REQUEST(IRHFDMP,PF)
ENDIF,NODMP.
ATTACH,TEMP,LIDLIST,ID=NOSVE.
COPYBF,TEMP,LIDLIST.
RETURN(TEMP)
REWIND(LIDLIST)
COPY,INPUT,PRACCNT.
REWIND,PRACCNT.
RHPQEP.
EXIT(U)
DMD,0,150000.
REWIND,OUTPUT.
COPY,OUTPUT,IRHFDMP.
DAYFILE,IRHFDMP.
CATALOG,IRHFDMP,ID=IRHFDMP.
UNLOAD,IRHFDMP.
IFE,SW5,ROF.
  ROUTE,OUTPUT,DC=PR.
ENDIF,ROF.
DISPOSE,OUTPUT.
*ELSE
COMMENT. THIS PROCEDURE IS FOR NOS/BE ONLY.
*IFEND
.EOR
&JOB
/EOR
