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