source: WorldVistAEHR/trunk/r/RPC_BROKER-XWB/XWB45PO.m@ 1036

Last change on this file since 1036 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 825 bytes
RevLine 
[613]1XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06 16:03
2 ;;1.1;RPC BROKER;**45**;Mar 28, 1997
3 ;
4EN ;
5 N XVALS,XWBIEN,XWBMSG
6 S XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^10.6.21.14"
7 S XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^10.6.21.14"
8 S XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^10.161.12.182"
9 N I F I=1:1:3 D
10 . W !,I
11 . N XWBLIST K XWBIEN,XWBMSG
12 . S XWBLIST(8994.5,"?+1,",.01)=$P(XVALS(I),U,1)
13 . S XWBLIST(8994.5,"?+1,",.02)=$P(XVALS(I),U,2)
14 . S XWBLIST(8994.5,"?+1,",.03)=$P(XVALS(I),U,3)
15 . S XWBLIST(8994.51,"?+2,?+1,",.01)=$P(XVALS(I),U,4)
16 . S XWBLIST(8994.51,"?+2,?+1,",.02)=$P(XVALS(I),U,5)
17 . S XWBLIST(8994.51,"?+2,?+1,",.03)=$P(XVALS(I),U,6)
18 . K XWBIEN,XWBMSG
19 . D UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")
20 . Q
21 Q
Note: See TracBrowser for help on using the repository browser.