CCPPH1
.PROC,CCPPH1*I,\
DIAG    ' ONLINE DIAGNOSTICS OVERLAY (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
REMT    ' REMOTE DUMP/LOAD OVERLAY   (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
BSTP    ' 3270 TIP                   (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
XTRAPLS ' MERGE EXTRA PLS INTO PCMB  (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
*CALL COMCCPL 
*CALL COMIA 
*CALL COMTOB
*CALL COMNECS 
*CALL COMNOPG 
*CALL COMPC 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPPH1 - CCP PHASE 1 BUILD. 
  
.***    PARAMETERS
.*
.*      CCPLIST  LIST OPTION: 
.*               NO  - NO ASSEMBLY/COMPILER LISTING.
.*               YES - WRITE ASSEMBLY/COMPILER LISTING TO FILE *OUTPUT*.
.*               PF  - WRITE ASSEMBLY/COMPILER LISTING TO PERMANENT 
.*                     FILES *LMFB*, *LIMC* AND TO RELEASE TAPE.
.*      DIAG     ON-LINE DIAGNOSTICS OPTION:  
.*               NO  - DO NOT INITIALIZE FOR ON-LINE DIAGNOSTICS
.*                     OVERLAY. 
.*               YES - INITIALIZE FOR ON-LINE DIAGNOSTICS OVERLAY.
.*      REMT     REMOTE DUMP/LOAD OPTION: 
.*               NO  - DO NOT INITIALIZE FOR REMOTE DUMP/LOAD OVERLAY.
.*               YES - INITIALIZE FOR REMOTE DUMP/LOAD OVERLAY. 
.*      BSTP     3270 TIP OPTION- 
.*               NO  - DO NOT INITIALIZE FOR 3270 TIP.
.*               YES - INITIALIZE FOR 3270 TIP. 
.*      PC       PERMANENT CORRECTIONS OPTION:  
.*               NO  - DO NOT APPLY PERMANENT CORRECTIONS.
.*               YES - APPLY PERMANENT CORRECTIONS FROM PL *CNSP* 
.*                     NON PERMANENT CORRECTIONS(*CNSP*) ARE APPLIED
.*                     ONLY TO THE BINARY.  IMCBAT1 COLLECTS THESE
.*                     MODSETS FOR THE PL'S ACTUALLY USED, AND STORES 
.*                     THEM IN PERMANENT FILE *UCCPCC*.  PROCEDURE
.*                     CCPGNPL COMBINES UCCPCC AND UCCP INTO ONE MODSET 
.*                     FILE.  EITHER FILE MAY OR MAY NOT EXIST.  IF BOTH
.*                     EXIST, THEN UCCPCC IS APPLIED FIRST. 
.*      NOECS    INCLUDE KEYWORD IF ECS IS DOWN, OR AVAILABLE BUT 
.*                 WILL NOT BE USED.
.*      NOPURGE  INCLUDE KEYWORD TO PREVENT DRTBAT1 FROM PURGING FILES. 
.*
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CCPPH1,,,,IA,TOBLD,NONE,JOBTYPE=CCP)
REVERT.  CCPPH1.
EXIT. 
REVERT(ABORT)  CCPPH1.
.DATA,ZZZPROC.
.PROC,CCPPH1. 
.*
.*  LOAD RELEASE PL'S TO DISK.  V3.6
.*
BEGIN(RTDBAT1,INSTALL,PRDNAME=CCPB,NOBIN) 
IFE($BSTP$.EQ.$YES$,COPYCCPT) 
BEGIN(RTDBAT1,INSTALL,PRDNAME=CCPT) 
RETURN(CCPT)
ENDIF(COPYCCPT) 
RETURN(CCPB)
IFE($DIAG$.EQ.$YES$,COPYCCPD) 
BEGIN(RTDBAT1,INSTALL,PRDNAME=CCPD) 
RETURN(CCPD)
ENDIF(COPYCCPD) 
IFE($REMT$.EQ.$YES$,COPYCCPR) 
BEGIN(RTDBAT1,INSTALL,PRDNAME=CCPR) 
RETURN(CCPR)
ENDIF(COPYCCPR) 
.*
.*  INITIALIZE CCP. 
.*
BEGIN(IMCBAT1,INSTALL,#CC=CC,#PC=PC,#CCPLIST=CCPLIST,#XTRAPLS=XTRAPLS)
.*
.*  BUILD MUX FIRMWARE LOAD MODULE. 
.*
BEGIN(MFBBAT1,INSTALL,#CCPLIST=CCPLIST) 
.*
.*  BUILD SAM LOAD MODULE.
.*
BEGIN(SAMBAT1,INSTALL,#CCPLIST=CCPLIST,ECS=NOECS) 
.*
.*  CREATE RELEASE DUMP FILES 
.*
IFE(($BSTP$.EQ.$YES$).AND.($PC$.EQ.$YES$),GENCCPT)
BEGIN(DRTBAT1,INSTALL,PRDNAME=CCPT,PURGE=NOPURGE) 
RETURN(CCPTNEW) 
ENDIF(GENCCPT)
IFE(($DIAG$.EQ.$YES$).AND.($PC$.EQ.$YES$),GENCCPD)
BEGIN(DRTBAT1,INSTALL,PRDNAME=CCPD,PURGE=NOPURGE) 
RETURN(CCPDNEW) 
ENDIF(GENCCPD)
IFE(($REMT$.EQ.$YES$).AND.($PC$.EQ.$YES$),GENCCPR)
BEGIN(DRTBAT1,INSTALL,PRDNAME=CCPR,PURGE=NOPURGE) 
RETURN(CCPRNEW) 
ENDIF(GENCCPR)
RETURN(NEWPL) 
REVERT.  CCPPH1 COMPLETE. 
EXIT. 
RETURN(NEWPL) 
REVERT(ABORT)  CCPPH1 ERRORS. 
*WEOR 
