Defining the CDBM GROUP command data set

The CDBM GROUP command data set, DFHDBFK, is a VSAM key-sequenced data set (KSDS). The CDBM transaction uses this data set to provide a repository for stored groups of DBCTL commands, .

About this task

1. Create the DFHDBFK data set by running an IDCAMS job, an example of which is shown in Figure 1.

   //DBFKJOB  JOB  'accounting information',name,MSGCLASS=A
   //*
   //DBFKDEF  EXEC PGM=IDCAMS,REGION=1M
   //SYSPRINT DD SYSOUT=*
   //AMSDUMP  DD SYSOUT=*
   //SYSIN    DD *
     DELETE CICSTS52.CICS.DFHDBFK
     SET MAXCC=0
     DEFINE CLUSTER (                             -
                   NAME( CICSTS52.CICS.DFHDBFK )  -
                   INDEXED                        -
                   RECORDS(100 20)                -
                   KEYS(22,0)                     -
                   RECORDSIZE(1428 1428)          -
                   )                              -
     INDEX         (                              -
                   NAME( CICSTS52.CICS.DFHDBFK.INDEX )     -
                   CONTROLINTERVALSIZE(512)       -
                   )                              -
     DATA          (                              -
                   NAME( CICSTS52.CICS.DFHDBFK.DATA )      -
                   CONTROLINTERVALSIZE(2048)      -
                   )
   /*
   //*     The next two job steps are optional.
   //*
   //DBFKINID EXEC PGM=IDCAMS,REGION=1M
   //SYSPRINT DD SYSOUT=*
   //SYSIN    DD *
    DELETE  CICSTS52.CICS.DBFKINIT
   /*
   //DBFKINIF EXEC PGM=IEBGENER
   //SYSPRINT DD   SYSOUT=A
   //SYSUT2   DD   DSN=CICSTS52.CICS.DBFKINIT,DISP=(NEW,CATLG),
   // UNIT=dbfkunit,VOL=SER=dbfkvol,SPACE=(TRK,(1,1)),
   // DCB=(RECFM=FB,LRECL=40,BLKSIZE=6160)
   

   //*  Place the definitions you want to load after SYSUT1. For example:
   //SYSUT1   DD *
   SAMPLE      DIS       DB DI21PART
   SAMPLE      STA       DB DI21PART
   SAMPLE      STO       DB DI21PART
   /*
   //SYSIN    DD *
    GENERATE MAXFLDS=1
    RECORD FIELD=(40)
   /*
   //DBFKLOAD EXEC PGM=IDCAMS,REGION=1M
   //SYSPRINT DD SYSOUT=*
   //AMSDUMP  DD SYSOUT=*
   //SYS01    DD DSN=CICSTS52.CICS.DBFKINIT,DISP=SHR
   //DFHDBFK  DD DSN=CICSTS52.CICS.DFHDBKF,DISP=SHR
   //SYSIN    DD *
     REPRO INFILE (SYS01)                     -
           OUTFILE (DFHDBFK)
   /*
   //

   where dbfkvol is the volume on which the DFHDBFK data set is to be created and dbfkunit is the unit type for that volume.

2. Use this job to load IMS commands or use the maintenance function within the CDBM transaction.