How to resolve ?ERROR ? vvvvvv IS OUT OF SEQUENCE, PREVIOUS VOLSER READ = vvvvvv AT RELATIVE RECORD nnnnnn?.

Document ID : KB000032373
Last Modified Date : 14/02/2018
Show Technical Document Details

When running TMSCOPY, you may encounter the below message in the joblog :

”*** ERROR – vvvvvv IS OUT OF SEQUENCE, PREVIOUS VOLSER READ = vvvvvv AT RELATIVE RECORD nnnnnn

 

This can occur after you execute TMSXTEND with the REMVOL control statement on systems missing APAR #: RO63582.

Note: This occurs despite the fact that TMSXTEND completes with RC=0.

 

The procedure to resolve this problem depends on whether any tape activity occurred between the completion of the TMSXTEND and subsequent execution of TMSCOPY (generating the error).

Steps to resolve:

1. Stop tape activity on ALL systems sharing the TMC (e.g, Drain JES initiators).

2.    Determine what (if any) tape activity occurred on the system between the time TMSXTEND completed and TMSCOPY was executed.

i)                    Run TMSGRW

 Note: An OUTPUT DD is required to store the SELECTED RECORDS.

 Sample JCL:

 //TMSGRW PROC PRM=,
// REGN='4M',
// SOUT='*',
// WRKUNIT='SYSDA'
//TMSGRW EXEC PGM=TMSGRW,REGION=&REGN,
// PARM='&PRM'
//TMSRPT DD SYSOUT=&SOUT
//*OUTPUT DD DSN=TAPES.REPORTED.ON, * OPTIONAL *
//* DISP=(NEW,CATLG,DELETE),
//* UNIT=TAPE,
//* DCB=(RECFM=FB,LRECL=340,BLKSIZE=23460)
//* ABOVE BLKSIZE SHOULD BE A MULTIPLE OF 340
//SYSOUT DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//SORTWK01 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK02 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK03 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK04 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK05 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK06 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
// PEND
//GRW EXEC TMSGRW
//TMSGRW.SYSIN DD *
(CONTROL STATEMENTS HERE)
/*
//

 

TMSGRW control statements:

CONTROL-SECTION
DEFINE TIME1 PD 'hhmm'             *     hhmm is the execution time of TMSCOPY, e.g, 2045
PROCESS-SECTION
WHEN CDATE NE I-DATE
REJECT
WHEN CTIME GE TIME1
LIST
REPORT-SECTION
PRINT VOLSER
PRINT CDATE
PRINT CTIME

Note: You must update the TIME1 value

 

3.       Review the output of TMSGRW (from Step 2) and determine : 

a)      Whether any activity occurred

b)      If activity occurred, was it Production related, i.e, is the data required to be kept

c)       Is it necessary to use the SPLIT/MERGE procedure, or can the update(s) be done manually. 

 

4.       If you determine for (3a) that no activity occurred, skip to step 6.

If you determine for (3b) that the activity is non-production and/or involves one, or very few tapes and you are comfortable with making the updates manually, skip to step 6.

If you determine for (3c) that the SPLIT/MERGE procedure is required, continue with step 5.

 

5.       Create an export file of TMC records to be used by TMSMERGE as an import data.

 i)                    Run TMSSPLIT

Sample JCL:

Note: The VOLSERS DD (&INPUT) must point to the OUTPUT DSN of TMSGRW of step 1. 

//TMSSPLIT PROC INPUT='CAI.CA1.VOLSERS',
// OUTPUT='CAI.CA1.EXPORT',
// PRM='TEST',
// SOUT='*',
// REGN='4M',
// TAPUNIT='TAPE',
// WRKUNIT='SYSDA'
//TMSSPLIT EXEC PGM=TMSSPLIT,REGION=&REGN,
// PARM='&PRM'
//TMSRPT DD SYSOUT=&SOUT
//TMSPULL DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//SYSUT1 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(10,2))
//EXPORT DD DSN=&OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=&TAPUNIT,
// DCB=(RECFM=FB,LRECL=366,BLKSIZE=3660)
//VOLSERS DD DSN=&INPUT,
// DISP=OLD
//SYSOUT DD SYSOUT=&SOUT
//SORTWK01 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK02 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK03 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK04 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK05 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
//SORTWK06 DD UNIT=&WRKUNIT,
// SPACE=(CYL,(2,2))
// PEND
//SPLIT EXEC TMSSPLIT
//TMSSPLIT.SYSIN DD DUMMY
// 

 

6.       Run TMSINIT (reply to the IEFTMS0 WTOR with the CA 1 system password to deactivate CA 1).

 

7.       Restore the TMC to the point of TMSCOPY immediately prior to running TMSXTEND 

i)                    Run TMSCOPY with PARM=’RESTORE,NOAUDIT’

 

8.       Run TMSINIT (Reply ‘U’ to activate).

 

9.       Run TMSMERGE

Sample JCL:

Note: The IMPORT DD (&INPUT) must point to the EXPORT file created by TMSSPLIT.

//TMSMERGE PROC INPUT='CAI.CA1.EXPORT',
// OUTPUT='CAI.CA1.PURGE',
// PRM='TEST',
// SOUT='*',
// REGN='4M',
// TAPUNIT='TAPE'
//TMSMERGE EXEC PGM=TMSMERGE,REGION=&REGN,
// PARM='&PRM'
//TMSRPT DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//IMPORT DD DSN=&INPUT,
// DISP=OLD
//PURGE DD DSN=&OUTPUT,
// DISP=(NEW,CATLG,DELETE),
// UNIT=&TAPUNIT,
// DCB=(RECFM=FB,LRECL=366)
// PEND
//MERGE EXEC TMSMERGE

 

10.       If you plan to re-run TMSXTEND, ensure that you APPLY APAR #: RO63582 before doing so.

i)                    Re-run TMSXTEND (if applicable).

 

11. Run TMSINIT to activate CA 1 on other systems sharing the TMC. 

IMPORTANT : Make any required manual updates (if applicable) prior to resuming tape processing.

 

1   12. Run a TMSCOPY backup.

 

For detailed information about the Utilities described in the document, please refer to the CA 1 Tape Management Utilities and Reports Reference Guide.

Also available on the CA wiki: https://wiki.ca.com/pages/viewpage.action?pageId=219154010