H This is a quick hack to force a remote system out of the cluster. It canE be used when a remote system hangs for example at high IPL (bewteen 3 / and 6), or when the SMIserver does not respond. C It uses an internal routine in the connection manager. There is one K problem with this approach, and that is that this routine (CNX$DISC_REMOVE) E is not available in any symboltable which we can include in the link. G So what we do is use MATCHC to find the sequence of instructions around K the place where we expect the code, and issue an error if we can't find it. K If we got the address, we JSB to it and let that routine do the dirty work. 9 The net result will be that the remote node will CLUEXIT. D This is strictly a HACK, and as such it may fail at any time. Use atF your own risk. (I included a check to prevent removal of the node fromG which this program runs, although it was fun to get a system in a state L in which the only clusternode was removed from the cluster and in longbreak,= without quorum....). It was tested on VMS V5.5 thru T6.2-FT1.
