集配信履歴ファイルの創成

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

JCL例

//LOGVSAM  JOB CLASS=A,MSGCLASS=B                                               
//JOBCAT   DD  DSN=USERCAT,DISP=SHR                                             
//*------< VSAM DEFINE CLUSTER >---------------------------------------         
//DEFCLSTR EXEC PGM=KQCAMS                                                      
//SYSPRINT DD  SYSOUT=*                                                         
//SYSIN    DD  *                                                                
     DELETE HULFT.LOG                                                           
     DELETE HULFT.LOG.PATH1                                                     
     DELETE HULFT.LOG.PATH2                                                     
     DEFINE CLUSTER                     -                                       
            (NAME(HULFT.LOG)            -                                       
             INDEXED                    -                                       
             REUSE)                     -                                       
            DATA                        -                                       
            (NAME(HULFT.LOG.DATA)       -                                       
             KEYS(59 0)                 -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(5 1)             -                                       
             SHAREOPTIONS(4 3)          -                                       
             RECORDSIZE(4000 4000)      -                                       
             CONTROLINTERVALSIZE(22528)) -                                      
            INDEX                       -                                       
            (NAME(HULFT.LOG.IDX)        -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(1 1)             -                                       
             SHAREOPTIONS(4 3))         -                                       
             CATALOG(USERCAT)                                                   
     DEFINE CLUSTER                     -                                       
            (NAME(HULFT.LOG.PATH1)      -                                       
             INDEXED                    -                                       
             REUSE)                     -                                       
            DATA                        -                                       
            (NAME(HULFT.LOG.PATH1.DATA)  -                                      
             KEYS(59 59)                -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(5 1)             -                                       
             SHAREOPTIONS(4 3)          -                                       
             RECORDSIZE(4000 4000)      -                                       
             CONTROLINTERVALSIZE(22528)) -                                      
            INDEX                       -                                       
            (NAME(HULFT.LOG.PATH1.IDX)  -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(1 1)             -                                       
             SHAREOPTIONS(4 3))         -                                       
             CATALOG(USERCAT)                                                   
     DEFINE CLUSTER                     -                                       
            (NAME(HULFT.LOG.PATH2)      -                                       
             INDEXED                    -                                       
             REUSE)                     -                                       
            DATA                        -                                       
            (NAME(HULFT.LOG.PATH2.DATA)  -                                      
             KEYS(9 118)                -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(5 1)             -                                       
             SHAREOPTIONS(4 3)          -                                       
             RECORDSIZE(4000 4000)      -                                       
             CONTROLINTERVALSIZE(22528)) -                                      
            INDEX                       -                                       
            (NAME(HULFT.LOG.PATH2.IDX)  -                                       
             VOLUMES(HUL001)            -                                       
             CYLINDERS(1 1)             -                                       
             SHAREOPTIONS(4 3))         -                                       
             CATALOG(USERCAT)                                                   
//*                                                                             
//*------< FILE CREATE         >---------------------------------------         
//XRCREATE EXEC PGM=XRCREATE                                                    
//STEPLIB  DD  DSN=HULFT.LOAD,DISP=SHR                                          
//XRLOG    DD  DSN=HULFT.LOG,DISP=SHR                                           
//XRLOG1   DD  DSN=HULFT.LOG.PATH1,DISP=SHR                                     
//XRLOG2   DD  DSN=HULFT.LOG.PATH2,DISP=SHR                                     
//XRHOST   DD  DUMMY                                                            
//XRFILE   DD  DUMMY                                                            
//XRQUE    DD  DUMMY                                                            
//XRCNTL   DD  DUMMY                                                            
//XROPLC1  DD  DUMMY                                                            
//XROPLC2  DD  DUMMY                                                            
//XROPLF1  DD  DUMMY                                                            
//XROPLF2  DD  DUMMY                                                            
//SYSUDUMP DD  SYSOUT=*                                                         
//*------< LOGCNT              >---------------------------------------         
//XRLOGCNT EXEC  PGM=XRLOGCNT                                                   
//STEPLIB  DD    DSN=HULFT.LOAD,DISP=SHR                                        
//XRLOG    DD    DSN=HULFT.LOG,DISP=SHR                                         
//XRLOG1   DD    DSN=HULFT.LOG.PATH1,DISP=SHR                                   
//XRLOG2   DD    DSN=HULFT.LOG.PATH2,DISP=SHR                                   
//XRCRD    DD    *                                                              
LOGCNT=ALL                                                                      
//SYSOUT   DD    SYSOUT=*                                                       
//SYSUDUMP DD    SYSOUT=*                                                       
//                                                                              

DD名

項目名

説明

JOBCAT

USERCAT

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

STEPLIB

HULFT.LOAD

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

XRLOG

HULFT.LOG

集配信履歴ファイルIDキーファイル

XRLOG1

HULFT.LOG.PATH1

集配信履歴ホスト名キーファイル

XRLOG2

HULFT.LOG.PATH2

集配信履歴日付キーファイル

パラメータ名

項目名

説明

NAME

HULFT.LOG

集配信履歴ファイルIDキーファイル

NAME

HULFT.LOG.DATA

集配信履歴ファイルIDキーファイル データ・コンポーネント エントリ名

VOLUMES

HUL001

ボリューム名

CYLINDERS

(*1)

容量

CATALOG

USERCAT

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

NAME

HULFT.LOG.IDX

集配信履歴ファイルIDキーファイル インデックス・コンポーネント エントリ名

NAME

HULFT.LOG.PATH1

集配信履歴ホスト名キーファイル

NAME

HULFT.LOG.PATH1.DATA

集配信履歴ホスト名キーファイル データ・コンポーネント エントリ名

NAME

HULFT.LOG.PATH1.IDX

集配信履歴ホスト名キーファイル インデックス・コンポーネント エントリ名

NAME

HULFT.LOG.PATH2

集配信履歴日付キーファイル

NAME

HULFT.LOG.PATH2.DATA

集配信履歴日付キーファイル データ・コンポーネント エントリ名

NAME

HULFT.LOG.PATH2.IDX

集配信履歴日付キーファイル インデックス・コンポーネント エントリ名

*1

:

(一次要求量 増分量)