.PROC,RUN180.

.IFE,(R2.EQ.1).AND.(EFG.EQ.0),RUNDSC.
   RETURN(NOSVETP)
.IFE,SYS=NOS,NOSSYS.
  RUNJOBS.
  $DSMRUN.
.ELSE,NOSSYS.
  RUNIRHF.
  DSMRUN.
.ENDIF,NOSSYS.
  REVERT.
  EXIT.
  DMD.
  DMD,0,200000.
  DAYFILE,OUTPUT.
  ROUTE,OUTPUT,DC=PR.
  RETURN,NOSVETP.
  REVERT.
.ENDIF,RUNDSC.

 REVERT. DSMRUN NOT RUN.
/EOR
