.PROC,DCOPY,F.
.*
.*  THIS PROCEDURE SAVES THE SPECIFIED FILE ON DISK.
.*
IFE,FILE(F,.NOT.AS),NOTLOC.
REVERT. NOT LOCAL.
ENDIF,NOTLOC.
$REWIND,F.
PURGE,F/NA.
DEFINE,YYYYREP=F.
$COPY,F,YYYYREP.
$RETURN,YYYYREP.
REVERT. F SAVED.
/EOR
