Return to Mainframe Utilities Page
Module
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(ISRSEPRM) NOCHECK
EXIT
HELPSEC: + 02480000
ISPEXEC SELECT PGM(ISPTUTOR) PARM(UTILH009) 02490000
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR COMPARE UTILITY + 02490000
*** NO PROCESSING PERFORMED ***) 02490000
ISPEXEC SETMSG MSG(UTLZ000) 02490000
EXIT
Documentation
This utility calls the utility which is invoked under ISPF option 3.13. The
only difference is that it returns to where you were when it was called.
Therefore, you could be in another application and execute this compare and
then get back to your application without having to leave it.

0 Comments