Back To LeighWeb Mainframe Utilities Page

/* 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"