CA Datacom DBUTLTY DEFAULT FORCE function additional SYSIN DBIN1PR

Products

• Datacom
• Datacom/DB
• Datacom/AD

Issue/Introduction

Where should the CA Datacom DBUTLTY DEFAULT and FORCE functions be coded? For example:

DEFAULT INIT_IXX_OPTION2=FORMAT2                                                                      
                                                                                                                          
If specified in the SYSIN it fails with:

DB10007E - INVALID FUNCTION DEFAULT        

The documentation indicates an additional or alternate SYSIN needs to be used.

What is the additional or alternate SYSIN? 

Environment

Release : 15.1

Component : CA DATACOM/DB

Resolution

The DEFAULT and FORCE functions are coded in the additional SYSIN which has a DD name of SYSIN1ST. It is used to override the DBIN1PR module options.

For the override to be processed, a DBIN1PR module first needs to be created. If there is no DBIN1PR module the SYSIN1ST DD options are not processed.

The  DBUTLTY DEFAULT and FORCE  as well as SET functions can also be coded in the DBIN1PR module.

The instructions to create a DBIN1PR module is in the CA Datacom documentation in section Debugging Using an Additional SYSIN with the DBUTLTY SET Function

Code the source like this:

IN1      TITLE 'DEFINE ALTERNATE SYSIN'                                 
         DBIN1PR                                                       X
               DBUTLTY_IN1=('SET OPTION1=ECHO_FUNCTIONS',              X
               'SET OPTION1=EOJ_REPORT_X')                              
         END

Then assemble and link the module into the CUSLIB,

In the DBUTLTY JCL code as follows:

//SYSIN1ST DD *                          
DEFAULT INIT_IXX_OPTION2=FORMAT2  
/*       

//SYSIN    DD *                          
INIT AREA=IXX,DBID=nnn                   
/*

The output will show:

                      INIT AREA=IXX,DBID=930                               

                    FUNCTION=INIT
                       AREA=IXX 
                       DBID=nnn      
*****- NOTE  -*****    OPTION2=FORMAT2   DB10028I - DBIN1PR DEFAULT APPLIED

Additional Information

See the CA Datacom documentation sections DEFAULT (Control Defaults) and Debugging Using an Additional SYSIN with the DBUTLTY SET Function