Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY: GDASWTCH                                                  *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: THIS CLIST RENAMES A PERSONAL GDA DATASET (IF IT EXISTS) *
/*           TO A DIFFERENT NAME.  IF IT FINDS THE "DIFFERENT" NAME   *
/*           IT RENAMES IT TO THE APPROPRIATE NAME FOR GDA TO FIND IT.*
/**********************************************************************
PROC 0 DEBUG NOEXEC GDANAME(&STR(ISPF.ISPPROF(GDAPRM01))) +
                    RENAME(&STR(ISPF.ISPPROF(GDXPRM01))) +
                    HELP
IF &DEBUG = DEBUG THEN +
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
    CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS

/**********************************************************************
/* DISPLAY HELP IF REQUESTED                                          *
/**********************************************************************
IF &HELP = HELP THEN GOTO HELPSEC

IF &SYSDSN('&STR(&SYSUID..&GDANAME)') = &STR(OK) THEN +
    DO
        RENAME '&SYSUID..&GDANAME' '&SYSUID..&RENAME'
        WRITE &STR(*** SYSTEM DEFAULT GDA IN EFFECT NOW ***)
        IF &NOEXEC = NOEXEC THEN +
            EXIT
        ELSE +
            GDA *
        EXIT
    END

IF &SYSDSN('&STR(&SYSUID..&RENAME)') = &STR(OK) THEN +
    DO
        RENAME '&SYSUID..&RENAME' '&SYSUID..&GDANAME'
        WRITE &STR(*** PERSONAL GDA IN EFFECT NOW ***)
        IF &NOEXEC = NOEXEC THEN +
            EXIT
        ELSE +
            GDA *
        EXIT
    END

WRITE &STR(NO PERSONAL, OR RENAMED GDA FILES FOUND TO SWITCH)
EXIT

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