Hello again.

After a very sobering experience, I now have a need to subclass the TCL DELETE command. My goal is to only allow certain user accounts permission to delete rows from tables.

From what I've been able to gather, all that I need to do is write my own program, point the delete voc to it and my program will get called instead.

Now, VERB2 style VOC items create and then pass an active select list to the target program. So it appears that all I need to do is examine @SENTENCE to determine the file name, process the active list of keys and call DELETEROW_SUB to actual delete the records.

Is there anything I am missing, anything that I need to be aware of?

Any help would be greatly appreciated.

You may want to index.flush('yourfilename','') to

realign indexes after the deletion.

Check for quickdex or rightdex on the file, and

realign it.

Be sure to lock the record ahead of deletion, in

case you try to delete one that's in use.

There's also the wildcard (delete filename * )

and the silent version (delete filename * (S))

Remember too that DOS is a logical filename, and

I'd disallow !index or dictionary deletes without

a good reason.

It might be easier to handle this from an MFS

which checks @USERNAME and acts accordingly.

Steve

Steve,

After thinking about it, you might be right with the MFS. Unfortunately, I have never had a need to write an MFS, and have no idea how to go about it.

Would you care to share some tips or tricks on writing MFS'.

TIA,

Matt Sorrell

By far the easiest way is to paint @syswindows@ tcl and add a post prompt that checks the verbs typed in and if it is a delete one display a message and set valid to 0.

For MFSs check out http://www.revelation.com/WEBSITE/knowledge.nsf/07dbcbabb6b3e379852566f50064cf25/82b6cc6c6e0f745a8525666600723698?OpenDocument

Toodles

Matt,

I would have to agree with Andrew. If you have security needs for delete (or other file processes) then a MFS is the way to go. It allows complete coverage not only from tcl delete but from any process attempting to delete (or ?) a record.

The document is pretty good .. if you have any questions about the MFS please post them

[email protected] onmouseover=window.status=imagine … ;return(true)"

David Tod Sigafoos ~ SigSolutions

Cell: 503-341-2983

[email protected]

Well don't force yourself Dave…

Andrew,

you know how I hate to spoil my image of being a 'Barbarian at the Gate' by agreeing with people .. but sometimes the kindler gentler Dave shows up.

[email protected] onmouseover=window.status=imagine … ;return(true)"

David Tod Sigafoos ~ SigSolutions

Cell: 503-341-2983

[email protected]

See you're email for a doc I wrote some 5 years ago on the subject.

[email protected]

Sprezzatura Group

Best bet is to download the MFS Manual

View this thread on the forum...