CCPLOAD 
.PROC,CCPLOAD*I,\ 
GN      ' 1 TO 3 CHARACTER LOAD FILE NAME      '=(*S3/AD),
*CALL COMIA 
*CALL COMTOB
*CALL COMPROC 
. 
*CALL     PSRLEV
  
.*****  CCPLOAD - GENERATE CCP LOAD FILE. 
  
.***    PARAMETERS
.*
.*      GN       ONE- TO THREE- CHARACTER LOAD FILE NAME.  THE LOAD FILE
.*               GENERATED BY *CCPLOAD* WILL BE WRITTEN TO PERMANENT
.*               FILE *G_GN*.  LOAD FILE *GN* MUST BE DEFINED IN
.*               *USERBPS*. 
  
.***    NOTE:  JOB NAME AND RECORD NAME IN *DAYFILS*IS *CCP_GN*RATHER 
.*             THAN * CCPLOAD* .
  
.*
.*  START JOB VIA CCPPROC.
.*
BEGIN(SUBPROC,INSTALL,CCP_GN,,,,IA,TOBLD,NONE,JOBTYPE=CCP)
REVERT.  CCPLOAD. 
EXIT. 
REVERT(ABORT)  CCPLOAD. 
.DATA,ZZZPROC.
.PROC,CCP_GN. 
.*
.*  GENERATE CCP LOAD FILE.  V3.6 
.*
BEGIN(GLFBAT1,INSTALL,#GN=GN) 
RETURN(NEWPL) 
REVERT.  CCPLOAD COMPLETE.
EXIT. 
RETURN(NEWPL) 
REVERT(ABORT)  CCPLOAD ERRORS.
*WEOR 
