Mainframe Utility: $LIBCLN1

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 : $LIBCLN1                                                 *
/* AUTHOR : DAVE LEIGH                                                *
/* FUNCTION : THIS UTILITY IS USED IN CONJUNCTION WITH $LIBCLN2.  IT  *
/*            SAVES THE NAME OF THE "OLD" DATASET TO BE USED IN THE   *
/*            EXECUTION OF THE LIBCLEAN UTILITY WITH THE "NEW" DATASET*
/*            WHICH $COMPAR2 WILL INVOKE.                             *
/**********************************************************************

SET OLDDSN = &NRSTR(&DSN)
ISPEXEC VPUT (OLDDSN) PROFILE

EXIT
            

 $LIBCLN1 is a utility designed for the ISPF "3.4" list screen.  Typing $libcln1
 next to a dataset on this screen will "preset" the "OLD" dataset name for the
 LIBCLEAN utility.  See the documentation on the LIBCLEAN utility for further
 information.