Re: Enbedded SQL In RPGLE

Oops, I missed that. If you are sure You'll only get one result (based on
your dataset), you could wrap the whole thing in another select.

*--------------------------------------------------------------------------------------------*
* Get BI Orders From OEHLDHDR, OEHDRBU or HSTHDRBU
*
*--------------------------------------------------------------------------------------------*
C Get_OeHldHdr Begsr
*
C/Exec Sql
C+ select hordno into :xhordno from (
C+ Select HordNo
C+ From OeHldHdr
C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva
C+ Union All
C+ Select HordNo
C+ From OeHdrBu
C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva
C+ Union All
C+ Select HordNo
C+ From HstHdrBu
C+ Where SubStr(Ech.hcpsn,3,10) = :BhInva
C+ ) table
C/End-Exec


--
Mike Wills
http://mikewills.info
P: (507) 933-0880 | Skype: koldark


On Thu, Oct 29, 2009 at 10:34 AM, Alan Campin <alan0307d@xxxxxxxxx> wrote:

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.