Re: ADDPFTRG addtl info

Good Morning;

In reference to email I sent yesterday under kmh0421@xxxxxxx:

One of you was kind enough to write telling me to add more info on my Trigger Problem. Here it is: The purpose of the trigger is to write certain 'events' to a file as they occur to be used to send out EDI IFTSTA's. I copied a physical file from production to my library (TKMAST to KHMAST). The file has no constraints or other triggers, and KHMAST in my library has no logicals. We are on V5R2, security level 40.


I used this command: ===> ADDPFTRG FILE(KMHLIB/KHMAST) TRGTIME(*AFTER) TRGEVENT(*UPDATE) PGM(KMHLIB/TRIGGERA) RPLTRG(*YES) TRG(KHMAST_AFTER_UPDATE) .



I receive this error:

Message ID . . . . . . : CPF32C6 Severity . . . . . . . : 40

Message type . . . . . : Diagnostic

Date sent . . . . . . : 05/20/04 Time sent . . . . . . : 08:24:57



Message . . . . : Trigger operation not successful.

Cause . . . . . : The trigger operation for file KHMAST in library KMHLIB failed because of errors. The operation code was 1. Operation codes and their meanings are: 1 - Add a trigger Additional Message Information Message ID . . . . . . : CPD32E7 Severity . . . . . . . : 20 Message type . . . . . : diagnostic Date sent . . . . . . : 05/20/04 Time sent . . . . . . : 08:24:57

Message . . . . : The trigger operation failed.

Cause . . . . . : The trigger operation for file KHMAST in library KMHLIB, for trigger KHMAST_AFTER_UPDATE in library KMHLIB, failed because of errors.

The operation was 1. The reason code is 6.

The operation codes and their meanings are as follows:

6 - Rename a trigger The reason codes and their meanings are: More... Press Enter to continue. Additional Message Information Message ID . . . . . . : CPD32E7 Severity . . . . . . . : 20

Message type . . . . . : Diagnostic 06 - Cross Reference failed with return code X'10A2' and diagnostic code 0.
More... Press Enter to continue.

Here is TriggerA, which calls Pete Halls shell I named TriggerB:

Columns . . . : 6 76 Edit KMHLIB/QRPGLESRC SEU==> TRIGGERA

FMT D DName+++++++++++ETDsFrom+++To/L+++IDc.Keywords+++++++++++++++++++++++++

0014.00 dparm1 ds

0015.00 dparm2 ds

0017.00 * Input/output parameters

0018.00 c *entry plist

0019.00 c parm parm1

0020.00 c parm parm2

0022.00 * Call program to do the actual work

0024.00 c call 'TRIGGERB'

0025.00 c parm parm1

0026.00 c parm parm2

0030.00 c eval *INLR=*On

****************** End of data ****************************************

I sure hope this is enough to help. Thank-you in advance.

Thanks all, have a great day!

Kathie







_______________________________________________
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.