Batch Processing & Reporting › CA PMA Chargeback Processing › CA PMA Chargeback Daily Processing › Daily Processing JCL (CAKRLOAD)

Daily Processing JCL (CAKRLOAD)

//CAKRLOAD JOB (ACCTINFO),'PMGR',CLASS=B,REGION=4M,MSGCLASS=X
//*********************************************************
//* PURPOSE: THIS JOB STREAM READS the INSTALLED ORD DATA
//*          FILE AND USER THE COMMITTED VERSION OF THE  
//*          CA PMA CHARGEBACK DEFINITIONS TO            
//*          APPLY CHARGES TO THE CCCTAB.                
                                                         
//* INSTRUCTIONS:                                        
//*  1. CUSTOMIZE THE INSTREAM PROC SYMBOLICS.           
//*  2. IF YOUR DATABASE IS DB2, REMOVE THE DATACOM      
//*     LIBRARIES AND UNCOMMENT THE DB2 LIBRARY AND      
//*     REMOVE DCIND                                     
//*  3. CUSTOMIZE THE DATA SET NAME OF THE CAIKSORD DD   
//*     STATEMENT TO REFLECT THE DATA SET NAME OF THE    
//*     FILE CREATED FROM CAKSLOAD.                      
//*  4. IF THE CAIKRPAR DATA SET CONTAINS RECON=NO, THEN 
//*     COMMENT OUT OR REMOVE THE CAIKRREC DD STATEMENT. 
//*  5. IF THE CAIKRPAR DATA SET CONTAINS RECON=YES, THEN
//*     CUSTOMIZE THE DATA SET NAME OF THE CAIKRREC DD   
//*     STATEMENT.                                       
//*  6. CUSTOMIZE THE JOB CARD ACCORDING TO YOUR         
//*     INSTALLATION'S STANDARDS.                        
//*  7. SUBMIT THE JOB FOR PROCESSING.                   
//*********************************************************
//CBLOAD PROC SYSOUT='*',         /* SYSOUT CLASS
//            INDEX='CAI',        /* HIGH LEVEL INDEX OF CAILIB
//            DCIND='CAI',        /* HIGH LEVEL INDEX OF DATACOM
//            SIND='CAI',         /* HIGH LEVEL INDEX OF SORTLIB
//            DVOL='XXXXXX',       /* DISK VOL TO CREATE RECON FILE
//            PERMDA=DISK,         /* TEMPORARY GENERIC DASD UNIT
//STEP1    EXEC PGM=CAKRLOAD
//STEPLIB  DD DSN=&INDEX..CAJRLOAD,DISP=SHR
//         DD DSN=&INDEX..CAICICS,DISP=SHR
//         DD DSN=&DCIND..USERLOAD,DISP=SHR      <-- DATACOM LIBRARY
//         DD DSN=&DCIND..INFOCAI.LOAD,DISP=SHR  <-- Datacom LIBRARY
//         DD DSN=&DCIND..LOAD,DISP=SHR          <-- Datacom LIBRARY
//         DD DSN=SYS2.DSNLOAD,DISP=SHR          <-- DB2
//SYSPRINT DD SYSOUT=TERM
//SYSOUT   DD SYSOUT=TERM
//SORTMSG  DD SYSOUT=TERM
//SORTLIB  DD DSN=&SIND..SORTLIB,DISP=SHR
//SORTWKO1  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SORTWK02  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SORTWK03  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SORTWK04  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SORTWK05  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SORTWK06  DD UNIT=&WORK.,SPACE=(CYL,(20,5),RLSE)
//SYSUDUMP DD SYSOUT=TERM
//SYSOUT   DD SYSOUT=TERM

//*********************************************************
//* CAIKSPAR DD - DEFINES GLOBAL PMA PARMS               
//* THIS STATEMENT IS REQUIRED.                          
//*                                                      
//*********************************************************
//*
//* CAIKSPAR DD DSN=&INDEX..CAIKSPAR,DISP=SHR
//*
//*********************************************************
//* CAIKRPAR DD - USED TO DEFINE CB/CHARGEBACK           
//*               PROCESSING OPTIONS                     
//* THIS STATEMENT IS REQUIRED.                          
//*                                                      
//*********************************************************
//*
//CAIKRPAR DD DSN=&INDEX..CAIKRPAR, DISP=SHR
//*
//*********************************************************
//* CAIKSORD DD DEFINES THE INPUT TO BE PROCESSED.       
//* (ORD DATA FROM CAKSLOAD)                             
//*********************************************************
//*
//CAIKSORD DD DSN=&INDEX..DM.ORD.DATA.FILE(0),DISP=SHR  <-- CUSTOMIZE
//*
//*********************************************************
//* CAIKRREC DD STATEMENT DEFINES GENERATION OF          
//* THE RECONCILIATION FILE.                             
//* THIS STATEMENT IS REQUIRED IF THE CAIKRPAR CONTAINS  
//* RECON=YES.                                           
//*
//*********************************************************
//*
//CAIKRREC DD DSN=&INDEX..CB.OUTPUT.RECONC,          <-- CUSTOMIZE
//           UNIT=&PERMDA.,DISP=(NEW,CATLG,DELETE),
//           SPACE=(CYL,(1,1)),VOL=SER=&DVOL.,
//           DCB=(RECFM=VB,LRECL=32000,BLKSIZE=32004,DSORG=PS)
// PEND
//*
//STEP10   EXEC CBLOAD
//*