MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
MVS Jan 2005.p65 - CBT Tape
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
if traptype = 'SYNTAX' then<br />
msg = errortext(RC)<br />
else<br />
msg = condition('D')<br />
trapline = strip(sourceline(sigl))<br />
msg = traptype 'TRAP:' msg', Line:' sigl '"'trapline'"'<br />
call rcexit 666 msg<br />
/*********** @REFRESH END TRAP 2ØØ2/Ø8/Ø7 11:48:14 *************/<br />
/*********** @REFRESH BEGIN ERRMSG 2ØØ2/Ø8/1Ø 16:53:Ø4 *************/<br />
/* ERRMSG - Build common error message with failing line number */<br />
/*-------------------------------------------------------------------*/<br />
/* ERRLINE - The failing line number passed by caller from SIGL */<br />
/* TEXT - Error message text passed by caller */<br />
/*********************************************************************/<br />
errmsg: nop<br />
parse arg errline text<br />
return 'Error on statement' errline',' text<br />
/*********** @REFRESH END ERRMSG 2ØØ2/Ø8/1Ø 16:53:Ø4 *************/<br />
/*********** @REFRESH BEGIN STDENTRY 2ØØ4/Ø4/Ø7 19:17:48 *************/<br />
/* STDENTRY - Standard Entry logic */<br />
/*-------------------------------------------------------------------*/<br />
/* MSGDD - Optional MSGDD used only in background */<br />
/*********************************************************************/<br />
stdentry: module = 'STDENTRY'<br />
if wordpos(module,probe) Ø then trace 'r'; else trace 'n'<br />
parse arg sparms<br />
push trace() time('L') module 'From:' sigl 'Parms:' sparms<br />
arg msgdd<br />
parse upper source . . execname . execdsn . . execenv .<br />
/*********************************************************************/<br />
/* Start-up values */<br />
/*********************************************************************/<br />
EXITRC = Ø<br />
MAXRC = Ø<br />
ispfenv = 'NO'<br />
popup = 'NO'<br />
lockpop = 'NO'<br />
headoff = 'NO'<br />
hcreator = 'NO'<br />
keepstack = 'NO'<br />
lpar = mvsvar('SYSNAME')<br />
zedlmsg = 'Default shutdown message'<br />
/*********************************************************************/<br />
/* Determine environment */<br />
/*********************************************************************/<br />
if substr(execenv,1,3) 'TSO' & execenv 'ISPF' then<br />
tsoenv = 'NONE'<br />
else<br />
do<br />
tsoenv = sysvar('SYSENV')<br />
58 © 2005. Xephon USA telephone (214) 340 5690, fax (214) 341 7081.