バージョンアップ前(Ver.7)の状態へのロールバック

バージョンアップなどの移行作業で変更したHULFTの動作環境やOS環境を、移行前の状態に戻すことをロールバックといいます。

ロールバックは、HULFTの移行作業で何らかの問題が発生した場合のみ行ってください。

 

ロールバックは、移行前にバックアップしたファイルや環境を使用して実施します。そのため、移行前の状態が正しくバックアップされていることが前提となります。

HULFTのバックアップについては、「バックアップ」を参照してください。

移行前にバックアップしたファイルを復元すると、以下のHULFTの設定も復元されます。

  • 外字テーブル

  • EBCDICユーザテーブル

  • システム動作環境設定

  • プロダクトキー、シリアル番号

  • 要求受付定義ファイル

  • JCLへ追加したXRSYSIN定義カード

  • XRHOSTまたはXRLOG2の定義

  • HULFT 暗号オプションのバージョン

なお、HULFTの移行後に、操作ログなどを新たに出力するように変更している場合は、操作ログファイルの削除や退避を手動で行ってください。

 

ここでは、HULFT Ver.7からHULFT Ver.8へのバージョンアップを行った後で、HULFT移行前(HULFT Ver.7)の状態に戻す手順について説明します。

(1) HULFTのシステムファイルのロールバック

移行前にバックアップした以下のHULFT Ver.7のシステムファイルをロールバックします。

  • HULFT JCLライブラリ(PO)

  • HULFT ロードモジュールライブラリ(PO)

  • HULFT PFDパネルライブラリ(PO)

  • HULFT PFDメッセージライブラリ(PO)

  • HULFTパラメータライブラリ(PO)

  • 集配信管理ファイル(VSAM)

  • 詳細ホスト情報ファイル(VSAM)

  • 集配信履歴ファイル(VSAM)

 

なお、HULFT Ver.7では、集配信履歴ファイルの編成を以下の2種類から選択できます。

  • クラスタ編成(REUSE属性)

  • 代替インデックス編成

Ver.7へのロールバックでは、ロールバック後の集配信履歴ファイルをどちらの編成にするかを選択できます。

以下に、集配信履歴のファイル編成の種類ごとにロールバック用のJCLの例を示しますので、お客様の運用にあわせてJCLの内容を修正し、ロールバックを実行してください。

クラスタ編成(REUSE属性)の集配信履歴ファイルを使用して戻す場合

[ロールバックJCL例]

\         JOB ROLLBACK,LIST=(A,JS)
\*------< LIBRARY RESTORATION >----------------------------------*
\DSDEL    EX FDLT
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\         FD COIN=*
/       FDLT HULFT.JCL 
/       FDLT HULFT.PANEL
/       FDLT HULFT.MSG
/       FDLT HULFT.PARMLIB
/       FIN
\LOADDEL  EX LIBE,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\         FD IN1=DA,FILE=HULFT.LOAD
\*----CONTROL CARD-----*
\         FD COIN=*
/       SCRATCH +,INOUT=IN1
/       FIN
\COPY     EX LIBE,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\*---JCL---*
\         FD IN1=DA,FILE=HULFT.JCL.BKUP
\         FD OUT1=DA,FILE=HULFT.JCL,VOL=HUL001,CYL=(1,1),              C
          DRTY=(100,BLK),DISP=CAT,FCB=(DSORG=PO)
\*---LOAD---*
\         FD IN2=DA,FILE=HULFT.LOAD.BKUP
\         FD OUT2=DA,FILE=HULFT.LOAD,VOL=HUL001,CYL=(35,1),            C
          DRTY=(100,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----PANEL--*
\         FD IN3=DA,FILE=HULFT.PANEL.BKUP
\         FD OUT3=DA,FILE=HULFT.PANEL,VOL=HUL001,CYL=(3,1),            C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----MSG----*
\         FD IN4=DA,FILE=HULFT.MSG.BKUP
\         FD OUT4=DA,FILE=HULFT.MSG,VOL=HUL001,CYL=(3,1),              C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----PARMLIB---*
\         FD IN5=DA,FILE=HULFT.PARMLIB.BKUP
\         FD OUT5=DA,FILE=HULFT.PARMLIB,VOL=HUL001,CYL=(1,1),          C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----CONTROL CARD-----*
\         FD COIN=*
/       COPY +,IN=IN1,OUT=OUT1
/       COPY +,IN=IN2,OUT=OUT2
/       COPY +,IN=IN3,OUT=OUT3
/       COPY +,IN=IN4,OUT=OUT4
/       COPY +,IN=IN5,OUT=OUT5
/       FIN
\*------< 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.LOG
     DELETE HULFT.LOG.PATH1
     DELETE HULFT.LOG.PATH2
     DELETE HULFT.FILE
     DELETE HULFT.HOST
     DELETE HULFT.QUEUE
     DELETE HULFT.SYSCNTL
     DEFINE CLUSTER                     -
            (NAME(HULFT.LOG)            -
            INDEXED                     -
            REUSE)                      -
            DATA                        -
            (NAME(HULFT.LOG.DATA)       -
            KEYS(17 0)                  -
            VOLUMES(HUL001)             -
            CYLINDERS(5)                -
            SHAREOPTIONS(4 3)           -
            RECORDSIZE(1000 1000)       -
            CONTROLINTERVALSIZE(8192))  -
            INDEX                       -
            (NAME(HULFT.LOG.IDX)        -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
     DEFINE CLUSTER                     -
            (NAME(HULFT.LOG.PATH1)      -
            INDEXED                     -
            REUSE)                      -
            DATA                        -
            (NAME(HULFT.LOG.PATH1.DATA) -
            KEYS(59 17)                 -
            VOLUMES(HUL001)             -
            CYLINDERS(5)                -
            SHAREOPTIONS(4 3)           -
            RECORDSIZE(1000 1000)       -
            CONTROLINTERVALSIZE(8192))  -
            INDEX                       -
            (NAME(HULFT.LOG.PATH1.IDX)  -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
     DEFINE CLUSTER                     -
            (NAME(HULFT.LOG.PATH2)      -
            INDEXED                     -
            REUSE)                      -
            DATA                        -
            (NAME(HULFT.LOG.PATH2.DATA) -
            KEYS(9 76)                  -
            VOLUMES(HUL001)             -
            CYLINDERS(5)                -
            SHAREOPTIONS(4 3)           -
            RECORDSIZE(1000 1000)       -
            CONTROLINTERVALSIZE(8192))  -
            INDEX                       -
            (NAME(HULFT.LOG.PATH2.IDX)  -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
     DEFINE CLUSTER                     -
            (NAME(HULFT.FILE)           -
            INDEXED)                    -
            DATA                        -
            (NAME(HULFT.FILE.DATA)      -
            KEYS(12 0)                  -
            SHAREOPTIONS(4 3)           -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            RECORDSIZE(500 22100))      -
            INDEX                       -
            (NAME(HULFT.FILE.IDX)       -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
     DEFINE CLUSTER                     -
            (NAME(HULFT.HOST)           -
            INDEXED)                    -
            DATA                        -
            (NAME(HULFT.HOST.DATA)      -
            KEYS(51 0)                  -
            SHAREOPTIONS(4 3)           -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            RECORDSIZE(334 400))        -
            INDEX                       -
            (NAME(HULFT.HOST.IDX)       -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
     DEFINE CLUSTER                     -
            (NAME(HULFT.QUEUE)          -
            INDEXED)                    -
            DATA                        -
            (NAME(HULFT.QUEUE.DATA)     -
            KEYS(59 0)                  -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3)           -
            RECORDSIZE(2000 2000)       -
            CONTROLINTERVALSIZE(18432)) -
            INDEX                       -
            (NAME(HULFT.QUEUE.IDX)      -
            VOLUMES(HUL001)             -
            CYLINDERS(1)                -
            SHAREOPTIONS(4 3))          -
            CATALOG(USERCAT)
\*-------< VSAM REPRO >-----------------------------------------------*
\*---FILE---*
\FILE     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\U01      FD U01=DA,FILE=HULFT.FILE.BKUP
\U11      FD U11=DA,FILE=HULFT.FILE
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
       REPRO INFILE(U01) OUTFILE(U11)
\*---HOST---*
\HOST     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\U01      FD U01=DA,FILE=HULFT.HOST.BKUP
\U11      FD U11=DA,FILE=HULFT.HOST
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
       REPRO INFILE(U01) OUTFILE(U11)
\*---LOG---*
\LOG      EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\U01      FD U01=DA,FILE=HULFT.LOG.BKUP
\U11      FD U11=DA,FILE=HULFT.LOG
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
       REPRO INFILE(U01) OUTFILE(U11)
\*
\LOG1SORT EX  SORT,RSIZE=4096K
\         FD  STEPCAT=DA,FILE=USERCAT
\         FD  SORTIN=DA,VOL=HUL001,FILE=HULFT.LOG.BKUP
\         FD  SORTOUT=DA,VOL=HUL001,                                   C
             CYL=(1,1),DISP=CONT
\         FD  SORTWK01=DA,VOL=WORK,CYL=(10,5)
\         FD  SORTWK02=DA,VOL=WORK,CYL=(10,5)
\         FD  COIN=*
        SORT FIELDS=(22,59,CH,A),EQUALS
\*
\LOG1     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT1
\         FD U11=DA,FILE=HULFT.LOG.PATH1,AMP=AMORG
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
        REPRO INFILE(SORTOUT) OUTFILE(U11)
\*
\LOG2SORT EX  SORT,RSIZE=4096K
\         FD  STEPCAT=DA,FILE=USERCAT
\         FD  SORTIN=DA,VOL=HUL001,FILE=HULFT.LOG.BKUP
\         FD  SORTOUT=DA,VOL=HUL001,                                   C
              CYL=(1,1),DISP=CONT
\         FD  SORTWK01=DA,VOL=WORK,CYL=(10,5)
\         FD  SORTWK02=DA,VOL=WORK,CYL=(10,5)
\         FD  COIN=*
        SORT FIELDS=(81,9,CH,A),EQUALS
\*
\LOG2     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\         FD U11=DA,FILE=HULFT.LOG.PATH2,AMP=AMORG
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
        REPRO INFILE(SORTOUT) OUTFILE(U11)
\         JEND

FD名

項目名

説明

STEPCAT

USERCAT

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

IN

HULFT.JCL.BKUP

HULFT JCLライブラリ(バックアップファイル)

OUT

HULFT.JCL

HULFT JCLライブラリ

IN

HULFT.LOAD.BKUP

HULFTロードモジュールライブラリ(バックアップファイル)

OUT

HULFT.LOAD

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

IN

HULFT.PANEL.BKUP

HULFT PFDパネルライブラリ(バックアップファイル)

OUT

HULFT.PANEL

HULFT PFDパネルライブラリ

IN

HULFT.MSG.BKUP

HULFT PFDメッセージライブラリ(バックアップファイル)

OUT

HULFT.MSG

HULFT PFDメッセージライブラリ

IN

HULFT.PARMLIB.BKUP

HULFTパラメータライブラリ(バックアップファイル)

OUT

HULFT.PARMLIB

HULFTパラメータライブラリ

U01

HULFT.LOG.BKUP

集配信履歴ファイルIDキーファイル(バックアップファイル)

U11

HULFT.LOG

集配信履歴ファイル

U11

HULFT.LOG.PATH1

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

U11

HULFT.LOG.PATH2

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

U01

HULFT.FILE.BKUP

集配信管理ファイル(バックアップファイル)

U11

HULFT.FILE

集配信管理ファイル

U01

HULFT.HOST.BKUP

詳細ホスト情報ファイル(バックアップファイル)

U11

HULFT.HOST

詳細ホスト情報ファイル

パラメータ名

項目名

説明

VOLUMES

HUL001

ボリューム名

NAME

HULFT.FILE

集配信管理ファイル

NAME

HULFT.FILE.DATA

集配信管理ファイルデータ・コンポーネントエントリ名

NAME

HULFT.FILE.IDX

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

NAME

HULFT.HOST

詳細ホスト情報ファイル

NAME

HULFT.HOST.DATA

詳細ホスト情報ファイルデータ・コンポーネントエントリ名

NAME

HULFT.HOST.IDX

詳細ホスト情報ファイルインデックス・コンポーネントエントリ名

NAME

HULFT.QUEUE

配信制御ファイル

NAME

HULFT.QUEUE.DATA

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

NAME

HULFT.QUEUE.IDX

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

NAME

HULFT.LOG

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

NAME

HULFT.LOG.DATA

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

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

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

UNIT

DA

UNIT

VOL

HUL001

ボリューム名

注意
  • ロールバック用のJCLの内容(ライブラリ名、FD名、容量など)は、ご利用の環境にあわせて修正してください。容量の設定値は、移行前の環境をインストールしたときと同じ容量を設定することを推奨します。

  • HULFT.LOG.PATH1は、HULFT.LOG.BKUPのホスト名をキーにしてソートしたものを復元してください。

  • HULFT.LOG.PATH2は、HULFT.LOG.BKUPの日付をキーにしてソートしたものを復元してください。

代替インデックス編成の集配信履歴ファイルに戻す場合

[ロールバックJCL例]

\         JOB ROLLBACK,LIST=(A,JS)
\*------< LIBRARY RESTORATION >----------------------------------*
\DSDEL    EX FDLT
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\         FD COIN=*
/       FDLT HULFT.JCL 
/       FDLT HULFT.PANEL
/       FDLT HULFT.MSG
/       FDLT HULFT.PARMLIB
/       FIN
\LOADDEL  EX LIBE,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\         FD IN1=DA,FILE=HULFT.LOAD
\*----CONTROL CARD-----*
\         FD COIN=*
/       SCRATCH +,INOUT=IN1
/       FIN
\COPY     EX LIBE,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\         FD LIST=DA,VOL=WORK,TRK=(10,2),SOUT=A
\*---JCL---*
\         FD IN1=DA,FILE=HULFT.JCL.BKUP
\         FD OUT1=DA,FILE=HULFT.JCL,VOL=HUL001,CYL=(1,1),              C
          DRTY=(100,BLK),DISP=CAT,FCB=(DSORG=PO)
\*---LOAD---*
\         FD IN2=DA,FILE=HULFT.LOAD.BKUP
\         FD OUT2=DA,FILE=HULFT.LOAD,VOL=HUL001,CYL=(35,1),            C
          DRTY=(100,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----PANEL--*
\         FD IN3=DA,FILE=HULFT.PANEL.BKUP
\         FD OUT3=DA,FILE=HULFT.PANEL,VOL=HUL001,CYL=(3,1),            C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----MSG----*
\         FD IN4=DA,FILE=HULFT.MSG.BKUP
\         FD OUT4=DA,FILE=HULFT.MSG,VOL=HUL001,CYL=(3,1),              C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----PARMLIB---*
\         FD IN5=DA,FILE=HULFT.PARMLIB.BKUP
\         FD OUT5=DA,FILE=HULFT.PARMLIB,VOL=HUL001,CYL=(1,1),          C
          DRTY=(50,BLK),DISP=CAT,FCB=(DSORG=PO)
\*----CONTROL CARD-----*
\         FD COIN=*
/       COPY +,IN=IN1,OUT=OUT1
/       COPY +,IN=IN2,OUT=OUT2
/       COPY +,IN=IN3,OUT=OUT3
/       COPY +,IN=IN4,OUT=OUT4
/       COPY +,IN=IN5,OUT=OUT5
/       FIN
\*------< 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.FILE
     DELETE HULFT.HOST
     DELETE HULFT.QUEUE
     DELETE HULFT.SYSCNTL
     DEFINE CLUSTER                    -
            (NAME(HULFT.FILE)          -
            INDEXED)                   -
            DATA                       -
            (NAME(HULFT.FILE.DATA)     -
            KEYS(12 0)                 -
            SHAREOPTIONS(4 3)          -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            RECORDSIZE(500 22100))     -
            INDEX                      -
            (NAME(HULFT.FILE.IDX)      -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            SHAREOPTIONS(4 3))         -
            CATALOG(USERCAT)
     DEFINE CLUSTER                    -
            (NAME(HULFT.HOST)          -
            INDEXED)                   -
            DATA                       -
            (NAME(HULFT.HOST.DATA)     -
            KEYS(51 0)                 -
            SHAREOPTIONS(4 3)          -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            RECORDSIZE(334 400))       -
            INDEX                      -
            (NAME(HULFT.HOST.IDX)      -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            SHAREOPTIONS(4 3))         -
            CATALOG(USERCAT)
     DEFINE CLUSTER                    -
            (NAME(HULFT.QUEUE)         -
            INDEXED)                   -
            DATA                       -
            (NAME(HULFT.QUEUE.DATA)    -
            KEYS(59 0)                 -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            SHAREOPTIONS(4 3)          -
            RECORDSIZE(2000 2000)      -
            CONTROLINTERVALSIZE(8192)) -
            INDEX                      -
            (NAME(HULFT.QUEUE.IDX)     -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            SHAREOPTIONS(4 3))         -
            CATALOG(USERCAT)
\*-------< VSAM REPRO >-----------------------------------------------*
\*---FILE---*
\FILE     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\U01      FD U01=DA,FILE=HULFT.FILE.BKUP
\U11      FD U11=DA,FILE=HULFT.FILE
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
       REPRO INFILE(U01) OUTFILE(U11)
\*---HOST---*
\HOST     EX KQCAMS,RSIZE=4096K
\         FD STEPCAT=DA,FILE=USERCAT
\U01      FD U01=DA,FILE=HULFT.HOST.BKUP
\U11      FD U11=DA,FILE=HULFT.HOST
\SYSPRINT FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\SYSIN    FD SYSIN=*
       REPRO INFILE(U01) OUTFILE(U11)
\*------< LOG RESTORATION >-----------------------
\DEFCLSTR EX KQCAMS
\         FD STEPCAT=DA,FILE=USERCAT
\         FD SYSPRINT=DA,TRK=(10,10),VOL=WORK,SOUT=A
\         FD SYSIN=*
     DELETE HULFT.LOG
     DEFINE CLUSTER                    -
            (NAME(HULFT.LOG)           -
            INDEXED                    -
            REUSE)                     -
            DATA                       -
            (NAME(HULFT.LOG.DATA)      -
            KEYS(17 0)                 -
            VOLUMES(HUL001)            -
            CYLINDERS(5)               -
            SHAREOPTIONS(4 3)          -
            RECORDSIZE(1000 1000)      -
            CONTROLINTERVALSIZE(8192)) -
            INDEX                      -
            (NAME(HULFT.LOG.IDX)       -
            VOLUMES(HUL001)            -
            CYLINDERS(1)               -
            SHAREOPTIONS(4 3))         -
            CATALOG(USERCAT)
\LOGREST   EX KQCAMS
\          FD STEPCAT=DA,FILE=USERCAT
\          FD IN=DA,FILE=HULFT.LOG.BKUP,                               C
           VOL=HUL001
\          FD OUT=DA,FILE=HULFT.LOG,AMP=AMORG
\          FD SYSPRINT=DA,TRK=(10,10),VOL=WORK,SOUT=A
\          FD SYSIN=*
 REPRO     INFILE(IN) OUTFILE(OUT)
\LOGALT    EX KQCAMS
\          FD STEPCAT=DA,FILE=USERCAT
\          FD SYSPRINT=DA,TRK=(10,10),VOL=WORK,SOUT=A
\          FD SYSIN=*
 DELETE    HULFT.LOG.PATH1
 DEFINE    ALTERNATEINDEX              -
          (NAME(HULFT.LOG.PATH1)       -
          IMBED                        -
          UNIQUEKEY                    -
          UPGRADE                      -
          KEYS(59 17)                  -
          RECSZ(100 100)               -
          VOL(HUL001)                  -
          SHR(4 3)                     -
          RELATE(HULFT.LOG))           -
          DATA                         -
          (NAME(HULFT.LOG.PATH1.DATA)  -
          CYLINDERS(5))                -
          INDEX                        -
          (NAME(HULFT.LOG.PATH1.IDX)   -
          CYLINDERS(1))                -
          CATALOG(USERCAT)
 DEFINE   PATH                         -
          (NAME(HULFT.LOG.PATH1)       -
          PATHENTRY(HULFT.LOG.PATH1)   -
          UPDATE)                      -
          CATALOG(USERCAT)
 DELETE   (HULFT.LOG.PATH2)
 DEFINE   ALTERNATEINDEX               -
          (NAME(HULFT.LOG.PATH2)       -
          IMBED                        -
          UNIQUEKEY                    -
          UPGRADE                      -
          KEYS(9 76)                   -
          RECSZ(40 40)                 -
          VOL(HUL001)                  -
          SHR(4 3)                     -
          RELATE(HULFT.LOG))           -
          DATA                         -
          (NAME(HULFT.LOG.PATH2.DATA)  -
          CYLINDERS(5))                -
          INDEX                        -
          (NAME(HULFT.LOG.PATH2.IDX)   -
          CYLINDERS(1))                -
          CATALOG(USERCAT)
 DEFINE   PATH                         -
          (NAME(HULFT.LOG.PATH2)       -
          PATHENTRY(HULFT.LOG.PATH2)   -
          UPDATE)                      -
          CATALOG(USERCAT)
\LOGBLI   EX KQCAMS
\         FD STEPCAT=DA,FILE=USERCAT
\         FD U10=DA,FILE=HULFT.LOG
\         FD U11=DA,FILE=HULFT.LOG.PATH1
\         FD U12=DA,FILE=HULFT.LOG.PATH2
\         FD KQCUT1=DA,AMP=AMORG,VOL=HUL001
\         FD KQCUT2=DA,AMP=AMORG,VOL=HUL001
\         FD SYSPRINT=DA,VOL=WORK,TRK=(10,10),SOUT=A
\         FD SYSIN=*
     BLDINDEX INFILE(U10) OUTFILE(U11)
     BLDINDEX INFILE(U10) OUTFILE(U12)
\ JEND

FD名

項目名

説明

STEPCAT

USERCAT

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

IN

HULFT.JCL.BKUP

HULFT JCLライブラリ(バックアップファイル)

OUT

HULFT.JCL

HULFT JCLライブラリ

IN

HULFT.LOAD.BKUP

HULFTロードモジュールライブラリ(バックアップファイル)

OUT

HULFT.LOAD

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

IN

HULFT.PANEL.BKUP

HULFT PFDパネルライブラリ(バックアップファイル)

OUT

HULFT.PANEL

HULFT PFDパネルライブラリ

IN

HULFT.MSG.BKUP

HULFT PFDメッセージライブラリ(バックアップファイル)

OUT

HULFT.MSG

HULFT PFDメッセージライブラリ

IN

HULFT.PARMLIB.BKUP

HULFTパラメータライブラリ(バックアップファイル)

OUT

HULFT.PARMLIB

HULFTパラメータライブラリ

IN

HULFT.LOG.BKUP

集配信履歴ファイルIDキーファイル(バックアップファイル)

OUT

HULFT.LOG

集配信履歴ファイル

U10

HULFT.LOG

集配信履歴ファイル

U11

HULFT.LOG.PATH1

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

U12

HULFT.LOG.PATH2

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

U01

HULFT.FILE.BKUP

集配信管理ファイル(バックアップファイル)

U11

HULFT.FILE

集配信管理ファイル

U01

HULFT.HOST.BKUP

詳細ホスト情報ファイル(バックアップファイル)

U11

HULFT.HOST

詳細ホスト情報ファイル

パラメータ名

項目名

説明

VOLUMES

HUL001

ボリューム名

NAME

HULFT.FILE

集配信管理ファイル

NAME

HULFT.FILE.DATA

集配信管理ファイルデータ・コンポーネントエントリ名

NAME

HULFT.FILE.IDX

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

NAME

HULFT.HOST

詳細ホスト情報ファイル

NAME

HULFT.HOST.DATA

詳細ホスト情報ファイルデータ・コンポーネントエントリ名

NAME

HULFT.HOST.IDX

詳細ホスト情報ファイルインデックス・コンポーネントエントリ名

NAME

HULFT.QUEUE

配信制御ファイル

NAME

HULFT.QUEUE.DATA

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

NAME

HULFT.QUEUE.IDX

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

NAME

HULFT.LOG

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

NAME

HULFT.LOG.DATA

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

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

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

UNIT

DA

UNIT

VOL

HUL001

ボリューム名

注意

ロールバック用のJCLの内容(ライブラリ名、FD名、容量など)は、ご利用の環境にあわせて修正してください。容量の設定値は、移行前の環境をインストールしたときと同じ容量を設定することを推奨します。

(2) OS環境のロールバック

以下のOS環境の設定を変更している場合は、バックアップしたデータまたは控えた情報をもとに、お客様ご自身でバージョンアップ前の状態に戻してください。

  • 認定ライブラリの登録

  • TISP環境設定

  • HULFT管理画面を起動するためのプロシジャの変更

  • 機密保護機能(RACF)へのユーザIDおよびパスワードの登録