INHUTST.m

INHUTST ;DGH; 10 May 96 13:39; Utility routine with stub tags

 ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 ;COPYRIGHT 1991-2000 SAIC

 ;

STORE ;This is a test lookup-store routine for incoming DBSS messages.

 ;It simply quits.

 Q

 ;

QUIT ;Just quit

 Q

 ;

TF(%) ;set $T to true or false

 ;% - value for $T ( 1 or 0 (def) )

 I '$G(%) D FALSE Q

 D TRUE

 Q

TRUE ;Sets $T to 1

 I 1

 Q

FALSE ;Set $T to 0

 I 0

 Q

DEST ;Tag dest contains allowable message types for incoming messages

 S INDSTP=""

 Q

INHUTST   ;DGH; 10 May 96 13:39; Utility routine with stub tags

 +1       ;;3.01;BHL IHS Interfaces with GIS;;JUL 01, 2001

 +2       ;COPYRIGHT 1991-2000 SAIC

 +3       ;

STORE     ;This is a test lookup-store routine for incoming DBSS messages.

 +1       ;It simply quits.

 +2        QUIT 

 +3       ;

QUIT      ;Just quit

 +1        QUIT 

 +2       ;

TF(%)     ;set $T to true or false

 +1       ;% - value for $T ( 1 or 0 (def) )

 +2        IF '$GET(%)

               DO FALSE

               QUIT 

 +3        DO TRUE

 +4        QUIT 

TRUE      ;Sets $T to 1

 +1        IF 1

 +2        QUIT 

FALSE     ;Set $T to 0

 +1        IF 0

 +2        QUIT 

DEST      ;Tag dest contains allowable message types for incoming messages

 +1        SET INDSTP=""

 +2        QUIT