複数集信ファイル編集

複数集信の場合、ディスク容量不足などの理由で集信ファイルにデータを蓄積できない状態が発生すると、集信ファイルに蓄積途中のデータを残したまま終了します。その場合、集信ファイルと複数集信情報ファイルの整合性をとる必要があります。また、何らかの理由で再度データを受信する場合、前回分のデータの後に追加書きされるため、受信する前に前回分のデータを削除しなければなりません。

このような場合、複数集信ファイル編集プログラム（XRSTORE）を使用して、集信ファイルの整合性を簡単に確保できます。また、複数集信情報ファイルの内容をリストに表示したり、指定したホスト名、日付、時刻に該当するデータを集信ファイルから抽出することもできます。

複数集信ファイル編集プログラム

プログラム名

XRSTORE

実行（EXECステートメント）パラメーター

            a
[{EXT|REPAIR|LIST|CLEAR}]

a.編集方法

EXT

: 指定したホスト名、日付、時刻に該当するデータを複数集信ファイルから抽出し、出力ファイルに書き出します。

REPAIR

: 複数集信ファイルのマージ処理に失敗した場合に、複数集信情報ファイルの情報にしたがって複数集信ファイルの修復を行います。

LIST

: 複数集信情報ファイルの記述内容一覧をリストに出力します。

CLEAR

: 複数集信情報ファイルおよび複数集信ファイルの初期化を行います。

省略すると、“EXT”が設定されます。

XRSYSIN定義カード

HULFTシステムの動作環境を設定します。設定内容の詳細は、以下を参照してください。

OPLSELECT=操作ログ出力選択(*1)
DATEFMT=日付形式

XRCRD定義カード

複数集信ファイルを編集するための定義カードの形式は以下のとおりです。

            a                       b               c
[HOST=xxxxxxxx...xxx][,YMD=date1[-date2]][,TIME=hhmmss1[-hhmmss2]]
       d
[{,MOD|REP}]

入出力ファイルの形式

• パラメーターとDD名の組み合わせ

  パラメーター	XRINF	XRIN	XROUT
  EXT	複数集信情報ファイル	複数集信ファイル	出力ファイル
  REPAIR	複数集信情報ファイル	複数集信ファイル	修復後の複数集信ファイル
  LIST	複数集信情報ファイル	未指定	未指定
  CLEAR	複数集信情報ファイル	未指定	複数集信ファイル

複数集信情報ファイルフォーマットの内容

複数集信情報ファイルのデータセット名と創成ボリューム通番

JCL例

//XRSTORE  JOB  CLASS=A,MSGCLASS=B                                              
//XRSTORE  EXEC PGM=XRSTORE,PARM='EXT'                                          
//STEPLIB  DD   DSN=HULFT.LOAD,DISP=SHR                                         
//XRSYSIN  DD   DSN=HULFT.PARMLIB(HULPRM),DISP=SHR                              
//XRINF    DD   DSN=HULFT.RCV.CNTL,DISP=SHR,UNIT=SYSDA,VOL=SER=HUL001           
//XRIN     DD   DSN=HULFT.RCV,DISP=SHR,UNIT=SYSDA,VOL=SER=HUL001                
//XROUT    DD   DSN=HULFT.INF.FILE,DISP=(NEW,KEEP,DELETE),UNIT=SYSDA,           
//             VOL=SER=HUL001,SPACE=(TRK,(5,1),RLSE)                            
//XRPRINT  DD   SYSOUT=*                                                        
//XRCRD    DD   *                                                               
HOST=ZOS,REP                                                                    
//                                                                              

//XRSTORE  JOB  CLASS=A,MSGCLASS=B                                              
//XRSTORE  EXEC PGM=XRSTORE,PARM='LIST'                                         
//STEPLIB  DD   DSN=HULFT.LOAD,DISP=SHR                                         
//XRSYSIN  DD   DSN=HULFT.PARMLIB(HULPRM),DISP=SHR                              
//XRINF    DD   DSN=HULFT.RCV.CNTL,DISP=SHR,UNIT=SYSDA,VOL=SER=HUL001           
//XRPRINT  DD   SYSOUT=*                                                        
//                                                                              

リスト例

                                                                                                                        
  HOST-NAME                                             DATE       TIME       START-POINT         RECORD-COUNT  
  MVS-ST                                             2015/12/01  15:18:55                   1                  77
  HP-02                                              2015/12/01  16:45:00                  78                 100
  WINDOWS-XP99                                       2015/12/01  16:51:00                 178                 270