Sample JCL to add/delete/change CA Dispatch users in the dictionary (DICTDB) file

Products

• Dispatch Output Mgmt

Issue/Introduction

CA Dispatch is configured to use INTERNAL security. We need to ADD some new users and DELETE some old users from the CA Dispatch dictionary file. 

Instead of updating the DSUSERS member and running the DSEXUSR1 batch SYSGEN job, is there any other batch JCL that can be used to update the CA Dispatch dictionary?

Environment

DISPATCH, 11.7, USERGEN, DSUSERS, DSEXUSR1, DSEXADDU, JOB, JCL, DICTIONARY, DICTDB, DLODDB, DMSGDB, ADD, DELETE, NEW, OLD, USER

Resolution

The following sample JCL can be used...

 

//JOBCARD...                                 <--- ADD JOBCARD
//*
//*---------------------------------------------------------------*
//* CA Dispatch
//*---------------------------------------------------------------*
//* DSEXADDU - Add new user to Dispatch dictionary
//*
//*          This procedure must execute with CA Dispatch down.
//*
//*          Important: Before executing this job, please backup
//*                     the following CA Dispatch database files;
//*
//*                     &DSHLQ..DICTDB
//*                     &DSHLQ..DLODDB
//*                     &DSHLQ..DMSGDB
//*
//*          If the job ABENDs or ends with a non zero
//*          return code, restore the above files from
//*          the backup.
//*
//*---------------------------------------------------------------*
//CADSUSGC PROC SOUT='*',                    * SYSOUT CLASS
//         DSHLQ='your.dispatch.hlq',        <--- CHANGE
//         LOADLIB='your.dispatch.CADSLOAD'  <--- CHANGE LOADLIB
//*---------------------------------------------------------------*
//*   EXECUTE SYSGEN TO CREATE ALTERNATE SYSTEM NUMBER
//*---------------------------------------------------------------*
//CAUSGC1  EXEC PGM=RHDCSGEN,REGION=2048K
//STEPLIB  DD  DISP=SHR,DSN=&LOADLIB
//CAIDDB   DD  DISP=SHR,DSN=&DSHLQ..DICTDB
//CAILOAD  DD  DISP=SHR,DSN=&DSHLQ..DLODDB
//CAIMDB   DD  DISP=SHR,DSN=&DSHLQ..DMSGDB
//SYSLST   DD  SYSOUT=&SOUT
//SYSUDUMP DD  SYSOUT=&SOUT
//SYSJRNL  DD  DUMMY
//SYSIPT   DD  DUMMY
//         PEND
//DSEXUSGC EXEC CADSUSGC
//*---------------------------------------------------------------*
//CAUSGC1.SYSIPT   DD  *
*
* THIS JOB WILL ADD/DELETE USERS TO/FROM THE DISPATCH DICTIONARY
*
* THE FOLLOWING STATEMENT ADDS THE USER TO SYSTEM NUMBER 01
*
    SYSTEM 01.
*
* - A STATEMENT WITH AN ASTERRISK IN COLUMN 1 IS ONLY A COMMENT 
* - REMOVING THE ASTERISK FROM COLUMN 1 WILL MAKE IT A STATEMENT
*                                                               
* - !! DO NOT REMOVE THE PERIODS FROM THE STATEMENTS BELOW!!    
*                                                               
* MODIFY THE FOLLOWING USER STATEMENT PARAMETERS ACCORDINGLY:   
*
*   DELETE USER 'NEWEMP'.
    USER 'NEWEMP'
*   SECURITY CLASSES = ADD (2,5,6,51,52,53,54,58,59)
    SECURITY CLASSES = ALL
    INSTALLATION CODES IS C'CADS'
    .
*
**!! DO NOT MODIFY THE FOLLOWING GENERATE STATEMENT !!**
*
    GENERATE.
/*
//