Specifying site default values for IMS compatible JCL

To specify site default values for your environment, you must create source code for the site default table by using the FABJTGEN program. Then, assemble and link-edit the source code.

Procedure

Prepare JCL for the IMS HP Image Copy Site Default Generation utility (FABJTGEN). Sample JCL that runs the FABJTGEN program is provided in the SHPSSAMP data set. The member name is FABJDFLX. Use the sample or prepare similar JCL of your own.

To prepare JCL of your own, code the JCL statements as follows:
1. Code the EXEC statement. The EXEC statement must be in the following form:
```
// EXEC PGM=FABJTGEN,REGION=nM
```
2. Supply the appropriate DD statements.
For FABJTGEN DD statements, see DD statements for the Site Default Generation utility (IMS compatible JCL).
In the ICEIN data set, code a TABLGEN statement and a GLOBAL statement.

Important: To generate a site default table for IMS compatible JCL, you must provide a TABLEGEN statement in the ICEIN data set. If a TABLEGEN statement is not provided, the Site Default Generation utility generates a site default table for the FABJMAIN program.

On the GLOBAL statement, code the control statement keywords and their parameters of which you want to change its default value. For control statements and their parameters, see Control statements for the Site Default Generation utility (IMS compatible JCL).
Run the Site Default Generation utility job step to create source code for the site default table (FABJGLI0).

The FABJDFLX sample JCL creates source code, and then assembles and link-edits the source code. If you use the FABJDFLX sample, you can skip step 4.
Assemble and link-edit the FABJGLI0 source code.
To create the site default table module FABJGLI0, assemble and link-edit the SYSPUNCH that is generated by the FABJTGEN program.

For SYSIN of the assemble job step, specify the SYSPUNCH data set that is generated by the FABJTGEN program.
Both the module name and the entry name of the site default table must be FABJGLI0. Link-edit the site default table module with the following options:
- AMODE=24
- RMODE=24
- REUSE
Concatenate the load module library in which FABJGLI0 resides to the STEPLIB of IMS compatible JCL.
When IMS HP Image Copy finds FABJGLI0 in the STEPLIB concatenation, IMS HP Image Copy loads and uses the table. The control statement parameter values that are set in the table are applied to the IMS HP Image Copy job at run time.

Example

The following figure shows the FABJDFLX sample for creating the FABJGLI0 source code and assembling and link-editing the source code.

Figure 1. Sample JCL: FABJDFLX (Part 1 of 2)

//FABJDFLX JOB                                                          
//*-------------------------------------------------------------------* 
//*  This JCL consists of following three steps                       *
//*  1.  Generating source code of your site default definition.      * 
//*  2.  Assemble source code of your site default table.             * 
//*  3.  Link-Edit your site default table module.                    * 
//*                                                                   * 
//*-------------------------------------------------------------------* 
//*  Make the following global changes for this job:                  * 
//*                                                                   * 
//*    1. The JOB statement should be modified to suit your           * 
//*       environment.                                                * 
//*                                                                   * 
//*    2. Substitute your dsname where the site default module        * 
//*       is mad for the string "$site_def_lib".                      * 
//*       'CHANGE $site_def_lib your_site_def_lib_name ALL'           * 
//*                                                                   * 
//*    3. Substitute your dsname High Level Qualifier (HLQ) for IMS   * 
//*       HP Image Copy data sets for the string                      * 
//*       "$hpichlq".                                                 * 
//*       'CHANGE $hpichlq.SHPS your_hlq.SHPS ALL'                    * 
//*     6. Substitute your group-name or unit number for UNIT         * 
//*        parameters for the group-name "SYSALLDA", if applicable.   * 
//*        'CHANGE SYSALLDA your_sysda ALL'                           * 
//*-------------------------------------------------------------------* 
//*                                                                     
//  SET HPICLIB=$hpichlq.SHPSLMD0                                       
//  SET LIBNAME=$site_def_lib                                           
//*                                                                   *

Figure 2. Sample JCL: FABJDFLX (Part 2 of 2)

//*-------------------------------------------------------------------* 
//*   FABGTGEN Process  - Generate Table Source for IMS Compatible JCL* 
//*-------------------------------------------------------------------* 
//TGEN     PROC                                                         
//GEN      EXEC PGM=FABJTGEN,REGION=0M                                  
//*                                                                     
//STEPLIB   DD  DISP=SHR,                                               
//             DSN=&HPICLIB                                             
//*                                                                     
//SYSPRINT  DD  SYSOUT=*                                                
//SYSPUNCH  DD  DISP=(NEW,PASS,DELETE),                                 
//             DCB=(RECFM=FB,BLKSIZE=800),                              
//             SPACE=(TRK,(1,1)),                                       
//             DSN=&&SOURCE,                                            
//             UNIT=SYSALLDA                                            
//SYSUDUMP  DD  DUMMY                                                   
//*                                                                     
//ASM      EXEC PGM=ASMA90,COND=(4,LT,GEN),                             
//           PARM='OBJECT,NODECK,LIST,XREF(SHORT)'                      
//SYSLIB    DD  DISP=SHR,                                               
//             DSN=SYS1.MACLIB                                          
//SYSLIN    DD  DISP=(,PASS),                                           
//             SPACE=(CYL,(5,5,0)),                                     
//             DCB=(BLKSIZE=400),                                       
//             DSN=&&OBJECT,                                            
//             UNIT=SYSALLDA                                            
//SYSUT1    DD  UNIT=SYSALLDA,                                          
//             DISP=(,DELETE),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=24,RMODE=24'                    
//SYSPRINT DD SYSOUT=*                                                  
//SYSLIN   DD DSN=&OBJECT,                                              
//           DISP=(OLD,DELETE,DELETE)                                   
//*                                                                     
//        PEND                                                          
//*                                                                     
//GO      EXEC TGEN                                                     
//*                                                                     
//GEN.ICEIN DD *                                                        
*-------------------------------------------*                           
*       YOUR SITE DEFAULT DEFINITION        *                           
*-------------------------------------------*                           
  TABLEGEN   TYPE=IMSJCL                                                
  GLOBAL     COMP=Y,                                                    
             COMPRTN=FABJCMP2,                                          
             HDPC=Y,                                                    
             DEDBPC=S,                                                  
*                                                                       
             HPIO=Y,                                                    
             COMPMODE=COND,                                             
*                                                                       
             DBBUF=120,                                                 
             DSBUF=20,                                                  
             ICBUF=20                                                   
/*                                                                      
//L.SYSLMOD DD DISP=SHR,                                                
//            DSN=&LIBNAME(FABJGLI0)                                    
//*                                                                     
//