CCG 
.PROC,CCG*I,\ 
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* CCG - COMMON CODE GENERATOR 
*CALL     PSRLEV
* 
  
.*
.*  START CCG VIA SUBPROC.
.*
BEGIN(SUBPROC,INSTALL,CCG,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF)
REVERT.        CCG. 
EXIT. 
REVERT(ABORT)  CCG. 
  
  
.DATA,ZZZPROC 
.PROC,CCG.
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=CCG1,#PN=PN,#PR=PR,DISK=0)
BEGIN(GETPC,INSTALL,#PCDECK=CCG,#PCPL=CPRD,#PC=PC,#CC=CC) 
REWIND(USER)
SKIPEI(MODS)
IFE(FILE(USER,AS),L00002) 
   COPYEI(USER,MODS)
ENDIF(L00002) 
PACK(MODS)
UPDATE(F,P=OLDPL,C=0,I=MODS,N=NEWPL)
BEGIN(PRDOUT,INSTALL,PRDNAME=CCG1,#PNO=PNO,#PRO=PRO)
REVERT.  CCG. 
EXIT. 
REVERT(ABORT)  CCG. 
*WEOR 
