Creating the debugging profiles data sets

You can create the debugging profiles data sets in one of two ways. You can either use an IDCAMS utility to create and initialize the data sets or you can run the CICS®-supplied job, DFHDEFDS, to create the data sets for a CICS region

Use the IDCAMS utility to create and initialize the following VSAM data sets:

DFHDPFMB: The debugging profiles base data set.
DFHDPFMP: The debugging profiles path data set.
DFHDPFMX: The debugging profiles alternate index data set.

Use the JCL in Figure 1.

Figure 1. Sample JCL to create the debugging profiles data sets

//DPFM  JOB  'accounting information',name,MSGCLASS=A        
//DEFINE EXEC PGM=IDCAMS                                     
//SYSPRINT DD SYSOUT=A                                       
//SYSIN  DD  *                                               
    DELETE CICSTS55.CICS.DFHDPFMB                            
                                                             
    DEFINE CLUSTER (RECORDS(1000)-                           
     NAME (CICSTS55.CICS.DFHDPFMB) -                         
     SHAREOPTIONS(2 3) -                                     
     LOG(NONE) -                                             
     VOLUME (&DSVOL)  -                                      
     IXD)             -                                      
    DATA -                                                   
     (RECSZ(2560,2560) -                                     
     CONTROLINTERVALSIZE(3072) -                             
     NAME (CICSTS55.CICS.DFHDPFMB.DATA) -                    
     KEYS(17 1) -                                            
     FREESPACE(10 10) -                                      
     BUFFERSPACE (8192)) -                                   
   INDEX -                                                   
     (NAME(CICSTS55.CICS.DFHDPFMB.INDX))                     
//INITDP EXEC PGM=IDCAMS,REGION=512K                         
//SYSPRINT DD SYSOUT=A                                       
//SYSIN    DD *                                              
     REPRO INFILE ( SYS01 ) -                                
           OUTDATASET(CICSTS55.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(CICSTS55.CICS.DFHDPFMX ) -                       
     RECORDS(1000) -                                         
     VOLUME(&DSVOL) -                                        
     KEYS(12 20) -                                            
     RELATE(CICSTS55.CICS.DFHDPFMB) -                        
     RECORDSIZE(200 200) -                                   
     SHAREOPTIONS(2 3) -                                     
     UPGRADE ) -                                             
    DATA -                                                   
     ( NAME(CICSTS55.CICS.DFHDPFMX.DATA) ) -                 
    INDEX -                                                  
     ( NAME(CICSTS55.CICS.DFHDPFMX.INDEX) )                  
    DEFINE PATH -                                            
     ( NAME(CICSTS55.CICS.DFHDPFMP) -                        
     PATHENTRY(CICSTS55.CICS.DFHDPFMX) )                     
/*                                                           
//BLDDP EXEC PGM=IDCAMS                                      
//BDSET1 DD DSN=CICSTS55.CICS.DFHDPFMB,DISP=SHR              
//ADSET1 DD DSN=CICSTS55.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