Updating a triggered record, part deux

["ile rpg" <ile_rpg_guy@xxxxxxxxxxx>]

   With thanks to Steve L., I understand I have to update the buffer ('cause
   the application program has finished with it, and the trigger is the last
   step before the completion of the logical write). 
    
   But I'm embarrassed to be suffering from frain bade: I'm using pointers to
   get the before and after record images into data structures so I can
   handle the normal application stuff but can't, for the life of me, figure
   out how to stick AIMAGE, with its trigger program updates made through the
   data structure, back into the buffer.
    
   I'd appreciate one more kick in the mental pants!
    
   Here's the code I'm using to extract the record:

   /copy  qsysinc/qrpglesrc,trgbuf
   Dintarr s 1a  based(intptr)
   D  dim(32767)
   Dintptr s *
   Dparm2 ds
   D leng 10i 0
   Dbimage s *
   Daimage s *

   Dq_before_ds e  ds  extname(zzz001)
   D  based(bimage)
   Dq_after_ds e  ds  extname(zzz001)
   D  based(aimage)

   C  *entry plist
   C  parm qdbtb
   C  parm parm2

   C  eval intptr = %addr(qdbtb)
   C  eval bimage = %addr(intarr(qdboro + 1))
   C  eval aimage = %addr(intarr(qdbnro + 1))

     ----------------------------------------------------------------------

   Get fast, reliable Internet access with MSN 9 Dial-up * now 3 months FREE!