RE: Enbedded SQL In RPGLE

[Marc Couture <couturem@xxxxxxxxxxx>]

SQL0109 UNION Clause not allowed
 

 

 

> 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.