CSV and XML File Production › Creating CSV Files Using the CA Earl Report Writer › CA Earl Batch Execution JCL

CA Earl Batch Execution JCL

Member CAJRCSVE, found in the CAJRJCL data set, is used as an example of the JCL requirements and SORT control statement changes necessary to create CSV files as output from CA Earl.

//CAJRCSVE JOB (ACCTINFO),'PGMR',CLASS=A,MSGCLASS=X,REGION=0M
//*********************************************************************  
//*  MEMBER : CAJRCSVE IN CAI.CAJRJCL.                                *  
//*                                                                   *  
//*  PURPOSE: THIS IS  AN EXAMPLE JCL  MEMBER THAT SHOWS THE USER HOW *  
//*           TO CREATE  CSV FILES  IN A PDS USING THE CA-EARL REPORT *  
//*           WRITER. THE CAIJSCSV AND  CAIJSIDX DD STATEMENTS  WHICH *  
//*           DEFINE  THE CSV PDS DATASET AND  THE  CSV INDEX DATASET *  
//*           ARE OF PARTICULAR INTEREST. ALSO  NOTICE  THE  SYSIN DD *  
//*           STATEMENT  WHICH  INDICATES  THE  CA-EARL  PROGRAM  TO  *  
//*           EXECUTE.                                                *  
//*                                                                   *  
//*  MODIFICATIONS:                                                   *  
//*                                                                   *  
//*  1.  THE INDEX DATASET  MUST EXIST  PRIOR  TO SUBMISSION  OF THIS *  
//*      JOB.  PROCESS MEMBER 'CAJRINIT' IN  CAI.CAJRJCL  TO ALLOCATE *  
//*      AND  INITIALIZE THE  INDEX DATASET, CAIJSIDX.  REFER TO  THE *  
//*      CSV FILE PRODUCTION CHAPTER OF THE  CA-JARS r12 USERS GUIDE  *  
//*      FOR MORE DETAILED INFORMATION ON THE CREATION OF CSV FILES.  *  
//*                                                                   *  
//*  2.  CHANGE  ALL REFERENCES TO 'CAI' TO  MATCH YOUR  INSTALLATION *  
//*      STANDARDS.                                                   *  
//*                                                                   *  
//*  3.  ALL  UNIT=SYSDA STATEMENTS  MAY HAVE  TO BE  CHANGED IF YOUR *  
//*      INSTALLATION  USES DIFFERENT  ESOTERIC NAMES  FOR  TEMPORARY *  
//*      DASD.                                                        *  
//*                                                                   *  
//*  4.  ALL UNIT=???? AND VOL=SER=XXXXXX HAVE TO BE CHANGED TO MATCH *  
//*      YOUR INSTALLATION STANDARDS.                                 *  
//*                                                                   *  
//*      **NOTE** RETURN CODE SHOULD NOT BE GREATER THAN 4.           *  
//*                                                                   *  
//*********************************************************************  
//EARL     EXEC PGM=EARL                                                 
//STEPLIB  DD DSN=CAI.CAJRLOAD,DISP=SHR                  <==CUSTOMIZE    
//EARLLIB  DD DSN=CAI.CAJREARL,DISP=SHR                  <==CUSTOMIZE    
//EARLOBJ  DD UNIT=SYSDA,SPACE=(CYL,(3,1))                               
//CAIJSPRT DD SYSOUT=*                                                    
//SYSPRINT DD SYSOUT=*,DCB=(RECFM=VBS,LRECL=216,BLKSIZE=2160)             
//SYSOUT   DD SYSOUT=*                                                    
//CAIJSCSV DD DSN=CAI.JARS.EARL.CSVPDS.OUTPUT,           <==CUSTOMIZE     
//          DISP=(NEW,CATLG,KEEP),                                        
//          DCB=(RECFM=VB,LRECL=512,BLKSIZE=5124),                        
//          UNIT=????,VOL=SER=XXXXXX,                    <==CUSTOMIZE     
//          SPACE=(CYL,(10,5,20)),                                        
//          DSORG=PO                                                      
//CAIJSIDX  DD DSN=CAI.JARS.EARL.CSVPDS.INDEX,           <==CUSTOMZIE     
//         DISP=MOD                                                       
//SORTIN   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SORTOUT  DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//WORK1    DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSUT1   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSUT2   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSUT3   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSUT4   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSUT5   DD UNIT=SYSDA,SPACE=(CYL,(5,2))                                
//SYSIN    DD DSN=CAI.CAJREARL(ERXT0259),DISP=SHR        <==CUSTOMIZE     
//HISTIN   DD DSN=CAI.JARS.ACCT,DISP=SHR                 <==CUSTOMIZE     
/*                                                                        
//

The three DDNAMEs of importance are:

CAIJSPRT DDNAME

contains any error messages printed by the JSICSVE exit program.

Note: The exit program prints error messages to the CAIJSPRT DDNAME; then terminates the execution with a U3000 abend. If you receive any U3000 abends when creating CSV files, check the CAIJSPRT DDNAME output to see if the exit detected any fatal errors.

CAIJSCSV DDNAME

indicates the repository for the CSV file to be created during this execution of CA Earl.

CAIJSIDX DDNAME

points to the CSV index file.