配信制御ファイルの創成

配信制御ファイルを創成するためのJOBステートメントおよびAMSコマンドの例を示します。

JCL例

//QUEVSAM JOB CLASS=A,MSGCLASS=B                                                
//*------< VSAM DEFINE CLUSTER >---------------------------------------         
//DEFCLSTR EXEC PGM=IDCAMS                                                      
//SYSPRINT DD SYSOUT=*                                                          
//SYSIN DD *                                                                    
     DELETE HULFT.QUEUE                                                         
     DEFINE CLUSTER                                                   -         
            (NAME(HULFT.QUEUE)                                        -         
             INDEXED)                                                 -         
            DATA                                                      -         
            (NAME(HULFT.QUEUE.DATA)                                   -         
             KEYS(61 0)                                               -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3)                                        -         
             RECORDSIZE(7600 7600)                                    -         
             CONTROLINTERVALSIZE(26624))                              -         
            INDEX                                                     -         
            (NAME(HULFT.QUEUE.IDX)                                    -         
             VOLUMES(HUL001)                                          -         
             CYLINDERS(1 1)                                           -         
             SHAREOPTIONS(4 3))                                                 
//*------< FILE CREATE         >---------------------------------------         
//XRCREATE EXEC PGM=XRCREATE                                                    
//STEPLIB  DD DSN=HULFT.LOAD,DISP=SHR                                           
//XRLOG    DD DUMMY                                                             
//XRLOG1   DD DUMMY                                                             
//XRLOG2   DD DUMMY                                                             
//XRFILE   DD DUMMY                                                             
//XRHOST   DD DUMMY                                                             
//XRQUE    DD DSN=HULFT.QUEUE,DISP=SHR                                          
//XRCNTL   DD DUMMY                                         
//XROPLC1  DD DUMMY                                                             
//XROPLC2  DD DUMMY                                                             
//XROPLF1  DD DUMMY                                                             
//XROPLF2  DD DUMMY                                                             
//SYSUDUMP DD SYSOUT=*                                                          
//                                                                              

DD名

項目名

説明

STEPLIB

HULFT.LOAD

HULFTロードモジュールライブラリ

XRQUE

HULFT.QUEUE

配信制御ファイル

パラメータ名

項目名

説明

NAME

HULFT.QUEUE

配信制御ファイル

NAME

HULFT.QUEUE.DATA

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

VOLUMES

HUL001

ボリューム名

CYLINDERS

(*1)

容量

NAME

HULFT.QUEUE.IDX

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

*1

:

(一次要求量 増分量)