Following is a sample of the RPTEL output.
03/29/02 INFO‑STOR MODIFICATION LOG
RUN DATE: 03‑29‑02 RUN TIME:17.36.26
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
DATE TIME RECORD JOBNAME LOGONID CHANGE CPU MODEL
KEY
‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑
03‑29‑02 8.32 CTSOSSDRPW1 MSTJCL00 MSTJCL00 CHANGE PAY1
03‑29‑02 8.52 CTSOSSDRPW1 MSTJCL00 MSTJCL00 CHANGE PAY1
03‑29‑02 12.43 CTSOSSDBAD MSTJCL00 MSTJCL00 CHANGE PAY1
03‑29‑02 15.07 CTSOSSDBAD MSTJCL00 MSTJCL00 CHANGE PAY1
03‑29‑02 15.30 CTSOTLCCBU MSTJCL00 MSTJCL00 CHANGE PAY1
END OF REPORT
1 REPORT RECORDS READ LINES PRINTED
1 5 15
‑**** REPORT PHASE ENDED 0.10 SECONDS.
Use this report to determine what changes were made to the Infostorage database records and who made the changes. You can request varying degrees of detail for this report.
The following is a brief explanation of the program for this report.
NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * THIS EARL PROGRAM IS BASED ON THE CA ACF2 EL REPORT* 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 ERECORD1 COPY ERECORD2 DEF WHOLEHDR 8‑232 X DEF RC=ACFSMFR 1‑4 B GET ACFFLT GOTO EOJ (RC=‑1) REPORT 'INFO‑STOR MODIFICATION LOG' TITLE 'RUN DATE:' DATEOFREPORT 'RUN TIME:' TIMEOFREPORT NOTE SELECT ONLY TYPE 'E' RECORDS. PRINT SUMMARY LINE FOR EACH RECORD NOTE PRINT DETAIL LINE IF IT EXISTS. SELECT 'A' RECTYPE='E' AND SEQUENCE = '1' AND EFUNCTION NOT = 'BFORREPL' SELECT 'B' RECTYPE='E' AND SEQUENCE = '2' AND EFUNCTION NOT = 'BFORREPL' NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * IF BFORREPL RECORDS ARE TO BE REPORTED REMOVE THE 'NOTE' BELOW* NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE SELECT 'C' RECTYPE = 'E' CONTROL WHOLEHDR SEQUENCE IFTAG A;PRINT DATE TIME EKEY JOBNAME LOGONID EFUNCTION CPU EMODEL NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE * IF BFORREPL RECORDS ARE TO BE REPORTED REMOVE THE 'NOTE' BELOW* NOTE *‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑‑* NOTE IFTAG C;PRINT DATE TIME EKEY JOBNAME LOGONID EFUNCTION CPU EMODEL IFTAG B;PRINT @12 ECHANGENAME EBEFORE_SHORT EAFTER_SHORT END
The following letters correspond directly to the letters and braces on the previous page. Each brace highlights a significant part of the customized CA Earl report.
A OPTIONS. This information is sorted with the user sort program. To sort the information with the CA‑SRAM method, remove the word NOTE from the line containing the statement OPTION SORT=SRAM. To sort by another method, use this option to specify that method.
Note: If you are a VM site, SRAM SORT is the default.
B INPUT FILE. Specifies which file is used as input. You must include this statement exactly as it is shown in the sample.
C FIELD DEFS. HDRECORD, ERECORD1, and ERECORD2 are imbedded in this sample. In addition to the COPY statements, we have also defined an item called WHOLEHDR to be columns 8 through 232 of each record. This item pairs off any records that together report a single modification event. That is, if an infostorage modification that was made wrote two flat file records, we want to pair those records off together. Since for each of those pairs, columns 8 through 232 is identical, we can use that portion of the record as the primary sort field, thus assuring that those pairs occur together in the sorted flat file. This sample imbeds the HDRECORD, ERECORD1, and ERECORD2 field definition files.
D READ FILE. The file the report reads for processing.
E SETUP. Defines a report header and one additional header (TITLE) line for pages of the report. Assigns the current record to a group based on the contents of certain record fields. For example, if the record has the value E in the RECTYPE field and the value 1 in the SEQUENCE field, and the EFUNCTION value is bold BFORREPL, then the record is assigned to group A. Records are assigned to group B on the same criteria, except for the SEQUENCE value. All records with RECTYPE E are assigned to group C. (It is possible for a record to be assigned to more than one group.) These groups are used later for selecting detail information.
F PRINT LOGIC. The CONTROL statement sorts the records so that for each recorded event, the summary record occurs first, followed by the detail record, if there is one. WHOLEHDR was defined as the portion of a record excluding the SEQUENCE field and some other items at the front of the record. Sorting first on WHOLEHDR results in pairs of records that have identical header information (including time and date) occurring together. Each such pair consists of the summary record and the detail record (if there is one). Since SEQUENCE is the second sort item, each such pair is then arranged with the summary record (SEQUENCE=1) occurring first and the detail record (SEQUENCE=2) occurring next.
If the current record is in group A, then it was a summary record. We print identifying information from this record, including date, time, record key, changer's logonid, and the change type (EFUNCTION).
If the NOTE was removed to activate the SELECT "C" statement and if the current record is in group C, then it was a BFORREPL type record. These have only summary records written in the flat file. If the NOTE is removed from the IFTAG C statement, then the report prints the same information for this record as it prints for the group A record.
If the current record is in group B, then it was a detail record and (because of the sort logic) was immediately preceded by a summary record from group A. We then print detail information about the change to the infostorage record consisting of the name of the field that was changed, the first portion of the field value before it was changed, and the first portion of the field value after the change. See the descriptions of EBEFORE‑SHORT and EAFTER‑SHORT for exactly how much of the field value is actually reported here.
|
Copyright © 2007 CA Technologies.
All rights reserved.
|
|