PROC 0 HELP
/*** CHECK THE DEBUG SWITCH ***/
ISPEXEC VGET DBGSWTCH PROFILE
IF &DBGSWTCH = ON THEN +
    CONTROL MSG LIST CONLIST SYMLIST NOFLUSH NOPROMPT ASIS
ELSE +
    CONTROL NOMSG NOLIST NOFLUSH NOPROMPT ASIS
IF &HELP = HELP THEN GOTO HELPSEC
/**********************************************************************
/* UTILITY: SAVEPROF                                                  *
/* AUTHOR: DAVE LEIGH                                                 *
/* FUNCTION: SAVE THE CURRENT STATE OF ALL PROFILE VARIABLES TO DISK  *
/*           SO THAT CHANGES ARE SAVED IMMEDIATELY                    *
/**********************************************************************

ISPEXEC VGET ZAPPLID SHARED

ISPEXEC LIBDEF ISPTLIB LIBRARY ID(ISPPROF)
ISPEXEC LIBDEF ISPTABL LIBRARY ID(ISPPROF)

ISPEXEC TBSAVE &ZAPPLID.PROF

ISPEXEC LIBDEF ISPTLIB
ISPEXEC LIBDEF ISPTABL

EXIT
            

 The SAVEPROF utility performs a TBSAVE on the profile table for the profile
 variable pool currently open.  This can be valuable, in that ISPF never saves
 the profile pool ISPF table until ISPF is exited.  Consequently, if you update
 a variable in ISPF and then time-out of TSO, you will loose that update.
 SAVEPROF ensures that the update will "stick" even if you do "time-out".