XWBZ1.m

XWBZ1 ;ISC-SF/EG - DHCP BROKER PROTOYPE TESTER [ 02/22/95  11:07 PM ] ;03/28/97  14:50

 ;;1.1;RPC BROKER;;Mar 28, 1997

ECHO1(Y,X) ;don't call direct

 S Y=X

 Q

 ;

GLOB1(Y,N) ;callback for global parameter - don't call direct

 S Y=$NA(@N)

 Q

 ;

LIST(Y) ; -- return list box with 28 entries

 N I

 F I=1:1:28 S Y(I)="List Item #"_I

 Q

 ;

WP(Y) ; -- return text a word processing (50 lines)

 N I

 F I=1:1:50 S Y(I)="The quick brown fox jumped over the lazy dog."

 S Y(51)="End of document."

 Q

 ;

BIG(Y) ; -- send a 32K string

 N I,Z

 S $P(Z,"D",16)=""

 K ^TMP($J,"XWBBIG")

 F I=1:1:2048 S ^TMP($J,"XWBBIG",I)=Z

 S Y=$NA(^TMP($J,"XWBBIG"))

 Q

 ;

SRT(Y,D,X) ; -- sort array x and return in y

 N I,K,T

 S K=""

 IF D="LO" D  Q

 . F I=1:1 D  Q:K=""

 . . S K=$O(X(K)) Q:K=""

 . . S Y(I)=K

 IF D="HI" D

 . F I=1:1 D  Q:K=""

 . . S K=$O(X(K)) Q:K=""

 . . S T(99999999-I)=K

 . S K=0

 . F I=1:1 D  Q:K=""

 . . S K=$O(T(K)) Q:K=""

 . . S Y(I)=T(K)

 Q

 ;

MEMO(Y,X) ;

 K ^TMP("EG",$J,"MEMO")

 S ^TMP("EG",$J,"MEMO",-9000)="DHCP RECEIVED:"

 M ^TMP("EG",$J,"MEMO")=X

 S Y=$NA(^TMP("EG",$J,"MEMO"))

 Q

 ;

XWBZ1     ;ISC-SF/EG - DHCP BROKER PROTOYPE TESTER [ 02/22/95  11:07 PM ] ;03/28/97  14:50

 +1       ;;1.1;RPC BROKER;;Mar 28, 1997

ECHO1(Y,X) ;don't call direct

 +1        SET Y=X

 +2        QUIT 

 +3       ;

GLOB1(Y,N) ;callback for global parameter - don't call direct

 +1        SET Y=$NAME(@N)

 +2        QUIT 

 +3       ;

LIST(Y)   ; -- return list box with 28 entries

 +1        NEW I

 +2        FOR I=1:1:28

               SET Y(I)="List Item #"_I

 +3        QUIT 

 +4       ;

WP(Y)     ; -- return text a word processing (50 lines)

 +1        NEW I

 +2        FOR I=1:1:50

               SET Y(I)="The quick brown fox jumped over the lazy dog."

 +3        SET Y(51)="End of document."

 +4        QUIT 

 +5       ;

BIG(Y)    ; -- send a 32K string

 +1        NEW I,Z

 +2        SET $PIECE(Z,"D",16)=""

 +3        KILL ^TMP($JOB,"XWBBIG")

 +4        FOR I=1:1:2048

               SET ^TMP($JOB,"XWBBIG",I)=Z

 +5        SET Y=$NAME(^TMP($JOB,"XWBBIG"))

 +6        QUIT 

 +7       ;

SRT(Y,D,X) ; -- sort array x and return in y

 +1        NEW I,K,T

 +2        SET K=""

 +3        IF D="LO"

               Begin DoDot:1

 +4                FOR I=1:1

                       Begin DoDot:2

 +5                        SET K=$ORDER(X(K))

                           IF K=""

                               QUIT 

 +6                        SET Y(I)=K

                       End DoDot:2

                       IF K=""

                           QUIT 

               End DoDot:1

               QUIT 

 +7        IF D="HI"

               Begin DoDot:1

 +8                FOR I=1:1

                       Begin DoDot:2

 +9                        SET K=$ORDER(X(K))

                           IF K=""

                               QUIT 

 +10                       SET T(99999999-I)=K

                       End DoDot:2

                       IF K=""

                           QUIT 

 +11               SET K=0

 +12               FOR I=1:1

                       Begin DoDot:2

 +13                       SET K=$ORDER(T(K))

                           IF K=""

                               QUIT 

 +14                       SET Y(I)=T(K)

                       End DoDot:2

                       IF K=""

                           QUIT 

               End DoDot:1

 +15       QUIT 

 +16      ;

MEMO(Y,X) ;

 +1        KILL ^TMP("EG",$JOB,"MEMO")

 +2        SET ^TMP("EG",$JOB,"MEMO",-9000)="DHCP RECEIVED:"

 +3        MERGE ^TMP("EG",$JOB,"MEMO")=X

 +4        SET Y=$NAME(^TMP("EG",$JOB,"MEMO"))

 +5        QUIT 

 +6       ;