RE: Trigger Error

[Brett Elston <brett.elston@xxxxxxxxx>]

              [1][cid:113041709155901102@mail28.mimecast.co.za]
   Hi Mauricio,
   Not sure of your record format layout but below is a sample that might
   help, works for me. Cannot remember where the original example I took
   came from but we have hundreds of triggers and this work very well for
   us. Hope this helps.
   D Main PR ExtPgm('TRFRMS')
   D Trgbuffer LikeDS(Trginfo)
   D Trgbufferlen 10I 0
   D
   D Main PI
   D Trgbuffer LikeDS(Trginfo)
   D Trgbufferlen 10I 0
   D
   * Trigger Buffer Information
   D Trginfo DS
   D File 10
   D Library 10
   D Member 10
   D Event 1
   D Time 1
   D Commitlocklev 1
   D 3
   D Ccsid 10I 0
   D Rrn 10I 0
   D 4
   D Befrecoffset 10I 0
   D Befreclen 10I 0
   D Befnulloffset 10I 0
   D Befnulllen 10I 0
   D Aftrecoffset 10I 0
   D Aftreclen 10I 0
   D Aftnulloffset 10I 0
   D Aftnulllen 10I 0
   D
   * Before Record Image
   D Befrecptr S *
   D Original E DS Extname(FRMS)
   D Based(Befrecptr)
   D Qualified
   D
   * After Record Image
   D Aftrecptr S *
   D New E DS Extname(FRMS)
   D Based(Aftrecptr)
   D
   * Set Pointer to Data pointer Address plus offsets supplied
   C
   C Eval Befrecptr = %addr(Trgbuffer) +
   C Trgbuffer.Befrecoffset
   C
   C Eval Aftrecptr = %addr(Trgbuffer) +
   C Trgbuffer.Aftrecoffset
   -----Original Message-----
   From: [2]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Mike Krebs
   Sent: 16 April 2013 05:15 PM
   To: HTTPAPI and FTPAPI Projects
   Subject: RE: Trigger Error
   Not RPG World! Wrong list Mauricio.
   -----Original Message-----
   From: [3]ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of Mauricio
   Diaz-Lapham
   Sent: Tuesday, April 16, 2013 9:21 AM
   To: 'ftpapi@xxxxxxxxxxxxxxxxxxxxxx'
   Subject: Trigger Error
   Hello RPG World!
   I wrote a trigger program and I am getting the values is to small
   error. I don't understand why I am getting this error.
   D BImage s *
   D AImage s *
   D Intarr s 1A Based(Intptr) DIM(32767)
   D Intptr s *
   '
   '
   '
   '
   '
   D QDBORO 49 52B 0 this is part of the trigger buffer data structure I
   copied from an IBM example code.
   D* Old Record Offset
   D QDBNRO 65 68B 0
   D* New Record Offset
   Eval Intptr = %Addr(QDBTB);
   Eval BImage = %Addr(INTARR(QDBORO+1)); This is where I get the error
   that the receiver is too small. BImage is a pointer how can it be too
   small?
   Eval AImage = %Addr(INTARR(QDBNRO+1));
   Thank You
   Mauricio
   [cid:image001.jpg@01CE3A83.71D6EA80]
   iSeries Software Engineer
   563 468 4806
   [4]mdiazlapham@xxxxxxxxxxx
   -----------------------------------------------------------------------
   This is the FTPAPI mailing list. To unsubscribe, please go to:
   [5]http://www.scottklement.com/mailman/listinfo/ftpapi
   -----------------------------------------------------------------------

   Brett Elston
   Developer
   National Airways Corporation
   T
   F
   E brett.elston@xxxxxxxxx
   [6]www.nac.co.za


   [7][cid:113041709155901202@mail28.mimecast.co.za]

   [8]Follow us on Twitter

   [9]Join us on Facebook
   [10]Connect with us on LinkedIn

   Disclaimer: The email message and its attachments are subject to the
   disclaimer published at [11]http://www.nac.co.za/disclaimer.html
   If you cannot access the disclaimer, please obtain a copy thereof from
   us, by sending an email to [12]disclaimer@xxxxxxxxx

References

   1. https://mail28.mimecast.co.za/mimecast/click?account=CSA14A7&code=839f7fa4287a1c35aa31bcef4dfebc85
   2. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   3. mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx
   4. mailto:mdiazlapham@xxxxxxxxxxx
   5. http://www.scottklement.com/mailman/listinfo/ftpapi
   6. http://www.nac.co.za/
   7. https://mail28.mimecast.co.za/mimecast/click?account=CSA14A7&code=35dcda5d70957d08e29c9596189111e2
   8. https://mail28.mimecast.co.za/mimecast/click?account=CSA14A7&code=4c3971bb1f3236e769be4999172e4fcf
   9. https://mail28.mimecast.co.za/mimecast/click?account=CSA14A7&code=8cb9cdaaa2f15b0c4541600af8e6887f
  10. https://mail28.mimecast.co.za/mimecast/click?account=CSA14A7&code=2f85180ae10bbdc10f6b2d782d56dd3a
  11. http://www.nac.co.za/disclaimer.html
  12. mailto:disclaimer@xxxxxxxxx

-----------------------------------------------------------------------
This is the FTPAPI mailing list.  To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------