RE: Enbedded SQL In RPGLE

Date: Thu, 29 Oct 2009 09:34:06 -0600
Subject: Re: Enbedded SQL In RPGLE
From: alan0307d@xxxxxxxxx
To: rpg400-l@xxxxxxxxxxxx

You are trying to do an "Into" in all three sections of the union. You could
only do the into in the final piece of the union and the request must be a
single record. If you are doing a union the result would always be more than
one record so you must declare a cursor and read the three results.

On Thu, Oct 29, 2009 at 9:24 AM, Marc Couture <couturem@xxxxxxxxxxx> wrote:

I Have an error, and can't figure out ! All the 3 files has same
structure.




*--------------------------------------------------------------------------------------------*

* Get BI Orders From OEHLDHDR, OEHDRBU or HSTHDRBU
*


*--------------------------------------------------------------------------------------------*

C Get_OeHldHdr Begsr

*

C/Exec Sql

C+ Select HordNo

SQL0109 UNION Clause not allowed

C+

C+ Into :XhOrdNo

C+

C+ From OeHldHdr

C+

C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva

C+ Union All

C+

C+ Select HordNo

C+

C+ Into :XhOrdNo

C+

C+ From OeHdrBu

C+

C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva

C+

C+ Union All

C+

C+ Select HordNo

C+

C+ Into :XhOrdNo

C+

C+ From HstHdrBu

C+

C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva

C+

C+

C/End-Exec




Best Regards,



Marc

--
This is the RPG programming on the IBM i / System i (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 IBM i / System i (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.