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
            

 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.