While I am looking for a code example, here is what you do: I do not
believe you can do a selective trigger per se, what you would probably
need to do is setup a CL pre-processing program to your Cobol. The CL
willl have two parms, the trigger buffer and buffer length (not
necessarily in that order). If you go to the Infocenter, search for
trigger buffer and it will show you the layout. This "buffer" will
contain, amongst other things, both the image of the record before and
afterwards. You will have to figure out the offset of the record updated
(part of the buffer rec coming in is variable length, depending on the
length of the actual record format) by converting a binary field or two.
Then you can substring to find your field and check the value, and then
call your Cobol passing anything you want.


-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
Sent: Friday, April 04, 2003 7:11 AM
To: cobol400-l@xxxxxxxxxxxx
Subject: Triggers

Hello, all.

I want to monitor a statusfield, STATUS i file A.  If the STATUS is
to a certain value, I want a pgm, PGMA to start.  PGMA will use data
the changed record.

Any examples on how to do this?  I've been looking at ADDPFTRG, and I
see that a record update can trig a program.  But how can I get data
the updated record into the trigged program? 

Is this an effective way of doing this?  This program will be started 
every time a record in the file is updated, and it is just a few values 
that will get my pgm running.  Alternatively I can run a batch-program
the end of day and find out the same?



This is the COBOL Programming on the iSeries/AS400 (COBOL400-L) mailing
list To post a message email: COBOL400-L@xxxxxxxxxxxx To subscribe,
unsubscribe, or change list options,
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives

As an Amazon Associate we earn from qualifying purchases.

This thread ...


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

This mailing list archive is Copyright 1997-2021 by 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 [javascript protected email address].

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