Mainframe Utility: $COMPAR1

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
/**********************************************************************
/* UTILITY : $COMPAR1                                                 *
/* AUTHOR : DAVE LEIGH                                                *
/* FUNCTION : THIS UTILITY IS USED IN CONJUNCTION WITH $COMPAR2.  IT  *
/*            SAVES THE NAME OF THE "OLD" DATASET TO BE USED IN THE   *
/*            COMPARE WITH THE "NEW" DATASET WHICH $COMPAR2 WILL      *
/*            INVOKE.                                                 *
/**********************************************************************
 
SET SCEODFL = &NRSTR(&DSN)
ISPEXEC VPUT (SCEODFL) PROFILE
 
EXIT            

 This utility is used to identify which dataset in an ensuing dataset compare is
 the "OLD" dataset (as opposed to the "NEW" dataset).  It is specifically
 designed to be used with ISPF option 3.4 (DATA SET LIST UTILITY).  Just type
 $COMPAR1 next to the OLD dataset name and press ENTER.  To execute the compare,
 then type $COMPAR2 next to the "NEW" dataset on the "3.4" listing and press
 ENTER.