Back To LeighWeb Mainframe Utilities Page
View the documentation associated with this 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
|
