MVS Jan 2005.p65 - CBT Tape

call saydd msgdd 1 stacktitle
end
end
else
/*********************************************************************/
/* Write to the ISPF Log if foreground */
/*********************************************************************/
do
zerrlm = zedlmsg
address ISPEXEC "LOG MSG(ISRZØØ3)"
zerrlm = center(' 'stacktitle' ',78,'-')
address ISPEXEC "LOG MSG(ISRZØØ3)"
end
/*********************************************************************/
/* Unload the Parentage Stack */
/*********************************************************************/
do queued()
pull stackinfo
if tsoenv = 'BACK' then
do
call saydd msgdd Ø stackinfo
end
else
do
zerrlm = stackinfo
address ISPEXEC "LOG MSG(ISRZØØ3)"
end
end
/*********************************************************************/
/* Put a terminator in the ISPF Log for the Parentage Stack */
/*********************************************************************/
if tsoenv = 'FORE' then
do
zerrlm = center(' 'stacktitle' ',78,'-')
address ISPEXEC "LOG MSG(ISRZØØ3)"
end
/*********************************************************************/
/* Signal SHUTDOWN. SHUTDOWN label MUST exist in the program */
/*********************************************************************/
signal shutdown
end
else
return
/*********** @REFRESH END RCEXIT 2ØØ3/Ø5/14 12:24:5Ø *************/
/*********** @REFRESH BEGIN TRAP 2ØØ2/Ø8/Ø7 11:48:14 *************/
/* TRAP - Issue a common trap error message using rcexit */
/*-------------------------------------------------------------------*/
/* PARM - N/A */
/*********************************************************************/
trap: traptype = condition('C')
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.
57