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
|
Copyright © 2015 CA Technologies.
All rights reserved.
|
|