Mainframe Utility: COMPARE

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
            

 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.