Rollback to the state prior to a version upgrade (Ver.7)

Returning HULFT operating environment and operating system environment to the state they were before you modified them during a migration, such as a version upgrade, is called "rollback."

Carry out a rollback only if a problem occurred during the migration of HULFT.

 

Rollback is carried out by using the files and environment backups that you created prior to migration. Therefore, this process assumes that the backups were created successfully.

For details about creation of backups for HULFT, refer to Backup.

When you restore backups of files created before migration, the following settings of HULFT are restored:

  • Custom character table

  • EBCDIC user table

  • System Environment Settings

  • Product key and serial number

  • Observe Definition file

  • XRSYSIN definition cards added to JCL

  • XRHOST or XRLOG2 definitions

  • Version of HULFT Cipher Option

If you have made a modification so that the operation log records are output again after the migration, delete or save Operation Log file records manually.

 

This section explains how to return HULFT to the state it was prior to the migration of HULFT (HULFT Ver.7) following a version upgrade.

Rollback of the HULFT system files

Roll back the following HULFT Ver.7 system files that you backed up prior to migration:

  • HULFT JCL library (PO)

  • HULFT load module library (PO)

  • HULFT ISPF panel library (PO)

  • HULFT ISPF message library (PO)

  • HULFT parameter library (PO)

  • Send and Receive Management file (VSAM)

  • Host Information file (VSAM)

  • Send and Receive Log file (VSAM)

  • IP management file (PS)

  • PORT management file (PS)

 

In HULFT Ver.7, you can choose the organization of the Send and Receive Log file from the following two types:

  • Cluster organization (REUSE attribute)

  • Alternate index organization

When rolling back to HULFT Ver.7, you can choose either organization for the Send and Receive Log file after rolling back.

Example JCL for rollback for each organization type of the Send and Receive Log file is displayed below. Modify the content of the JCL to suit your environment and carry out the rollback.

When you roll back by using the cluster organization (REUSE attribute) for the Send and Receive Log file

[Example of JCL for rollback]

//ROLLBACK JOB CLASS=A,MSGCLASS=B
//*------< LIBRARY RESTORATION >-----------------------
//DELETE   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DELETE HULFT.JCL NONVSAM
     DELETE HULFT.LOAD NONVSAM
     DELETE HULFT.PANEL NONVSAM
     DELETE HULFT.MSG NONVSAM
     DELETE HULFT.PARMLIB NONVSAM
     DELETE HULFT.HOSTS.LOCAL NONVSAM
     DELETE HULFT.PROFILE.TCPIP NONVSAM
//*
//JCL      EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.JCL.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.JCL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(1,1,100))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//LOAD     EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.LOAD.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.LOAD,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(35,,100))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//PANEL    EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.PANEL.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.PANEL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(3,,50))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//MSG      EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.MSG.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.MSG,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(3,,50))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//PARM     EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.PARMLIB.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.PARMLIB,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(1,,10))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//IP       EXEC PGM=IEBGENER
//SYSUT1   DD   DSN=HULFT.HOSTS.LOCAL.BKUP,DISP=SHR
//SYSUT2   DD   DSN=HULFT.HOSTS.LOCAL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,SPACE=(CYL,(1,1))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DUMMY
//*
//PORT     EXEC PGM=IEBGENER
//SYSUT1   DD   DSN=HULFT.PROFILE.TCPIP.BKUP,DISP=SHR
//SYSUT2   DD   DSN=HULFT.PROFILE.TCPIP,UNIT=SYSDA,
//              DISP=(NEW,CATLG),VOL=SER=HUL001,
//              SPACE=(CYL,(1,1))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DUMMY
//*
//*------< VSAM DEFINE CLUSTER >-----------------------
//DEFCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     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 1)               -
             SHAREOPTIONS(4 3)            -
             RECORDSIZE(1000 1000)        -
             CONTROLINTERVALSIZE(8192))   -
            INDEX                         -
            (NAME(HULFT.LOG.IDX)          -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
     DEFINE CLUSTER                       -
            (NAME(HULFT.LOG.PATH1)        -
             INDEXED                      -
             REUSE)                       -
            DATA                          -
            (NAME(HULFT.LOG.PATH1.DATA)   -
             KEYS(59 17)                  -
             VOLUMES(HUL001)              -
             CYLINDERS(5 1)               -
             SHAREOPTIONS(4 3)            -
             RECORDSIZE(1000 1000)        -
             CONTROLINTERVALSIZE(8192))   -
            INDEX                         -
            (NAME(HULFT.LOG.PATH1.IDX)    -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
     DEFINE CLUSTER                       -
            (NAME(HULFT.LOG.PATH2)        -
             INDEXED                      -
             REUSE)                       -
            DATA                          -
            (NAME(HULFT.LOG.PATH2.DATA)   -
             KEYS(9 76)                   -
             VOLUMES(HUL001)              -
             CYLINDERS(5 1)               -
             SHAREOPTIONS(4 3)            -
             RECORDSIZE(1000 1000)        -
             CONTROLINTERVALSIZE(8192))   -
            INDEX                         -
            (NAME(HULFT.LOG.PATH2.IDX)    -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
     DEFINE CLUSTER                       -
            (NAME(HULFT.FILE)             -
             INDEXED)                     -
            DATA                          -
            (NAME(HULFT.FILE.DATA)        -
             KEYS(12 0)                   -
             SHAREOPTIONS(4 3)            -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             RECORDSIZE(500 22100))       -
            INDEX                         -
            (NAME(HULFT.FILE.IDX)         -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
     DEFINE CLUSTER                       -
            (NAME(HULFT.HOST)             -
             INDEXED)                     -
            DATA                          -
            (NAME(HULFT.HOST.DATA)        -
             KEYS(51 0)                   -
             SHAREOPTIONS(4 3)            -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             RECORDSIZE(334 400))         -
            INDEX                         -
            (NAME(HULFT.HOST.IDX)         -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
      DEFINE CLUSTER                      -
             (NAME(HULFT.QUEUE)           -
              INDEXED)                    -
             DATA                         -
             (NAME(HULFT.QUEUE.DATA)      -
              KEYS(59 0)                  -
              VOLUMES(HUL001)             -
              CYLINDERS(1 1)              -
              SHAREOPTIONS(4 3)           -
              RECORDSIZE(2000 2000)       -
              CONTROLINTERVALSIZE(8192))  -
             INDEX                        -
             (NAME(HULFT.QUEUE.IDX)       -
              VOLUMES(HUL001)             -
              CYLINDERS(1 1)              -
              SHAREOPTIONS(4 3))
//*
//*------< VSAM REPRO >-------------------------------
//LOG      EXEC PGM=IDCAMS
//U01      DD   DSN=HULFT.LOG.BKUP,DISP=OLD
//U11      DD   DSN=HULFT.LOG,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//LOG1SORT EXEC PGM=SORT
//SORTIN   DD   DSN=HULFT.LOG.BKUP,DISP=OLD
//SORTOUT  DD   DSN=&&LOG1,DISP=(,PASS),UNIT=SYSDA,
//              SPACE=(CYL,(45,15),RLSE)
//SORTWK01 DD   UNIT=SYSDA,SPACE=(CYL,(10,5))
//SORTWK02 DD   UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSOUT   DD   SYSOUT=*
//SYSIN    DD   *
      SORT FIELDS=(22,59,BI,A)
//*
//LOG1     EXEC PGM=IDCAMS
//U01      DD   DSN=&&LOG1,DISP=OLD
//U11      DD   DSN=HULFT.LOG.PATH1,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//LOG2SORT EXEC PGM=SORT
//SORTIN   DD   DSN=HULFT.LOG.BKUP,DISP=OLD
//SORTOUT  DD   DSN=&&LOG2,DISP=(,PASS),UNIT=SYSDA,
//              SPACE=(CYL,(45,15),RLSE)
//SORTWK01 DD   UNIT=SYSDA,SPACE=(CYL,(10,5))
//SORTWK02 DD   UNIT=SYSDA,SPACE=(CYL,(10,5))
//SYSOUT   DD   SYSOUT=*
//SYSIN    DD   *
      SORT FIELDS=(81,9,BI,A)
//*
//LOG2     EXEC PGM=IDCAMS
//U01      DD   DSN=&&LOG2,DISP=OLD
//U11      DD   DSN=HULFT.LOG.PATH2,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//FILE     EXEC PGM=IDCAMS
//U01      DD   DSN=HULFT.FILE.BKUP,DISP=OLD
//U11      DD   DSN=HULFT.FILE,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//HOST     EXEC PGM=IDCAMS
//U01      DD   DSN=HULFT.HOST.BKUP,DISP=OLD
//U11      DD   DSN=HULFT.HOST,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//

DD Name

Value

Description

IN

HULFT.JCL.BKUP

HULFT JCL library (backup file)

OUT

HULFT.JCL

HULFT JCL library

IN

HULFT.LOAD.BKUP

HULFT load module library (backup file)

OUT

HULFT.LOAD

HULFT load module library

IN

HULFT.PANEL.BKUP

HULFT ISPF panel library (backup file)

OUT

HULFT.PANEL

HULFT ISPF panel library

IN

HULFT.MSG.BKUP

HULFT ISPF message library (backup file)

OUT

HULFT.MSG

HULFT ISPF message library

IN

HULFT.PARMLIB.BKUP

HULFT parameter library (backup file)

OUT

HULFT.PARMLIB

HULFT parameter library

SYSUT1

HULFT.HOSTS.LOCAL.BKUP

IP Management File (backup file)

SYSUT2

HULFT.HOSTS.LOCAL

IP Management File

SYSUT1

HULFT.PROFILE.TCPIP.BKUP

PORT Management File (backup file)

SYSUT2

HULFT.PROFILE.TCPIP

PORT Management File

U01

HULFT.LOG.BKUP

Send and Receive Log file ID Key file (backup file)

U11

HULFT.LOG

Send and Receive Log File

U11

HULFT.LOG.PATH1

Send and Receive Log file Host Name Key file

U11

HULFT.LOG.PATH2

Send and Receive Log file Date Key file

U01

HULFT.FILE.BKUP

Send and Receive Management File (backup file)

U11

HULFT.FILE

Send and Receive Management file

U01

HULFT.HOST.BKUP

Host Information File (backup file)

U11

HULFT.HOST

Host Information file

Parameter Name

Value

Description

VOLUMES

HUL001

Volume name

CYLINDERS

(*1)

Capacity

NAME

HULFT.FILE

Send and Receive Management file

NAME

HULFT.FILE.DATA

Names of entries for data component of Send and Receive Management File

NAME

HULFT.FILE.IDX

Names of entries for index component of Send and Receive Management File

NAME

HULFT.HOST

Host Information file

NAME

HULFT.HOST.DATA

Names of entries for data component of Host Information File

NAME

HULFT.HOST.IDX

Names of entries for index component of Host Information File

NAME

HULFT.QUEUE

Send Control File

NAME

HULFT.QUEUE.DATA

Names of entries for data component of Send Control File

NAME

HULFT.QUEUE.IDX

Names of entries for index component of Send Control File

NAME

HULFT.LOG

Send and Receive Log File ID Key File

NAME

HULFT.LOG.DATA

Names of entries for data component of Send and Receive Log File ID Key File

NAME

HULFT.LOG.IDX

Names of entries for index component of Send and Receive Log File ID Key File

NAME

HULFT.LOG.PATH1

Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH1.DATA

Names of entries for data component of Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH1.IDX

Names of entries for index component of Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH2

Send and Receive Log Date Key File

NAME

HULFT.LOG.PATH2.DATA

Names of entries for data component of Send and Receive Log Date Key File

NAME

HULFT.LOG.PATH2.IDX

Names of entries for index component of Send and Receive Log Date Key File

UNIT

SYSDA

UNIT

VOL=SER

HUL001

Volume name

*1

:

(1ST Extent Secondary)
Note

  • Modify the content of the JCL for rollback (the library name, DD name, capacity, and so on) to suit your environment. We recommend that you set the same value for the capacity as the value that was set when the environment prior to the migration was installed.

  • For HULFT.LOG.PATH1, use the host name of HULFT.LOG.BKUP as the sorting key and restore it.

  • For HULFT.LOG.PATH2, use the date of HULFT.LOG.BKUP as the sorting key and restore it.

When you roll back by using the alternate index organization for the Send and Receive Log file

[Example of JCL for rollback]

//ROLLBACK JOB CLASS=A,MSGCLASS=B
//*------< LIBRARY RESTORATION >-----------------------
//DELETE   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DELETE HULFT.JCL NONVSAM
     DELETE HULFT.LOAD NONVSAM
     DELETE HULFT.PANEL NONVSAM
     DELETE HULFT.MSG NONVSAM
     DELETE HULFT.PARMLIB NONVSAM
     DELETE HULFT.HOSTS.LOCAL NONVSAM
     DELETE HULFT.PROFILE.TCPIP NONVSAM
//*
//JCL      EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.JCL.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.JCL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(1,1,100))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//LOAD     EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.LOAD.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.LOAD,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(35,,100))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//PANEL    EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.PANEL.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.PANEL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(3,,50))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//MSG      EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.MSG.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.MSG,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(3,,50))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//PARM     EXEC PGM=IEBCOPY
//IN       DD   DSN=HULFT.PARMLIB.BKUP,DISP=SHR
//OUT      DD   DSN=HULFT.PARMLIB,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,
//              SPACE=(CYL,(1,,10))
//SYSUT3   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSUT4   DD   UNIT=SYSDA,SPACE=(CYL,(5))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     COPY OUTDD=OUT,INDD=IN
//*
//IP       EXEC PGM=IEBGENER
//SYSUT1   DD   DSN=HULFT.HOSTS.LOCAL.BKUP,DISP=SHR
//SYSUT2   DD   DSN=HULFT.HOSTS.LOCAL,DISP=(NEW,CATLG),
//              UNIT=SYSDA,VOL=SER=HUL001,SPACE=(CYL,(1,1))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DUMMY
//*
//PORT     EXEC PGM=IEBGENER
//SYSUT1   DD   DSN=HULFT.PROFILE.TCPIP.BKUP,DISP=SHR
//SYSUT2   DD   DSN=HULFT.PROFILE.TCPIP,UNIT=SYSDA,
//              DISP=(NEW,CATLG),VOL=SER=HUL001,
//              SPACE=(CYL,(1,1))
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   DUMMY
//*
//*------< VSAM DEFINE CLUSTER >-----------------------
//DEFCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     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 1)               -
             RECORDSIZE(500 22100))       -
            INDEX                         -
            (NAME(HULFT.FILE.IDX)         -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
     DEFINE CLUSTER                       -
            (NAME(HULFT.HOST)             -
             INDEXED)                     -
            DATA                          -
            (NAME(HULFT.HOST.DATA)        -
             KEYS(51 0)                   -
             SHAREOPTIONS(4 3)            -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             RECORDSIZE(334 400))         -
            INDEX                         -
            (NAME(HULFT.HOST.IDX)         -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
      DEFINE CLUSTER                      -
             (NAME(HULFT.QUEUE)           -
              INDEXED)                    -
             DATA                         -
             (NAME(HULFT.QUEUE.DATA)      -
              KEYS(59 0)                  -
              VOLUMES(HUL001)             -
              CYLINDERS(1 1)              -
              SHAREOPTIONS(4 3)           -
              RECORDSIZE(2000 2000)       -
              CONTROLINTERVALSIZE(8192))  -
             INDEX                        -
             (NAME(HULFT.QUEUE.IDX)       -
              VOLUMES(HUL001)             -
              CYLINDERS(1 1)              -
              SHAREOPTIONS(4 3))
//*
//*------< VSAM REPRO >-------------------------------
//FILE     EXEC PGM=IDCAMS
//U01      DD   DSN=HULFT.FILE.BKUP,DISP=OLD
//U11      DD   DSN=HULFT.FILE,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//HOST     EXEC PGM=IDCAMS
//U01      DD   DSN=HULFT.HOST.BKUP,DISP=OLD
//U11      DD   DSN=HULFT.HOST,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(U01) OUTFILE(U11)
//*
//*------< LOG RESTORATION >-----------------------
//DEFCLSTR EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     DELETE HULFT.LOG
     DEFINE CLUSTER                       -
            (NAME(HULFT.LOG)              -
             INDEXED)                     -
            DATA                          -
            (NAME(HULFT.LOG.DATA)         -
             KEYS(17 0)                   -
             VOLUMES(HUL001)              -
             CYLINDERS(5 1)               -
             SHAREOPTIONS(4 3)            -
             RECORDSIZE(1000 1000)        -
             CONTROLINTERVALSIZE(8192))   -
            INDEX                         -
            (NAME(HULFT.LOG.IDX)          -
             VOLUMES(HUL001)              -
             CYLINDERS(1 1)               -
             SHAREOPTIONS(4 3))
//*
//LOGREST  EXEC PGM=IDCAMS
//IN       DD   DSN=HULFT.LOG.BKUP,DISP=OLD
//OUT      DD   DSN=HULFT.LOG,DISP=OLD
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     REPRO INFILE(IN) OUTFILE(OUT)
//*
//LOGALT   EXEC PGM=IDCAMS
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
     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 1))            -
              INDEX                       -
              (NAME(HULFT.LOG.PATH1.IDX)  -
               CYLINDERS(5 1))
     DEFINE PATH                          -
              (NAME(HULFT.LOG.PATH1)      -
               PATHENTRY(HULFT.LOG.PATH1) -
               UPDATE)
     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 1))             -
             INDEX                        -
             (NAME(HULFT.LOG.PATH2.IDX)   -
              CYLINDERS(5 1))
     DEFINE PATH                          -
             (NAME(HULFT.LOG.PATH2)       -
              PATHENTRY(HULFT.LOG.PATH2)  -
              UPDATE)
//*
//LOGBLI   EXEC PGM=IDCAMS
//U10      DD   DSN=HULFT.LOG,DISP=OLD
//U11      DD   DSN=HULFT.LOG.PATH1,DISP=OLD
//U12      DD   DSN=HULFT.LOG.PATH2,DISP=OLD
//IDCUT1   DD   VOL=SER=HUL001,UNIT=SYSDA,DISP=OLD,
//              AMP=AMORG
//IDCUT2   DD   VOL=SER=HUL001,UNIT=SYSDA,DISP=OLD,
//              AMP=AMORG
//SYSPRINT DD   SYSOUT=*
//SYSIN    DD   *
 BLDINDEX INFILE(U10)                     -
   OUTFILE(U11)
 BLDINDEX INFILE(U10)                     -
   OUTFILE(U12)

DD Name

Value

Description

IN

HULFT.JCL.BKUP

HULFT JCL library (backup file)

OUT

HULFT.JCL

HULFT JCL library

IN

HULFT.LOAD.BKUP

HULFT load module library (backup file)

OUT

HULFT.LOAD

HULFT load module library

IN

HULFT.PANEL.BKUP

HULFT ISPF panel library (backup file)

OUT

HULFT.PANEL

HULFT ISPF panel library

IN

HULFT.MSG.BKUP

HULFT ISPF message library (backup file)

OUT

HULFT.MSG

HULFT ISPF message library

IN

HULFT.PARMLIB.BKUP

HULFT parameter library (backup file)

OUT

HULFT.PARMLIB

HULFT parameter library

SYSUT1

HULFT.HOSTS.LOCAL.BKUP

IP Management File (backup file)

SYSUT2

HULFT.HOSTS.LOCAL

IP Management File

SYSUT1

HULFT.PROFILE.TCPIP.BKUP

PORT Management File (backup file)

SYSUT2

HULFT.PROFILE.TCPIP

PORT Management File

IN

HULFT.LOG.BKUP

Send and Receive Log file ID Key file (backup file)

OUT

HULFT.LOG

Send and Receive Log File

U10

HULFT.LOG

Send and Receive Log File

U11

HULFT.LOG.PATH1

Send and Receive Log file Host Name Key file

U12

HULFT.LOG.PATH2

Send and Receive Log file Date Key file

U01

HULFT.FILE.BKUP

Send and Receive Management File (backup file)

U11

HULFT.FILE

Send and Receive Management file

U01

HULFT.HOST.BKUP

Host Information File (backup file)

U11

HULFT.HOST

Host Information file

Parameter Name

Value

Description

VOLUMES

HUL001

Volume name

CYLINDERS

(*1)

Capacity

NAME

HULFT.FILE

Send and Receive Management file

NAME

HULFT.FILE.DATA

Names of entries for data component of Send and Receive Management File

NAME

HULFT.FILE.IDX

Names of entries for index component of Send and Receive Management File

NAME

HULFT.HOST

Host Information file

NAME

HULFT.HOST.DATA

Names of entries for data component of Host Information File

NAME

HULFT.HOST.IDX

Names of entries for index component of Host Information File

NAME

HULFT.QUEUE

Send Control File

NAME

HULFT.QUEUE.DATA

Names of entries for data component of Send Control File

NAME

HULFT.QUEUE.IDX

Names of entries for index component of Send Control File

NAME

HULFT.LOG

Send and Receive Log File ID Key File

NAME

HULFT.LOG.DATA

Names of entries for data component of Send and Receive Log File ID Key File

NAME

HULFT.LOG.IDX

Names of entries for index component of Send and Receive Log File ID Key File

NAME

HULFT.LOG.PATH1

Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH1.DATA

Names of entries for data component of Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH1.IDX

Names of entries for index component of Send and Receive Log Host Name Key File

NAME

HULFT.LOG.PATH2

Send and Receive Log Date Key File

NAME

HULFT.LOG.PATH2.DATA

Names of entries for data component of Send and Receive Log Date Key File

NAME

HULFT.LOG.PATH2.IDX

Names of entries for index component of Send and Receive Log Date Key File

UNIT

SYSDA

UNIT

VOL=SER

HUL001

Volume name

*1

:

(1ST Extent Secondary)
Note

Modify the content of the JCL for rollback (the library name, DD name, capacity, and so on) to suit your environment. We recommend that you set the same value for the capacity as the value that was set when the environment prior to the migration was installed.

Rollback of the operating system environment

If you have modified the following operating system environment settings, manually return HULFT to the state it was prior to a version upgrade by using the data and information you backed up.

  • Definition in the APF-authorized Library

  • Modification of procedures that start the HULFT Management Console

  • Definition of the OMVS segment

  • Registration of user ID and password in RACF

TOP

Policies     (c) Saison Technology Co.,Ltd. 1992