Re: Aborting write with a trigger program

Jim,
What happens if someone updates the file using a client based program such
as Excel, ODBC or some other such animal?



                                                                                
                                          
                    Jim Langston                                                
                                          
                    <jimlangston@conexfr        To:     RPG400-L@midrange.com   
                                          
                    eight.com>                  cc:                             
                                          
                    Sent by:                    Subject:     Re: Aborting write 
with a trigger program                    
                    owner-rpg400-l@midra                                        
                                          
                    nge.com                                                     
                                          
                                                                                
                                          
                                                                                
                                          
                    10/10/00 05:30 PM                                           
                                          
                    Please respond to                                           
                                          
                    RPG400-L                                                    
                                          
                                                                                
                                          
                                                                                
                                          




Thanks,

someone sent me some code for a trigger program that does exactly that,
sends
a program message using the QMHSNDPM API to abort the call.  It works like
a
charm.  The nice thing about it is I'm sending message CPF9898 which is
pretty
much a generic call.  In the message data I am sending the text: 'Can not
have
blank Equipment number - Not Written!'.  In the job log when the job
crashes that
message shows up, showing exactly what happened.

Thanks again, this is exactly what I wanted to do.  I wasn't aware that
sending
a program message would abort the write.

Regards,

Jim Langston

"Eric N. Wilson" wrote:
>
> Hello Jim,
>
> Monday, October 09, 2000, 11:02:16 AM, you wrote:
>
> > V3R7M0
>
> > There is a situation where if a blank record is inserted into out of
our physical files it totally throws our entire system out of whack.  This
should never happen as there is supposed to be
> > validation against the data in the entry programs, but it has happened
(3 times in the last 6 years).  It just happened a week ago and I had to
fix it (by deleting the blank record).
>
> > What I am going to do is to add a trigger program on *INSERT *BEFORE
and if the key information is *BLANK I want to abort the write.  Also if
possible I want to generate a program error so that the
> > program attempting to write or update the data to blank bombs out.
>
> > I am looking in the online book OS/400 DB2 for OS/400 Database
Programming V3R2 and read the entire section dedicated to triggers, but
really didn't see how to abort the write.
>
> Well as I write this there are no replies to your message so...
>
> What you need to do is send an *ESCAPE message back one invocation
> level and whaa laa you have both the insert being aborted and your RPG
> program gets an error on the write which if you are not monitoring for
> will stop you dead in your tracks!
>
> Hope that helps
> Eric
+---
| 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
+---