I have a third party application that I need to be able to track
updates to several of the files.  Since I don't have source code, I
was wondering if there is a way in UniVerse (9.4) to monitor updates
to files.  Any help will be greatly appreciated.

Thanks,

Jay
Jay Falck
Programmer/Analyst
JI Specialty Services, Inc

--The opinions expressed are mine and mine alone.  They
may (and probably do) not reflect the opinion of my employer.

The best way I have found to do this (in D3) is to put a callx in the
D-pointer, output-conversion. By using callx the program is run anytime the
file is written, (from UP, basic, from OSFI, anywhere).

Thanks for all the recommendations.  I understand the concept behind
the SQL table issue, but I can't convert the file or the vendor will
not support it.  I also know how to add the index but I'm not sure
about how to go about making it trigger on every update to the file.
Is there an attribute somewhere that gets written everytime a change
is made?  Please pardon my ignorance, but even though I've been in
this job for 3 years, I haven't been able to concentrate on Universe.
It's been more learn the application and write reports.  Thanks again
for all the suggestions.

Jay

Jay Falck
Programmer/Analyst
JI Specialty Services, Inc

--The opinions expressed are mine and mine alone.  They
may (and probably do) not reflect the opinion of my employer.

[snip]

Create an I-type field in the dictionary which calls a SUBR:

VI DICT MYFILE MYTRIG

I

Trigger Subroutine
0L
S

Now make a subroutine called MYTRIG which has 2 arguments:

SUBROUTINE MYTRIG(RESULT,INPUTREC)
RESULT = ""
...
RETURN
END

And make it do what you want as regards logging, but have it return nothing.

Then create an index on the new field:

CREATE.INDEX MYFILE MYTRIG NO.NULLS

and build it:

BUILD.INDEX MYFILE MYTRIG

After that, every time a record is updated your subroutine MYTRIG should be
called.  The mechanism is not as good as a trigger, and the issue of what
happens when a record is DELETEd is something you'll have to experiment
with.

Best Regards,

Ken Wallis

Empower Data Solutions Pty Limited, ACN 079 955 196

Envision, enable, enhance... empower