MVS Jan 2005.p65 - CBT Tape

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