The following is a brief explanation of the program for this report.
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 "R" 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 RRECORD DEF RC=ACFSMFR 1‑4 B GET ACFFLT GOTO EOJ (RC=‑1) COPY FUNCTAB REPORT 'RULE MODIFICATION SUMMARY' TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT NOTE SELECT ONLY TYPE 'R' RECORDS. SELECT RECTYPE='R' AND CHANGE NOT = 'BFORREPL' CONTROL (CHANGE) BREAK RKEY DATE TIME PRINT CHANGE RKEY DATE TIME END
|
Copyright © 2007 CA Technologies.
All rights reserved.
|
|