RE: Triggers

Geir,

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.

Regards,
Uros

-----Original Message-----
From: cobol400-l-bounces@xxxxxxxxxxxx
[mailto:cobol400-l-bounces@xxxxxxxxxxxx] On Behalf Of
geir.kildal@xxxxxxxxxxxxxx
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
canged 
to a certain value, I want a pgm, PGMA to start.  PGMA will use data
from 
the changed record.

Any examples on how to do this?  I've been looking at ADDPFTRG, and I
can 
see that a record update can trig a program.  But how can I get data
from 
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
at 
the end of day and find out the same?


Mvh.

Geir 

 
_______________________________________________
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,
visit: http://lists.midrange.com/mailman/listinfo/cobol400-l
or email: COBOL400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/cobol400-l.