22 lines
825 B
Mathematica
22 lines
825 B
Mathematica
XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06 16:03
|
|
;;1.1;RPC BROKER;**45**;Mar 28, 1997
|
|
;
|
|
EN ;
|
|
N XVALS,XWBIEN,XWBMSG
|
|
S XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^10.6.21.14"
|
|
S XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^10.6.21.14"
|
|
S XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^10.161.12.182"
|
|
N I F I=1:1:3 D
|
|
. W !,I
|
|
. N XWBLIST K XWBIEN,XWBMSG
|
|
. S XWBLIST(8994.5,"?+1,",.01)=$P(XVALS(I),U,1)
|
|
. S XWBLIST(8994.5,"?+1,",.02)=$P(XVALS(I),U,2)
|
|
. S XWBLIST(8994.5,"?+1,",.03)=$P(XVALS(I),U,3)
|
|
. S XWBLIST(8994.51,"?+2,?+1,",.01)=$P(XVALS(I),U,4)
|
|
. S XWBLIST(8994.51,"?+2,?+1,",.02)=$P(XVALS(I),U,5)
|
|
. S XWBLIST(8994.51,"?+2,?+1,",.03)=$P(XVALS(I),U,6)
|
|
. K XWBIEN,XWBMSG
|
|
. D UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")
|
|
. Q
|
|
Q
|