Use this procedure when you need to copy a TPX profile and all of its session to another TPX that uses a different set of VSAM files.
WARNING: This method will work only if the profile you extract from the first TPX does not already exist in the second TPX. If it does, you will end up with duplicate records in your ADMIN2 which may cause VSAM record corruption.
- Backup your ADMIN2 file on the target TPX2 as a precaution.
- Use TPX batch to extract the profile and all sessions from TPX1 to a catalogued data set, use the following batch control statement.
//BATCHADM EXEC TPX1,VNODE='*BATCH*'
/*
//EXTFIL1 DD UNIT=SYSDA,SPACE=(CYL,(1,1)),DISP=(,CATLG),
// DSN=TPX1.PROFILE.EXTRACT
//RPTFIL1 DD SYSOUT=*
//SYSIN DD *
C
C Extract profile PROFILE1 and all sessions
C
EXTRACT GIVING(EXTFIL1) PROFILE AND ALL SESSIONS (PIDXNAME(PROFILE1))
C
C Optional report with details of the extracted profile
C
SET RTITLE1 ' EXTRACT all sessions for profile PROFILE1 from TPX1 '
SET RTITLE2 ' Profile SessionID ApplID Start ACL Group Owner Member Inv'
SET RTITLE3 ' ======== ========= ======== ========= ======== ======= ======= ==='
REPORT GIVING(RPTFIL1) USING(EXTFIL1)
((' &PIDXNAME' '&PENTUSER' ' &PENTAPPL' ' &PENTSCRP' ' &PIDXGRP'
' &PENTHLNM' '&PENTHLID' '&PENTOPTI'))
/*
- Stop TPX2.
- Use IDCAMS to REPRO the extracted records from TPX1 into the TPX2 ADMIN2 database:
//BACKUP EXEC PGM=IDCAMS
//SYSPRINT DD SYSOUT=*
//ADMIN2 DD DISP=OLD,DSN=TPX2.ADMIN2
//EXTRACT DD DISP=OLD,DSN=TPX1.PROFILE.EXTRACT
//SYSIN DD *
REPRO INFILE(EXTRACT) OUTFILE(ADMIN2)
//
- Run RESET INTEGRITY (sample BATCHINI) on TPX2 ADMIN2 database.
- Start TPX2.
- Use TPXADMIN - Profile Maintenance on TPX2 to verify that the copied profile with all of its sessions exists.