XWBM2MS.m

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()

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---XWBM2MS   289     printed  Oct 16, 2024@18:37:54                                                                                                                                                                                                      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       ;