New version of the DSEXAUPT/CADSAUPT - "Modify the Archived Reports Volsers" utility.
Article ID: 15365
Updated On:
Products
Issue/Introduction
Running a utility job against the CA Dispatch started task while it is active is convenient because it allows users to have access to CA Dispatch for viewing of reports in online viewing and to perform various other functions. However, these "CV Active" versions of utility jobs can take an excessive amount of time to run because of all of the IDMS journaling that takes place due to the CA Dispatch database being updated.
The DSEXAUPT/CADSAUPT utility is one of those utility jobs that is designed to run with the CA Dispatch started task ACTIVE. Is there a version of this utility that will run with the Dispatch started task shut down?
Environment
Component:
Resolution
CA Dispatch does not provide a version of the "Modify the Archived Reports Volsers" utility that runs with the CA Dispatch started task shut down. However, customers can create their OWN version of this same utility that WILL run with CA Dispatch DOWN.
Using the 11.7 provided version of the DSEXAUPT "submit JCL" located in the installed CADSJCL library, you can create the following JCL which will execute a NEW PROC called CADSAUP2 which you will also create in your CA Dispatch 11.7 CADSPROC library:
BROWSE DISPATCH.HLQ.CADSJCL(DSEXAUP2)
//JOBCARD...
// JCLLIB ORDER=DISPATCH.HLQ.CADSPROC
/*JOBPARM S=*
//*
//*------------------------------------------------------------------*
//* CA Dispatch
//*------------------------------------------------------------------*
//* FUNCTION : PROCEDURE TO EXECUTE ARCHIVE BATCH UTILITY
//*
//* DSEXAUPT - EXECUTES ARCHIVE BATCH UTILITY PROGRAM CADSAUPT
//* TO UPDATE VOLSER AND MEDIA
//*
//* *** RUN THIS PROC WITH THE CA-DISPATCH ONLINE UP ***
//* MODE IN PARM CAN BE EITHER TEST OR UPDATE, DEFAULT IS TEST
//*
//* THE FOLLOWING IS THE INPUT MEMBER
//* DSAUPT01 = OLD VOLSER NEW VOLSER NEW UNIT
//*------------------------------------------------------------------*
//EXECARC EXEC CADSAUP2,
//*
// MEMBER='DSAUPT01', * CADSAUPT CONTROL MEMBER
// DSHLQ='DISPATCH.HLQ', * HLQ
// LOADLIB='DISPATCH.HLQ.CADSLOAD', * LOAD LIBRARY
// OPTLIB='DISPATCH.HLQ.CADSOPTN', * OPTION LIBRARY
// MODE='TEST', * TEST OR UPDATE
// SOUT=* * SYSOUT CLASS FOR REPORT
//*------------------------------------------------------------------*
Then, using the 11.7 provided version of the CADSAUPT "PROC" located in the installed CADSPROC library, you would create the following NEW CADSAUP2 proc which will allow you to execute the utility with the CA Dispatch started task DOWN, provided that the CA Dispatch STC is brought down CLEAN via the normal STOPCADS command:
BROWSE DISPATCH.HLQ.CADSPROC(CADSAUP2) -
********************************* Top of Data
//CADSAUP2 PROC DSHLQ='CAI.DISP',
// LOADLIB='CAI.CADSLOAD',
// MEMBER='DSAUPT01',
// OPTLIB='CAI.CADSOPTN',
// MODE=TEST,
// SOUT=*
//*------------------------------------------
//* CA Dispatch
//*------------------------------------------
//* EXECUTE ARCHIVE VOLSER SELECTION
//*------------------------------------------
//EXECAUPT EXEC PGM=CADSAUPT,REGION=2048K,
// PARM='&MODE'
//*
//STEPLIB DD DSN=&LOADLIB,DISP=SHR
//*
//SYSPRINT DD SYSOUT=&SOUT
//SYSOUT DD SYSOUT=&SOUT
//SYSDBOUT DD SYSOUT=&SOUT
//SYSUDUMP DD SYSOUT=&SOUT
//SYMDUMP DD DUMMY
//SYSOUD DD SYSOUT=&SOUT
//*
//SYSGEN DD DSN=&DSHLQ..SYSGEN,DISP=SHR
//HELPTEXT DD DSN=&DSHLQ..HELPTEXT,DISP=SHR
//AR DD DSN=&DSHLQ..AR,DISP=SHR
//ARM DD DSN=&DSHLQ..ARM,DISP=SHR
//CAIJRNL1 DD DUMMY
//CAIJRNL2 DD DUMMY
//CAIJRNL3 DD DUMMY
//CAIJRNL4 DD DUMMY
//SYSJRNL DD DUMMY
//*
//CHANGE DD DSN=&OPTLIB(&MEMBER),DISP=SHR
//*
//REPORT DD SYSOUT=&SOUT,
// DCB=(RECFM=FBA)
//*
******************************** Bottom of Data
Basically, all you do is create the new proc with a different name than the original, remove the following two DD statements:
//SYSCTL DD DSN=&DSHLQ..SYSCTL,DISP=SHR
//CAICTL DD DSN=&DSHLQ..SYSCTL,DISP=SHR
And in their place, substitute them with the following DD statements:
//SYSGEN DD DSN=&DSHLQ..SYSGEN,DISP=SHR
//HELPTEXT DD DSN=&DSHLQ..HELPTEXT,DISP=SHR
//AR DD DSN=&DSHLQ..AR,DISP=SHR
//ARM DD DSN=&DSHLQ..ARM,DISP=SHR
//CAIJRNL1 DD DUMMY
//CAIJRNL2 DD DUMMY
//CAIJRNL3 DD DUMMY
//CAIJRNL4 DD DUMMY
//SYSJRNL DD DUMMY
********************************
The instructions for running the above utility are:
1. Bring CA Dispatch down clean using a STOPCADS command.
** IMPORTANT ** IMPORTANT ** IMPORTANT **
2. Run BACKUPS of all of the Dispatch database files in case there is a problem with the utility. Having a BACKUP of the database files will be CRITICAL at this point because it will be the only way you will be able to RESTORE/RECOVER your ARCHIVE environment if there is a problem running the utility.
3. Execute the version of the utility (DSEXAUP2/CADSAUP2) that runs with with the CA Dispatch started task DOWN.
Feedback
