XWBTEST.m

XWBTEST ;TEST to see if listener is running [ 02/14/96  1:08 PM ]

 ;

 J ENTRY^XWBTEST

 Q

ENTRY N YY

 L +^XWB("TMP","RUNNING"):1

 I $T D

 . L -^XWB("TMP","RUNNING")

 . D STRT^XWBTCP(9200)

 . S Y=$$NOW^XLFDT D DD^%DT

 . D OPEN^%ZMAGOSF(51,"C:\ANONYMOUS\IMAGING\XWBLOG.TXT","A")

 . U 51 W "TCP Listener restarted at: ",Y,!

 . C 51

 H 10 G ENTRY

 Q

XWBTEST   ;TEST to see if listener is running [ 02/14/96  1:08 PM ]

 +1       ;

 +2        JOB ENTRY^XWBTEST

 +3        QUIT 

ENTRY      NEW YY

 +1        LOCK +^XWB("TMP","RUNNING"):1

 +2        IF $TEST

               Begin DoDot:1

 +3                LOCK -^XWB("TMP","RUNNING")

 +4                DO STRT^XWBTCP(9200)

 +5                SET Y=$$NOW^XLFDT

                   DO DD^%DT

 +6                DO OPEN^%ZMAGOSF(51,"C:\ANONYMOUS\IMAGING\XWBLOG.TXT","A")

 +7                USE 51

                   WRITE "TCP Listener restarted at: ",Y,!

 +8                CLOSE 51

               End DoDot:1

 +9        HANG 10

           GOTO ENTRY

 +10       QUIT