RE: trigger error help

One thing to keep in mind is if you are using Commitment control the
trigger will fire when the recorded is inserted, but if something cause
a rollback after the trigger has fired. The record will not be in the
file, but you still got you message that a record was added. IBM needs
to have another trigger setting AFTER Commit Delete, Update or Insert.

-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Willie J. Moore
Sent: Wednesday, August 27, 2003 10:25 AM
To: rpg400-l@xxxxxxxxxxxx
Subject: trigger error help

I am having trouble with a 'trigger' program.  This is my first try.
Here is what I am trying to do.

I have a physical file (slitmtot) that when a record is added a CL
program is called.  The CL notifies QC that a record has been entered.
Enclosed is a copy of the trigger and CL.

I am getting the following error: CPF502B, with an error code of 2 =
*after *insert trigger.

I did CHGJOB LOG(4 0 0 *SECLVL) and ran job.  The error was happening at
the write statement (RMAJOBNO), and that there is a Data Decimal Error.
I am not passing any data to the program that the trigger is calling.

If I remove the trigger, the program runs fine.

Any help would be greatly appreciated. 
Willie Moore
California Fine Wire, Co.

TRIGGER: 
ADDPFTRG FILE(TESTFILE/RMAJOBNO) TRGTIME(*AFTER) TRGEVENT(*INSERT)
PGM(WJMWORK/RMANOTIFY)

CL:
RMANOTIFY: PGM
DSPPGMMSG MSG('A RECORD HAS BEEN ENTERED') MSGTYPE(*RQS)
ENDPGM:



_______________________________________________
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing
list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.