CCPBLB
.PROC,CCPBLB*I,\
XREF    ' SELECT CROSS REFERENCE     (NO/YES)  '=(*N=NO,NO,YES,*K=YES), 
*CALL COMCCPL 
*CALL COMIA 
*CALL COMTOB
*CALL COMNECS 
*CALL COMNOPG 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPBLB - BUILD CCP BINARY LIBRARY.
  
.***    PARAMETERS
.*
.*      CCPLIST  LIST OPTION: 
.*               NO  - NO ASSEMBLY/COMPILER LISTING.
.*               YES - WRITE ASSEMBLY/COMPILER LISTING TO FILE *OUTPUT*.
.*               PF  - WRITE ASSEMBLY/COMPILER LISTING TO PERMANENT FILE
.*                     *LFCA* AND TO RELEASE TAPE.
.*      XREF     PASCAL CROSS-REFERENCE OPTION: 
.*               NO  - DO NOT GENERATE PASCAL CROSS-REFERENCE LISTING.
.*               YES - GENERATE PASCAL CROSS-REFERENCE LISTING IN PLACE 
.*                     OF PASCAL COMPILER LISTING, AS SPECIFIED BY THE
.*                     *LIST* PARAMETER.
.*      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,CCPBLB,,,,IA,TOBLD,NONE,JOBTYPE=CCP)
REVERT.  CCPBLB.
EXIT. 
REVERT(ABORT)  CCPBLB.
.DATA,ZZZPROC)
.PROC,CCPBLB. 
.*
.*  BUILD CCP BINARY LIBRARY. 
.*
BEGIN(FCABAT1,INSTALL,#CCPLIST=CCPLIST,#XREF=XREF,ECS=NOECS)
.*
.*  CREATE PRD=CCPB RELEASE DUMP FILE 
.*
BEGIN(DRTBAT1,INSTALL,PRDNAME=CCPB,PURGE=NOPURGE) 
RETURN(CCPBNEW) 
REVERT.  CCPBLB COMPLETE. 
EXIT. 
RETURN(NEWPL) 
REVERT(ABORT)  CCPBLB ERRORS. 
*WEOR 
