Jobtrac Job Management procedure to backup and restore one or more JTS table(s).

Products

• Jobtrac
• Datacom
• DATACOM - AD

Issue/Introduction

This Knowledge Document describes a procedure to backup and restore one or more JTS table(s).

Environment

Release:
Component: JOBTRC

Resolution

 

The samples below are setup to backup and restore the Jobtrac JM JTS tables. We suggest that this be run after the Hot or Static Backups. The EXTRACT job is what is used to backup individual tables to a GDG dataset. The REPLACE job is only needed if you need to restore one or all of the Jobtrac JM JTS tables.

Restrictions:

The REPLACE job will do a replace and will not merge its data into an existing table.

The REPLACE job can not be used to restore a table into another Jobtrac JM table that has a different token.

//EXTRACT JOB
//********JCL TO EXTRACT JOBTRAC TABLES   *************************
//************************************************************
//*                                                           
//EXTRACT  EXEC PGM=DBUTLTY,REGION=4M                         
//STEPLIB  DD  DSN=your.dsn.DATACOM.CUSLIB,DISP=SHR       
//         DD  DSN=your.dsn.DATACOM.CAILIB,DISP=SHR       
//SYSPRINT DD  SYSOUT=*                                       
//XCMT     DD  DSN=your.dsn.DATACOM.TRAC0161.XCMT(+1),        
//         DISP=(,CATLG,DELETE),                              
//         UNIT=3390,VOL=SER=volser,SPACE=(CYL,(50,50),RLSE)  
//XDST     DD  DSN=your.dsn.DATACOM.TRAC0161.XDST(+1),        
//         DISP=(,CATLG,DELETE),                              
//         UNIT=3390,VOL=SER=volser,SPACE=(CYL,(50,50),RLSE)  
//XMST     DD  DSN=your.dsn.DATACOM.TRAC0161.XMST(+1),        
//         DISP=(,CATLG,DELETE),                              
//         UNIT=3390,VOL=SER=volser,SPACE=(CYL,(50,50),RLSE)  
//XPFT     DD  DSN=your.dsn.DATACOM.TRAC0161.XPFT(+1),        
//         DISP=(,CATLG,DELETE),                              
//         UNIT=3390,VOL=SER=volser,SPACE=(CYL,(50,50),RLSE)  
//SYSIN    DD   *                                                        
COMM    DBID=161,OPTION=STATS                                
REPORT  DBID=161,AREA=CXX                                     
 EXTRACT DBID=161,AREA=OPT,TABLE=CMT,DDNAME=XCMT,SEQ=PHYSICAL    SCS table
 EXTRACT DBID=161,AREA=OPT,TABLE=DST,DDNAME=XDST,SEQ=PHYSICAL    ADR table
 EXTRACT DBID=161,AREA=OPT,TABLE=MST,DDNAME=XMST,SEQ=PHYSICAL    AMR table
 EXTRACT DBID=161,AREA=OPT,TABLE=PFT,DDNAME=XPFT,SEQ=PHYSICAL    CCPF table
/*                                                            
//                                                            
 
//REPLACE job
//****** JCL to restore your tables......
//REPLACE  EXEC PGM=DBUTLTY,REGION=4M                          
//STEPLIB  DD  DSN=your.dsn.DATACOM.CUSLIB,DISP=SHR        
//         DD  DSN=your.dsn.DATACOM.CAILIB,DISP=SHR        
//SORTWK01 DD  UNIT=SYSALLDA,SPACE=(CYL,(50,50))               
//SORTWK02 DD  UNIT=SYSALLDA,SPACE=(CYL,(50,50))               
//SORTWK03 DD  UNIT=SYSALLDA,SPACE=(CYL,(50,50))               
//SYSPRINT DD  SYSOUT=*                                        
//XCMT     DD  DISP=SHR,DSN=your.dsn.DATACOM.TRAC0161.XCMT(0) 
//XDST     DD  DISP=SHR,DSN=your.dsn.DATACOM.TRAC0161.XDST(0) 
//XMST     DD  DISP=SHR,DSN=your.dsn.DATACOM.TRAC0161.XMST(0) 
//XPFT     DD  DISP=SHR,DSN=your.dsn.DATACOM.TRAC0161.XPFT(0)
//SYSIN    DD   *                                                                 
COMM    DBID=161,OPTION=STATS                                 
 ACCESS  DBID=161,STATUS=WRITE                                 
 REPLACE DBID=161,TABLE=CMT,DDNAME=XCMT,MULTUSE=YES,SORT=99999 
 REPLACE DBID=161,TABLE=DST,DDNAME=XDST,MULTUSE=YES,SORT=99999 
 REPLACE DBID=161,TABLE=MST,DDNAME=XMST,MULTUSE=YES,SORT=99999 
 REPLACE DBID=161,TABLE=PFT,DDNAME=XPFT,MULTUSE=YES,SORT=99999                             
/* 

Additional Information

For more information about the EXTRACT and REPLACE functions, refer to the Datacom documentation in the links below:

EXTRACT (Extract Data Table)

REPLACE (Replace All Data in a Table)