XWBINETD.m

XWBINETD ;ISC-SF/EG - PROCESS MSM-NT TCP REQUEST ;05/21/96  14:19

 ;;1.1T3;RPC BROKER;;Nov 25, 1996

 N XWBPORT

 S XWBPORT=9000

 O 56 U 56::"TCP" W /SOCKET("",XWBPORT) J ^XWBINETD

 S %="MSM TCP "_$J G EN^XWBTCPH

XWBINETD  ;ISC-SF/EG - PROCESS MSM-NT TCP REQUEST ;05/21/96  14:19

 +1       ;;1.1T3;RPC BROKER;;Nov 25, 1996

 +2        NEW XWBPORT

 +3        SET XWBPORT=9000

 +4        OPEN 56

           USE 56::"TCP"

           WRITE /SOCKET("",XWBPORT)

           JOB ^XWBINETD

 +5        SET %="MSM TCP "_$JOB

           GOTO EN^XWBTCPH