Return to Mainframe Utilities Page

Module


/**********************************************************************
/* 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
            


Documentation


 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.
            


0 Comments

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Archives

Categories

Important links

leighweb.com – our family web site
surleslinteaux.leighweb.com – my wife’s French Sunday School blog
eglisejosue.fr – our church in France
tdr-guebwiller.eu – our house of prayer (HOP) in France
informatique.leighweb.com – My web development freelance business
My CV/Resume in English (PDF)