Rick: I used your snippet above to test and it ran fine (minor tweaks). I then cut and pasted the data DLLâs defintion for the table and modified your code to support it thusly:
PROGRAM
MAP
END
include(âERRORS.CLWâ), once
include(âABFILE.EQUâ), once
SOXUser FILE,DRIVER(âTOPSPEEDâ),OWNER(ââ),ENCRYPT,NAME(âSXUser.TPSâ),PRE(User),BINDABLE,THREAD ! Users that will be given access to system areas with various access rights and privileges
IdKey KEY(User:SOXUserId),NOCASE,OPT,PRIMARY ! Primary Index - Unique
LoginNameKey KEY(User:UserLoginName),NOCASE,OPT ! by Login
PassCodeKey KEY(User:UserCode),NOCASE,OPT ! by Password Initials
NameKey KEY(User:LastName,User:FirstName),DUP,NOCASE,OPT ! by Last, First name
Record RECORD,PRE()
SOXUserId LONG ! Unique Row identifier used to manage a row and relate a rowâs content to other tables.
UserLoginName STRING(30) ! Contains the Login Name used by the user - corresponds to Active Directory name
UserActive BYTE ! Determines if the User is Active or not (0 = In Active; 1 = Active)
PasswordId LONG ! Unique Identifier pointing to the related PASSWORD table entry that corresponds to this user
UserCode STRING(3) ! Short hand code for User that is recorded in several tables to indicate who did something (Same as the Code in the PASSWORD table)
FirstName STRING(20) ! Persons First Name
LastName STRING(40) ! Persons Last name
MiddleName STRING(20) ! Persons middle name (or initial)
END
END
CODE
SETPATH('E:\SIMDATA')
OPEN(SOXUser,ReadOnly+DenyNone)
if ERRORCODE()
MESSAGE('Error opening file: ' & choose(errorcode()=FileSystemErr, fileerror(), error()))
else
set(SOXUser)
next(SOXUser)
MESSAGE('No errors: ' & User:UserLoginName)
end
close(SOXUser)
return
This compiled and executed fine.
Jeff: It is a multi-DLL app and the data DLL contains all file definitions. All of the applications in the solution compile without any errors.
I may possibly need to ditch the current procedure and redo them from scratch. Still a head scratcher, thoughâŚ
Thanks guys, at least I know Iâm not insane (perhaps, somewhat derangedâŚ)
Steve