Batch Processing & Reporting › Reporting with CA Earl › The CAKSEARL Procedure › CAKSEARL Procedure

CAKSEARL Procedure

//*****************************************************************
//* PROCEDURE CAKSEARL
//*  USE FOR PRINTING CA PMA Chargeback ORD DATA FILE AND
//*  RECONCILIATION FILE, AND GENERATING OF INVOICES
//*
//*  MODIFICATIONS:
//*  1. UPDATE THE INSTREAM PROCEDURE PER THE INSTALLATION WORSHEET.
//*  2. IF YOUR DATABASE IS DB2, REMOVE THE Datacom LIBRARIES AND
//*     UNCOMMENT THE DB2 LIBRARY AND REMOVE DCIND
//*  3. BE SURE TO CUSTOMIZE THE PARM='SSID=' TO REFLECT THE OWNER'S
//*     ID FOR Datacom, OR DB23 FOR DB2.
//*
//*  NOTE: YOU MAY MOVE THIS PROCEDURE TO A PROCLIB, OR USE IT
//*       INSTREAM.
//*
//*****************************************************************
//CAKSEARL PROC INDEX='CAI',      /* DATA SET HIGH LEVEL QUALIFIER
//         DCIND='CAI',           /* Datacom HIGH LEVEL QUALIFIER
//         SYSOUT='*',             /* SYSOUT CLASS
//         WORK='SYSDA'            /* UNIT NAME FOR TEMP DATA SETS
//EARL     EXEC PGM=Earl,PARM='SSID=DB23',TIME=1440
//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  REL. 1.3
//EARLLIB  DD DISP=SHR,DSN=&INDEX..CAJREARL
//*
//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))