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^127.0.0.1"
S XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^127.0.0.1"
S XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^127.0.0.1"
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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXWB45PO 840 printed Dec 13, 2024@02:37:06 Page 2
XWB45PO ;JLI/FO-OAK-POST INSTALL FOR XWB*1.1*45 ;4/7/06 16:03
+1 ;;1.1;RPC BROKER;**45**;Mar 28, 1997
+2 ;
EN ;
+1 NEW XVALS,XWBIEN,XWBMSG
+2 SET XVALS(1)="XUSBSE TEST1^XWB BROKER EXAMPLE^{h6'={zC3{8=-JP1!O^R^9502^127.0.0.1"
+3 SET XVALS(2)="XUSBSE TEST2^XWB BROKER EXAMPLE^]?zvB$<ZwW6e$yG&9S<^M^9502^127.0.0.1"
+4 SET XVALS(3)="XUSBSE TEST3^XWB BROKER EXAMPLE^9~ioRB[m`Q9yS?/j?q?5^H^80^127.0.0.1"
+5 NEW I
FOR I=1:1:3
Begin DoDot:1
+6 WRITE !,I
+7 NEW XWBLIST
KILL XWBIEN,XWBMSG
+8 SET XWBLIST(8994.5,"?+1,",.01)=$PIECE(XVALS(I),U,1)
+9 SET XWBLIST(8994.5,"?+1,",.02)=$PIECE(XVALS(I),U,2)
+10 SET XWBLIST(8994.5,"?+1,",.03)=$PIECE(XVALS(I),U,3)
+11 SET XWBLIST(8994.51,"?+2,?+1,",.01)=$PIECE(XVALS(I),U,4)
+12 SET XWBLIST(8994.51,"?+2,?+1,",.02)=$PIECE(XVALS(I),U,5)
+13 SET XWBLIST(8994.51,"?+2,?+1,",.03)=$PIECE(XVALS(I),U,6)
+14 KILL XWBIEN,XWBMSG
+15 DO UPDATE^DIE("E","XWBLIST","XWBIEN","XWBMSG")
+16 QUIT
End DoDot:1
+17 QUIT
