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

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

book

Article ID: 51301

calendar_today

Updated On:

Products

Jobtrac

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 is setup to backup and restore the CA 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 CA 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 CA 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)  
//CXX      DD  DISP=SHR,DSN=your.dsn.DATACOM.CXX          
//SYSIN    DD   *                                             
UNLOCK OPTION=MOVER,DBID=0161,AREA=OPT                        
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=*                                        
//CXX      DD  DISP=SHR,DSN=your.dsn.DATACOM.CXX           
//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   *                                              
UNLOCK OPTION=MOVER,DBID=0161,AREA=OPT                         
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 
 ACCESS  DBID=161,STATUS=WRITE                                 
/*