× The internal search function is temporarily non-functional. The current search engine is no longer viable and we are researching alternatives.
As a stop gap measure, we are using Google's custom search engine service.
If you know of an easy to use, open source, search engine ... please contact support@midrange.com.



Try changing:

RPLTRG(*YES) by RPLTRG(*NO)

_________________________________________________

Kmh0421@xxxxxxx wrote:

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.




As an Amazon Associate we earn from qualifying purchases.

This thread ...

Replies:

Follow On AppleNews
Return to Archive home page | Return to MIDRANGE.COM home page

This mailing list archive is Copyright 1997-2024 by midrange.com and David Gibbs as a compilation work. Use of the archive is restricted to research of a business or technical nature. Any other uses are prohibited. Full details are available on our policy page. If you have questions about this, please contact copyright@midrange.com.

Operating expenses for this site are earned using the Amazon Associate program and Google Adsense.