Back To LeighWeb Mainframe Utilities Page

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