Database Utilities › Tape Copy Utility (SARTCP) › SARTCP Example

SARTCP Example

For this example, assume that an archival tape is inadvertently mounted as a scratch tape for a job and the beginning of the tape is overwritten.

To recover the remaining SYSOUT archived on the tape, run this job to map the tape.

//TAPEMAP  JOB ACCOUNT,PROGRAMMER
//STEP1    EXEC PGM=SARTCP
//STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
//SYSPRINT DD  SYSOUT=A,DCB=BLKSIZE=133
//TAPEIN   DD  DSN=VIEW.SARTAPE.T0000087,DISP=OLD
//SYSIN    DD  DUMMY

This mapping report is produced:

11/10/2013 16:52:25                CA View Output Archival and Viewing (nn.n)                     PAGE     1
SARTCP                                 Tape Copy Utility - Tape Contents
Invol:  003467 Indsn:  VIEW.SARTAPE.T0000087
Outvol:        Outdsn:


In Pos   Out Pos  Rec Pos    Id                              Jobname     Jobid     Gen   Seq    Blocks  Cont
-------- -------  --------   ------------------------------- --------    --------  ----  ---   -------  ----
       1       1             *** UNKN ***                                                            3
       2       2             *** UNKN ***                                                           17
       3       3             *** UNKN ***                                                            3
       4       4             *** NULL ***                                                            0
SARTCP10  Input tape I/O error, ECB=41, BLOCK=0000000001, SENSE=2500
       5       5             *** UNKN ***                                                            6
       6       6        8    A06125ME                        A06125ME    JOB09362  128    12         2
       7       7        9    A06128ME                        A06128ME    JOB09368  128    12         2
       8       8       10    A21100R                         A21100R     JOB09500  128    12         2
       9       9       11    A2211OR                         A2211OR     JOB09701  128    12         2
      10      10       12    *** INDX ***
                             *** EOF  ***

SARTCP16 Processing successfully completed

In the preceding report, the first seven SYSOUT groups on the tape were destroyed. The report also shows that the first valid SYSOUT group has a recorded position of 8.

Use one of the following methods:

• Run this job to recover the remaining SYSOUT groups

  //TAPECOPY JOB ACCOUNT,PROGRAMMER
  //STEP1    EXEC PGM=SARTCP
  //STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
  //SYSPRINT DD  SYSOUT=*
  //TAPEIN   DD  DSN=VIEW.SARTAPE.T0000087,
  //         DISP=(OLD,UNCATLG)
  //TAPEOUT  DD  DSN=VIEW.SARTAPE.T0000087,
  //         DISP=(,CATLG),UNIT=TAPE,LABEL=EXPDT=99000
  //SYSIN    DD  *
  SKIP 1
  SKIP 2
  SKIP 3
  SKIP 4
  SKIP 5
  NULL 1
  NULL 2
  NULL 3
  NULL 4
  NULL 5
  NULL 6
  NULL 7
  /*
  

• Run this job to recover a primary tape when a duplex tape is available

  //TAPECOPY JOB ACCOUNT,PROGRAMMER
  //STEP1    EXEC PGM=SARTCP,PARM='COPYASIS'
  //STEPLIB  DD  DSN=CAI.CVDELOAD,DISP=SHR
  //SYSPRINT DD  SYSOUT=*
  //TAPEIN   DD  DSN=VIEW.SARDPLX.T0000087,
  //         DISP=OLD
  //TAPEOUT  DD  DSN=VIEW.SARTAPE.T0000087,
  //         DISP=(,CATLG),UNIT=TAPE,LABEL=EXPDT=99000
  //SYSIN    DD  DUMMY