//*
// SET TERSFL=<<Your downloaded tersed file (attached below)
// SET OUTPDS=<<A New PDS filename for this utility
//*
//DELETE EXEC PGM=IEFBR14
//X01 DD DSN=&OUTPDS,
// DISP=(MOD,DELETE,DELETE),UNIT=3390,SPACE=(TRK,1)
//* - - - - - -C- - - - - - - - - - - - - - - - - - - - - - - - - - -7-
//UNTERSE EXEC PGM=AMATERSE,PARM=UNPACK
//SYSPRINT DD SYSOUT=*
//SYSUT1 DD DISP=SHR,DSN=&TERSFL
//SYSUT2 DD DISP=(NEW,CATLG,DELETE),DSN=&OUTPDS,
// UNIT=3390,STORCLAS=TSO,DSORG=PO,SPACE=(CYL,(1,1,5),RLSE)
//*
Component : CA Datacom/AD
Component : CA Datacom/DB
$02CLON1 | Runs CXXCLONE to change files from the "From" string to the "To" string |
$02CLON2 | SQL report and compare job to confirm the changes |
$02CLON3 | Job to restore the original CXX file |
$02CLON4 | SQL report and compare job to confirm the filenames are restored |
$03CMNT1 | Part 1 of 2 - CXXMAINT to change filenames in the CXX |
$03CMNT2 | Part 2 of 2 - IDCAMS Alter to change filenames in the z/OS catalog |
$03CMNT3 | SQL report and compare job to confirm the changes |
$03CMNT4 | Part 1 of 2 - CXXMAINT to restore original filenames in the CXX |
$03CMNT5 | Part 2 of 2 - IDCAMS Alter to restore the original filenames in the z/OS Catalog |
$03CMNT6 | SQL report and compare job to confirm the filenames are restored |
We are hopeful that this article and the $$NOTES member will help you easily and successfully rename the database files.