Batch Processing & Reporting › Reporting with CA Earl › Generating the General Ledger Interface File › The CAKSEAR2 Procedure

The CAKSEAR2 Procedure

This example uses CAJRJCL member CAKRGLIC to generate a detail invoice using only data from the CCCTAB.

//*****************************************************************
//*
//* PROCEDURE CAKSEAR2
//*  USE FOR CREATING THE GENERAL LEDGER INTERFACE FILE.
//*
//*  MODIFICATIONS:
//*  1. UPDATE THE INSTREAM PROCEDURE PER THE INSTALLATION WORSHEET.
//*  2. IF YOUR DATABASE IS DB2, REMOVE THE Datacom LIBRARIES AND
//*     UNCOMMNET THE DB2 LIBRARY.
//*  3. BE SURE TO CUSTOMIZE THE PARM STATEMENT AS FOLLOWS
//*
//*     PARM='SSID=DB23    ,
//*           PMA/CB,
//*           001,
//*           01,
//*           050191'
//*
//*     WHERE SSID   = DB23 FOR DB2 USERS OR THE OWNERS ID FOR Datacom
//*           PMA/CB = THE 6 CHARACTER JOURNAL ENTRY NAME
//*           001    = THE PERIOD FROM THE PMA DATABASE TO PROCESS
//*           01     = THE PERIOD TO BE ASSIGNED TO JOURNAL ENTRIES
//*           050191 = THE DATE TO BE ASSIGNED TO JOURNAL ENTRIES
//*
//*  NOTE: YOU MAY MOVE THIS PROCEDURE TO A PROCLIB, OR USE IT
//*       INSTREAM.
//*
//*****************************************************************
//CAKSEAR2 PROC INDEX='CAI',       /* DATA SET HIGH LEVEL QUALIFIER
//         DCIND''CAI',            /* DATACOM HIGH LEVEL QUALIFIER
//         SYSOUT='*',             /* SYSOUT CLASS
//         DVOL='XXXXXX',          /* OUTPUT FILE VOLUME
//         WORK='SYSDA'          /* UNIT NAME FOR TEMP DATA SETS
//Earl     EXEC PGM=Earl,PARM='SSID=DB23    ,PMA/CB,001,01,050191'
//STEPLIB  DD DISP=SHR,DSN=&INDEX..CAJRLOAD
//         DD DISP=SHR,DSN=&INDEX..CAICICS
//         DD DISP=SHR,DSN=&DCIND..USERLOAD      <--- Datacom LIBRARY
//         DD DISP=SHR,DSN=&DCIND..INFOCAI.LOAD  <--- Datacom LIBRARY
//         DD DISP=SHR,DSN=&DCIND..LOAD          <--- Datacom LIBRARY
//*        DD DISP=SHR,DSN=SYS2.DSNLOAD          <--- DB2 LIBRARY
//EarlLIB  DD DISP=SHR,DSN=&INDEX..CAJREARL
//*
//CAIKRGL1 DD DSN=&INDEX..GENERAL.LEDGER,
//            UNIT=&WORK.,DISP=(NEW,CATLG,KEEP),
//            SPACE=(CYL,(1,1)),VOL=SER=&DVOL.,
//            DCB=(RECFM=FB,LRECL=100,BLKSIZE=4000)
//CAIKSPAR DD DISP=SHR,DSN=&INDEX..CAIKSPAR
//SYSPRINT DD SYSOUT=&SYSOUT.
//SYSOUT   DD SYSOUT=&SYSOUT.
//SYSUDUMP DD SYSOUT=&SYSOUT.
//SORTMSG  DD SYSOUT=&SYSOUT.
//SYSEarl  DD SYSOUT=&SYSOUT.
//EarlOBJ  DD UNIT=&WORK.,SPACE=(CYL,(10,5))
//WORK1    DD UNIT=&WORK.,SPACE=(CYL,(1,1))
//SYSUT1   DD UNIT=&WORK.,SPACE=(CYL,(1,1))
//SYSUT2   DD UNIT=&WORK.,SPACE=(CYL,(1,1))
//SYSUT3   DD UNIT=&WORK.,SPACE=(CYL,(1,1))
//SYSUT4   DD UNIT=&WORK.,SPACE=(CYL,(9,1))
//SYSUT5   DD UNIT=&WORK.,SPACE=(CYL,(9,1))

//SYSUT6   DD UNIT=&WORK.,SPACE=(CYL,(9,1))
//SORTIN   DD DSN=&.&TMPFL1.,UNIT=SYSSQ,DISP=(NEW,DELETE),
//          SPACE=(CYL,(10,1))
//SORTOUT  DD DSN=&.&TMPFL2.,UNIT=SYSSQ,DISP=(NEW,DELETE),
//          SPACE=(CYL,(10,1))
//SORTWK01 DD UNIT=SYSSQ,SPACE=(TRK,(100))
//SORTWK02 DD UNIT=SYSSQ,SPACE=(TRK,(100))
//SORTWK03 DD UNIT=SYSSQ,SPACE=(TRK,(100))