[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Trigger
Thanks all, I got it to work.
-----Original Message-----
From: ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx [mailto:ftpapi-bounces@xxxxxxxxxxxxxxxxxxxxxx] On Behalf Of ftpapi-request@xxxxxxxxxxxxxxxxxxxxxx
Sent: Wednesday, April 17, 2013 2:16 AM
To: ftpapi@xxxxxxxxxxxxxxxxxxxxxx
Subject: Ftpapi Digest, Vol 78, Issue 26
Send Ftpapi mailing list submissions to
ftpapi@xxxxxxxxxxxxxxxxxxxxxx
To subscribe or unsubscribe via the World Wide Web, visit
http://scottklement.com/mailman/listinfo/ftpapi
or, via email, send a message with subject or body 'help' to
ftpapi-request@xxxxxxxxxxxxxxxxxxxxxx
You can reach the person managing the list at
ftpapi-owner@xxxxxxxxxxxxxxxxxxxxxx
When replying, please edit your Subject line so it is more specific than "Re: Contents of Ftpapi digest..."
Today's Topics:
1. RE: Trigger Error (Brett Elston)
----------------------------------------------------------------------
Message: 1
Date: Wed, 17 Apr 2013 07:16:00 +0000
From: Brett Elston <brett.elston@xxxxxxxxx>
To: HTTPAPI and FTPAPI Projects <ftpapi@xxxxxxxxxxxxxxxxxxxxxx>
Subject: RE: Trigger Error
Message-ID:
<0CBBD7866A7F024FA73FBAFEB04E083A76F50861@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx>
Content-Type: text/plain; charset="windows-1252"
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: 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: 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
mdiazlapham@xxxxxxxxxxx
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------
Disclaimer: The email message and its attachments are subject to the disclaimer published at 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 disclaimer@xxxxxxxxx
-------------- next part --------------
[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
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 113041709155901502.gif
Type: image/gif
Size: 719 bytes
Desc: not available
URL: <http://scottklement.com/pipermail/ftpapi/attachments/20130417/1a07c98e/attachment.gif>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 113041709155901702.gif
Type: image/gif
Size: 690 bytes
Desc: not available
URL: <http://scottklement.com/pipermail/ftpapi/attachments/20130417/1a07c98e/attachment-0001.gif>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 113041709155901902.gif
Type: image/gif
Size: 22551 bytes
Desc: not available
URL: <http://scottklement.com/pipermail/ftpapi/attachments/20130417/1a07c98e/attachment-0002.gif>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 113041709155902102.gif
Type: image/gif
Size: 2297 bytes
Desc: not available
URL: <http://scottklement.com/pipermail/ftpapi/attachments/20130417/1a07c98e/attachment-0003.gif>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: 113041709155902302.gif
Type: image/gif
Size: 612 bytes
Desc: not available
URL: <http://scottklement.com/pipermail/ftpapi/attachments/20130417/1a07c98e/attachment-0004.gif>
------------------------------
-----------------------------------------------------------------------
This is the FTPAPI mailing list digest. To unsubscribe, go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------
End of Ftpapi Digest, Vol 78, Issue 26
**************************************
-----------------------------------------------------------------------
This is the FTPAPI mailing list. To unsubscribe, please go to:
http://www.scottklement.com/mailman/listinfo/ftpapi
-----------------------------------------------------------------------