CSV and XML File Production › Creating CSV Files Using the CA Earl Report Writer › Allocate and Initialize the Index Data Set

Allocate and Initialize the Index Data Set

Member CAJRINIT, found in the CAJRJCL data set, is used to initialize the CAIJSIDX index data set to track the location of CSV files. This JCL is executed initially to create the index file, or clear or re-initialize an index data set.

//CAJRINIT JOB (ACCTINFO),'PGMR',CLASS=A,MSGCLASS=X,REGION=0M
//*********************************************************************   
//*                                                                   *   
//*  MEMBER : CAJRINIT FROM CAI.CAJRJCL                               *   
//*                                                                   *   
//*  PURPOSE: THIS SAMPLE JCL MEMBER MAY BE USED TO INITIALIZE THE    *   
//*           INDEX FILE TO TRACK CSV FILE PRODUCTION.                *   
//*                                                                   *   
//*  MODIFICATIONS:                                                   *   
//*                                                                   *   
//*  1.  CHANGE 'CAI' FOR THE SYSUT1 AND SYSUT2 TO MATCH YOUR HIGH    *   
//*      LEVEL QUALIFIERS IN USE AT YOUR INSTALLATION.                *   
//*                                                                   *   
//*  2.  CHANGE 'VOLID' TO THE VOLSER OF THE DASD DEVICE TO BE USED.  *   
//*                                                                   *   
//*  3.  CHANGE 'PERM' TO THE DEVICE TYPE OF THE VOLSER TO BE USED.   *   
//*                                                                   *   
//*********************************************************************   
//CR8IDX    EXEC PGM=IEBGENER                                             
//SYSPRINT  DD   SYSOUT=*                                                 
//SYSUT1    DD   DSN=CAI.CAJROPTN(CAJRINDX),DISP=SHR         <=== MODIFY  
//SYSUT2    DD   DSN=CAI.CSVPDS.INDEX,                       <=== MODIFY  
//          DISP=(,CATLG,DELETE),VOL=SER=VOLID,UNIT=PERM,    <=== MODIFY  
//          DCB=(RECFM=VB,LRECL=255,BLKSIZE=2550),DSORG=PS,               
//          SPACE=(TRK,(5,2))                                             
//SYSIN     DD   DUMMY                                                    
/*                                                                        
//