CA View - Move Dev Reports from Prod CA View Database to Dev Database
search cancel

CA View - Move Dev Reports from Prod CA View Database to Dev Database

book

Article ID: 199244

calendar_today

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
/*
//