CSV and XML File Production › Creating CSV Files Using the CA Earl Report Writer › Define a GDG PDS Data Set (Optional)

Define a GDG PDS Data Set (Optional)

Member CAJRGDGS, found in the CAJRJCL data set, is used to initialize a GDG data set on disk that becomes a repository for CSV files created by this product or CA Earl. The creation of a GDG data set is not required but recommended. As many different GDG CSV data sets as required may be created. For example, you can create a daily, weekly, monthly, quarterly or yearly CSV GDG data set. Each CSV GDG data set can be managed by a separate index data set, or all CSV GDG data sets can be managed by a single index data set.

//CAJRGDGS JOB (ACCTINFO),'PGMR',CLASS=A,MSGCLASS=X,REGION=0M 
//*********************************************************************
//*                                                                   *
//*  MEMBER : CAJRGDGS FROM CAI.CAJRJCL                               *
//*                                                                   *
//*  PURPOSE: THIS  SAMPLE MEMBER  MAY BE USED  AS AN  EXAMPLE  FOR   *
//*           DEFINING A GDG DATASET TO CONTAIN CSV MEMBERS CREATED   *
//*           BY THE CA-JARS REPORT  WRITER AND THE  CA-EARL REPORT   *
//*           WRITER.                                                 *
//*                                                                   *
//*  MODIFICATIONS:                                                   *
//*                                                                   *
//*  1.  CHANGE ALL OCCURENCES OF 'CAI' TO MATCH YOUR HIGH            *
//*      LEVEL QUALIFIERS IN USE AT YOUR INSTALLATION.                *
//*                                                                   *
//*********************************************************************
//BLDGDGS  EXEC PGM=IDCAMS                                             
//SYSPRINT DD SYSOUT=*                                                 
//CSVPDS   DD DSN=CAI.CSVPDS.GDG,                        <=== MODIFY   
//         DISP=(,KEEP),SPACE=(CYL,5),                                 
//         DCB=(RECFM=VB,LRECL=512,BLKSIZE=5124)                       
//SYSIN    DD *                                                        
  DEFINE GDG(NAME(CAI.CSVPDS.GDG) LIMIT(255) SCRATCH)    <=== MODIFY   
/*                                                                     
//