RE: RPG Trigger Pgm

[<BVStone@xxxxxxxxxxxxxx>]

What you're looking for is SUBST, for that part of the question.
somethingn like this:
                eval            %subst(fielda:5:1) = 'A'

This will place an 'A' in position 5 of fielda.
Or, you can do something like this...   

                eval    %subst(fielda:5:1) = %subst(fieldb:2:1)

This will place the character from posistion 2 in fieldb into position 5
of fielda.

As for updating the buffer information,  know that IBM now allows the
use of the ALWRPCHG (allow repeated change) so that you can update the
file in your trigger program without the worry of recursion.  As far as
updating the buffer itself, I haven't used this so I'm not sure how it
would work.

Bradley V. Stone        
bvstone@taylorcorp.com
http://prairie.lakes.com/~bvstone/
"Don't forget that tangy zip, that mmmm... miricle whip.... don't skip
the zip"

        ----Original Message-----
        From:   ericadelong@pmsc.com [SMTP:ericadelong@pmsc.com]
        Sent:   Wednesday, February 11, 1998 10:02 AM
        To:     MIDRANGE-L@midrange.com
        Subject:        RPG Trigger Pgm


             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
+---