Overview

The mass reload batch utility (B97MRLD) reloads all lists that have been archived in the specified archive datasets into the Adabas Audit Data Retrieval online spool. All indexes of these lists are reloaded to the Adabas Audit Data Retrieval index spool. Lists and indexes that are not offline will not be reloaded.

Note on B97BRLD: If you want to create a large number of reload requests, use the batch utility B97BRLD instead.

Online retention period after reloading

The retention period of lists and indexes that are reloaded with the mass reload batch utility (B97MRLD) is set as follows:

• If the parameter UPDRETPD=NO is specified in DD SYSIN, then the online retention period of lists and indexes is set according to the values of the two LST parameters B97_CLEANUP_RELOAD_LIST=n and B97_CLEANUP_RELOAD_INDEX=n (or, if not present, it is set to the default value 5 days). This is the default.
• If the parameter UPDRETPD=YES is specified in DD SYSIN, then the online retention period of each list and its indexes is set according to the original archive retention period of the list.
• If the parameter ONLEXPDT=ARCEXPDT is specified in DD SYSIN, then the flag OnlExpdt = ArcExpdt is set for reloaded lists, which means that the lists and their indexes remain available online until their archive expiration date is reached.

Note: The parameters ONLEXPDT=ARCEXPDT and UPDRETPD=YES affect also lists that are not reloaded because they are already online in the Adabas Audit Data Retrieval spool. Please note that UPDRETPD=YES may lead to different expiration dates because the online expiration date and the archive expiration date are calculated according to different algorithms:

• The online expiration date is calculated on the basis of the list date, whereas the archive expiration date is calculated on the basis of the archive run.
• The online expiration date is calculated on the basis of the number of work days per week, whereas the archive expiration date is calculated on the basis of the number of calendar days.

JCL

+--------------------------------------------------------------------+
|jobcard |
|//B97MRLD EXEC PGM=BST01RFF,REGION=0M,PARM=('S=97', |
|// 'PGM=B97MRLD', |
|// '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=* |
|//IRMLIST DD SYSOUT=* |
|//IRMLOG DD SYSOUT=* |
|//IRMERROR DD SYSOUT=* |
|//SYSIN DD * |
| ANALYZE NO |
| UPDRETPD NO |
| MAXLIST 1000 |
| DSNAME datasetname |
| DSNAME datasetname |
| DSNAME datasetname |
|/* |
+--------------------------------------------------------------------+

Return codes

0	The program terminated normally.
4	The program did not find any data to be reloaded; the program terminated normally.
>4	One or several errors occurred during processing. Please check the job log for details. Some return codes are program-specific. Others are standard return codes which can also be modified. More information on standard return codes can be found in "Return codes".

SYSIN parameters

You must specify at least one archive dataset in DD SYSIN. All other SYSIN parameters are optional.

Parameter	Description
ANALYZE YES | NO	NO The program reloads the lists and indexes from the specified archive datasets and logs these activities (default). YES The program runs in analyze mode; all logs are written, but no data is actually reloaded.
DATASET = name DSNAME = name DSN = name	Use these keywords to specify the datasets from which lists and indexes are to be reloaded (lists and indexes that are already online will be ignored)
MAXLIST = n	Maximum number of lists that are to be reloaded (with the pertaining indexes) If this parameter is specified after a dataset, then the limit applies only to this dataset. If the parameter is specified before the datasets, then the limit applies to the entire job.
UPDRETPD = YES | NO	Determines the online retention period of reloaded lists and indexes NO The two LST parameters B97_CLEANUP_ RELOAD_ INDEX and B97_CLEANUP_ RELOAD_ LIST determine the online retention period of lists and indexes (default: 5 days) YES The remaining retention period in the archive determines the online retention period of each list and its indexes Note: UPDRETPD=YES affects also lists and indexes that are not reloaded because they are already online in the Adabas Audit Data Retrieval spool.
ONLEXPDT = ARCEXPDT	Causes the flag OnlExpdt = ArcExpdt to be set for reloaded list, which means that the lists and their indexes remain available online until their archive expiration date is reached. Note: ONLEXPDT=ARCEXPDT affects also lists and indexes that are not reloaded because they are already online in the Adabas Audit Data Retrieval spool.

IRMLOG

DD IRMLOG contains the SYSIN parameters and an overview of the selected archive datasets (including the number of lists and indexes contained in these datasets).

+---------------------------------------------------------------------------------------+
| IRM1561I PROGRAM: B97MRLD VERSION: V7R2M00 PTFLVL: ptflvl COMPILED: date, time |
| IRM2840I B97MRLD MASS RELOAD UTILITY STARTED - DATE: date, TIME: time |
| IRM2210I **************************************************************************** |
| IRM1901D ANALYZE NO |
| IRM1901D UPDRETPD NO |
| IRM1901D MAXLIST 100 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04148.C001 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C001 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C002 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C003 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C004 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C005 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C006 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C007 |
| IRM1901D DSN BETA97.TAPE365.VTS.E04149.C008 |
| IRM2210I ---------------------------------------------------------------------------- |
| IRM2210I For BETA97.TAPE365.VTS.E04148.C001 a total of 1 lists have been selected |
| IRM2210I For BETA97.TAPE365.VTS.E04148.C001 a total of 6 indices have been selected |
| IRM2210I ---------------------------------------------------------------------------- |
| IRM2210I For BETA97.TAPE365.VTS.E04149.C001 a total of 3 lists have been selected |
| IRM2210I For BETA97.TAPE365.VTS.E04149.C001 a total of 23 indices have been selected |
| IRM2210I ---------------------------------------------------------------------------- |
| ... |
| IRM2210I ---------------------------------------------------------------------------- |
| IRM2210I Total Number of 56 lists selected and a total of 56 reloaded |
| IRM2210I Total Number of 329 indices selected and a total of 329 reloaded |
| IRM2210I **************************************************************************** |
| IRM2840I B97MRLD MASS RELOAD UTILITY ENDED - DATE: date, TIME: time |
+---------------------------------------------------------------------------------------+

IRMPRINT

DD IRMPRINT itemizes the lists and indexes of each archive dataset. The selection is logged first and then the reloading. The log contains the following:

• FORM / EXTENSION: Form and extension of the list
• DATE / TIME: Creation date and time of the list
• Index: Index name
• OnlRetpd: Online retention period of the reloaded list
• IdxRetpd: Online retention period of the reloaded indexes
• ArcRetpd: Archive retention period
• Status: Possible values can be found in the table below
• Reason / RC: Reason and return code (RC) if a list was not selected or reloaded

+------------------------------------------------------------------------------------------------------------+
|Date: date Product: Beta 97 MASS RELOAD UTILITY |
|Time: time Version: V7R2 |
| |
|Archive Dataset: BETA97.TAPE365.VTS.E04149.C001 |
| |
|Form Extension Date Time Index OnlRetpd IdxRetpd ArcRetpd Status Reason RC |
|------- ------------- ---------- -------- ----------------- -------- -------- -------- -------- ------ -----|
|BETA ACCOUNTING 05/27/2004 13:42:24 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 §§§BETAINTERN§§§ 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 AMOUNT 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 POSTINGDATE 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 BRANCH 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 ACCOUNTNUMBER 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 CUSTOMERNUMBER 0010 00010 00365 SKIPPED ONLINE 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 MONTH 0010 00010 00365 SELECTED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 SUM 0010 00010 00365 SELECTED 00000|
|... |
|BETA ACCOUNTING 05/27/2004 13:42:24 §§§BETAINTERN§§§ 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 AMOUNT 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 POSTINGDATE 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 BRANCH 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 ACCOUNTNUMBER 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 MONTH 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 SUM 0010 00010 00365 RELOADED 00000|
|BETA ACCOUNTING 05/27/2004 13:42:24 0010 00010 00365 RELOADED 00000|
|... |
+------------------------------------------------------------------------------------------------------------+

Status, reason, and return code

The following values can occur in the Status column of DD IRMPRINT:

Status	Reason	RC	Description
SELECTED	--	0	The list or index was selected for reloading.
NOT REL	ERROR	Infocode from OBJ server	The list or index could not be reloaded.
RELOADED	--	0	The list or index was reloaded.
REL-IDX	INV-PTR	20	The OBJ server returned an invalid index pointer.
REL-OBJ	INV-PTR	20	The OBJ server returned an invalid list pointer.
UPDIAR-R	ERROR	Infocode from OBJ server	The index maintenance records could not be modified.
UPDIGR-R	ERROR	Infocode from OBJ server	The list generation record could not be modified.
UPDATED	RETPD	Infocode from OBJ server	The list is online (Adabas Audit Data Retrieval spool); it is therefore not reloaded. The list and its indexes were updated because UPDRETPD= YES or ONLEXPDT= ARCEXPDT has been specified (update ended with RC=rc).
SKIPPED	ONLB97	0	The list is online (Adabas Audit Data Retrieval spool); it is therefore not reloaded.
SKIPPED	ONLINE	0	The index is online; it is therefore not reloaded.

For more information on the error codes returned by the object server, see "Database codes" in BSA Messages and Codes.