Hey,
I'm trying to write a general trigger, to attach to multiple
dictionaries, that will keep track of any changes made. The only
problem that I'm having is that I can't figure out a way to get the
filename of the dictionary. Does anyone know how to do this? If this
isn't possible, does anyone know why QM doesn't send the filename to
the trigger? Here is the code I have so far:

SUBROUTINE WRITE.TRIGGER( MODE, ID, ITEM, ON.ERROR )

**VARS FOR TESTING
FILENAME = "CODES" ;*HOW DO YOU GET THIS?
**

OPEN "AUDITTRAIL" TO AUDIT.F ELSE ABORT "CANNOT OPEN AUDITFILE"
OPEN FILENAME TO FILE.F ELSE ABORT "CANNOT OPEN " : FILENAME

READ ENTRY FROM FILE.F, ID THEN
NAME = FILENAME : "*" : ID : "*" : DATE() : "*" : TIME()

WRITEV "MODE: " : MODE TO AUDIT.F, NAME, 1
WRITEV "OLD ITEM: " : ENTRY<1> TO AUDIT.F, NAME, 2
WRITEV "NEW ITEM: " : ITEM TO AUDIT.F, NAME, 3
WRITEV @LOGNAME TO AUDIT.F, NAME, 4
END
END


Thanks for your help

Hello again pi3k,

Try the code below. Disclaimer: *NOT* thoroughly tested.

To answer your question, two things:

1. You forgot to pass the file handle.
2. From the file handle, much info is available through FILEINFO()

Some changes in the below code not relating to your question:

1. If creating a new item, no logging would occur. You may have planned
this.
2. I added LOWER() assuming that you wanted a record of changes, the
way it was, a dictionary item for instance would overwrite the
audit item's attributes.
3. I didn't address adding text for Delete, just the mode.

*** Begin test code:

SUBROUTINE WRITE.TRIGGER( MODE, ID, ITEM, ON.ERROR, FH)

$INCLUDE KEYS.H

**VARS FOR TESTING
* FILENAME = "CODES" ;*HOW DO YOU GET THIS?
* Try this:
FILENAME = FILEINFO(FH, FL$VOCNAME)
PATH = FILEINFO(FH, FL$PATH) ;* Make sure you pick up the DICT
**

OPEN "AUDITTRAIL" TO AUDIT.F ELSE ABORT "CANNOT OPEN AUDITFILE"
OPENPATH PATH TO FILE.F ELSE ABORT "CANNOT OPEN " : FILENAME

READ ENTRY FROM FILE.F, ID THEN ;* Modifying or Deleting existing
OLD.ITEM = LOWER(ENTRY) ;* Make it fit in one attribute
ELSE ;* Must be a new item
OLD.ITEM = "New Item Added"
END
NAME = FILENAME : "*" : ID : "*" : DATE() : "*" : TIME()

WRITEV "MODE: " : MODE TO AUDIT.F, NAME, 1
WRITEV "OLD ITEM: " : OLD.ITEM TO AUDIT.F, NAME, 2
WRITEV "NEW ITEM: " : LOWER(ITEM) TO AUDIT.F, NAME, 3
WRITEV @LOGNAME TO AUDIT.F, NAME, 4

END

Wow, thank you for your help yet again Tom. That code worked great (
there needs to be and END ELSE on line 17 ) and does exactly what I
needed it for. I was wondering if you know of a place that has some
better documentation on openqm because the pdf's from openqm.com don't
always contain enough detail on functions. Triggers are a good example
because the docs ( REF.PDF ) don't even tell you that the subroutine
takes in 4 or 5 parameters. Or I could just keep posting to the forums
because the level of help I've recieved is better than some of the
better forums, gentoo linux for example.
Thanks again.

Hi pi3k,

Happy to be able to help.

Oops! Too much in php these days :-\

Download all of the PDF's - the ref.pdf I think is called 'quick
reference'. There is an excellent description of triggers in the intro
pdf (intro.pdf maybe?)

Ah, ya if I'd read all the way to the bottom of the intro I would have
seen that one . pg 38 of INTRO.PDF for anyone else who wants to
know.