MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
call saydd msgdd 1 stacktitle<br />
end<br />
end<br />
else<br />
/*********************************************************************/<br />
/* Write to the ISPF Log if foreground */<br />
/*********************************************************************/<br />
do<br />
zerrlm = zedlmsg<br />
address ISPEXEC "LOG MSG(ISRZØØ3)"<br />
zerrlm = center(' 'stacktitle' ',78,'-')<br />
address ISPEXEC "LOG MSG(ISRZØØ3)"<br />
end<br />
/*********************************************************************/<br />
/* Unload the Parentage Stack */<br />
/*********************************************************************/<br />
do queued()<br />
pull stackinfo<br />
if tsoenv = 'BACK' then<br />
do<br />
call saydd msgdd Ø stackinfo<br />
end<br />
else<br />
do<br />
zerrlm = stackinfo<br />
address ISPEXEC "LOG MSG(ISRZØØ3)"<br />
end<br />
end<br />
/*********************************************************************/<br />
/* Put a terminator in the ISPF Log for the Parentage Stack */<br />
/*********************************************************************/<br />
if tsoenv = 'FORE' then<br />
do<br />
zerrlm = center(' 'stacktitle' ',78,'-')<br />
address ISPEXEC "LOG MSG(ISRZØØ3)"<br />
end<br />
/*********************************************************************/<br />
/* Signal SHUTDOWN. SHUTDOWN label MUST exist in the program */<br />
/*********************************************************************/<br />
signal shutdown<br />
end<br />
else<br />
return<br />
/*********** @REFRESH END RCEXIT 2ØØ3/Ø5/14 12:24:5Ø *************/<br />
/*********** @REFRESH BEGIN TRAP 2ØØ2/Ø8/Ø7 11:48:14 *************/<br />
/* TRAP - Issue a common trap error message using rcexit */<br />
/*-------------------------------------------------------------------*/<br />
/* PARM - N/A */<br />
/*********************************************************************/<br />
trap: traptype = condition('C')<br />
© 2005. Reproduction prohibited. Please inform Xephon of any infringement.<br />
57