XMCTRAP ;(WASH ISC)/THM/CAP-Error Trap ;04/17/2002 08:14
;;8.0;MailMan;;Jun 28, 2002
;Modified for TCP/IP under INET_SERVERS of Wollongong
;
C ;set in XMC1
N XMCTRAP S XMCTRAP=1
R ;set in XMRUCX
TRP N %,%E,X S (%,X)=""
S %E=$$EC^%ZOSV()
I '$$SCREEN^%ZTER(%E) D ^%ZTER
;Error Trap for Script processing (remove back-up tasks)...
I $G(ZTQUEUED),$G(XMCTRAP) D ERRTRAP^XMTDR
;I $D(XMHANG),$L(XMHANG) X XMHANG
;D:IO'=IO(0) ^%ZISC
S ER=1 G UNWIND^%ZTER
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXMCTRAP 474 printed Dec 13, 2024@02:11:22 Page 2
XMCTRAP ;(WASH ISC)/THM/CAP-Error Trap ;04/17/2002 08:14
+1 ;;8.0;MailMan;;Jun 28, 2002
+2 ;Modified for TCP/IP under INET_SERVERS of Wollongong
+3 ;
C ;set in XMC1
+1 NEW XMCTRAP
SET XMCTRAP=1
R ;set in XMRUCX
TRP NEW %,%E,X
SET (%,X)=""
+1 SET %E=$$EC^%ZOSV()
+2 IF '$$SCREEN^%ZTER(%E)
DO ^%ZTER
+3 ;Error Trap for Script processing (remove back-up tasks)...
+4 IF $GET(ZTQUEUED)
IF $GET(XMCTRAP)
DO ERRTRAP^XMTDR
+5 ;I $D(XMHANG),$L(XMHANG) X XMHANG
+6 ;D:IO'=IO(0) ^%ZISC
+7 SET ER=1
GOTO UNWIND^%ZTER
