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

XWBM2MS.m

Go to the documentation of this file.

XWBM2MS ;OIFO-Oakland/REM - M to M Broker Server  ;3/21/02

 ;;1.1;RPC BROKER;**28**;Mar 28, 1997

 QUIT   ;No entry from top.

RPC(XWBDATA) ;

 IF XWBDATA("URI")="XUS SIGNON SETUP" DO

 .SET XWBTDEV="",XWBTIP="",XWBVER="1.1"

 QUIT

CLOSE ;

 DO RESPONSE^XWBVL()

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXWBM2MS   289     printed  Apr 09, 2024@21:39:57                                                                                                                                                                                                      Page 2

XWBM2MS   ;OIFO-Oakland/REM - M to M Broker Server  ;3/21/02

 +1       ;;1.1;RPC BROKER;**28**;Mar 28, 1997

 +2       ;

 +3       ;No entry from top.

           QUIT

 +4       ;

RPC(XWBDATA) ;

 +1        IF XWBDATA("URI")="XUS SIGNON SETUP"

               Begin DoDot:1

 +2                SET XWBTDEV=""

                   SET XWBTIP=""

                   SET XWBVER="1.1"

               End DoDot:1

 +3       ;

 +4        QUIT

 +5       ;

CLOSE     ;

 +1        DO RESPONSE^XWBVL()

 +2        QUIT

 +3       ;