Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XWB45PO

XWB45PO.m

Go to the documentation of this file.
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