book
Article ID: 199244
calendar_today
Updated On:
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.
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
/*
//