Recovery Analyzer for Db2 for z/OS (PRA) provides an interface to use DSN1COPY automatic translation features. DSN1COPY copies data sets and
translates them from one format to another (for example, from a Db2 image copy data set to a Db2 VSAM data set). The data sets to translate can be
defined along with an output data set and other copy parameters such as the old and new OBID's.
Recovery Analyzer reads the data sets and retrieves the DBID, PSID, and all OBIDs in the space, obtains the new DBID and all OBIDs, and then hands
processing over to the DSN1COPY utility with the XLAT parameters defined by the user.
A tablespace containing tables with rows of identical length cannot be automatically translated. Review the table row data to determine which table OBID
correlates to each image copy OBID, then enter the old and new OBIDs on the Image Copy Data Set Recovery screen.
Start at the Recovery Analyzer main menu:
5) Special Recovery Services
then
2 - DSN1COPY XLAT and Recover
Enter the required fields:
1. Enter The Dataset Name To Translate
2. VCAT name, Database and Tablespace name
3. Instance and Maximum Number of Pages to Process
4. Any other parms on the screen that are required for your task.
PRPD1CP --------- Image Copy Data Set Recovery -------- yy/mm/dd hh:mm
COMMAND ===>
----------------------------------------------------------------------------
Input Parameters: | Enter your own xlat parms:
Enter The Dataset Name To Translate | Optional Old New
==> AUTHID1.DBCORP.TSROLE.CPY.G0004V00__________ | DBID ==> ____ ____
Unit => ________ Volume => ______ Label => ___ | PGID ==> ____ ____
| Optional
Output Parameters: | OBIDs Old New Old New
Enter The Dataset To Write Translated Rows To | ==> ____ ____ ____ ____
==> ____________________________________________ | ==> ____ ____ ____ ____
Unit => ________ Volume => ______ | ==> ____ ____ ____ ____
| ==> ____ ____ ____ ____
Use Translate keyword ==> Y | ==> ____ ____ ____ ____
Vcat Name ==> VCAT_ ----------------------------
Database ==> DBCORP__
Table Space Name ==> TSROLE__
Instance ==> 1 1 or 2
Partition Number ==> ____
Check Data Integrity ==> Y
Reset RBA On Data Pages ==> Y
Maximum Number of Pages to Process ==> 0_______ (0 For All Pages)
The next screen generates the JCL to a dataset(member) of your choice.
Recovery Analyzer Job Generation Options:
Edit Dataset after Generation ===> Y (Yes/No/no and Submit)
XMESSAGE output direction ===> W (Wto/Ptimsg/pRamsg)
Dataset Name ===> 'AUTHID1.XLAT.CNTL(DSN1XLAT)'
Jobcard Specification:
=> //AUTHID1B JOB (xxxxxxxxx),'XLAT',CLASS=B,MSGCLASS=X,
=> // NOTIFY=AUTHID1,REGION=0M,TIME=1440
=> /*JOBPARM SYSAFF=ssid
=> //*
The JCL contains the options chosen........
000082 //*
000083 //PRAREPRT DD SYSOUT=*
000084 //SYSUT1 DD DSN=AUTHID1.DBCORP.TSROLE.CPY.G0004V00,
000085 // UNIT=3390,
000086 // DISP=OLD
000087 //SYSUT2 DD DSN=VCAT.DSNDBD.DBCORP.TSROLE.I0001.A001,
000088 // UNIT=3390,
000089 // DISP=OLD
000090 //SYSXLAT DD DSN=&&CNTLCRDS,UNIT=SYSDA,DISP=(NEW,PASS,DELETE),
000091 // SPACE=(TRK,(1,5)),DCB=(RECFM=FB,LRECL=80,BLKSIZE=8000)
000092 //PRAMSG DD SYSOUT=*
000093 //PTIMSG DD SYSOUT=*
000094 // PEND
000095 //*
000096 //RECOVERY EXEC RECOVERY,COND=(4,LT)
000097 //*
000098 //SYSTSIN DD *
000099 ISPSTART PGM(PTLDRIVM) PARM(SUFFIX=00,CI=PRL#MAIN/ssid)
000100 /*
000101 //*
000102 //PRA#DATA DD *
000103 IMAGE_COPY_TRANSLATE
000104 XLAT_DATA_BASE = (DBCORP)
000105 XLAT_SPACE_NAME = (TSROLE)
000106 XLAT_PART_NBR = (0000)
000107 XLAT_MAX_READS = (0)
000108 XLAT_CHECK_VALID = (Y)
000109 XLAT_USE_OBIDXLAT = (Y)
000110 XLAT_RESET_RBA = (Y)
000111 XMESSAGE_DIRECTION = (W)
000112 /*
000113 //*
When submitted the DSN1COPY utility can be seen in operation:
DSN1999I START OF DSN1COPY FOR JOB AUTHID1B ANALYZERRECOVERY
DSN1989I DSN1COPY IS PROCESSED WITH THE FOLLOWING OPTIONS:
CHECK/NO PRINT/ 4K/FULLCOPY /NON-SEGMENT/NUMPARTS= 0/ OBIDXLA
DSSIZE= G/PIECESIZ= / /
DSN1998I INPUT DSNAME = AUTHID1.DBCORP.TSROLE.CPY.G0004V00 , SEQ
DSN1997I OUTPUT DSNAME = VCAT.DSNDBD.DBCORP.TSROLE.I0001.A001 , VSAM
DSN1994I DSN1COPY COMPLETED SUCCESSFULLY, 00000003 PAGES PROCESSED
READY
ISPSTART PGM(PTLDRIVM) PARM(SUFFIX=00,CI=PRL#MAIN/ssid)
AUTHID1.AUTHID1B.JOB91037.D0000106.? was preallocated (no free was done).
READY
END
PRL#XLAT CONTROL CARDS GENERATED AND PASSED TO DSN1COPY
4922,4922 DATABASE ID
0057,0014 PAGE SET ID
0058,0028 OBJECT ID
GENERATED PARM CARD TO BE PASSED TO DSN1COPY:OBIDXLAT,CHECK,RESET,FULLCOPY