.PROC,VEIAF.
*IF ($string($name(wev$target_operating_system))='NOSBE')
.IF,PNL.EQ.1,OK.
RETURN(VEIAF)
REWIND(OUTPUT)
ROUTE(OUTPUT,DEF,FID=VEIAF)
PURGE,PASSDMP,ID=PASSDMP.
SKIP,DMP.
EXIT(U)
SET(EF=0)
BKSP(OUTPUT)
REQUEST,PASSDMP,PF.
ENDIF,DMP.
RFL(50000)
LDSET,LIB=SYSOVL.
VEIAF,DBG.
RETURN(PASSDMP)
APR(11)
EXIT.
COMMENT.  VEIAF FAILED.
DMD.
DMD(0,100000)
REWIND(OUTPUT)
COPY(OUTPUT,PASSDMP)
DAYFILE,PASSDMP.
CATALOG,PASSDMP,ID=PASSDMP.
RETURN(PASSDMP)
.*  DO NOT LIST OUT THE DUMP CREATED UNLESS SENSE SWITCH
.*  4 IS SET.
IF,.NOT.SW4,KILLIST.
APR(11)
ENDIF,KILLIST.
.ELSE,OK.
COMMENT.  ERROR - NESTED CALLS.
APR(11)
.ENDIF,OK.
*ELSE
COMMENT. THIS PROCEDURE IS FOR NOS/BE ONLY.
*IFEND
/EOR
