Mainframe Utility: DIAGTEST

/**********************************************************************
/* UTILITY: DIAGTEST                                                  *
/* AUTHOR: DAVID LEIGH                                                *
/* FUNCTION: THIS UTILITY SIMPLY INVOKES THE ISPF DIALOG TEST FACILITY*
/**********************************************************************
PROC 0 HELP
/**** 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

IF &HELP = &STR(HELP) THEN GOTO HELPSEC

ISPEXEC SELECT PGM(ISPYXDR) PARM(ISP) NOCHECK

EXIT

HELPSEC: +                                                              02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)                             02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR DIAGTEST UTILITY +            02490000
                   *** NO PROCESSING PERFORMED ***)                     02490000
ISPEXEC SETMSG MSG(UTLZ000)                                             02490000
EXIT
            

 This utility takes you in to ISPF's dialog testing utility, without having to
 leave where you currently are within ISPF.  It basically invokes the program
 which is invoked by typing "=7" from any ISPF command line.  You may pass to
 the dialog testing facility, specific suboptions when invoking it by typing
 "TSO DIAGTEST;4" (for example), which would take you into the TABLES suboption.