CA View - Move Dev Reports from Prod CA View Database to Dev Database
Article ID: 199244
Updated On:
Products
Deliver
View
Issue/Introduction
The client had some Dev reports go to their Prod View database and wants to move the Dev reports to the Dev database.
Environment
Release : 14.0
Component : CA View
Resolution
As the client wants to move some dev reports (from a prod View database) to the dev View database, here are the steps for them to follow:
. With the prod View tasks down, run a SARDBASE Selective UNLOAD on the dev reports:
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_PROD' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//*********************************************
//* USE THE FOLLOWING SARUNLTB STATEMENT IF *
//* YOU ARE DOING A "SELECTIVE" UNLOAD *
//*********************************************
//SARUNLTB DD *
S=REPORT01-R01 ADATE=mm/dd/yyyy
...
S=REPORT01-R10 ADATE=mm/dd/yyyy
/*
//SARUNLD DD DISP=(,CATLG,DELETE),
// DSN=XXXXXX.XXXXXX.SARSUNLD,
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(NNN,NN),RLSE),
// UNIT=XXXX,VOL=SER=YYYYYY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
UNLOAD
/*
//
. . In the above, S=... is the Sysout ID, ADATE=... is the Archive Date.
. Start the prod View tasks.
. With the dev View tasks down, run a SARDBASE full UNLOAD on the dev database.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SARUNLD DD DISP=(,CATLG,DELETE),
// DSN=XXXXXX.XXXXXX.SARFUNLD,
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(NNN,NN),RLSE),
// UNIT=XXXX,VOL=SER=YYYYYY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
UNLOAD
/*
//
. Run SARDBASE ADDDS (DATA and INDEX), to create a new database.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ADDDS INDEX CYLINDER=nnnn BLKSIZE=8906 UNIT=uuuu VOLSER=vvvvvv
ADDDS DATA CYLINDER=nnnn BLKSIZE=13682 UNIT=uuuu VOLSER=vvvvvv
/*
//
. Run a SARINIT, with only the NAME=... card, on the dev database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_DEV
/*
//
. Run a SARINIT, with only the NAME=... card, on the prod database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_PROD
/*
//
. Run a SARDBASE MERGE to the new database, using inputs of the UNLOADS done above.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SARMERG1 DD DISP=SHR,DSN=XXXXXX.XXXXXX.SARSUNLD
//SARMERG2 DD DISP=SHR,DSN=XXXXXX.XXXXXX.SARFUNLD
//SYSIN DD *
MERGE
/*
//
. SARDBASE RENAME the dev database to another name.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
RENAME VIEW_HLQ_NEW
/*
//
. SARDBASE RENAME the new dev database to the dev database name.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
RENAME VIEW_HLQ_DEV
/*
//
. Run a SARINIT, with only the NAME=... card, against the dev database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_DEV
/*
//
. Review the parameters, to ensure they are the ones to be used.
. Start the tasks against the dev database.
. Run SARPAC on the dev database, so that its reports go to new tapes.
//XXXXXXXX JOB ...
//SARPAC EXEC PGM=SARPAC,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
TAPESEQ=00001-32000
/*
//
. With the prod View tasks down, run a SARDBASE Selective UNLOAD on the dev reports:
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_PROD' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//*********************************************
//* USE THE FOLLOWING SARUNLTB STATEMENT IF *
//* YOU ARE DOING A "SELECTIVE" UNLOAD *
//*********************************************
//SARUNLTB DD *
S=REPORT01-R01 ADATE=mm/dd/yyyy
...
S=REPORT01-R10 ADATE=mm/dd/yyyy
/*
//SARUNLD DD DISP=(,CATLG,DELETE),
// DSN=XXXXXX.XXXXXX.SARSUNLD,
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(NNN,NN),RLSE),
// UNIT=XXXX,VOL=SER=YYYYYY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
UNLOAD
/*
//
. . In the above, S=... is the Sysout ID, ADATE=... is the Archive Date.
. Start the prod View tasks.
. With the dev View tasks down, run a SARDBASE full UNLOAD on the dev database.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SARUNLD DD DISP=(,CATLG,DELETE),
// DSN=XXXXXX.XXXXXX.SARFUNLD,
// DCB=(RECFM=VB,LRECL=32756,BLKSIZE=32760),
// SPACE=(CYL,(NNN,NN),RLSE),
// UNIT=XXXX,VOL=SER=YYYYYY
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
UNLOAD
/*
//
. Run SARDBASE ADDDS (DATA and INDEX), to create a new database.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
ADDDS INDEX CYLINDER=nnnn BLKSIZE=8906 UNIT=uuuu VOLSER=vvvvvv
ADDDS DATA CYLINDER=nnnn BLKSIZE=13682 UNIT=uuuu VOLSER=vvvvvv
/*
//
. Run a SARINIT, with only the NAME=... card, on the dev database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_DEV
/*
//
. Run a SARINIT, with only the NAME=... card, on the prod database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_PROD
/*
//
. Run a SARDBASE MERGE to the new database, using inputs of the UNLOADS done above.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SARMERG1 DD DISP=SHR,DSN=XXXXXX.XXXXXX.SARSUNLD
//SARMERG2 DD DISP=SHR,DSN=XXXXXX.XXXXXX.SARFUNLD
//SYSIN DD *
MERGE
/*
//
. SARDBASE RENAME the dev database to another name.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
RENAME VIEW_HLQ_NEW
/*
//
. SARDBASE RENAME the new dev database to the dev database name.
//XXXXXXXX JOB ...
//SARDBASE EXEC PGM=SARDBASE,PARM='VIEW_HLQ_DEV2' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
RENAME VIEW_HLQ_DEV
/*
//
. Run a SARINIT, with only the NAME=... card, against the dev database.
//XXXXXXXX JOB ...
//SARINIT EXEC PGM=SARINIT
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME=VIEW_HLQ_DEV
/*
//
. Review the parameters, to ensure they are the ones to be used.
. Start the tasks against the dev database.
. Run SARPAC on the dev database, so that its reports go to new tapes.
//XXXXXXXX JOB ...
//SARPAC EXEC PGM=SARPAC,PARM='VIEW_HLQ_DEV' <=== MODIFY DB NAME
//STEPLIB DD DISP=SHR,DSN=VIEW.CVDELOAD <=== MODIFY, IF USED
//SYSPRINT DD SYSOUT=*
//SYSUDUMP DD SYSOUT=*
//SYSIN DD *
TAPESEQ=00001-32000
/*
//
Feedback
Yes
No
Powered by
