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=132 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) NOTE IF THERE IS NO NAME PUT IN LOGONID DECODE NAME INTO NAME_WORK (X 20) ' ' = LOGONID ELSE NAME 'NAME' REPORT 'DATASET VIOLATIONS BY VIOLATOR NAME' SELECT RECTYPE 'D' CONTROL (NAME_WORK) (DSTYPE) (DSN) ONE PRINT TOTALS ONLY NAME_WORK DSTYPE DSN (ONE) END
|
Copyright © 2007 CA Technologies.
All rights reserved.
|
|