.PROC,TERMNVE.
.*
.* The TERMNVE procedure performs the NOS/VE termination.
.*
.IFE,(EFG.EQ.77B).AND.(R1G.EQ.30B),NO017.
.*
.*  VE NOT ENABLED IN CMRDECK.
.*  RETURN WITHOUT TRYING TO TAKE A DUMP SINCE
.*  *DSMTRM* WOULD NOT FUNCTION CORRECTLY.
.*
REVERT. VE NOT ENABLED IN CMRDECK.
.ELSE,NO017.
DSMTRM.
REVERT.
EXIT.
DMD.
DMD,0,200000.
RETURN,CHKTAPE.
DAYFILE,OUTPUT.
IF,R1G=12B.AND.EF.EQ.PPE,TAPERR.
.*
.*  ASSUME TAPE ERROR IF PP ABORT WHILE DUMPING TAPE.
.*  RETURN WITHOUT CPU ERROR SO THAT DUMP WILL BE RETRIED.
.*
RETURN,OUTPUT.
REVERT.
ELSE,TAPERR.
.*
.*  SOME ERROR OTHER THAN AN ERROR WRITING TAPE.
.*
ROUTE,OUTPUT,DC=PR.
REVERT,ABORT.
IFEND,TAPERR.
.ENDIF,NO017.
/EOR
