/**********************************************************************
/* UTILITY: GENSYNS                                                   *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: CREATE/DELETE DB2 SYNONYMS FOR A LIST OF USERS AND       *
/*           MAINTAIN THAT LIST.                                      *
/**********************************************************************
PROC 0 USER() +
       DBAS('D@UDAL D@ULLJ D@UJEF') +
       ACTION(CREATE) +
       VALID_ACTIONS('CREATE DROP') +
       DRIVER(PLATINUM) +
       VALID_DRIVERS('PLATINUM DSNTIAD') +
       EDIT +
       HELP
/*** CHECK THE DEBUG SWITCH ***/                                              02
ISPEXEC VGET DBGSWTCH PROFILE                                                 02
IF &DBGSWTCH = ON THEN +                                                      02
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH PROMPT ASIS                00000702
ELSE +                                                                        02
    CONTROL NOMSG NOLIST NOFLUSH PROMPT ASIS                            00000902

IF &HELP = HELP THEN GOTO HELPSEC
                                                                              02
ISPEXEC CONTROL ERRORS RETURN
/**********************************************************************
/* WIMPY SECURITY BY IGNORANCE                                        *
/**********************************************************************
IF &SYSINDEX(&STR(&SYSUID),&STR(&DBAS)) = 0 THEN +
    IF &STR(&USER) =      THEN SET USER = &SYSUID
    ELSE +
        IF &STR(&USER) ¬= &SYSUID THEN +
            DO
                SET ZEDLMSG = &STR(YOU MAY ONLY GENERATE SYNONYMS +
                                   FOR YOURSELF)
                ISPEXEC SETMSG MSG(UTLZ001)
                SET EXITCC = 20
                GOTO FINISH
            END
        ELSE
ELSE +
     IF &STR(&USER) =      THEN +
         SET USER = ALL

/**********************************************************************
/* EDIT ACTION                                                        *
/**********************************************************************
IF &SYSINDEX(&STR(&ACTION),&STR(&VALID_ACTIONS)) = 0 THEN +
    DO
        SET ZEDLMSG = &STR(INVALID ACTIONS.  VALID ACTIONS ARE:  +
                           &VALID_ACTIONS)
        ISPEXEC SETMSG MSG(UTLZ001W)
        SET EXITCC = 12
        GOTO FINISH
    END

/**********************************************************************
/* EDIT DRIVER                                                        *
/**********************************************************************
IF &SYSINDEX(&STR(&DRIVER),&STR(&VALID_DRIVERS)) = 0 THEN +
    DO
        SET ZEDLMSG = &STR(INVALID DRIVER.  VALID DRIVERS ARE:  +
                           &VALID_DRIVERS)
        ISPEXEC SETMSG MSG(UTLZ001W)
        SET EXITCC = 12
        GOTO FINISH
    END

/**********************************************************************
/* ESTABLISH SOME PROCESSING VARIABLES                                *
/**********************************************************************
/* INITIALIZE SEVERAL VARIABLES WHICH WILL BE USED LATER IN THE       *
/* PROCESSING.                                                        *
/**********************************************************************
OPEN_CONTINUE: +
CALL 'SYS2.USC1.LINKLIB(USERINFO)' '&SYSUID '
SET JCLDSN = &STR(&SYSUID..TEMP.GENSYNS)
SET JOBNAME = &STR(&SYSUID.GSY)
SET JOBNAME = &SUBSTR(1:8,&STR(&JOBNAME))
SET EXITCC = 0
SET LP = &STR((
SET RP = &STR()

/**********************************************************************
/* CREATE THE JCL                                                     *
/**********************************************************************
SET ZEDLMSG = &STR(*** CREATING JCL TO GENERATE SYNONYMS ***)
ISPEXEC CONTROL DISPLAY LOCK
ISPEXEC DISPLAY MSG(UTLZ001)
SET PARM = &STR(PARMS('&ACTION &USER &DRIVER'))

DELETE '&JCLDSN'

FREE DDNAME(ISPFILE)

ALLOCATE DDNAME(ISPFILE) DSN('&JCLDSN') +
                         NEW CATALOG +
                         UNIT(SYSDA) VOLUME(WRK$$$) +
                         SPACE(2,2) TRACKS RELEASE +
                         RECFM(F B) LRECL(80) BLKSIZE(23440) DSORG(PS)

ISPEXEC FTOPEN
ISPEXEC FTINCL GENSYNS
ISPEXEC FTCLOSE

FREE DD(ISPFILE)

IF &EDIT = EDIT OR &EDITJCL = EDITJCL THEN +
    DO
        SET ZEDLMSG = &STR(NOTE: YOU MUST SUBMIT +
                           THIS JCL YOURSELF.  IT +
                           WILL NOT RUN AUTOMATICALLY.)
        ISPEXEC SETMSG MSG(UTLZ001)
        ISPEXEC EDIT DATASET('&JCLDSN')
        SET EXITCC = 0
        GOTO FINISH

    END

SUBMIT '&JCLDSN'
SET ZEDLMSG = &STR(*** GENSYNS JOB SUBMITTED ***)
ISPEXEC SETMSG MSG(UTLZ000)

/**********************************************************************
/* CLOSE UP SHOP                                                      *
/**********************************************************************
FINISH: +
EXIT CODE(&EXITCC)

/**********************************************************************
/* DISPLAY ANY "HELP" WHICH IS AVAILABLE FOR THIS UTILITY             *
/**********************************************************************
HELPSEC: +
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR GENSYNS UTILITY +
                   *** NO PROCESSING PERFORMED ***)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT
            

GENSYNS is a utility which will create DB2 synonyms for UNISTAR programmers on
the UNISTAR development tables (USSTRD00 creator) where one does not exist and
that table does not exist in the programmer's personal database.

SYNTAX:

COMMAND ===> gensyns {edit}

Optional parameter "edit" indicates that you wish to edit the JCL which is
created for you by the GENSYNS utility.  If this parameter is specified, you
must submit the JCL yourself.  If this parameter is not specified, GENSYNS will
create and submit the JCL necessary to perform the synonym creation.

GENSYNS is a two-phase process.  First, GENSYNS queries the DB2 catalog and
finds table and view names listed in the PLATINUM security table for which there
is not a synonym created for you.  If such a situation exists, it also checks to
see if that table has been "cloned" into your own personal database (and
consequently, a synonym is not required).  If the table has not been cloned and
the synonym does not exist, it writes the necessary DDL to create the synonym to
an output file.

The second phase invokes the PLATINUM batch processor to actually execute the
DDL on your behalf and create the synonym(s).

You only need to invoke GENSYNS when, after you've finished using a table(s) in
your personal database, you delete that table(s) and want to resume using the
UNISTAR development table(s) instead.

In the instance where a new person joins the UNISTAR team or a new table/view is
created for which people need synonyms, the DBA team will execute GENSYNS in a
global fashion to build all necessary synonyms at once.