How would a end-user know if they have a Revelation NLM service installed?
If the NLM is installed and running, the file handle of a file will contain a string of "F". The code below will illustrate:
open 'VOC' to VOC_FILE then
if index(VOC_FILE,'FFFFFF',1) elseMESS =NLM is not controlling your file access.'MESS := '|Please call system support.'call msg(MESS)perform 'OFF'endendend
This is done through a procedure in the logon script.
BADTSR="BADVOC="MSG_TEXT="CHECK_TSR(BADTSR,BADVOC)IF BADTSR THENMSG_TEXT=LHIPXTSR was not found in memory"MSG(MSG_TEXT,"","","")PERFORM "OFF"ENDIF BADVOC THENMSG_TEXT=VOC file not under NLM control"MSG(MSG_TEXT,"","","")PERFORM "OFF"ENDEXPENDABLE SUBROUTINE CHECK_TSR(TFLAG,VFLAG)
DECLARE SUBROUTINE MSG
DECLARE FUNCTION ISTSR
IF ISTSR() ELSE TFLAG=BADTSR"
OPEN "VOC" TO VOC THEN
IF INDEX(VOC,"FFFFFF",1) ELSE
VFLAG =BADVOC"END
END
RETURN
variations on a theme
from TCL:
LIST VOC
EDIT SYSTABLES VOC
if the last line contains a lot of FFFFFFs near the beginning then the NLM is working.
Also try
NLM_STATS
from TCL. If this works then this means it has been installed.
There are some other commands in the trouble shooting and install guides for testing if the NLM is setup and going on the server.
Scott