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.
            


0 Comments

Leave a Reply

This site uses Akismet to reduce spam. Learn how your comment data is processed.

Archives

Categories

Important links

leighweb.com – our family web site
surleslinteaux.leighweb.com – my wife’s French Sunday School blog
eglisejosue.fr – our church in France
tdr-guebwiller.eu – our house of prayer (HOP) in France
informatique.leighweb.com – My web development freelance business
My CV/Resume in English (PDF)