.PROC,SAVEDAY*I,
DF   "- DAYFILE TYPE"                  = (
                                      0=CONTDYF,1=TESTDYF,2=RECVDYF,3=TESTDYF,
                                      4=TESTDYF,5=TESTDYF,6=TESTDYF,7=INSTDYF,
                                      8=RECODYF,9=DMPIDYF)
.
.HELP
THIS PROCEDURE SAVES THE DAYFILE ON A DEADSTART TYPE
  DEPENDENT FILE NAME.

.ENDHELP
$UNLOAD(DF)
$DAYFILE(DF)
REPFILE,DF)
$REVERT.
/EOR
