Mainframe Utility: $SCAN

/* REXX ***************************************************************/
/* UTILITY: $SCAN                                                     */
/* AUTHOR: DAVID LEIGH                                                */
/* FUNCTION: THIS EXEC IS DESIGNED FOR ISPF OPTION 3.4 SUCH THAT YOU  */
/*           TYPE $SCAN/$S NEXT TO A DATASET NAME AND PRESS ENTER.    */
/*           YOU WILL BE THEN TAKEN TO THE SUPERC EXTENDED SEARCH FOR */
/*           UTILITY PANEL WITH THE DATASET NAME ALREADY POPULATED.   */
/**********************************************************************/
ARG SF4FILE
ZTRAIL = 'S' /* SELECT EXTENDED SEARCH FOR FACILITY */
SF4S1 = ''
SF4S2 = ''
SF4S3 = ''
SF4S4 = ''
SF4S5 = ''
SF4ML = ''
ADDRESS ISPEXEC
"VPUT (SF4FILE ZTRAIL SF4S1 SF4S2 SF4S3 SF4S4 SF4S5 SF4ML)"
"CONTROL NONDISPL ENTER"
"SELECT PGM(ISRSEPRM) NOCHECK"
            

 $SCAN is designed to work with the ISPF 3.4 dataset list screen.  You type
 $SCAN (or $S) next to a dataset name on the 3.4 dataset list screen and press
 ENTER.  $SCAN then invokes the ISPF string search facility (ISPF option 3.14)
 and prepopulates the dataset name field(s) with the dataset found on the 3.4
 screen.  When you "END" (PF3/PF15) out of the string search facility, you will
 be returned to where you were on the 3.4 screen.