Example of JCL required to generate a basic DBCTL subsystem

You can copy and modify this JCL example to generate a DBCTL subsystem.

The minimum generation required to generate DBCTL is ON-LINE,DBCTL. (You must perform an online generation to change the SVC numbers.) You must include the dash (-) in the ON-LINE parameter. If you do not, you get the following messages when you try to generate DBCTL:

** ASMA254I *** MNOTE ***    76+     4,G002 FOLLOWING OPERAND(S) OMITTED OR INVALID: 
** ASMA254I *** MNOTE ***    77+     4,      SYSTEM

You use an ACB generation to create members of the IMS.ACBLIB. See Database utilities in IMS product documentation for further guidance on doing this.

Figure 1 shows an example DBCTL generation that you can copy and modify to generate a DBCTL subsystem. This example includes only the parameters needed to get a basic system up and running. This example does not include optional parameters, such as those for DEDB support, and it assumes that you want to tune other parameters (such as the number of threads) later, when you have had an opportunity to see how the subsystem runs.

Note: You can, instead, use the IMS INSTALL/IVP dialog to generate stage 1 macros for DBCTL. For details, see Installation in IMS product documentation.

Figure 1. Example JCL to generate DBCTL 1/2

//DBCGEN   JOB 1,PGMERID,                                    
//         MSGCLASS=A,MSGLEVEL=(1,1),                        
//         CLASS=A,NOTIFY=PGMERID                            
//ASM EXEC PGM=ASMA90,                                        
// PARM='DECK,NOOBJECT',                          
//       REGION=4096K                                  
//SYSLIB DD DSN=IMS.OPTIONS,DISP=SHR                        
//       DD DSN=IMS.SDFSMAC,DISP=SHR                   
//       DD DSN=SYS1.MACLIB,DISP=SHR                      
//*                                                         
//SYSUT1 DD UNIT=SYSDA,SPACE=(1700,(400,400))               
//SYSUT2 DD UNIT=SYSDA,SPACE=(1700,(400,400))               
//SYSUT3 DD UNIT=SYSDA,SPACE=(1700,(400,400))               
//SYSPRINT DD SYSOUT=*                            
//SYSPUNCH DD DSN=IMS.STAGE2,DISP=SHR                   
//SYSIN    DD *                                       
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
*                                                                     *
*  SAMPLE DBCTL SYSTEM DEFINITION STAGE 1 INPUT SPECIFICATIONS        *
*                                                                     *
* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *
         IMSCTRL SYSTEM=(VS/2,(ON-LINE,DBCTL),3.1),                    X
               MAXREGN=(20,52K,A,A),                                   X
               MCS=(2,7),DESC=7,MAXCLAS=1,IMSID=IMSA              
*                                                                       
         IMSCTF SVCNO=(,203,202),                                      X
               LOG=(DUAL,MONITOR),                                     X
               RDS=(3380,4096),                                        X
               CPLOG=1000,CORE=(,50,1)                                  
*                                                                       
*        DEFINE SYSTEM BUFFERS                                          
*                                                                       
         BUFPOOLS PSBW=60000,DMB=10000,SASPSB=(20000,80000)             
*                                                                       
*        DEFINE DL/I DATABASES                                          
*                                                                       
         DATABASE RESIDENT,DBD=DI21PART

Figure 2. Example JCL to generate DBCTL 2/2

*        DEFINE SAMPLE APPLICATIONS                                     
*                                                                       
         APPLCTN PSB=DFHSAM04,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHSAM05,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHSAM14,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHSAM15,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHSAM24,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHSAM25,PGMTYPE=BATCH,SCHDTYP=PARALLEL            
         APPLCTN PSB=DFHDBMP,PGMTYPE=BATCH,SCHDTYP=PARALLEL             
*                                                                       
         IMSGEN ASM=(H,SYSLIN),                                        X
               ASMPRT=ON,                                              X
               LKPRT=(XREF,LIST),                                      X
               LKSIZE=(880K,64K),                                      X
               LKRGN=4096K,                                            X
               SUFFIX=1,                                               X
               SURVEY=NO,                                              X
               SYSMSG=TIMESTAMP,                                       X
               MACLIB=ALL,                                             X
               OBJDSET=IMS.OBJDSET,                                    X
               USERLIB=IMS.LOADLIB,                                    X
               PROCLIB=(YES,),                                         X
               NODE=(IMS,IMS,IMS),                                     X
               JCL=(GENJOB,                                            X
               (1),                                                    X
               PGMERID,                                                X
               A,                                                      X
               (TIME=5,CLASS=K,NOTIFY=PGMERID)),                       X
               SCL=(99)                                                 
         END

For more detailed system definition examples and further guidance on selecting the appropriate system definitions, and for IMS system definition examples, see System definition in IMS product documentation.