Return to Mainframe Utilities Page
Module
PROC 0 HELP
/**********************************************************************
/* DISPLAY HELP IF REQUESTED *
/**********************************************************************
IF &HELP = HELP THEN GOTO HELPSEC
CONTROL NOMSG NOLIST ASIS
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = OFF OR &DBGSWTCH = THEN SET DBGSWTCH = ON
ELSE SET DBGSWTCH = OFF
ISPEXEC VPUT DBGSWTCH PROFILE
SET ZEDSMSG = &STR(Debug Switch: &DBGSWTCH)
SET ZEDLMSG = &STR(The "Debug Switch" value is currently set to: +
&DBGSWTCH)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT
/**********************************************************************
/* DISPLAY ANY "HELP" WHICH IS AVAILABLE FOR THIS UTILITY *
/**********************************************************************
HELPSEC: +
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR SETDEBUG UTILITY +
*** NO PROCESSING PERFORMED ***)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT
Documentation
This utility toggles your ISPF profile variable "DBGSWTCH" between the values
"ON" and "OFF". Many of the CLIST-based utilities in this utilities list check
the value of the DBGSWTCH variable at the beginning of the processing and
either turn "messages" off or on based on the value of the switch.