RE: Enbedded SQL In RPGLE

[Marc Couture <couturem@xxxxxxxxxxx>]

Yes ! Same Result !

 


 
> Date: Thu, 29 Oct 2009 10:36:13 -0500
> Subject: Re: Enbedded SQL In RPGLE
> From: koldark@xxxxxxxxx
> To: rpg400-l@xxxxxxxxxxxx
>
> I have always been confused on why use UNION ALL vs. UNION. Have you just
> tried UNION?
>
> --
> Mike Wills
> http://mikewills.info
> P: (507) 933-0880 | Skype: koldark
>
>
> On Thu, Oct 29, 2009 at 10: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.