The batch utility B97BRLD generates requests for reloading data from the archive. A reload request refers to the list and all its indexes.
The selection criteria and processing parameters are specified in DD SYSIN.
The actual reloading of the data from the archive is carried out by the batch utility B97RLD, which executes the reload requests that are present in the reload queue.
You can find sample JCL for this batch utility in the BETA97.CNTL in member B97BRLD.
+------------------------------------------------------------------------+
|jobcard |
|//B97BRLD EXEC PGM=BST01RFF,REGION=0M,PARM=('S=97', |
|// 'PGM=B97BRLD', |
|// 'B01LST=xx', |
|// 'B97LST=xx', |
|// 'SIGNON=YES') |
|//* |
|//STEPLIB DD DISP=SHR,DSN=BETA97.LOAD |
|// DD DISP=SHR,DSN=BSA.LOAD |
|//* |
|//B97DEF DD DUMMY |
|//SFFPARM DD DISP=SHR,DSN=BETA.PARMLIB |
|//* |
|//SYSPRINT DD SYSOUT=* |
|//IRMLOG DD SYSOUT=* |
|//IRMPRINT DD SYSOUT=* |
|//* |
|//SFFFDUMP DD SYSOUT=* |
|//SYSABEND DD SYSOUT=* |
|//* |
|//SYSIN DD * |
|parameters |
|/* |
+------------------------------------------------------------------------+
|
0 |
The program terminated normally. |
|
4 |
This return code can occur due to several reasons:
|
|
12 |
Component error |
|
16 |
Out of 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.
DD SYSIN contains:
RELOAD = GENERATION
This line is followed by the statements that control the selection of lists/reports and the desired parameters for the corresponding reload requests.
Each statement is coded on a separate line and is structured as follows:
keyword = value
The equal sign ( = ) is optional in all statements. To mark a line as comment line, enter an asterisk ( * ) in the first column of the line. If a value is empty (for example, EXTENSION), enter a blank enclosed in single quotation marks:
EXTENSION = ' '
The following keywords can be coded only once and apply to the entire processing. The position of these keywords in DD SYSIN is arbitrary.
|
Keyword |
Parameter |
Description |
Option |
Mask |
Default |
Length |
|---|---|---|---|---|---|---|
|
FULLLISTINFO |
YES | NO |
Amount of information output |
optional |
no |
NO |
3 |
|
LINESPERPAGE |
0-999 |
Max. error limit |
optional |
no |
value from option S.2 |
3 |
|
ANALYZE |
YES | NO |
Analyze mode |
optional |
no |
NO |
3 |
|
DATEMASK |
date mask |
Date format for date specification |
optional |
no |
System date mask (S.2) |
10 |
FULLLISTINFO controls the amount of information output for each list; only the most important information from the generation record is output for each list in case the keyword is not coded.
LINESPERPAGE determines the page length (number of lines) of the log.
ANALYZE = YES switches the analyze mode on (simulation). Logs are created, but no data is changed in analyze mode.
Specify DATEMASK=datemask if your date specifications (SDATE/EDATE) are in a different format from the system date mask (option S.2).
A selection block begins with the instruction RELOAD GENERATION (required), which is followed by the desired selection criteria.
|
Keyword |
Parameter |
Description |
Option |
Mask |
Default |
Length |
|---|---|---|---|---|---|---|
|
RELOAD |
GENERATION |
|
required |
no |
|
10 |
|
PROCESS |
ALL | REPORT | LIST |
Process lists, reports or both |
optional |
no |
ALL |
6 |
|
FORM |
name |
Form name |
optional |
yes |
* |
8 |
|
EXTENSION |
name |
Extension name |
optional |
yes |
* |
16 |
|
REPORT |
name |
Report name |
optional |
yes |
* |
16 |
|
FOLDER |
name |
Folder name |
optional |
yes |
* |
32 |
|
TITLE |
string |
String in title |
optional |
no |
* |
16 |
|
FTITLE |
n |
From column |
optional |
no |
0 |
2 |
|
SDATE |
The date must be coded in accordance with DATEMASK (default: system date mask from option S.2) |
Start date |
required |
no |
|
10 |
|
EDATE |
See SDATE |
End date |
optional |
no |
TODAY |
10 |
|
STIME |
hh:mm:ss |
Start time |
optional |
no |
00:00:00 |
8 |
|
ETIME |
hh:mm:ss |
End time |
optional |
no |
23:59:59 |
8 |
|
JOBNAME |
name |
Jobname |
optional |
yes |
|
8 |
//SYSIN DD *
RELOAD GENERATION
FORM REJ
SDATE 10.03.2020
EDATE 11.03.2020
The following log is written to DD IRMPRINT. It displays all lists and reports that were requested for reload.
+---------------------------------------------------------------------------------------------------------+
|Date: 18.03.2020 Product: Beta 97 BATCH RELOAD UTILITY Page: 1 |
|Time: 10:53:56 Version: V7R2 |
| |
| |
|Date Time Jobname Onl Arc Afp Nci >32k Form Extension Report Pages |
|---------- -------- -------- --- --- --- --- ---- -------- ---------------- ---------------- ------- |
|11.03.2020 16:28:34 - B93TEST NO YES NO NO NO REJ TRADE 15 |
|10.03.2020 14:22:49 - B93TEST NO YES NO NO NO REJ INVENTORY 9 |
|10.03.2020 14:19:48 - B93TEST NO YES NO NO NO REJ TRADE 15 |
|10.03.2020 14:12:46 - B93TEST NO YES NO NO NO REJ TRADE 15 |
+---------------------------------------------------------------------------------------------------------+
A processing log is written to DD IRMLOG. It contains a list of the messages describing all processes of the program, including any errors which might have occurred.
+-----------------------------------------------------------------------------------------------+
|IRM1561I PROGRAM: B97BRLD VERSION: V7R2M00 PTFLVL: ptflvl COMPILED: date, time |
|IRM2840I B97BRLD BATCH RELOAD UTILITY STARTED - DATE: 18.03.2020, TIME: 10:53:55 |
|IRM2210I Date mask DD.MM.YYYY used from system record |
|IRM2210I ************************************************************************************* |
|IRM1901D RELOAD GENERATION |
|IRM1901D FORM REJ |
|IRM1901D SDATE 10.03.2020 |
|IRM1901D EDATE 11.03.2020 |
|IRM2210I ------------------------------------------------------------------------------------- |
|IRM2210I SELECTION STARTED |
|IRM2210I SELECTION ENDED |
|IRM2842I 0000000004 RELOAD REQUEST(S) QUEUED |
|IRM2210I ------------------------------------------------------------------------------------- |
|IRM2210I SUMMARY: |
|IRM2842I 0000000004 RELOAD REQUEST(S) QUEUED |
|IRM2843I 0000000004 RELOAD REQUEST(S) QUEUED FOR LISTS |
|IRM2210I ************************************************************************************* |
|IRM2841I B97BRLD BATCH RELOAD UTILITY ENDED - DATE: 18.03.2020, TIME: 10:53:56, RC: 0000 |
+-----------------------------------------------------------------------------------------------+