OGET_CLUSTER_MEMBERSHIP 21-DEC-1999 07:14DEC BASIC V1.3-000 i$CODE$$LINK$ $READ_ONLY$N $LITERAL$$ARRAY$DESC8JPGET_CLUSTER_MEMBERSHIPDBASIC$HANDLER DBASIC$INIT STR$DUPL_CHAR STR$COPY_DXSTR$LEFT DBASIC$END SYS$GETSYIW STR_SUBTRACTSTR_LEN LIB$SIGNALLIB$SET_LOGICALCLU_MEMBERSHIP 0 = #TG~^^~cG"#GG`B"hb@ZkBG b"="]"tG@ZkPBXbc"4G@Zk@BHbc"4G@Zk0"?&BG`&@1"="b="=TG@Zk@BHbc"4G@ZkG0"?&B1"#@=b"=="TG@ZkBb}"="]"tG@Zk0b?$B! Cb="}="TG@ZkpBxbc"="]"tG@ZkBbcG4G@ZkBbc"4G@ZkcG]]}4G#k4 8GH DBASIC$INIT4@b#P DBASIC$INIT4 D@H DBASIC$INIT4HGt STR$DUPL_CHAR4Xb#P STR$DUPL_CHAR4p@t STR$DUPL_CHAR4 tGCLU_MEMBERSHIP4 xb#PCLU_MEMBERSHIP4 @CLU_MEMBERSHIP, GSTR_LEN, b#PSTR_LEN, @STR_LEN4G STR$COPY_DX4b#P STR$COPY_DX4@ STR$COPY_DX, GSTR_LEN, b#PSTR_LEN, @STR_LEN4G( STR$COPY_DX4b#P STR$COPY_DX4$@( STR$COPY_DX4(GHSTR$LEFT4,b#PSTR$LEFT4D@HSTR$LEFT4PGx STR$COPY_DX4\b#P STR$COPY_DX4t@x STR$COPY_DX4xGLIB$SET_LOGICAL4|b#PLIB$SET_LOGICAL4@LIB$SET_LOGICAL4G LIB$SIGNAL4b#P LIB$SIGNAL4@ LIB$SIGNAL4G DBASIC$END4b#P DBASIC$END4@ DBASIC$END  LIB$SIGNALSTR$LEFT;0 STR$DUPL_CHAR STR$COPY_DX=0;=( 7DBASIC$HANDLER=; STR_LEN CLU_MEMBERSHIP DBASIC$INIT LIB$SET_LOGICAL DBASIC$END =|@GET_CLUSTER_MEMBERSHIP = CLUSTER_MEMBERSHIP= LNM$PROCESS_TABLE0=&%this node is not in a cluster P=@87GET_CLUSTER_MEMBERSHIPDEC BASIC V1.3-000 = #4P4=$GET_CLUSTER_MEMBERSHIP4=\TS1 60> ==A=D $= 44 := 4=  =   P