Use the IDCAMS utility to create and initialize the following VSAM data sets:
Use the JCL in Figure 29.
//DPFM JOB 'accounting information',name,MSGCLASS=A
//DEFINE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DELETE CICSTS31.CICS.DFHDPFMB
DEFINE CLUSTER (RECORDS(1000)-
NAME (CICSTS31.CICS.DFHDPFMB) -
SHAREOPTIONS(2 3) -
LOG(NONE) -
VOLUME (&DSVOL) -
IXD) -
DATA -
(RECSZ(2560,2560) -
CONTROLINTERVALSIZE(3072) -
NAME (CICSTS31.CICS.DFHDPFMB.DATA) -
KEYS(17 1) -
FREESPACE(10 10) -
BUFFERSPACE (8192)) -
INDEX -
(NAME(CICSTS31.CICS.DFHDPFMB.INDX))
//INITDP EXEC PGM=IDCAMS,REGION=512K
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
REPRO INFILE ( SYS01 ) -
OUTDATASET(CICSTS31.CICS.DFHDPFMB)
//SYS01 DD *
DDUMMY RECORD !! DO NOT ALTER !!
EEXAMPLE RECORD REMOVE THIS LINE IF SAMPLES NOT REQUIRED
/*
//DEFALT EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
DEFINE ALTERNATEINDEX -
( NAME(CICSTS31.CICS.DFHDPFMX ) -
RECORDS(1000) -
VOLUME(&DSVOL) -
KEYS(12 20) -
RELATE(CICSTS31.CICS.DFHDPFMB) -
RECORDSIZE(200 200) -
SHAREOPTIONS(2 3) -
UPGRADE ) -
DATA -
( NAME(CICSTS31.CICS.DFHDPFMX.DATA) ) -
INDEX -
( NAME(CICSTS31.CICS.DFHDPFMX.INDEX) )
DEFINE PATH -
( NAME(CICSTS31.CICS.DFHDPFMP) -
PATHENTRY(CICSTS31.CICS.DFHDPFMX) )
/*
//BLDDP EXEC PGM=IDCAMS
//BDSET1 DD DSN=CICSTS31.CICS.DFHDPFMB,DISP=SHR
//ADSET1 DD DSN=CICSTS31.CICS.DFHDPFMX,DISP=SHR
//SYSPRINT DD SYSOUT=A
//SYSIN DD *
BLDINDEX -
INFILE(BDSET1) -
OUTFILE(ADSET1)
/*
//*
The sample JCL creates data sets which contain example debugging profiles. To create empty data sets, remove the following line:
EEXAMPLE RECORD REMOVE THIS LINE IF SAMPLES NOT REQUIRED
Alternatively, you can run the CICS-supplied job DFHDEFDS (in CICSTS31.XDFHINST), to create the data sets for a CICS® region. For information about the DFHDEFDS job, see the CICS Transaction Server for z/OS® Installation Guide.