RECOVERY (Rebuild a Database) › Recovery Examples › Example 2

Example 2

The following shows the command to forward recover all transactions for database 1 on a single input Recovery File.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value you must supply. Code all statements to your site and installation standards.

 * $$ JOB ...           See the previous note and JCL Requirements.
 * $$ LST ...
 // JOB name
 // EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see JCL Requirements.
 // ASSGN SYSnnn,device-type,VOL=volser,SHR
 // DLBL CXX,'cxx',,DA                             Directory data set
 // EXTENT SYSnnn,volser
 // ASSGN SYS001,TAPE
 // PAUSE MOUNT TAPE
 // TLBL RXX,'rxx'                                 Recovery data set
 // DLBL IXX001,'db001.index',9999,DA              Index Area for DBID 1
 // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
 // DLBL PAY001,'db001.pay',9999,DA                Data area PAY in DBID 1
 // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
 // EXEC DBUTLTY,SIZE=750K
          RECBASE   DBID=1
          RECOVERY  OPTION=FORWARD,INNUM=1
 /*
 /&
 * $$ EOJ

The report generated by this example follows.

Example JCL

The following JCL shows the commands for backward and forward recovery.

Note: Use the following as a guide to prepare your JCL. The JCL statements are for example only. Lowercase letters in a statement indicate a value that you must supply. Code all statements to your site and installation standards.

Recovery Backward

* $$ JOB ...           See the previous note and JCL Requirements.
* $$ LST ...
// JOB name
// EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see JCL Requirements.
// DLBL CXX,'cxx',,DA                             Directory data set
// EXTENT SYSnnn,volser
// ASSGN SYS001,DISK,VOL=volser,SHR                            
// DLBL RXX,'rxx'                                 Recovery data set (backward)
// EXTENT SYS001,volser
// ASSGN   SYS002,DISK,VOL=volser,SHR   
 // ASSGN   SYS003,DISK,VOL=volser,SHR   
 // ASSGN   SYS004,DISK,VOL=volser,SHR   
 // ASSGN   SYS005,DISK,VOL=volser,SHR   
 // DLBL    SORTWK1,'SORT.WORK.1',0      
 // EXTENT  SYS002,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK2,'SORT.WORK.2',0      
 // EXTENT  SYS003,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK3,'SORT.WORK.3',0      
 // EXTENT  SYS004,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK4,'SORT.WORK.4',0      
 // EXTENT  SYS005,volser,1,0,begtrk,ntrks
// DLBL IXX001,'db001.index',9999,DA              Index Area for DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL PAY001,'db001.pay',9999,DA                Data area PAY in DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL DEM001,'db001.dem',9999,DA                Data area DEM in DBID 1                                                                  // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL PMF001,'db001.pmf',9999,DA                Data area PMF in DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// EXEC DBUTLTY,SIZE=750K
          RECBASE   DBID=1
          RECJOB    JOBNAME=PAYCHECK
          RECOVERY  OPTION=BACKWARD,SORT=1000,MISMATCH=FAIL
/*
/&
* $$ EOJ

Recovery Forward

* $$ JOB ...           See the previous note and JCL Requirements.
* $$ LST ...
// JOB name
// EXEC PROC=procname  Whether you use PROCs or LIBDEFs, see JCL Requirements.
// DLBL CXX,'cxx',,DA                             Directory data set
// EXTENT SYSnnn,volser
// ASSGN SYS001,DISK,VOL=volser,SHR                            
// DLBL RXX,'rxx'                                 Recovery data set (backward)
// EXTENT SYS001,volser
// ASSGN   SYS002,DISK,VOL=volser,SHR   
 // ASSGN   SYS003,DISK,VOL=volser,SHR   
 // ASSGN   SYS004,DISK,VOL=volser,SHR   
 // ASSGN   SYS005,DISK,VOL=volser,SHR   
 // DLBL    SORTWK1,'SORT.WORK.1',0      
 // EXTENT  SYS002,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK2,'SORT.WORK.2',0      
 // EXTENT  SYS003,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK3,'SORT.WORK.3',0      
 // EXTENT  SYS004,volser,1,0,begtrk,ntrks      
 // DLBL    SORTWK4,'SORT.WORK.4',0      
 // EXTENT  SYS005,volser,1,0,begtrk,ntrks
// DLBL IXX001,'db001.index',9999,DA              Index Area for DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL PAY001,'db001.pay',9999,DA                Data area PAY in DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL DEM001,'db001.dem',9999,DA                Data area DEM in DBID 1                                                                 // EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// DLBL PMF001,'db001.pmf',9999,DA                Data area PMF in DBID 1
// EXTENT SYSnnn,volser,1,0,rel trk/blk,number trks/blks
// EXEC DBUTLTY,SIZE=750K
          RECBASE   DBID=1
          RECOVERY  OPTION=FORWARD,DEVICE=DISK                                                                                                            /*
/&
* $$ EOJ