This Knowledge Document describes a procedure to backup and restore one or more JTS table(s).
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 /*