CA IDMS/DB Journal Reports—JREPORTS › Producing Journal Reports › Examples

Examples

Example 1

CA Culprit for CA IDMS retrieves JREPORT 002 and JREPORT 004 from the CULPDICT dictionary. The archived journal file contains 19068-byte, fixed-length records. By default, the CA Culprit for CA IDMS is not printed in the Sequential and Input Parameter Listings generated for the report.

 DATABASE DICTNAME=CULPDICT
 INPUT 19068 19068 UM(CULLJRNL)
JREPORT=2,4

Example 2

In this example, selected records are printed in JREPORT 008 (Formatted Record Dump). The SELECT parameter selects only those BFOR and AFTR records that have a dbkey of X'000CEB08'.

 DATABASE DICTNAME=CULPDICT
 INPUT 4276 4276 UM(CULLJRNL)
JREPORT=008
 SELECT TYPE EQ ('BFOR' 'AFTR') AND
*       DBKEY-A EQ (X'000CEB08')

Example 3

In this example, JREPORTs 005 and 006 are requested. By default, CA Culprit for CA IDMS retrieves the journal report modules from the system dictionary. For both reports, the CA Culprit for CA IDMS code is printed on the Sequential Parameter Listing and on the Input Parameter Listing.

 INPUT 19068 19068 UM(CULLJRNL)
 PARAM=LIST
JREPORT=05
JREPORT=06

Example 4

This example prints JREPORT 008 (Formatted Record Dump). The report includes only the BFOR and AFTR records within the specified sequence for run unit 44248. By default, the CA Culprit for CA IDMS code for the report is not printed in the parameter listings.

 INPUT 19068 19068 UM(CULLJRNL)
JREPORT=008
 SEL WHEN TYPE EQ ('BFOR' 'AFTR')
*   AND TRANSACT-ID EQ 44248
*   AND SEQ EQ (1755732 TO 1755749)

Example 5

This example prints selected information for JREPORT 007, the Area Summary report. The SELECT parameter selects all AREA records that specify DDLDML or DDLDCLOD. The SELECT parameter also selects record types BGIN, ENDJ, and ABRT, which are required for JREPORT 007.

 INPUT 4276 4276 UM(CULLJRNL)
JREPORT=007
 SELECT WHEN (TYPE EQ 'AREA' AND AREA EQ ('DDLDML' DDLDCLOD'))
*   OR TYPE EQ ('ABRT' 'BGIN' 'ENDJ')

Example 6

This example prints JREPORT 008 (Formatted Record Dump). The report includes the distributed checkpoint records for the distributed transaction ID, SYSTEM74::01650C9509CE38A3.

 INPUT 19068 19068 UM(CULLJRNL)
JREPORT=008
 SELECT WHEN TYPE EQ ('DIND' 'DCOM' 'DBAK' 'DPND' 'DFGT')
*   AND DNODE = 'SYSTEM74'
*   AND DID = x'01650C9509CE38A3'