Re: Aborting write with a trigger program

[Jim Langston <jimlangston@xxxxxxxxxxxxxxxx>]

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
+---