RE: Enbedded SQL In RPGLE

To: rpg400-l@xxxxxxxxxxxx
CC: rpg400-l@xxxxxxxxxxxx; rpg400-l-bounces@xxxxxxxxxxxx
Subject: Re: Enbedded SQL In RPGLE
From: BRoche@xxxxxxxxxxxxxxxxx
Date: Thu, 29 Oct 2009 10:36:09 -0500

I'm not great at embedded sql, but I'll go for the obvious question, What
error are you getting?



From:
Marc Couture <couturem@xxxxxxxxxxx>
To:
RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
Date:
10/29/2009 10:33 AM
Subject:
Enbedded SQL In RPGLE

Sent by:
<rpg400-l-bounces@xxxxxxxxxxxx>




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.