Utility to Copy Deliver DB to new DB with 1 character change in all jobnames
Article ID: 373091
Updated On:
Products
Issue/Introduction
I was hoping to be able to identify a utility that would allow us to create an "TEST5" database with the exact same report definitions as the "PROD5" database, but the first character of all if the jobnames in the TEST5 database would be and "T" instead of a "P".
Environment
z/os, view, deliver, 14.0, utility, job, rmogrw, custom, change, jobname, character, add, new, load, database, rmodbb, different, modify, create
Cause
Special needs utility
Resolution
Step 1: Create your new database and populate it with the same definition records as your existing Deliver database using the following sample JCL:
//JOBCARD...
//STEP1 EXEC PGM=RMODBASE
//*STEPLIB DD DSN=your.deliver.CVDELOAD,DISP=SHR <-MODIFY!
//SYSPRINT DD SYSOUT=*
//SYSIN DD *
NAME your.new.dbname
ADDDS CYLINDER=?? UNIT=3390 VOLSER=?????? <-MODIFY!
MAKECKPT UNIT=3390 VOLSER=?????? CYLINDER=200 <-MODIFY!
COPY your.existing.db <-MODIFY!
//
Step 2: Run the following "custom created" utility against the new Deliver database to change the 1st character of the jobname.
- The following sample JCL will execute the RMOGRW utility in the first step and create a dataset that has both the OLD and NEW jobnames in it. The NEW jobnames all start with the character 'T'.
- That dataset is then read in as input to the RMODBB utility step, which will use the REPLACE function to change all the job definition records to the new jobname.
//JOBCARD...
//**********************************************************
//*
//* RMOGRW - GENERAL PURPOSE REPORT UTILITY
//*
//$$$$$$@ EXEC PGM=RMOGRW
//*STEPLIB DD DISP=SHR,DSN=your.deliver.CVDELOAD <-MODIFY!
//SYSPRINT DD SYSOUT=*
//SYSOUT DD SYSOUT=*
//OUT DD SYSOUT=*
//PRTFILE DD SYSOUT=*
//OUTFILE DD DSN=&&DBBIN,UNIT=SYSDA,
// DISP=(,PASS),
// DCB=(RECFM=FB,LRECL=22,BLKSIZE=2200),
// SPACE=(TRK,(15,15),RLSE)
//SYSIN DD *
/CONTROL SEQ=JOB DATABASE=your.deliver.database <-MODIFY!
/ OUTPUT JOB COL(1)
/ OUTPUT 'T' COL(10)
/ OUTPUT SUBSTR(JOB,2,7) COL(11)
/ OUTPUT 'R ' COL(21)
/*
//$$$$$$@ EXEC PGM=RMODBB,PARM='your.deliver.database- <-MODIFY!
//*STEPLIB DD DISP=SHR,DSN=your.deliver.CVDELOAD <-MODIFY!
//SYSPRINT DD SYSOUT=*
//DATA DD DISP=(OLD,DELETE),DSN=&&DBBIN
//SYSIN DD *
/JOBDEF OJOB=(1,8) JOB=(10,8) FUNCTION=(21)
/*
//
******************************** Bottom of Data ************
Additional Information
Feedback
