- 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 Apr 23, 2025@18:25:41 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
