CCPMOVE 
.PROC,CCPMOVE*I,\ 
*CALL COMD4 
*CALL COMPROC 
. 
  
*CALL PSRLEV
* CCPMOVE - MOVE FILES TO PACK FOR CCP BUILD. 
  
.****  CCPMOVE
.*
.*        IF CCP IS TO BE BUILT ON A REMOVEABLE PACK, THEN
.*        THE NECESSARY PERMANENT FILES ARE MOVED TO THE PACK.
  
UNLOAD(INSTALL) 
PURGE(DECKOPL,INSTALL,CODEPL/#PN=PN,R=PR,NA)
PURGE(GLOBLIB,GLOBLOC,GLOBOLD/#PN=PN,R=PR,NA) 
DEFINE(DECKOPL,INSTALL,CODEPL/#PN=PN,R=PR)
DEFINE(G1=GLOBLIB/#PN=PN,R=PR)
GET(AALK,AASM,ACYP,AEDT,AEXP,AFMT,ALIB,ALNK,AMAC,AMAS,APAS,AXRF)
SAVE(AALK,AASM,ACYP,AEDT,AEXP,AFMT/#PN=PN,R=PR) 
SAVE(ALIB,ALNK,AMAC,AMAS,APAS,AXRF/#PN=PN,R=PR) 
UNLOAD(AALK,AASM,ACYP,AEDT,AEXP,AFMT,ALIB,ALNK,AMAC,AMAS,APAS,AXRF) 
ATTACH(D=DECKOPL,I=INSTALL) 
ATTACH(C=CODEPL/NA) 
BEGIN(ACCESS,INSTALL,GLOBLIB) 
COPYEI(D,DECKOPL) 
COPYEI(I,INSTALL) 
COPYEI(C,CODEPL)
COPYEI(GLOBLIB,G1)
RETURN(D,I,C,G1,G2,G3,GLOBLIB)
REVERT.     CCPMOVE.
EXIT. 
REVERT(ABORT)     CCPMOVE.
*WEOR 
