DRTBAT1 
.PROC,DRTBAT1*I,\ 
*CALL COMPRD
PURGE   ' TO HAVE DRTBAT1 PURGE FILES          '=(*N=NOPURGE,PURGE, 
                                                  NOPURGE), 
VN      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
BL      ' 3 CHARACTER BASE LEVEL               '=(*N=,,*A3),
CL      ' 3 CHARACTER CODE LEVEL               '=(*N=,,*A3),
UNP     ' USER NAME/PACK NAME FOR CCP FILES    '=(*N=,,*A), 
*CALL COMD4 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   DRTBAT1 
.*
.*      COPY DISK FILES TO OUTPUT RELEASE DUMP FILE 
.*
  
BEGIN(SETAJTL,INSTALL)
.*
REWIND(LFN) 
.*
.*  CASE /PRDNAME/
.*
.*    OF /CRSS/ 
.*
IFE($PRDNAME$.EQ.$CRSS$,NO) 
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(PCRS=PCRS_BL)
COPYBF(PCRS,LFN)
RETURN(PCRS)
ATTACH(FORMAT=AFMT_CL)
COPYEI(FORMAT,LFN)
RETURN(FORMAT)
ATTACH(ASSEM=AASM_CL) 
COPYEI(ASSEM,LFN) 
RETURN(ASSEM) 
ATTACH(MACRO=AMAC_CL) 
COPYEI(MACRO,LFN) 
RETURN(MACRO) 
ATTACH(MASSEM=AMAS_CL)
COPYEI(MASSEM,LFN)
RETURN(MASSEM)
ATTACH(MPLIB=ALIB_CL) 
COPYEI(MPLIB,LFN) 
RETURN(MPLIB) 
WRITEF(LFN,3) 
ATTACH(XREF=AXRF_CL)
COPYBF(XREF,LFN)
RETURN(XREF)
ATTACH(MPLINK=ALNK_CL)
COPYBF(MPLINK,LFN)
RETURN(MPLINK)
ATTACH(MPEDIT=AEDT_CL)
COPYBF(MPEDIT,LFN)
RETURN(MPEDIT)
ATTACH(PASCAL=APAS_CL)
COPYBF(PASCAL,LFN)
RETURN(PASCAL)
ATTACH(CYPASCL=ACYP_CL) 
COPYBF(CYPASCL,LFN) 
RETURN(CYPASCL) 
WRITEF(LFN) 
ATTACH(LCRB=LCRB_CL/NA) 
IFE(FILE(LCRB,AS),NOLCRB) 
COPYBF(LCRB,LFN)
RETURN(LCRB)
ELSE(NOLCRB)
WRITEF(LFN) 
ENDIF(NOLCRB) 
REWIND(LFN,PFGFILE) 
SKIPF(LFN)
WRITEF(PFGFILE) 
COPYBF(LFN,PFGFILE,8) 
BEGIN(PFGOUT,INSTALL,#PRDNAME=CRSS,LFN=PFGFILE) 
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(PCRS/NA) 
#PURGE(LCRB/NA) 
#PURGE(PCRS_BL/NA)
#PURGE(LCRB_CL/NA)
ENDIF(NOPURGE)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPB/ 
.*
IFE($PRDNAME$.EQ.$CCPB$,NO) 
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(PCCP=PCCP_BL_UNP)
COPYBF(PCCP,LFN)
RETURN(PCCP)
ATTACH(EXPAND=AEXP_CL)
COPYEI(EXPAND,LFN)
RETURN(EXPAND)
ATTACH(AUTOLNK=AALK_CL) 
COPYBF(AUTOLNK,LFN) 
RETURN(AUTOLNK) 
ATTACH(ZMUX=ZMUX_CL)
COPYBF(ZMUX,LFN,2)
RETURN(ZMUX)
ATTACH(ZSAM=ZSAM_CL)
COPYBF(ZSAM,LFN)
RETURN(ZSAM)
ATTACH(SMUX=SMUX_CL)
COPYBF(SMUX,LFN)
RETURN(SMUX)
ATTACH(BCMB=BCMB_CL)
COPYBF(BCMB,LFN)
RETURN(BCMB)
ATTACH(LIMC=LIMC_CL/NA) 
IFE(FILE(LIMC,AS),NOLIMC) 
COPYBF(LIMC,LFN)
RETURN(LIMC)
ELSE(NOLIMC)
WRITEF(LFN) 
ENDIF(NOLIMC) 
ATTACH(LMFB=LMFB_CL/NA) 
IFE(FILE(LMFB,AS),NOLMFB) 
COPYBF(LMFB,LFN,2)
RETURN(LMFB)
ELSE(NOLMFB)
WRITEF(LFN,2) 
ENDIF(NOLMFB) 
ATTACH(LSAM=LSAM_CL/NA) 
IFE(FILE(LSAM,AS),NOLSAM) 
COPYBF(LSAM,LFN)
RETURN(LSAM)
ELSE(NOLSAM)
WRITEF(LFN) 
ENDIF(NOLSAM) 
ATTACH(LFCA=LFCA_CL/NA) 
IFE(FILE(LFCA,AS),NOLFCA) 
COPYBF(LFCA,LFN,2)
RETURN(LFCA)
ELSE(NOLFCA)
WRITEF(LFN,2) 
ENDIF(NOLFCA) 
REWIND(LFN,PFGFILE) 
COPYBF(LFN,PFGFILE,7) 
ATTACH(PCMB=PCMB_BL_UNP)
COPYEI(PCMB,PFGFILE)
BEGIN(PFGOUT,INSTALL,#PRDNAME=CCPB,LFN=PFGFILE) 
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(PCCP_BL/NA)
#PURGE(LIMC_CL/NA)
#PURGE(LMFB_CL/NA)
#PURGE(LSAM_CL/NA)
#PURGE(LFCA_CL/NA)
ENDIF(NOPURGE)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /V/
.*
IFE($PRDNAME$.EQ.$V$,NO)
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(ZAP=Z_VN_CL) 
COPYBF(ZAP,LFN) 
RETURN(ZAP) 
ATTACH(PICB=I_VN_CL)
COPYBF(PICB,LFN)
RETURN(PICB)
ATTACH(SYM=S_VN_CL) 
COPYBF(SYM,LFN) 
RETURN(SYM) 
IFE(FILE(LVRB,AS),NOTLOCL)
RENAME(LST=LVRB)
REWIND(LST) 
ELSE(NOTLOCL) 
ATTACH(LST=L_VN_CL/NA)
ENDIF(NOTLOCL)
.*
IFE(FILE(LST,AS),NOLST) 
COPYBF(LST,LFN,3) 
RETURN(LST) 
ELSE(NOLST) 
WRITEF(LFN,3) 
ENDIF(NOLST)
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(L_VN_CL/NA)
ENDIF(NOPURGE)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPT/ 
.*
IFE($PRDNAME$.EQ.$CCPT$,NO) 
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(PBST=PBST_BL_UNP)
COPYBF(PBST,LFN)
RETURN(PBST)
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(PBST_BL/NA)
ENDIF(NOPURGE)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPD/ 
.*
IFE($PRDNAME$.EQ.$CCPD$,NO) 
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(PDGN=PDGN_BL_UNP)
COPYBF(PDGN,LFN)
RETURN(PDGN)
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(PDGN_BL/NA)
ENDIF(NOPURGE)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPR/ 
.*
IFE(.NOT.FILE(LFN,DT(NE)),NOTAPE) 
ATTACH(PREM=PREM_BL_UNP)
COPYBF(PREM,LFN)
RETURN(PREM)
ENDIF(NOTAPE) 
IFE($#PURGE$.EQ.$PURGE$,NOPURGE)
#PURGE(PREM_BL/NA)
ENDIF(NOPURGE)
.*
.*    END CASE
.*
ENDIF(ENDCASE)
  
BEGIN(PRDOUT,INSTALL,#PRDNAME=PRDNAME_VN,NEWPL=LFN,#PNO=PNO,#PRO=PRO) 
  
REVERT.  DRTBAT1. 
.*
EXIT. 
REVERT(ABORT)  DRTBAT1. 
*WEOR 
