/**********************************************************************
/* UTILITY: VIEWJCL                                                   *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: USE BYTES 4 THROUGH 8 OF THE MEMBER NAME PLUS THE USER'S *
/*           3 BYTE DATABASE PREFIX INPUT (DEFAULT USC) AND BRING UP  *
/*           A MEMBER LIST OF EXECUTE JCL MEMBERS.                    *
/**********************************************************************
ISREDIT MACRO (OPT1)
ISPEXEC CONTROL ERRORS RETURN
/**** SET MESSAGE DISPLAY ON/OFF BASED ON THE DEBUG SWITCH ***/
ISPEXEC VGET (DBGSWTCH) PROFILE
IF &DBGSWTCH = &STR(ON) THEN +
CONTROL MSG LIST CONLIST SYMLIST NOFLUSH
ELSE +
CONTROL NOMSG NOLIST NOFLUSH NOPROMPT

SELECT (&STR(&OPT1))
    WHEN (HELP) GOTO HELPSEC
    WHEN (AEL) SET LIB = &STR(AEL60.PRD.CNTL)
    WHEN (AGS) SET LIB = &STR(AGS70.PRD.CNTL)
    WHEN (AHE) SET LIB = &STR(AHE54.PRD.CNTL)
    WHEN (AMS) SET LIB = &STR(AMS59.PRD.CNTL)
    WHEN (CSL) SET LIB = &STR(CSL52.PRD.CNTL)
    WHEN (DEM) SET LIB = &STR(DEM40.PRD.CNTL)
    WHEN (DEM) SET LIB = &STR(DEM41.PRD.CNTL)
    WHEN (DEM) SET LIB = &STR(DEM42.PRD.CNTL)
    WHEN (FAB) SET LIB = &STR(FAB57.PRD.CNTL)
    WHEN (GSS) SET LIB = &STR(GSS00.PRD.CNTL)
    WHEN (LIN) SET LIB = &STR(LIN51.PRD.CNTL)
    WHEN (MEL) SET LIB = &STR(MEL56.PRD.CNTL)
    WHEN (NHE) SET LIB = &STR(NHE53.PRD.CNTL)
    WHEN (NSL) SET LIB = &STR(NSL71.PRD.CNTL)
    WHEN (UHE) SET LIB = &STR(UHE72.PRD.CNTL)
    WHEN (USC) SET LIB = &STR(USC10.PRD.CNTL)
    WHEN (VSL) SET LIB = &STR(VSL55.PRD.CNTL)
    WHEN (WSL) SET LIB = &STR(WSL50.PRD.CNTL)
    WHEN (   ) DO
        SET OPT1 = USC
        SET LIB = &STR(USC10.PRD.CNTL)
    END
    OTHERWISE DO
        SET ZEDLMSG = &STR(*** "&OPT1" IS NOT A VALID DATABASE +
                           PREFIX ***)
        ISPEXEC SETMSG MSG(UTLZ001W)
        EXIT CODE(12)
    END
END

/**********************************************************************
/* USE "PDS" TO BRING UP THE DESIRED MEMBER LIST                      *
/**********************************************************************
ISREDIT (MEMBER) = MEMBER
SET OPT1 = &STR(&OPT1&SUBSTR(4:&LENGTH(&STR(&MEMBER)),&STR(&MEMBER)))
PDS '&LIB' MEMLIST &STR(&OPT1.*)

EXIT

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

 VIEWJCL is an edit macro which, when executed from a COBOL program, wil00010000
 display a member list of production "execute" JCL for this program.    00020000
 That JCL may then be edited, browsed, etc.                             00030000
                                                                        00040000
 VIEWJCL extracts bytes 4 through 8 of the COBOL member name and then   00050000
 prefixes those bytes with a database prefix such as USC (the default if00060000
 none is specified) or LIN or WSL.  Then VIEWJCL goes to that database's00070000
 production JCL library and brings up a member list of all the members  00080000
 which begin with that character string.                                00090000
                                                                        00100000
 For example, if you are editing program SLS5035, you can type VIEWJCL o00110000
 the command line, press ENTER, and you will be displayed a member list 00120000
 in the USC10.PRD.CNTL library consisting of the members USC5035 and    00130000
 USC5035N.  If you had typed VIEWJCL LIN, you would get a member list in00140000
 the LIN51.PRD.CNTL library consisting of the members LIN5035 and       00150000
 LIN5035N.                                                              00160000
                                                                        00170000
 When you "END" out of looking at the JCL, you'll be back in your       00180000
 program.                                                               00190000