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.

0 Comments