.PROC,REPRECS*I,
DIF "NOS/VE DEADSTART INPUT FILE"                = (*N=TPXXXK,*F),
S   "SITECP FILE"                                = (*N=SITECP,*F),
D   "DCFILE FILE"                                = (*N=DCFILE,*F),
UN  "CATALOG OR PF ID TO SEARCH FOR FILES"       = (*N=,*F),
.
.HELP
 THE REPRECS PROCEDURE REPLACES THE SITECP AND DCFILE RECORDS ON THE
 NOS/VE DEADSTART INPUT FILE.

 PARAMETER   DEFAULT   DESCRIPTION
   NAME       VALUE

   DIF       TPXXXK    THE FILE NAME OF THE NOS/VE DEADSTART INPUT FILE.
   S         SITECP    THE FILE CONTAINING THE CONFIGURATION PROLOG AND
                       OTHER FILES THAT ARE CREATED IN THE $SYSTEM CATALOG
                       OF NOS/VE DURING AN INSTALLATION DEADSTART.
   D         DCFILE    THE FILE CONTAINING SETS OF SYSTEM CORE COMMANDS.
   UN                  USER NAME IN WHICH FILES RESIDE.

.HELP,DIF
 THE NAME OF THE NOS/VE DEDSTART INPUT FILE.
.HELP,S
 THE NAME OF THE SITECP FILE.
.HELP,D
 THE NAME OF THE FILE CONTAINING SETS OF SYSTEM CORE COMMANDS.
.HELP,UN
 THE CATALOG SEARCHED FOR THE FILES. ON NOS/BE, PF ID.
.ENDHELP
GETFILE,DIF,,UN,WRITE,YES.
UNLOAD,NVETAPE.
GETFILE,S,S,UN,READ,YES.
GETFILE,D,D,UN,READ,YES.
.IFE,SYS=NOS,NOSSYS.
  .IFE,$S$.NE.$SITECP$,CHANGES.
    RENAME,SITECP=S.
  .ENDIF,CHANGES.
  .IFE,$D$.NE.$DCFILE$,CHANGED.
    RENAME,DCFILE=D.
  .ENDIF,CHANGED.
  DSMDSTG(DIRS)
  UNLOAD,LGO.
  GTR,NVETAPE,LGO.TEXT/SITECP,TEXT/DCFILE
  REWIND,DIF.
  DEFINE,TMPTPXK.
  REWIND,DIF,TMPTPXK.
  NOTE(OUTPUT,NR)+ REPLACING RECORDS ON TMPTPXK.
  LIBEDIT,P=DIF,N=TMPTPXK,B=LGO,I=0.
  RETURN,DIF.
  PURGE,DIF/NA.
  RETURN,TMPTPXK.
  CHANGE,DIF=TMPTPXK.
.ELSE,NOSSYS.
  .IFE,$S$.NE.$SITECP$,CHNGS.
    COPYBF,S,SITECP.
    REWIND,SITECP.
  .ENDIF,CHNGS.
  .IFE,$D$.NE.$DCFILE$,CHNGD.
    COPYBF,D,DCFILE.
    REWIND,DCFILE.
  .ENDIF,CHNGD.
  .IFE,OT.EQ.TXO.ETL,100.
  DSMDSTG(DIRS)
  UNLOAD,LGO.
  GTR,NVETAPE,LGO.TEXT/SITECP,TEXT/DCFILE
  REWIND,DIF.
  REQUEST,TMPTPXK,SN,PF.
  NOTE(OUTPUT,NR)+ REPLACING RECORDS ON TMPTPXK.
  COPYL,DIF,LGO,TMPTPXK,,RE.
  CATALOG,TMPTPXK,DIF,ID=UN,RP=999.
  PURGE,DIF.
.ENDIF,NOSSYS.
NOTE(OUTPUT,NR)+ DIF UPDATED.
UNLOAD,NVETAPE,LGO,TMPTPXK,DIRS.
REVERT.
EXIT.
NOTE(OUTPUT,NR)+ RECORD REPLACEMENT FAILED...SEE DAYFILE.
REVERT,ABORT. RECORD REPLACEMENT FAILED...SEE DAYFILE.
.DATA,DIRS
LOADDCF,DCFILE
LOADFILE,SITECP,ASCII180
LOADEND
/EOR
