L&L version 24 has this set procedure in its package. The highlighted code throws an error in DF20.1 but not in DF20.0
Code:
Procedure DoFillUsedIdentifiers String sFile
Set psUsedIdentifiers to ""
#IF (!@>199)
Integer iArgSize iRet
WString wVarList
String sVarList
Get_Argument_Size to iArgSize
Move (Repeat(Character(0),iArgSize)) to wVarList
Move (LLGetUsedIdentifiersEf((piJobNumber(Self)),sFile,AddressOf(wVarList),iArgSize*2)) to iRet
If (iRet=0) Begin
Move (CString(wVarList)) to sVarList
Move (";"+sVarList+";") to sVarList
Move (uppercase(sVarList)) to sVarList
Set psUsedIdentifiers to sVarList
End
#ELSE
String sVar sVarList
Pointer pVar pVarList
Integer iRet iArgSize
Move (ToAnsiStr(Self,sFile)) to sVar
Move (AddressOf(sVar)) to pVar
Get_Argument_Size to iArgSize
Move (LLZeroString(iArgSize)) to sVarList
Move (AddressOf(sVarList)) to pVarList
Move (LLGetUsedIdentifiersEf((piJobNumber(Self)),pVar,pVarList,iArgSize)) to iRet
If (iRet=0) Begin
Move (AnsiToOem(pVarList,pVarList)) to iRet
Move (cString(sVarList)) to sVarList
Move (";"+sVarList+";") to sVarList
Move (uppercase(sVarList)) to sVarList
Set psUsedIdentifiers to sVarList
End
#ENDIF
End_Procedure
Any ideas?