Defining the CDBM GROUP command data set

This section describes the CICS® DFHDBFK file. The DFHDBFK file, used by the CDBM transaction to provide a repository for stored groups of DBCTL commands, is a VSAM key-sequenced data set (KSDS).

You can create the DFHDBFK data set by running an IDCAMS job, an example of which is shown in Figure 24. You can use this job to load some IMS™ commands, or you can use the maintenance function within the CDBM transaction.

Figure 24. Sample job to define and initialize the DFHDBFK data set
//DBFKJOB  JOB  'accounting information',name,MSGCLASS=A
//*
//DBFKDEF  EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//AMSDUMP  DD SYSOUT=*
//SYSIN    DD *
  DELETE CICSTS31.CICS.DFHDBFK
  SET MAXCC=0
  DEFINE CLUSTER (                             -
                NAME( CICSTS31.CICS.DFHDBFK )  -
                INDEXED                        -
                RECORDS(100 20)                -
                KEYS(22,0)                     -
                RECORDSIZE(1428 1428)          -
                )                              -
  INDEX         (                              -
                NAME( CICSTS31.CICS.DFHDBFK.INDEX )     -
                CONTROLINTERVALSIZE(512)       -
                )                              -
  DATA          (                              -
                NAME( CICSTS31.CICS.DFHDBFK.DATA )      -
                CONTROLINTERVALSIZE(2048)      -
                )
/*
//*     The next two job steps are optional.
//*
//DBFKINID EXEC PGM=IDCAMS,REGION=1M
//SYSPRINT DD SYSOUT=*
//SYSIN    DD *
 DELETE  CICSTS31.CICS.DBFKINIT
/*
//DBFKINIF EXEC PGM=IEBGENER
//SYSPRINT DD   SYSOUT=A
//SYSUT2   DD   DSN=CICSTS31.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=CICSTS31.CICS.DBFKINIT,DISP=SHR
//DFHDBFK  DD DSN=CICSTS31.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.
[[ Contents Previous Page | Next Page Index ]]