We have received requests from customers for guidelines
on a checklist to verify that Innovation products operate properly after
January 1, 2000.
Below is a suggested test plan. It is very basic but it will give you
a place to start; you may want to add additional tests depending on the
functions you execute frequently.
On the following pages are suggested jobsteps for many of the tests, keyed
to the line numbers in this plan. Note: most Innovation products are dependent
on the correct operation of your tape management system. If tapes are
prematurely scratched, you may lose important backup information. Although
we are not aware of any Y2K tape management problems, we urge you to verify
that tapes used by Innovation products are properly retained by your TMS.
ABR customers
- Set up one or more test volumes. Enable them for
ABR backup and archive.
- Test FDRABR volume backups.
a) Take full-volume backups (TYPE=FDR)
b) Create some new data sets
c) Do incremental backups (TYPE=ABR)
d) Delete some data sets to be restored.
e) Restore several data sets from the backups, including some from the
full-volume backups and some from the incremental.
f) Use FDREPORT to display the creation, expiration and last reference
dates of the restored data sets. Section 80.10 describes the expected
values for these date fields after a restore (note that options in the
FDR option table, ISPF panel A.I.2, can change the normal values).
- Test ABR archive backups
a) archive some of the data sets
b) PRINT ARCHIVE to verify recording
c) auto-recall one of the data sets
d) manually recall one of the data sets
e) run a simulated FDRARCH REORG of your Archive Control File. If the
REORG purges an unusually large number of data sets, you should investigate
these data sets to see if they are legitimate candidates for deletion
before you run a real REORG. For example, if you use RESTORE=PURGE on
the REORG, the data sets restored in steps c) and d) will be purged.
- Test FDRAPPL (Application Backup). FDRAPPL
uses most of the same code as Archive, so special tests are not required.
Examine the output of several FDRAPPL steps run after the new
year to verify that the correct data sets were selected.
FDREPORT customers
Test FDREPORT a) archive some of the data sets
FDR customers without ABR
FDRDSF and FDRCOPY process the creation, expiration and last reference
date of individual data sets during restore (see Section 80.10 for details,
and note that options on ISPF panel A.I.2 may change the handling of
those dates). a) Execute a FDR full-volume backup
b) Delete several data sets
c) Restore those data sets from the backup
FATS/FATAR customers
Test FATS/FATAR a) Certify (WRITE) a tape. Verify that the tape is expired
in your TMS b) copy a tape with FATAR. Verify that the creation date
of the output tape is the current date
FDRINSTANT customers
FDRINSTANT uses normal FDR and ABR code for most functions, no special
tests are required.
FDRSOS customers
FDRSOS does not make decisions based on date, so any errors will be
strictly cosmetic
COMPAKTOR customers
COMPAKTOR does not make decisions based on date, so any errors will
be strictly cosmetic
a) Run a MAP or SIMULATE to verify operation
IAM customers
IAM does not make decisions based on date, so any errors will be strictly
cosmetic.
a) The IAM ICL (Installation Control Library) contains a
member TESTVIF which will define, load, print and delete a test IAM
file. Verify the dates displayed in the IAMINFO and IAMPRINT outputs.
FDRREORG customers
FDRREORG does not make decisions based on date, so any errors will
be strictly cosmetic a) execute any FDRREORG job, changing the command REORG to
SIMULATE
FDR/UPSTREAM customers
FDR/UPSTREAM can be tested by running simple backups and restores.
For the most part it is not date dependant, but it is dependent on correct
Y2K operation of other software such as your tape management system. a) Innovation recommends that whenever the FDR/UPSTREAM main
task is started after the new year, you specify PARM=NOMAINT on the
EXEC statement until you verify that your tape management system is
working properly.
b) backup some files from a workstation
c) access those files to verify they are still usable. Display the directory
for those files to verify that the last access date was not modified.
d) Restore some files from a backup taken before the new year. Verify
them as in (c) above.
e) Restore some files from a backup taken after the new year. Verify
them as in (c) above.
f) Use the USTSUMM DD output to verify that the size of production backups
taken in the new year are similar in size and elapsed time to equivalent
backups before the new year.
Sample Jobstreams (with sample outputs where appropriate)
1) use ABR ISPF panel A.I.8 (section 90.42 in the FDR manual) to
initialize your test volumes for ABR backup and archive:
---------- FDR INSTALLATION -- SET ABR VOLUME PROCESSING OPTIONS
COMMAND ===> SCROLL ===> PAGE
SUBMIT - SUBMIT FDRABRM BATCH JOB EDIT - EDIT FDRABRM BATCH JOB
REFRESH - REFRESH ABR VOLUME INFO FIND - FIND THE SPECIFIED STRING
----CURRENT BACKUP-----
VOLUME GEN CYC EXPDT AC MOD MAX GEN RETPD ARCHIVE STORCLAS FORCE
SERIAL DATE EXPD2 MAX AC RETP2 SCRATCH ARCHI
CMD NUMBER OLDBKUP ARCLOW
--- ------ --- --- -------- -- --- ------- ----- ------- -------- -----
Y2KTS1 **** NO BACKUP ** NO 4 60 YES NO
10 0 YES 80
YES 50
--- ------ --- --- -------- -- --- ------- ----- ------- -------- -----
Y2KTS2 **** NO BACKUP ** NO 4 60 YES NO
10 0 YES 80
YES 50
2a) ABR full-volume backup:
//ABRFULL EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1 DD DSN=ABRY2K,UNIT=TAPE,DISP=(,KEEP)
DUMP TYPE=FDR
MOUNT VOLG=Y2KTS
FDR304 FDR DUMP REQUEST FOR DDNAME=DISKONL1,VOL=SER=Y2KTS1,UNIT=3380
FDR305 TO TAPE DDNAME=TAPE1 ,DSNAME=FDRABR.VY2KTS1.C1000300,FILE=0001,VOL=SER=003123
FDR306 DUMP SUCCESSFULLY COMPLETED
FDR304 FDR DUMP REQUEST FOR DDNAME=DISKONL1,VOL=SER=Y2KTS2,UNIT=3380
FDR305 TO TAPE DDNAME=TAPE1 ,DSNAME=FDRABR.VY2KTS2.C1000100,FILE=0002,VOL=SER=003123
FDR306 DUMP SUCCESSFULLY COMPLETED
FDR999 FDRABR SUCCESSFULLY COMPLETED 2c) ABR
incremental backup:
//ABRINCR EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1 DD DSN=ABRY2K,UNIT=TAPE,DISP=(,KEEP)
DUMP TYPE=ABR
MOUNT VOLG=Y2KTS
FDR304 ABR DUMP REQUEST FOR DDNAME=DISKONL1,VOL=SER=Y2KTS1,UNIT=3380
FDR305 TO TAPE DDNAME=TAPE1 ,DSNAME=FDRABR.VY2KTS1.C1000301,FILE=0001,VOL=SER=003068
FDR311 FDR DUMPED DSN=SYS1.VTOCIX.VY2KTS1
FDR311 FDR DUMPED DSN=BAB.Y2KTS1.TEST2
FDR306 DUMP SUCCESSFULLY COMPLETED
FDR304 ABR DUMP REQUEST FOR DDNAME=DISKONL1,VOL=SER=SCR08C,UNIT=3380
FDR305 TO TAPE DDNAME=TAPE1 ,DSNAME=FDRABR.VY2KTS2.C1000101,FILE=0002,VOL=SER=003068
FDR311 FDR DUMPED DSN=SYS1.VTOCIX.VY2KTS2
FDR311 FDR DUMPED DSN=BAB.Y2KTS2.TEST2
FDR306 DUMP SUCCESSFULLY COMPLETED
FDR999 FDRABR SUCCESSFULLY COMPLETED 2e) ABR
restore:
//ABRREST EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
RESTORE TYPE=ABR,DYNTAPE
SELECT DSN=testdsn1
SELECT DSN=testdsn2
SELECT DSN=testdsn3
FDR304 ABR RESTORE REQUEST
FDR305 FROM TAPE DDNAME=TAPE ,DSNAME=FDRABR.VY2KTS2.C1000100 ,FILE=0002,VOL=SER=003123
FDR007 STARTING TIME OF DATA SET RESTORE -- 13.32.44 -- IN=TAPE
FDR042 RESTORE FROM BACKUP OF VOL=Y2KTS2 UNIT=3380 CREATED ON DATE=2000.002 TIME=13.26.58
FDR311 FDR RESTORED DSN=BAB.Y2KTS2.TEST1
FDR311 ON VOLSER=Y2KTS2 UNIT=3380
FDR007 ENDING TIME OF DATA SET RESTORE -- 13.34.02 -- IN=TAPE
FDR122 BYTES DSK TRK T BLKS RESTART STIMERS ERRS ACT DSK LOW HGH DEXCP NUMDS
FDR122N 0000139940 000008 000 000000 000001 000001
FDR002 RESTORE SUCCESSFULLY COMPLETED FROM VOL=Y2KTS2 2f) FDREPORT
to display dates:
//ABRREPT EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
SELECT VOL=Y2KTS*
REPORT FIELD=(DSN,VOL,DATES,SIZEINFO)
PRINT
DATA SET NAME VOLSER CRDATE EXPDAT LRDATE ALLOC FREE %FR
BAB.Y2KTS2.TEST1 Y2KTS2 2000.002 0000.000 2000.002 1 0 0
BAB.Y2KTS1.TEST1 Y2KTS1 2000.002 0000.000 2000.002 1 0 0 3a) ABR
archive backup:
//ABRARC EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSPRIN1 DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1 DD DSN=ABRY2K,UNIT=TAPE,DISP=(,KEEP)
DUMP TYPE=ARC,RECALL=YES,DYNARC,ARCBACKUP=NO
SELECT DSN=testdsn1
SELECT DSN=testdsn2
SELECT DSN=testdsn3
MOUNT VOLG=Y2KTS
FDR304 ARC DUMP REQUEST FOR DDNAME=DISKONL1,VOL=SER=Y2KTS2,UNIT=3380
FDR305 TO TAPE DDNAME=TAPE1 ,DSNAME=FDRABR.VY2KTS2.B100002B ,FILE=0001,VOL=SER=003089
FDR314 ABR ARCHIVED AND SCRATCHED DSNAME=BAB.Y2KTS2.TEST1 RECAT FOR RECALL
FDR306 DUMP SUCCESSFULLY COMPLETED
FDR999 FDRABR SUCCESSFULLY COMPLETED 3b) PRINT
ARCHIVE report:
//ABRPRT EXEC PGM=FDRABRP,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//ARCHIVE DD DISP=SHR,DSN=archive.control.file
PRINT ARCHIVE,VOLG=Y2KTS
ARCHIVE CONTROL FILE IS -- FDRABR.ARCHIVE
*-DSK VOL-* *--DATE OF--* D/S REC BLOCK
**---DATA SET NAME---** SERIAL S TY ARCHIVE EXPDT ORG FM SIZE LRECL ALLOC
BAB.Y2KTS2.TEST1 Y2KTS2 1 0E 00.002 01.002 ** ** 0 0 1T 3c) ABR
auto-recall:
//AUTO EXEC PGM=IEFBR14
//RECALL DD DISP=OLD,DSN=testdsn1 3d) Manual
ABR archive restore:
//ABRREST EXEC PGM=FDRABR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
RESTORE TYPE=ARC,DYNARC,DYNTAPE
SELECT DSN=testdsn2
FDR304 ARC RESTORE REQUEST
FDR305 FROM TAPE DDNAME=TAPE ,DSNAME=FDRABR.VY2KTS2.B100002B ,FILE=0001,VOL=SER=003089
FDR007 STARTING TIME OF DATA SET RESTORE -- 14.20.44 -- IN=TAPE
FDR042 RESTORE FROM BACKUP OF VOL=Y2KTS2 UNIT=3380 CREATED ON DATE=2000.002 TIME=14.12.31
FDR311 FDR RESTORED DSN=BAB.Y2KTS2.TEST1 ALLOCATED CATALOGED
FDR311 ON VOLSER=Y2KTS2 UNIT=3380
FDR007 ENDING TIME OF DATA SET RESTORE -- 14.22.37 -- IN=TAPE
FDR122 BYTES DSK TRK T BLKS RESTART STIMERS ERRS ACT DSK LOW HGH DEXCP NUMDS
FDR122N 0000000196 000005 000 000000 000001 000001
FDR002 RESTORE SUCCESSFULLY COMPLETED FROM VOL=Y2KTS2
FDR999 FDRABR SUCCESSFULLY COMPLETED 3e) Simulated
Archive Control File REORG:
//ARCREORG EXEC PGM=FDRARCH,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
REORG SIMULATE,ENABLE=(DYNARC,IFNOTCAT),RESTORE=PURGE,EXPIRE=PURGE 5a) FDREPORT
for data sets unused for over 30 days:
//ABRREPT EXEC PGM=FDREPORT,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
XSELECT LRDAYS>30
REPORT FIELD=(DSN,VOL,DATES,LRDAYS)
PRINT ENABLE=ONLINE
DATA SET NAME VOLSER CRDATE EXPDAT LRDATE LRDAY
------------- ------ -------- -------- -------- -----
IBMUSER.RMMTEST.JESLOG.LIST IDPLBA 1996.060 0000.000 1997.056 1042
EFG.STROBE.EFG1.S002D001 IDPLBA 1999.309 0000.000 1999.310 58 6) FDR
backup and DSF restore:
//FDRDUMP EXEC PGM=FDR,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//DISK1 DD UNIT=SYSALLDA,VOL=SER=Y2KTS1,DISP=OLD
//TAPE1 DD DSN=&&BKUP,UNIT=TAPE,DISP=(,PASS)
DUMP TYPE=FDR
//DELETE EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
DELETE testdsn1
DELETE testdsn2
//DSFREST EXEC PGM=FDRDSF,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//TAPE1 DD DSN=&&BKUP,DISP=(OLD,DELETE)
RESTORE TYPE=DSF
SELECT DSN=testdsn1
SELECT DSN=testdsn2 7a)
Certify a tape with FATS:
//CERTIFY EXEC PGM=FATS,REGION=0M
//SYSPRINT DD SYSOUT=*
//TAPE1 DD DSN=FATS,UNIT=TAPE,DISP=(,KEEP),VOL=SER=volser
//SYSUDUMP DD SYSOUT=*
WRITE(1) 7b) Copy
a tape with FATAR:
//COPY EXEC PGM=FATAR,REGION=0M
//SYSPRINT DD SYSOUT=*
//TAPESUMM DD SYSOUT=*
//TAPEIN DD DISP=SHR,DSN=cataloged.tape.dataset.name
//TAPEOUT DD DSN=FATAR,UNIT=TAPE,DISP=(,KEEP)
//SYSUDUMP DD SYSOUT=*
ANALYZE 10) Simulate
COMPAKTion:
//CPK EXEC PGM=FDRCPK,REGION=0M
//SYSPRINT DD SYSOUT=*
//SYSMAP DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
SIMULATE TYPE=FASTCPK,VOL=Y2KT
|
