PROC 0 HELP
/**** 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

IF &HELP = &STR(HELP) THEN GOTO HELPSEC
/*
/* SET ZSSFS1   =
/* SET ZSSFNPRJ = PPL3D
/* SET ZSSFNGR1 = CHAMP4
/* SET ZSSFNTYP = PRODPDS
/* SET ZSSFNIMB =
/*
/* ISPEXEC VPUT (ZSSFS1 ZSSFNPRJ ZSSFNGR1 ZSSFNTYP ZSSFNIMB) PROFILE

ISPEXEC SELECT PGM(ISRSFM)

EXIT

HELPSEC: +
CLEAR
WRITE *** HELP FOR CLIST SCAN ***
WRITE
WRITE HELP NOT WRITTEN AT THIS TIME
WRITE
WRITE *** END OF HELP *** NO PROCESSING PERFORMED
EXIT
            

 This utility invokes the program invoked when you go to ISPF option 3.14. It
 has the advantage of not needing to "leave" where you are currently to execute
 it...when you get out of it, you are back to where you where in your ISPF
 session.