Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: XTSPING

XTSPING.m

Go to the documentation of this file.

XTSPING ;SFISC/RWF - PING SERVER ;8/11/92  15:02;10/20/92  3:49 PM

 ;;7.3;TOOLKIT;;Apr 25, 1995

 ;This server just sends back the message it receved.

A S XMSUB="PING reply to: "_XQSUB,XMY(XMFROM)="",XMTEXT="^XMB(3.9,"_XMZ_",2,"

 S XMDUZ="PING SERVER"

 N XMFROM,XMZ,XMREC,XMCHAN D ^XMD

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTSPING   295     printed  Dec 13, 2024@02:41:48                                                                                                                                                                                                      Page 2

XTSPING   ;SFISC/RWF - PING SERVER ;8/11/92  15:02;10/20/92  3:49 PM

 +1       ;;7.3;TOOLKIT;;Apr 25, 1995

 +2       ;This server just sends back the message it receved.

A          SET XMSUB="PING reply to: "_XQSUB

           SET XMY(XMFROM)=""

           SET XMTEXT="^XMB(3.9,"_XMZ_",2,"

 +1        SET XMDUZ="PING SERVER"

 +2        NEW XMFROM,XMZ,XMREC,XMCHAN

           DO ^XMD

 +3        QUIT