CSV and XML File Production › Creating CA NSM CSV Files Using CA Earl › CA Earl Batch Execution JCL

CA Earl Batch Execution JCL

Member CAJRCSVT, found in CAJRJCL, is used as an example of the JCL requirements to create CSV files as output from CA Earl. Below is a sample CAJRCSVT member.

//CAJRCSVT JOB (ACCTINFO),'PGMR',CLASS=A,MSGCLASS=X,REGION=0M 
//*********************************************************************
//*  MEMBER : CAJRCSVT 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. OF  PARTICULAR  INTEREST ARE THE  CAIJSCSV  AND *
//*           CAIJSIDX DD STATEMENTS WHICH DEFINE THE CSV PDS DATA SET*
//*           AND THE  CSV INDEX DATA SET.  ALSO NOTICE THE  SYSIN DD *
//*           STATEMENT  WHICH  INDICATES  THE  CA-EARL  PROGRAM  TO  *
//*           EXECUTE.                                                *
//*                                                                   *
//*  **NOTE** EACH RUN OF THIS JOB CREATES A (+1) OF THE CAIJSCSV GDG *
//*           DATA SET. THIS  IS DONE  TO  PREVENT  THE  PROGRAM FROM *
//*           OVERWRITING EXISTING  PDS MEMBERS,  AS  THE PGM CREATES *
//*           MEMBERS STARTING  WITH CSVM01CC,  AND INCREMENTING  THE *
//*           NUMERICS WITH EACH DATE CHANGE ON THE INPUT FILE.       *
//*                                                                   *
//*  MODIFICATIONS:                                                   *
//*                                                                   *
//*  1.  THE INDEX DATA SET MUST EXIST  PRIOR TO  SUBMISSION OF THIS  *
//*      JOB.  PROCESS MEMBER 'CAJRTNGI' IN  CAI.CAJRJCL TO ALLOCATE  *
//*      AND  INITIALIZE  THE  INDEX DATA SET, CAIJSIDX.  REFER  TO   *
//*      CHAPTER 10:  'CA-JARS AND CA-UNICENTER/TNG PERFORMANCE  AND  *
//*      TREND INTEGRATION' IN THE CA-JARS r12 USER  GUIDE FOR MORE   *
//*      DETAILED  INFORMATION ON  THE  CREATION OF CA-UNICENTER TNG  *
//*      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.                                 *
//*                                                                   * 
//*  5.  UPDATE THE SYSIN DD STATEMENT TO REFLECT EITHER THE TYPE OF  * 
//*      CSV FILE THAT YOU WOULD LIKE TO GENERATE.  SELECT FROM       * 
//*      CAI.CAJREARL MEMBERS ERXT0262 THROUGH 269. REFER TO          * 
//*      CHAPTER 10: CA-JARS AND CA-UNICENTER/TNG PERFORMANCE TREND   * 
//*      INTEGRATION FOR DETAILS.                                     * 
//*                                                                   * 
//*  6.  UPDATE THE HISTIN DD STATEMENT TO REFLECT EITHER A CA-JARS   * 
//*      ACCOUNT OR HISTORY FILE THAT CONTAINS RMF EXT DATA RECORDS.  * 
//*      REFER TO CHAPTER 4: CA-JARS CONTROL STATEMENTS AND TABLES OF * 
//*      THE CA-JARS r12 USER GUIDE FOR DETAILS.                      * 
//*                                                                   * 
//*      **NOTE** RETURN CODE SHOULD NOT BE GREATER THAN 4.           * 
//*                                                                   * 
//********************************************************************* 
//EARL     EXEC PGM=EARL                                                
//*                                                                     
//STEPLIB   DD DISP=SHR,DSN=CAI.CAJRLOAD                  <==CUSTOMIZE  
//EARLLIB   DD DISP=SHR,DSN=CAI.CAJREARL                  <==CUSTOMIZE  
//EARLOBJ   DD UNIT=SYSDA,SPACE=(CYL,(3,1))                             
//CAIJSPRT  DD SYSOUT=*                                                 
//SYSPRINT  DD SYSOUT=*                                                 
//SYSEARL   DD SYSOUT=*,DCB=(RECFM=VBS,LRECL=216,BLKSIZE=2160)          
//SYSOUT    DD SYSOUT=*                                                 
//SYSUDUMP  DD SYSOUT=*                                                 
//CAIJSCSV  DD DSN=CAI.CSVTNG.PDS.GDG(+1),                <==CUSTOMIZE  
//             DISP=(NEW,CATLG,DELETE),                                 
//             UNIT=?????,VOL=SER=XXXXXX,                 <==CUSTOMIZE  
//             SPACE=(CYL,(3,5,20)),                                    
//             DSORG=PO,                                                
//             RECFM=VB,LRECL=612,BLKSIZE=0                             
//CAIJSIDX  DD DSN=CAI.CSVTNG.INDEX,                      <==CUSTOMIZE  
//             DISP=(MOD,KEEP,KEEP)                                     
//SORTIN    DD UNIT=SYSDA,SPACE=(CYL,(600,150))                         
//SORTOUT   DD UNIT=SYSDA,SPACE=(CYL,(600,150))                         
//SORTWK01  DD UNIT=SYSDA,SPACE=(CYL,(200,15))                          
//SORTWK02  DD UNIT=SYSDA,SPACE=(CYL,(200,15))                          
//SORTWK03  DD UNIT=SYSDA,SPACE=(CYL,(200,15))                             
//WORK1     DD UNIT=SYSDA,SPACE=(CYL,(25,15))                              
//SYSUT1    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSUT2    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSUT3    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSUT4    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSUT5    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSUT6    DD UNIT=SYSDA,SPACE=(CYL,(5,15))                               
//SYSIN     DD DISP=SHR,DSN=CAI.CAJREARL(ERXT0269)        <==CUSTOMIZE     
//HISTIN    DD DISP=SHR,DSN=your.acct.or.history.file     <==CUSTOMIZE     
/*                                                                         
//

The three DDNAMEs of importance are:

CAIJSPRT

contains any error messages printed by the JSICSVT exit program. The exit program prints error messages to the CAIJSPRT DDNAME and then terminates the CA Earl 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

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

CAIJSIDX

points to the CSV index file.