Return to Mainframe Utilities Page
Module
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
Documentation
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.