Listing BFOR and AFTR images for one PROGRAM in JREPORTS
Article ID: 55686
Updated On:
Products
Issue/Introduction
Using JREPORTs, how can one produce a report containing only the BFOR and AFTR records belonging to a specific PROGRAM-NAME?
Environment
Release: All supported releases.
Component: IDMS.
Resolution
BFOR and AFTR records do not contain a field for the PROGRAM-NAME that could otherwise be used as selection criteria.
In order to accomplish this, you must first run a JREPORT 001 to find the TRANSACTION ID associated with the desired program name. Then you run a JREPORT 008 to select all of the BFOR and AFTR records for the TRANSACTION ID of the desired program name that was discovered by running the JREPORT 001.
To better illustrate, below are examples of the input to JREPORT 001, JREPORT 008 and an example of the resulting reports:
STEP 1.
Run JREPORT 001 to discover the TRANSACTION ID of the desired PROGRAM NAME:
//SYSIN DD *
DATABASE DICTNAME=SYSDIRL
INPUT 8000 8000 UM(CULLJRNL)
JREPORT=1
/*
Sample of the resulting JREPORT 001 report:
PROGRAM TRANSACTION
NAME NODE ID
RHDCRUAL SYST#### 3451
RHDCRUAL SYST#### 3452
USDMAIN0 SYST#### 3458
USDPROF0 SYST#### 3455
USDPROF0 SYST#### 3456
Assuming that the PROGRAM NAME on which the report is to run, then TRANSACTION ID 3458 should be used as input in the JREPORT 008.
STEP 2.
Run JREPORT 008 selecting the BFOR and AFTR records that are equal to the TRANSACTION ID of the program name discovered in JREPORT 001.
//SYSIN DD * DATABASE DICTNAME=SYSDIRL
INPUT 8000 8000 UM(CULLJRNL)
JREPORT=008
SELECT TYPE EQ ('BFOR' 'AFTR') AND
* TRANSACT-ID EQ 3458
The resulting report will contain only the BFOR and AFTR records for the TRANSACTION ID belonging to the desired program name:
Sample JREPORT 008 report:
REPORT NO. 08 IDMS JOURNAL REPORT
JREPORT 008
FORMATTED RECORD DUMP
JOURNAL NODE UTC UTC JOURNAL TRANSACT PG
RECORD NAME DATE TIME SEQUENCE ID GRP
BFOR SYST#### 12/01/03 23.14.04.06 62785 3458
THIS IS A NATIVE IDMS RECORD
PG DISPLACEMENT PREFIX LENGTH
USER RECORD ID USER RECD LENGTH 42
*** THIS IS ONLY THE FIRST PART OF THIS BFOR RECORD.
USER RECORD DB KEY 01259509 (PAGE 75157 LINE
CHAR
ZONE 04000000000000000000
NUMR 04000000000000000000
01...5...10....5...20
BFOR SYST#### 12/01/03 23.14.04.06 62786 3458
THIS IS A NATIVE IDMS RECORD
860 PG DISPLACEMENT 16 PREFIX LENGTH
450 USER RECORD ID 92 USER RECD LENGTH 42
*** THIS IS ONLY THE FIRST PART OF THIS BFOR RECORD.
USER RECORD DB KEY 01259508 (PAGE 75157 LINE 8
CHAR
ZONE 029002900290029005000000000000000000
NUMR 155015551558155804000000000000000000
01...5...10....5...20....5...30....5.
AFTR SYST#### 12/01/03 23.14.04.06 62787 3458
THIS IS A NATIVE IDMS RECORD
860 PG DISPLACEMENT 16 PREFIX LENGTH
450 USER RECORD ID 92 USER RECD LENGTH 42 VERB
*** THIS IS ONLY THE FIRST PART OF THIS AFTR RECORD.
USER RECORD DB KEY 01259508 (PAGE 75157 LINE 8
CHAR
ZONE 029002900290029005000000000000000000
NUMR 155915551558155804000000000000000000
01...5...10....5...20....5...30....5.
Additional Information
For a complete description of the fields in each journal record, see Types of Journal Records.
Feedback
