The following is a brief explanation of the program for this report.
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 PW REPORT* 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 PRECORD DEF RC=ACFSMFR 1‑4 B GET ACFFLT GOTO EOJ (RC=‑1) COPY RCTAB REPORT 'INVALID SIGNON BY SOURCE' TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT NOTE SELECT ONLY TYPE 'P' RECORDS. PRINT DETAIL LINE FOR EACH RECORD SELECT RECTYPE 'P' CONTROL (SOURCE) LOGONID DATE TIME REASON PRINT SOURCE LOGONID DATE TIME REASON END
|
Copyright © 2007 CA Technologies.
All rights reserved.
|
|