Setting site default values for the DBD/PSB/ACB Reversal utility

To generate a site default table by using the Reversal Site Default Generation utility, you must code the Reversal Site Default Generation utility JCL, run the job, assemble and link-edit the source code, and concatenate the load module library to the DBD/PSB/ACB Reversal JCL.

Procedure

  1. Run the Reversal Site Default Generation utility (FABNTGEN) job step to create source code of the SYSIN site default table (FABNCTL0).

    You can use sample JCL to run the utility. Locate member FABNDFL1 in the SHPSSAMP library and modify the sample JCL. The FABNDFL1 sample JCL creates a source code and then assembles and link-edits the source code. Therefore, if you use FABNDFL1, you can omit Step 2.

    See the following topics for additional information:
  2. Assemble and link-edit the FABNCTL0 source code.

    To create the SYSIN site default table module FABNCTL0, assemble and link the SYSPUNCH data set that is generated by FABNTGEN.

    For SYSIN of the assemble job step, specify the SYSPUNCH data set that is generated in the FABNTGEN processing. In the link-edit job step, consider using AMODE=31 and RMODE=ANY instead of the default values (which are AMODE=24 and RMODE=24) by adding AMODE=31 and RMODE=ANY to the EXEC statement PARM list.

  3. Concatenate the load module library in which FABNCTL0 resides to the STEPLIB of the DBD/PSB/ACB Reversal FABNRVRS JCL.

    To use the site default table, the library for the SYSIN site default table module (FABNCTL0) must be concatenated to the STEPLIB DD of FABNRVRS runtime JCL.

    Tip: If you specify a value in the SYSIN control statement in the DBD/PSB/ACB Reversal FABNRVRS JCL, you can override the site default value at run time.

Example

The following figure shows a sample for creating the SYSIN site default table module FABNCTL0.
Figure 1. Sample JCL for creating the site default table module FABNCTL0 
//*********************************************************************
//*  FABNTGEN - DBD/PSB/ACB REVERSAL SITE DEFAULT GENERATION UTILITY  
//*  ( PARM='GEN' SAMPLE PROCEDURE )                                   
//*********************************************************************
//RVRSTGEN PROC HLQ='HPS'                                              
//*------------------------------------------------------------------------
//*  CREATE SOURCE CODE OF SITE DEFAULT TABLE                          
//*------------------------------------------------------------------------
//G        EXEC PGM=FABNTGEN,PARM='GEN'                                
//STEPLIB  DD   DISP=SHR,DSN=&HLQ..SHPSLMD0                             
//SYSPUNCH DD   DISP=(NEW,PASS,DELETE),DSN=&&SOURCE,                   	 
//             DCB=(RECFM=FB,BLKSIZE=800),SPACE=(TRK,(1,1)),UNIT=SYSDA  
//SYSOUT   DD   SYSOUT=*                                                
//SYSUDUMP DD   DUMMY                                                   
//*------------------------------------------------------------------------ 
//*  ASSEMBLE & LINK ==> SITE DEFAULT TABLE MODULE (FABNCTL0)           
//*------------------------------------------------------------------------ 
//ASM      EXEC PGM=ASMA90,COND=(4,LT,G),                             
//             PARM='OBJECT,NODECK,LIST,XREF(SHORT)'                      
//SYSLIN   DD   DISP=(,PASS),UNIT=SYSDA,SPACE=(CYL,(5,5,0)),            
//             DCB=(BLKSIZE=400),DSN=&&OBJECT                           
//SYSUT1   DD   DISP=(,DELETE),UNIT=SYSDA,SPACE=(CYL,(10,5))            
//SYSPUNCH DD   DUMMY                                                   
//SYSPRINT DD   SYSOUT=*                                                
//SYSIN    DD   DISP=(OLD,DELETE,DELETE),DSN=&&SOURCE                   
//*                                                                     
//L        EXEC PGM=IEWL,COND=(4,LT,ASM),REGION=4096K,                  
//             PARM='LIST,REFR,REUS,AMODE=31,RMODE=ANY'                 
//SYSPRINT DD   SYSOUT=*                                                   
//SYSLIN   DD   DISP=(OLD,DELETE,DELETE),DSN=&OBJECT                    
//*                                                                     
//         PEND                                                         
//*                                                                     
//*-----------------------------------------------------------------------* 
//*  FABNTGEN (PARM='GEN') - DBD/PSB/ACB REVERSAL                     * 
//*                          SITE DEFAULT GENERATION UTILITY          * 
//*-----------------------------------------------------------------------* 
//GO       EXEC RVRSTGEN,HLQ=HPS                                        
//*-------------------------------------*                               
//* SPECIFY SITE DEFAULT VALUES         *                               
//*-------------------------------------*                               
//G.SYSIN DD  *                                                        
  DECOPT COMPRESS=NO,COMMENT=NO 
/*                                      
//L.SYSLMOD DD  DISP=SHR,DSN=HPS.TABLELIB(FABNCTL0)                    	 
//*                                                                     
//   
//*-----------------------------------------------------------------------* 
//*  FABNTGEN (PARM='REPORT') - DBD/PSB/ACB REVERSAL                  * 
//*                          SITE DEFAULT GENERATION UTILITY          * 
//*-----------------------------------------------------------------------* 
//RVRSTGEN EXEC PGM=FABNTGEN,PARM='REPORT'                                 
//STEPLIB  DD   DISP=SHR,DSN=HPS.TABLELIB                              	 
//         DD   DISP=SHR,DSN=HPS.SHPSLMD0                           
//SYSOUT   DD   SYSOUT=*                                                
//SYSUDUMP DD   DUMMY       
//