.PROC,TRMDUMP*I,DNAME.
.HELP
 This procedure copies dumps and dayfiles from other NOS/VE tasks to the
 end of the dump tape.
.ENDHELP

.IFE,FILE(CHKTAPE,AS),CPYDUMP.
.IFE,SYS=NOS,NOSSYS.
   ATTACH,IRHFDMP,PASSDMP/UN=SYSTEMX,NA.
   COPY,IRHFDMP,CHKTAPE,TC=EOI,PO=R.
   COPY,PASSDMP,CHKTAPE,TC=EOI,PO=R.
   DAYFILE,DAYDUMP.
   REWIND,DAYDUMP.
   COPY,DAYDUMP,CHKTAPE,TC=EOI,PO=R.
.ELSE,NOSSYS.
   GETFILE,IRHFDMP,,IRHFDMP.
   IFE,FILE(IRHFDMP,AS),COPYIRHF.
     DSMNBCS,IRHFDMP,CHKTAPE.  IRHF DUMP
     DSMNBCS,IRHFDMP,CHKTAPE.  IRHF DAYFILE
   ENDIF,COPYIRHF.
   GETFILE,PASSDMP,,PASSDMP.
   IFE,FILE(PASSDMP,AS),COPYPASS.
     DSMNBCS,PASSDMP,CHKTAPE.  VEIAF DUMP
     DSMNBCS,PASSDMP,CHKTAPE.  VEIAF DAYFILE
   ENDIF,COPYPASS.

   DAYFILE,DAYDUMP.
   REWIND,DAYDUMP.
   DSMNBCS,DAYDUMP,CHKTAPE.
.ENDIF,NOSSYS.

UNLOAD,CHKTAPE,DUMP,DAYDUMP,IRHFDMP,PASSDMP.
SET(EF=EFG)
REVERT.
EXIT.
IFE,(EF.EQ.ODE).OR.(EF.EQ.ORE),IGNORE.
  SET(EF=EFG)
  REVERT.
ENDIF,IGNORE.
.ENDIF,CPYDUMP.
REVERT. NO DUMP TAKEN.
REVERT,NOLIST.
/EOR
