CCPVAR
.PROC,CCPVAR*I,\
VN      ' 3 CHARACTER VARIANT NAME IN USERBPS  '=(*S3/AD),
*CALL COMCCPV 
*CALL COMIA 
*CALL COMTOB
*CALL COMNOPG 
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPVAR - GENERATE CCP VARIANT LOAD MODULE.
  
.***    PARAMETERS
.*
.*      VARLIST  LIST OPTION: 
.*               NO  - NO ASSEMBLY/COMPILER LISTING.
.*               YES - WRITE ASSEMBLY/COMPILER LISTING TO FILE *OUTPUT* 
.*               PF  - WRITE ASSEMBLY/COMPILER LISTING TO PERMANENT FILE
.*                     AND TO RELEASE TAPE. 
.*      VN       VARIANT NAME (MUST APPEAR AS A VARIANT DEFINITION IN 
.*               THE *USERBPS* FILE).  THE VARIANT LOAD FILE WILL BE
.*               WRITTEN TO PERMANENT FILE *Z_VN*.
.*      NOPURGE  INCLUDE KEYWORD TO PREVENT DRTBAT1 FROM PURGING FILES. 
  
.***    NOTE - THE JOB NAME FOR *CCPVAR* AS IT APPEARS IN THE *DAYFILS* 
.*           AND *JOBSTAT* FILES IS *CCP_VN* RATHER THAN *CCPVAR*.
.*
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CCP_VN,,,,IA,TOBLD,NONE,JOBTYPE=CCP)
REVERT.  CCPVAR.
EXIT. 
REVERT(ABORT)  CCPVAR.
.DATA,ZZZPROC.
.PROC,CCP_VN. 
.*
.*  BUILD VARIANT VN.  V3.6 
.*
BEGIN(VRBBAT1,INSTALL,#VN=VN,#VARLIST=VARLIST)
RETURN(NEWPL) 
.*
.*  CREATE OUTPUT V_VN DUMP FILE
.*
BEGIN(DRTBAT1,INSTALL,PRDNAME=V,#VN=VN,PURGE=NOPURGE) 
REVERT.  CCPVAR COMPLETE. 
EXIT. 
RETURN(NEWPL) 
REVERT(ABORT)  CCPVAR ERRORS. 
*WEOR 
