Mainframe Utility: $COMPAR2

Return to Mainframe Utilities Page

Module


/**********************************************************************
/* 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
            


Documentation


 This utility works in conjunction with the $COMPAR1 utility (which specifies)
 the "OLD" dataset to compare 2 datasets that are listed on the ISPF option 3.4
 screen (DATA SET LIST UTILITY).  Just type $COMPAR2 on the line of the dataset
 that is the "NEW" dataset to be compared and press ENTER.  You will  be taken
 to the SUPERC compare utility screen.  The "OLD" dataset will be the dataset
 set by the $COMPAR1 utility, and the "NEW" dataset will be the data  set that
 $COMPAR2 was typed next to.
            


Leave a Reply

Your email address will not be published. Required fields are marked *