RTDBAT1 
.PROC,RTDBAT1*I,\ 
*CALL COMPRD
VN      ' 3 CHARACTER VARIANT NAME             '=(*N=,,*A3),
RL      ' 3 CHARACTER RELEASE LEVEL            '=(*N=,,*A3),
NOBIN   ' SAVE CCP/CROSS FILES        (YES/NO) '=(*N=BIN,NO=NOBIN,
                                                  YES=BIN,*K=NOBIN),
*CALL COMD4 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.****   RTDBAT1 
.*
.*      LOAD RELEASE FILE TO DISK 
.*
  
BEGIN(SETAJTL,INSTALL)
.*
.*  GET THE PRODUCT INPUT FILE
.*
BEGIN(PRDIN,INSTALL,#PRDNAME=PRDNAME_VN,DISK=0,OLDPL=0,#PN=PN,#PR=PR) 
RENAME(LFN=PRDNAME_VN)
REWIND(LFN) 
.*
.*  CASE /PRDNAME/
.*
.*    OF /CRSS/ 
.*
IFE($PRDNAME$.EQ.$CRSS$,NO) 
.*
PURGE(PCRS_RL/NA) 
DEFINE(PCRS=PCRS_RL)
COPYBF(LFN,PCRS)
RETURN(PCRS)
IFE($#NOBIN$.EQ.$NOBIN$,YESBIN) 
SKIPF(LFN,7)
ELSE(YESBIN)
.*
COPYBF(LFN,BIN) 
.*
PURGE(AFMT_RL/NA) 
DEFINE(FORMAT=AFMT_RL)
GTR(BIN,FORMAT)ABS/FRMT 
RETURN(FORMAT)
.*
PURGE(AASM_RL/NA) 
DEFINE(ASSEM=AASM_RL) 
GTR(BIN,ASSEM)OVL/ASSEM 
RETURN(ASSEM) 
.*
PURGE(AMAC_RL/NA) 
DEFINE(MACRO=AMAC_RL) 
GTR(BIN,MACRO)OVL/SMAC17
RETURN(MACRO) 
.*
PURGE(AMAS_RL/NA) 
DEFINE(MASSEM=AMAS_RL)
GTR(BIN,MASSEM)ABS/MASSEM 
RETURN(MASSEM)
.*
PURGE(ALIB_RL/NA) 
DEFINE(MPLIB=ALIB_RL) 
GTR(BIN,MPLIB)ABS/MPLIB 
RETURN(MPLIB,BIN) 
.*
SKIPF(LFN,2)
.*
PURGE(AXRF_RL/NA) 
DEFINE(XREF=AXRF_RL)
COPYBF(LFN,XREF)
RETURN(XREF)
.*
PURGE(ALNK_RL/NA) 
DEFINE(MPLINK=ALNK_RL)
COPYBF(LFN,MPLINK)
RETURN(MPLINK)
.*
PURGE(AEDT_RL/NA) 
DEFINE(MPEDIT=AEDT_RL)
COPYBF(LFN,MPEDIT)
RETURN(MPEDIT)
.*
PURGE(APAS_RL/NA) 
DEFINE(PASCAL=APAS_RL)
COPYBF(LFN,PASCAL)
RETURN(PASCAL)
.*
ENDIF(YESBIN) 
PURGE(ACYP_RL/NA) 
DEFINE(CYPASCL=ACYP_RL) 
COPYBF(LFN,CYPASCL) 
RETURN(CYPASCL) 
.*
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPB/ 
.*
IFE($PRDNAME$.EQ.$CCPB$,NO) 
PURGE(PCCP_RL/NA) 
DEFINE(PCCP=PCCP_RL)
COPYBF(LFN,PCCP)
RETURN(PCCP)
IFE($NOBIN$.EQ.$BIN$,ENDCASE) 
COPYBF(LFN,BIN) 
PURGE(AEXP_RL/NA) 
DEFINE(EXPAND=AEXP_RL)
GTR(BIN,EXPAND)ABS/EXPAND 
RETURN(EXPAND)
PURGE(AALK_RL/NA) 
DEFINE(AUTOLNK=AALK_RL) 
GTR(BIN,AUTOLNK)ABS/AUTOLNK-OVL/OUTDIRS 
RETURN(AUTOLNK,BIN) 
PURGE(ZMUX_RL/NA) 
DEFINE(ZMUX=ZMUX_RL)
COPYBF(LFN,ZMUX,2)
RETURN(ZMUX)
PURGE(ZSAM_RL/NA) 
DEFINE(ZSAM=ZSAM_RL)
COPYBF(LFN,ZSAM)
RETURN(ZSAM)
PURGE(SMUX_RL/NA) 
DEFINE(SMUX=SMUX_RL)
COPYBF(LFN,SMUX)
RETURN(SMUX)
PURGE(BCMB_RL/NA) 
DEFINE(BCMB=BCMB_RL)
COPYBF(LFN,BCMB)
RETURN(BCMB)
IF, FILE(PFGFLAG, AS) ,RTD1.
  PURGE(PCMB_RL/NA) 
  DEFINE(PCMB=PCMB_RL)
  COPYEI(LFN,PCMB)
  RETURN(PCMB)
ENDIF(RTD1) 
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /V/
.*
IFE($PRDNAME$.EQ.$V$,NO)
PURGE(Z_VN_RL/NA) 
DEFINE(ZAP=Z_VN_RL) 
COPYBF(LFN,ZAP) 
RETURN(ZAP) 
PURGE(I_VN_RL/NA) 
DEFINE(PICB=I_VN_RL)
COPYBF(LFN,PICB)
RETURN(PICB)
PURGE(S_VN_RL/NA) 
DEFINE(SYM=S_VN_RL) 
COPYBF(LFN,SYM) 
RETURN(SYM) 
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPT/ 
.*
IFE($PRDNAME$.EQ.$CCPT$,NO) 
PURGE(PBST_RL/NA) 
DEFINE(PBST=PBST_RL)
COPYBF(LFN,PBST)
RETURN(PBST)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPD/ 
.*
IFE($PRDNAME$.EQ.$CCPD$,NO) 
PURGE(PDGN_RL/NA) 
DEFINE(PDGN=PDGN_RL)
COPYBF(LFN,PDGN)
RETURN(PDGN)
SKIP(ENDCASE) 
ENDIF(NO) 
.*
.*    OF /CCPR/ 
.*
PURGE(PREM_RL/NA) 
DEFINE(PREM=PREM_RL)
COPYBF(LFN,PREM)
RETURN(PREM)
.*
.*    END CASE
.*
ENDIF(ENDCASE)
  
RENAME(PRDNAME_VN=LFN)
  
REVERT.  RTDBAT1. 
.*
EXIT. 
REVERT(ABORT)  RTDBAT1. 
*WEOR 
