Re: Embedded Sql not writing records

[Doug Palme <DPalme@xxxxxxxxxxx>]

Globally.




From:
"Gene Burns" <burns.gene@xxxxxxxxx>
To:
"RPG programming on the AS400 / iSeries" <rpg400-l@xxxxxxxxxxxx>
Date:
05/22/2008 04:38 PM
Subject:
Re: Embedded Sql not writing records



Are your variables globally defined or defined in a subprocedure?

There can be problems with variables that are defined in subprocedures
not being output, sometimes.



On 5/22/08, Doug Palme <DPalme@xxxxxxxxxxx> wrote:
> Ok,
> I have recompiled the program as an SQLRPGLE object and added the
> following:
>
>        insert into Pharmcd (Phacctno, PhDiv, PhVndno, Phcrmno,
>                             PhCrmdt, Phcrmamt, Phcrmddt, PhDocTyp,
>                             PhVndtrm, Phclccrd, PhOvrAmt) Values(
>                             :Wacctno, :Wacctdiv, :Wvndno, :Wcrdmno,
>                             :Wcrdmdt, :Wcrdmamt, :Wduedt, :WDocTyp,
>                             :Wvndtrms, :Wclccstcrd, :WOvrAmt);
>
>
> It compiles successfully, and runs without any errors, what it does not
> do, is write the data.....
>
> I have checked the values of the variables and there is data
> there.....suggestions?
>
>
> This transmission may contain information that is privileged, 
confidential
> and/or exempt from disclosure under applicable law. If you are not the
> intended recipient, you are hereby notified that any disclosure, 
copying,
> distribution, or use of the information contained herein (including any
> reliance thereon) is STRICTLY PROHIBITED. If you received this
> transmission in error, please immediately contact the sender and destroy
> the material in its entirety, whether in electronic or hard copy format.
> Thank you.
> --
> 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.