Btree.Extract and the NLM (AREV Specific)
At 30 APR 2000 04:41:52AM Adrian Newman wrote:
Anyone know why the following is happening? ]]
This code works without the NLM:
DECLARE SUBROUTINE FSMSG,BTREE.EXTRACT
OPEN 'DICT.CLAIMS' TO VF.CLAIMS.DICT ELSE
FSMSG()STOPEND
VC.SRCH.LASTNAME=EARSON"
VC.INDEX.DATA=LASTNAME.XREF" : @VM : VC.SRCH.LASTNAME : @FM
BTREE.EXTRACT(VC.INDEX.DATA, "CLAIMS", VF.CLAIMS.DICT, VC.HITS)
STOP
Yet with the NLM installed, the same code produces the following message (but the index is fine):
W602
The index record "LASTNAME.XREF**+++++++++++++++++++++++++++++++++
The indexed field "LASTNAME.XREF"
in the file "CLAIMS"should be rebuilt...Press any key to continue..
The following code works with or without the NLM installed (only difference from previous code is EARSON instead of EARSON):
DECLARE SUBROUTINE FSMSG,BTREE.EXTRACT
OPEN 'DICT.CLAIMS' TO VF.CLAIMS.DICT ELSE
FSMSG()STOPEND
VC.SRCH.LASTNAME=EARSON"
VC.INDEX.DATA=LASTNAME.XREF" : @VM : VC.SRCH.LASTNAME : @FM
BTREE.EXTRACT(VC.INDEX.DATA, "CLAIMS", VF.CLAIMS.DICT, VC.HITS)
STOP
Any help appreciated…