Re: RPG Trigger Pgm

[David Morris <dmorris@xxxxxxxxxxxxx>]

Eric,

If you are using RPGIV you can use eval %subst(buffer: offset: 4) = 'SC04'.  If 
you are using RPGIII 
a datastructure redefining the buffer to an array of single characters and a 
movea would be a good 
bet.

David Morris

>>> <ericadelong@pmsc.com> 02/11 9:02 AM >>>

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