Back To LeighWeb Mainframe Utilities Page

/**********************************************************************
/* UTILITY : $COMPAR2                                                 *
/* AUTHOR : DAVE LEIGH                                                *
/* FUNCTION : THIS UTILITY IS USED IN CONJUNCTION WITH $COMPAR1.  IT  *
/*            TAKES INPUT OF A DATASET NAME WHICH IS THE "NEW" DATASET*
/*            AND SAVES IT AND THEN INVOKES THE ISPF 3;13 COMPARE     *
/*            UTILITY.                                                *
/**********************************************************************
PROC 1 DSN
/**** 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

/**********************************************************************
/* DISPLAY HELP IF REQUESTED                                          *
/**********************************************************************
IF &STR(&DSN) = HELP THEN GOTO HELPSEC

SET SCENWFL = &NRSTR(&DSN)
ISPEXEC VPUT (SCENWFL) PROFILE
ISPEXEC SELECT  PGM(ISRSEPRM) NOCHECK

EXIT

/**********************************************************************
/* DISPLAY ANY "HELP" WHICH IS AVAILABLE FOR THIS UTILITY             *
/**********************************************************************
HELPSEC: +
ISPEXEC SELECT PGM(ISPTUTOR) PARM(HELPSHEL)
SET ZEDLMSG = &STR(*** HELP DISPLAYED FOR $COMPAR2 UTILITY +
                   *** NO PROCESSING PERFORMED ***)
ISPEXEC SETMSG MSG(UTLZ000)
EXIT