创建调试概要文件数据集

您可以通过两种方法之一来创建调试概要文件数据集。 您可以使用 IDCAMS 实用程序来创建和初始化数据集，也可以运行 CICS®提供的作业 DFHDEFDS 来为 CICS 区域创建数据集

使用 IDCAMS 实用程序来创建和初始化以下 VSAM 数据集:
DFHDPFMB
调试概要文件基本数据集。
DFHDPFMP
调试概要文件路径数据集。
DFHDPFMX
调试概要文件备用索引数据集。
使用 图 1中的 JCL。
图 1。 用于创建调试概要文件数据集的样本 JCL
//DPFM  JOB  'accounting information',name,MSGCLASS=A        
//DEFINE EXEC PGM=IDCAMS                                     
//SYSPRINT DD SYSOUT=A                                       
//SYSIN  DD  *                                               
    DELETE CICSTS54.CICS.DFHDPFMB                            
                                                             
    DEFINE CLUSTER (RECORDS(1000)-                           
     NAME (CICSTS54.CICS.DFHDPFMB) -                         
     SHAREOPTIONS(2 3) -                                     
     LOG(NONE) -                                             
     VOLUME (&DSVOL)  -                                      
     IXD)             -                                      
    DATA -                                                   
     (RECSZ(2560,2560) -                                     
     CONTROLINTERVALSIZE(3072) -                             
     NAME (CICSTS54.CICS.DFHDPFMB.DATA) -                    
     KEYS(17 1) -                                            
     FREESPACE(10 10) -                                      
     BUFFERSPACE (8192)) -                                   
   INDEX -                                                   
     (NAME(CICSTS54.CICS.DFHDPFMB.INDX))                     
//INITDP EXEC PGM=IDCAMS,REGION=512K                         
//SYSPRINT DD SYSOUT=A                                       
//SYSIN    DD *                                              
     REPRO INFILE ( SYS01 ) -                                
           OUTDATASET(CICSTS54.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(CICSTS54.CICS.DFHDPFMX ) -                       
     RECORDS(1000) -                                         
     VOLUME(&DSVOL) -                                        
     KEYS(12 20) -                                            
     RELATE(CICSTS54.CICS.DFHDPFMB) -                        
     RECORDSIZE(200 200) -                                   
     SHAREOPTIONS(2 3) -                                     
     UPGRADE ) -                                             
    DATA -                                                   
     ( NAME(CICSTS54.CICS.DFHDPFMX.DATA) ) -                 
    INDEX -                                                  
     ( NAME(CICSTS54.CICS.DFHDPFMX.INDEX) )                  
    DEFINE PATH -                                            
     ( NAME(CICSTS54.CICS.DFHDPFMP) -                        
     PATHENTRY(CICSTS54.CICS.DFHDPFMX) )                     
/*                                                           
//BLDDP EXEC PGM=IDCAMS                                      
//BDSET1 DD DSN=CICSTS54.CICS.DFHDPFMB,DISP=SHR              
//ADSET1 DD DSN=CICSTS54.CICS.DFHDPFMX,DISP=SHR              
//SYSPRINT DD SYSOUT=A                                       
//SYSIN    DD *                                              
     BLDINDEX -                                              
            INFILE(BDSET1) -                                 
            OUTFILE(ADSET1)                                  
/*                                                           
//*
样本 JCL 将创建包含示例调试概要文件的数据集。 要创建空数据集，请除去以下行:
 EEXAMPLE RECORD   REMOVE THIS LINE IF SAMPLES NOT REQUIRED