Re: RPG Trigger Pgm

[David Duerr <dduerr@xxxxxxxxxxxxx>]

One solution would be as follows:

1. create a externally described data structure based on the file being
triggered.  Obviously FileName would be the name of your file being triggered:

            DFileName      e ds                  extname(FileName)

2. update the data structure with the following statements using the IBM 
supplied
trigger buffer data stucture in QSYSINC:

        Eval       FileName = %subst(qdbtb:qdbnro + 1)

3.update the data structure FileName:

       Eval         RcdSts = 'SC04'

4. update the trigger buffer with the data structure FileName:

        %subst(qdbtb:qdbnro+1:qdbnrl) = FileName

We use this alot so I know it works.

Thanks,
Dave Duerr
Duerr Business Solutions


ericadelong@pmsc.com wrote:

>      I'm trying to work up a sample DB trigger pgm (RPG) to validate
>      records at *insert and *update.  Documentation (DB2 for OS/400
>      Database Programming V3R7) indicates that I can modify the new record
>      image in the trigger buffer, but I can't see any way to apply changes
>      to the trigger buffer at offset value. For example, I want to update a
>      field RCDSTS to "SC04" to indicate the record contains errors before
>      writing a record to a Status History file. I can't see how to move
>      SC04 into the trigger buffer @ offset value corresponding to this
>      field. (<-- Huh? I think I just confused myself....)
>
>      I guess I'm looking for the opposite of SUBST.. something that will
>      let me move a value into a field at location X.
>
>      Am I going to have to learn basing pointers or what?  Any hints,
>      suggestions, or samples would be appreciated.  Thanks.
>
>      Eric A DeLong
>      ericadelong@pmsc.com
>
>
> +---
> | This is the Midrange System Mailing List!
> | To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
> | To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
> | Questions should be directed to the list owner/operator: david@midrange.com
> +---
> uucp



+---
| This is the Midrange System Mailing List!
| To submit a new message, send your mail to "MIDRANGE-L@midrange.com".
| To unsubscribe from this list send email to MIDRANGE-L-UNSUB@midrange.com.
| Questions should be directed to the list owner/operator: david@midrange.com
+---