The log messages cleanup batch utility (B97DELOG) deletes or prints the messages in the Adabas Audit Data Retrieval message database.
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).
+--------------------------------------------------------------------+
|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 |
|//* |
+--------------------------------------------------------------------+
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:
|
24 |
Communication error |
32 |
BQL abend |
36 |
BQL command error |
Note: (*) indicates standard return codes that can be modified.
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) |
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 |
| ... |
+------------------------------------------------------------------------------------------------------+
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 |
+-----------------------------------------------------------------------------------------------+