Previous Topic: Accounting Report Program (SARACT)Next Topic: Capture Accounting Data from the JOB Statement


Job Control Statements

Sample execution JCL can also be found in member HAEXACT in your CVDEJCL data set.

After SARACT has been compiled and link edited, the following JCL executes the accounting report program:

//SARACT   JOB ACCOUNT,PROGRAMMER
//*
//*        EXECUTE SARDBASE TO COPY THE MASTER
//*        INDEX TO &&IDX
//*
//IDXOUT   EXEC PGM=SARDBASE
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=*
//SARIOUT  DD  DSN=&&IDX,DISP=(,PASS),
//         UNIT=SYSDA,SPACE=(CYL,(1,1))
//SYSIN    DD  *
NAME VIEW.SYSTEM1
IDXOUT
//*
//*        EXECUTE SARACT TO PROCESS FILE &&IDX
//*
//SARACT   EXEC PGM=SARACT
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
//SARIDX   DD  DSN=&&IDX,DISP=(OLD,DELETE)
//PRINT    DD  SYSOUT=*
//SYSOUT   DD  SYSOUT=*
//SORTWK01 DD  UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK02 DD  UNIT=SYSDA,SPACE=(CYL,(1,1))
//SORTWK03 DD  UNIT=SYSDA,SPACE=(CYL,(1,1))

The following is a sample accounting report:

CA View ACCOUNTING REPORT NOVEMBER 10, 2013 PAGE 2 USER ACCOUNT ID JOB NAME JOB ID ARC DATE ARC TIME GEN BLOCKS LINES PAGES 41000000 JREDEMO--R01 WILSON01 JOB03090 11/10/2013 15.18.57 1 8 1068 33 41000000 JREDEMO--R01 WILSON01 JOB03128 11/10/2013 15.28.17 1 8 1068 33 41000000 JREDEMO--R02 WILSON01 JOB03090 11/10/2013 15.18.57 1 1 139 6 41000000 JREDEMO--R02 WILSON01 JOB03128 11/10/2013 15.28.18 1 1 139 6 41000000 JREDEMO--R03 WILSON01 JOB03090 11/10/2013 15.18.57 1 1 106 3 41000000 JREDEMO--R03 WILSON01 JOB03128 11/10/2013 15.28.18 1 1 106 3 TOTAL FOR ACCOUNT 20 2626 84