The following is a brief explanation of the program for this report.
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 "D" RECORD* NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* OPTION PRINTER=80 OPTION LIST OFF NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * CHANGE LOG: * NOTE * * NOTE * RELEASE: 6.3 * NOTE * * NOTE * TA3985D 07/14/98 Z0012 * TA3985D NOTE * INCREASED RECORD LENGTH OF ACFSMFR FILE * TA3985D NOTE * FOR LONGER OMVS SMF RECORDS. * TA3985D NOTE * * NOTE * RELEASE: 6.5 * NOTE * * NOTE * TA6015G 03/13/02 Z0037 * TA6015G NOTE * REBRANDING CHANGES. * TA6015G NOTE * * NOTE * END OF LOG. * NOTE * * NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * TO USE SRAM SORT REMOVE 'NOTE' BELOW * NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE OPTION SORT=SRAM ACFFLT: FILE ACFSMFR RECORD=23756 ! TA3985D COPY HDRECORD COPY DRECORD DEF RC=ACFSMFR 1‑4 B DEF ONE (6.0) = 1 'NUMBER' GET ACFFLT GOTO EOJ (RC=‑1) REPORT 'DATASET VIOLATIONS BY VIOLATION TYPE' SELECT RECTYPE 'D' AND DRTYPE 'DATASET' CONTROL (DSTYPE) BREAK (DSNAME) ONE PRINT TOTALS ONLY DSTYPE DSNAME (ONE) END
|
Copyright © 2007 CA Technologies.
All rights reserved.
|
|