Mainframe Utility: $LIBCLN2

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

SET NEWDSN = &NRSTR(&DSN)
ISPEXEC VPUT (NEWDSN) PROFILE
%LIBCLEAN
EXIT
            

 $LIBCLN2 is a utility designed for the ISPF "3.4" list screen.  Typing $libcln2
 next to a dataset on this screen will "preset" the "NEW" dataset name for the
 LIBCLEAN utility.  It then invokes the LIBCLEAN utility.  See the documentation
 on the LIBCLEAN utility for further information.