RE: Error in Trigger Program - RPG.

Changing the DS definition helped to execute the program properly.
Thanks.


-----Original Message-----
From: rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx]On Behalf Of Richard ECUYER
Sent: Friday, August 26, 2005 6:02 PM
To: RPG programming on the AS400 / iSeries
Subject: Re: Error in Trigger Program - RPG.


you can just debug your trigger pgm liek any other pgm.
Then with sql or dfu (upddta) or by pgm add a record and just debug your
pgm, it may be any error, not enough info here.
What are the parameter for your trigger pgm ?
and if they are correct, what is the definition (DS) of these parameter ?

It must be sometinh like :
 *
 * Buffer
............................................................................
........
D Buf_Ds          DS
D  Buf_table                     1A   Dim(32000)
D Buf_len         S             10I 0

C     *entry        plist
C                   parm                    Buf_Ds
C                   parm                    Buf_len


----- Original Message -----
From: "Gauri Kulkarni" <gauri.kulkarni@xxxxxxxxx>
To: "'RPG programming on the AS400 / iSeries'" <rpg400-l@xxxxxxxxxxxx>
Sent: Friday, August 26, 2005 1:43 PM
Subject: Error in Trigger Program - RPG.


> Hi,
>
> I have a PF (say file1) with some fields like empno, name, city etc which
is
> keyed on EMPNO.
> When a record gets inserted into this file, I want to execute a simple
> trigger program ( thats the RPG program) which updates a field from
another
> file (say file2) with 'I'.
> Now, I added this RPG program as a trigger to PF thru ADDPFTRG and tried
to
> check whether my RPG workes fine by simply inserting a record thru STRSQL.
> The record gets added to file1, but the RPG trigger program gets some
error
> -
> "Trigger program or external routine detected an error."
>
> I initiated STRDBG UPDPROD(*YES) to get into details.  The JOBLOG says -
>
> CONNECT to relational database PCSAS400 completed.
> Current connection is to relational database PCSAS400.
> Current connection is to relational database PCSAS400.
> Unable to retrieve query options file.
> **** Starting optimizer debug message for query .
> Arrival sequence access was used for file TSTKEY.
> **** Ending debug message for query .
> ODP created.
> Error occurred in trigger program.
> Error occurred in trigger program.
> ODP deleted.
> Trigger program or external routine detected an error.
> Connection to relational database PCSAS400 ended.
> SQL cursors closed.
>
>
> Please Help me executing my RPG trigger code.
>
>
> Thanks and Regards,
> Gauri.
>
> http://www.patni.com
> World-Wide Partnerships. World-Class Solutions.
> _____________________________________________________________________
>
> This e-mail message may contain proprietary, confidential or legally
> privileged information for the sole use of the person or entity to
> whom this message was originally addressed. Any review, e-transmission
> dissemination or other use of or taking of any action in reliance upon
> this information by persons or entities other than the intended
> recipient is prohibited. If you have received this e-mail in error
> kindly delete  this e-mail from your records. If it appears that this
> mail has been forwarded to you without proper authority, please notify
> us immediately at netadmin@xxxxxxxxx and delete this mail.
> _____________________________________________________________________
>


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


> --
> This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
> To post a message email: RPG400-L@xxxxxxxxxxxx
> To subscribe, unsubscribe, or change list options,
> visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
> or email: RPG400-L-request@xxxxxxxxxxxx
> Before posting, please take a moment to review the archives
> at http://archive.midrange.com/rpg400-l.
>
>

--
This is the RPG programming on the AS400 / iSeries (RPG400-L) mailing list
To post a message email: RPG400-L@xxxxxxxxxxxx
To subscribe, unsubscribe, or change list options,
visit: http://lists.midrange.com/mailman/listinfo/rpg400-l
or email: RPG400-L-request@xxxxxxxxxxxx
Before posting, please take a moment to review the archives
at http://archive.midrange.com/rpg400-l.



http://www.patni.com
World-Wide Partnerships. World-Class Solutions.
_____________________________________________________________________

This e-mail message may contain proprietary, confidential or legally
privileged information for the sole use of the person or entity to
whom this message was originally addressed. Any review, e-transmission
dissemination or other use of or taking of any action in reliance upon
this information by persons or entities other than the intended
recipient is prohibited. If you have received this e-mail in error
kindly delete  this e-mail from your records. If it appears that this
mail has been forwarded to you without proper authority, please notify
us immediately at netadmin@xxxxxxxxx and delete this mail. 
_____________________________________________________________________