配信制御ファイルの創成

配信制御ファイルを創成するためのジョブ制御文およびAMSコマンドの例を示します。

JCL例

\         JOB  QUEVSAM,LIST=(A,JS)                                              
\**------< VSAM DEFINE CLUSTER >---------------------------------------         
\DEFCLSTR EX   KQCAMS                                                           
\         FD   STEPCAT=DA,FILE=USERCAT                                          
\         FD   SYSPRINT=DA,TRK=(10,10),VOL=WORK,SOUT=A                          
\         FD   SYSIN=*                                                          
     DELETE HULFT.QUEUE                                                         
     DEFINE CLUSTER                     -                                       
            (NAME(HULFT.QUEUE)          -                                       
             INDEXED)                   -                                       
            DATA                        -                                       
            (NAME(HULFT.QUEUE.DATA)     -                                       
             KEYS(61 0)                 -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(1)               -                                       
             SHAREOPTIONS(4 3)          -                                       
             RECORDSIZE(7600 7600)      -                                       
             CONTROLINTERVALSIZE(32768)) -                                      
            INDEX                       -                                       
            (NAME(HULFT.QUEUE.IDX)      -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(1)               -                                       
             SHAREOPTIONS(4 3))         -                                       
             CATALOG(USERCAT)                                                   
\*-------< FILE CREATE         >--------------------------------------*         
\XRCREATE EX   XRCREATE,RSIZE=4096K                                             
\         FD   STEPCAT=DA,FILE=USERCAT                                          
\         FD   XRLOG=DUMMY                                                      
\         FD   XRLOG1=DUMMY                                                     
\         FD   XRLOG2=DUMMY                                                     
\         FD   XRFILE=DUMMY                                                     
\         FD   XRHOST=DUMMY                                                     
\         FD   XRQUE=DA,FILE=HULFT.QUEUE,AMP=AMORG                              
\         FD   XRCNTL=DUMMY
\         FD   XROPLC1=DUMMY                                                    
\         FD   XROPLC2=DUMMY                                                    
\         FD   XROPLF1=DUMMY                                                    
\         FD   XROPLF2=DUMMY                                                    
\         JEND                                                                  

FD名

項目名

説明

STEPCAT

USERCAT

カタログ簿データセット名

XRQUE

HULFT.QUEUE

配信制御ファイル

パラメータ名

項目名

説明

CATALOG

USERCAT

カタログ簿データセット名

VOLUMES

HUL001

ボリューム名

NAME

HULFT.QUEUE

配信制御ファイル

NAME

HULFT.QUEUE.DATA

配信制御ファイル データ・コンポーネント エントリ名

NAME

HULFT.QUEUE.IDX

配信制御ファイル インデックス・コンポーネント エントリ名