Overview

The log messages cleanup batch utility (B97DELOG) deletes or prints the messages in the Adabas Audit Data Retrieval message database.

Running B97DELOG

You should run this utility at regular intervals to delete obsolete messages from this database.

Tailored JCL for this job can be found in member B97DELOG in the BETA97.CNTL and in the corresponding step of the B97DAILY job.

You can also submit this batch utility online using option S.3.5. This will generate JCL from member SE97LCLN of the BETA97.ISPSLIB (skeleton library).

JCL

+--------------------------------------------------------------------+
|jobcard |
|//B97DELOG EXEC PGM=BST01RFF,REGION=0M,PARM=('S=97', |
|// 'PGM=B97DELOG', |
|// 'B01LST=xx', |
|// 'B97LST=xx', |
|// 'SIGNON=YES') |
|//* |
|//STEPLIB DD DISP=SHR, |
|// DSN=BETA97.LOAD |
|// DD DISP=SHR, |
|// DSN=BSA.LOAD |
|//* |
|//SFFPARM DD DISP=SHR, |
|// DSN=BETA.PARMLIB |
|//B97DEF DD DISP=SHR, |
|// DSN=BETA97.DB.DEF |
|//* |
|//SFFFDUMP DD SYSOUT=* |
|//SYSABEND DD SYSOUT=* |
|//SYSPRINT DD DUMMY |
|//IRMPRINT DD SYSOUT=* |
|//IRMLOG DD SYSOUT=* |
|//IRMERROR DD SYSOUT=* |
|//* |
|//SYSIN DD * |
|parameters |
|//* |
+--------------------------------------------------------------------+

Return codes

0	The program terminated normally (*)
4	No messages are available for deletion (*)
12	Component error
16	Not enough memory
20	This return code can occur due to several reasons: DD statement missing (*) Error when opening a log file (*) Error when initializing the database access (*) Database access error (*)
24	Communication error
32	BQL abend
36	BQL command error

Note: (*) indicates standard return codes that can be modified.

SYSIN parameters

All SYSIN parameters are optional.

Parameter	Description
ANALYZE YES | NO	NO The program deletes the messages from the message database and logs the executed actions (default) YES The program runs in analyze mode (simulation); No data is deleted, only logs are created.
LASTHOURS n	Deletes only messages that are older than n hours. The messages of the last n hours are preserved. Allowed values: 0..9999 (Default: 0)

IRMPRINT

The following log is written to DD IRMPRINT. It contains all the messages that were deleted from the MSG database.

+------------------------------------------------------------------------------------------------------+
| Date: 27.03.2020 Product: Beta 97 LOG-MSG CLEANUP UTILITY Page: 1 |
| Time: 08:21:44 Version: V7R2 |
| |
| Date Time Message Text |
| ---------- -------- -------------------------------------------------------------------------------|
| 24.03.2020 09:12:20 - IRM1700I (REJ ,TRADE , ) INDEX PROCESSING STARTED |
| 24.03.2020 09:12:30 - IRM1702I (REJ ,TRADE , ) INDEX PROCESSING ENDED |
| 24.03.2020 09:15:20 - IRM1700I (REJ ,TRADE , ) INDEX PROCESSING STARTED |
| 24.03.2020 09:15:30 - IRM1702I (REJ ,TRADE , ) INDEX PROCESSING ENDED |
| 24.03.2020 09:18:20 - IRM1700I (REJ ,TRADE , ) INDEX PROCESSING STARTED |
| 24.03.2020 09:18:30 - IRM1702I (REJ ,TRADE , ) INDEX PROCESSING ENDED |
| ... |
+------------------------------------------------------------------------------------------------------+

IRMLOG

A processing log is written to DD IRMLOG.

+-----------------------------------------------------------------------------------------------+
|IRM1561I PROGRAM: B97DELOG VERSION: V7R2M00 PTFLVL: ptflvl COMPILED: date, time |
|IRM2100I LOG-MSG CLEANUP PROCESSING STARTED - DATE: 27.03.2020, TIME: 08:21:44 |
|IRM2130I ************************************************************************************* |
|IRM1901D ANALYZE = NO |
|IRM1901D LASTHOURS = 48 |
|IRM2130I ************************************************************************************* |
|IRM2199I LOG-MSG CLEANUP PROCESSING ENDED - DATE: 27.03.2020, TIME: 08:21:44, RC: 0000 |
+-----------------------------------------------------------------------------------------------+