RE: Using a trigger to restrict access to costing bill

I can't find an example at the moment but with a *BEFORE trigger you can
prevent the update from occurring by sending an escape message.  There may
be an example in the archives or maybe someone else has an example handy.

Scott Mildenberger

> -----Original Message-----
> From: Bazinet, Bill [mailto:bazinew@leanintree.com]
> Sent: Friday, March 30, 2001 10:59 AM
> To: 'rpg400-l@midrange.com'
> Subject: RE: Using a trigger to restrict access to costing bill
> 
> 
> 
> 
> The difficulty with this approach is that the trigger must be 
> a *BEFORE
> or*AFTER timing.  If it's before you can definitely determine that the
> insert/update/delete shouldn't occur but I don't see how you 
> can prevent it.
> Remember the trigger gets copies of the output buffer from the program
> causing the trigger to fire.  If you use a *BEFORE trigger, 
> upon return to
> the I/O processor the original action will occur.  If you use 
> an *AFTER
> trigger, the operative work is "AFTER".
> Using an *AFTER trigger, you could go back and reset the 
> orignal state of
> the record because the trigger does contain the before picture of the
> record.
> 
> Terri wrote 
> >Hi,
> >    I have a bill of material file that has several bills 
> for each item =
> >number. One for manufacturing and one for costing. I need to 
> restrict =
> >maintenance of the costing bill to accounting users only. I 
> would like =
> >to not modify the packaged maintenance program.  Would a 
> trigger work =
> >for this? I haven't used them before, I thought it might 
> work based on =
> >other e-mails to this list.
> 
> Terri Harteau
> tshaw@felkerbrothers.com
> Felker Brothers Corp.
> 
> +---
> | This is the RPG/400 Mailing List!
> | To submit a new message, send your mail to RPG400-L@midrange.com.
> | To subscribe to this list send email to RPG400-L-SUB@midrange.com.
> | To unsubscribe from this list send email to 
> RPG400-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: 
> david@midrange.com
> +---
> 
+---
| This is the RPG/400 Mailing List!
| To submit a new message, send your mail to RPG400-L@midrange.com.
| To subscribe to this list send email to RPG400-L-SUB@midrange.com.
| To unsubscribe from this list send email to RPG400-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---