JCL requirements for the FABLPGEN program

The following JCL requirements must be met to create a global option module with the FABLPGEN program.

Subsections:

EXEC statement

The EXEC statement must be in the following form.

//stepname  EXEC FABLPGEN,MBR=module,SOUT=x
MBR=
Specifies the name of the global option module. module is LIU@INST, LIUGINST, LIU@imsid, or LIUGimsid.
SOUT=
Specifies the SYSOUT class to be used for SYSPRINT DD.

DD statements

Code the following DD statements to identify the source of input and the placement of output information:
SYSLIB DD
This statement specifies the macro library (SHPSMAC0) provided by IMS Library Integrity Utilities, or one of IMS tools solution packs. This library contains the FABLPGIN macro.
SYSIN DD
This statement specifies the input control statement stream.
SYSLMOD DD
This statement specifies the output data set for global option modules. If you merge the Integrity Checker load modules into the IMS SDFSRESL library, specify the IMS SDFSRESL library for this DD statement. Otherwise, specify the Integrity Checker load module library for this DD statement.

You can create global option modules in a different library. If you do so, concatenate that library to the STEPLIB DD in JCL and cataloged procedures for all the jobs from which you want to activate Integrity Checker.

Control statement keywords

The control statement formats are as follows:

FABLPGIN
The IBM® supplied macro for use in defining the global option module. The syntax of the parameter specifications of this macro is the same as the syntax of an ordinary assembler macro statement.

You must specify the statement label for the FABLPGIN macro. For the statement label, specify the name of the global option module, which is LIU@INST, LIUGINST, LIU@imsid, or LIUGimsid (in the example in Figure 1, LIU@INST beginning at column 1.)

LICON=
Specifies the name of the LICON data set. No system default value is provided for this parameter.
VERIFY=
Specifies the method for verifying the DMBs; either SNGL or DBLE. SNGL specifies single-step verification and DBLE specifies double-step verification. The system default value for this parameter is SNGL.

You can choose either of the following two options for how Integrity Checker verifies the DMB of a full-function database against the DMB information registered in the RDE. Specify your choice in the global option module.

Single-step verification
Integrity Checker verifies all elements at once. This method is more reliable than the double-step method, but slower.
Double-step verification
Integrity Checker verifies the version ID of the DMB in the first step. Version ID is the 13-character time stamp of when the DBD was created or the character string that is specified on the VERSION= keyword of the DBD statement that was supplied for DBDGEN. If the version IDs are not the same, Integrity Checker proceeds to the next step to verify other elements. This method is faster than the single-step method, but less reliable.

For DEDBs, single-step verification is always applied.

Recommendation: Specify single-step verification. If you experience a performance problem, consider using double-step verification.
MSGROUT=
Specifies the message routing codes for write-to-operator (WTO) messages issued by Integrity Checker. You can specify values in the range of 1 - 16. The system default value for this parameter is (2,7,11).
MSGDESC=
Specifies the message descriptor codes for write-to-operator (WTO) messages issued by Integrity Checker. The system default value for this parameter is (7).
VERIFYLMT=
Specifies the maximum number of the mismatch messages to be issued for a DMB. For example, specifying 3 means Integrity Checker does not issue more than three mismatch messages for a DMB.

You can specify any number in the range of 0 - 99. 0 specifies that verification is to be done but no mismatch message issued. 99 specifies that the number of messages is unlimited. The system default value for this parameter is 10.

RDEBUILD=
Specifies whether Integrity Checker automatically creates an RDE. The system default value for this parameter is Y.
Y
If no current RDE exists for a DEDB area, a non-HALDB full-function database, or a HALDB partition, Integrity Checker automatically creates an RDE during the first access to it.
N
Even when no current RDE exists for a DEDB area, a non-HALDB full-function database, or a HALDB partition, Integrity Checker does not create an RDE during the first access to it.
INITERR=
Specifies whether Integrity Checker abnormally ends, or issues a warning message and stops its processing, when the initialization of Integrity Checker fails. The system default value for this parameter is A.

This option is not effective in an IMS online subsystem that has a BPE-based DBRC region. If you specify this option for such an environment, Integrity Checker stops processing, and the IMS online subsystem continues processing.

A
If the initialization of Integrity Checker fails, it ends abnormally together with the IMS online subsystem that has a non-BPE-based DBRC region or the IMS batch job.
W
If the initialization of Integrity Checker fails, it issues a warning message and stops its processing. The IMS online subsystem or the IMS batch job continues processing without the Integrity Checker function. However, Integrity Checker ends abnormally if errors occur before the effective value for this option is decided. Such errors are load failures of the following modules:
  • FABLRTRx (x: 8, 9, A, B, C, or D)
  • FABLWM0
  • FABLAI0
  • Global option module
CHECKON=
Specifies the verification option for online IMS subsystems. The system default value for this parameter is (Y,D). You can specify the following options:
Y
Check. If you specify Y, you can specify either of the following parameters:
D
If a mismatch is found, deny authorization to use the database.
W
Issue a warning message and create a new RDE.
N
Do not check.
CHECKBAT=
Specifies the verification option for batch jobs. The system default value for this parameter is (Y,D). You can specify the following options:
Y
Check. If you specify Y, you can specify either of the following parameters:
D
If a mismatch is found, deny authorization to use the database.
W
Issue a warning message and create a new RDE.
N
Do not check.
CHECKLD=
Specifies the verification option for user load program jobs. The system default value for this parameter is (Y,D). You can specify the following options:
Y
Check. If you specify Y, you can specify either of the following parameters:
D
If a mismatch is found, deny authorization to use the database.
W
Issue a warning message and create a new RDE.
N
Do not check.
CHECKIC=
Specifies the verification option for batch image copy jobs. The system default value for this parameter is (Y,D). You can specify the following options:
Y
Check. If you specify Y, you can specify either of the following parameters:
D
If a mismatch is found, deny authorization to use the database.
W
Issue a warning message and create a new RDE.
N
Do not check.
CHECKRV=
Specifies the verification option for database recovery jobs. The system default value for this parameter is (Y,D). You can specify the following options:
Y
Check. If you specify Y, you can specify either of the following parameters:
D
If a mismatch is found, deny authorization to use the database.
W
Issue a warning message and create a new RDE.
N
Do not check.
CHKRAND=
Specifies whether to verify changes in randomizing routines by checksum. The system default value for this parameter is N. You can specify the following options:
Y
Check.
N
Do not check.
If CHECKON, CHECKBAT, CHECKLD, CHECKIC, or CHECKRV is set to Y, this specification is effective in each IMS environment.
CHKCOMP=
Specifies whether to verify changes in segment edit/compression routines by checksum. The system default value for this parameter is N. You can specify the following options:
Y
Check.
N
Do not check.
If CHECKON, CHECKBAT, CHECKLD, CHECKIC, or CHECKRV is set to Y, this specification is effective in each IMS environment.
CHKPSEL=
Specifies whether to verify changes in HALDB partition selection exit routines by checksum. The system default value for this parameter is N. You can specify the following options:
Y
Check.
N
Do not check.
If CHECKON, CHECKBAT, CHECKLD, CHECKIC, or CHECKRV is set to Y, this specification is effective in each IMS environment.
CHKFPSEL=
Specifies whether to verify changes in DEDB partition selection exit routines by checksum. The system default value for this parameter is N. You can specify the following options:
Y
Check.
N
Do not check.
If CHECKON, CHECKBAT, CHECKLD, CHECKIC, or CHECKRV is set to Y, this specification is effective in each IMS environment.
GENMAX=
Specifies the maximum number of expired RDEs to be kept in the LICON data set for use in recoveries. The system default value for this parameter is 0 (do not keep expired RDEs). A maximum of 15 RDE copies can be kept.
RECUPD=
Specifies whether to record database update access information. The system default value for this parameter is N. You can specify the following options:
Y
Record.
N
Do not record.
RECLD=
Specifies whether to record database load access information. The system default value for this parameter is N. You can specify the following options:
Y
Record.
N
Do not record.
RECUL=
Specifies whether to record database unload access information. The system default value for this parameter is N. You can specify the following options:
Y
Record.
N
Do not record.

Example

Sample JCL is in the SHPSJCL0 library, member FABLINIT. The following figure shows the CREGOM step of the sample JCL, which creates global option module LIU@INST.

The name of a global option module can be LIU@INST, LIU@imsid, LIUGINST, or LIUGimsid. Replace LIU@INST in the JCL example to create a module with one of these names.

Figure 1. JCL for creating a global option module LIU@INST
//CREGOM  EXEC FABLPGEN,MBR=LIU@INST,SOUT=A                           
//C.SYSLIB  DD DISP=SHR,DSN=HPS.SHPSMAC0                                
//C.SYSIN   DD *                                                        
LIU@INST FABLPGIN VERIFY=SNGL,     single step verification            X
               MSGROUT=(2,7,11),   WTO message rouing codes            X
               MSGDESC=(7),        WTO message descritor codes         X
               VERIFYLMT=5,        max number of mismatch messages     X
               CHECKON=(Y,D),      verification option - online        X
               CHECKBAT=(Y,D),     verification option - batch         X
               CHECKLD=(Y,D),      verification option - load          X
               CHECKIC=(Y,D),      verification option - image copy    X
               CHECKRV=(Y,D),      verification option - recovery      X
               GENMAX=3,           max number of expired RDE kept      X
               LICON=imshlq.licondsn                                    
         END                                                            
/*
//L.SYSLMOD DD DISP=SHR,DSN=HPS.USERLIB(&MBR)