Re: SQL set option DatFmt = *ISO ?

[Charles Wilt <charles.wilt@xxxxxxxxx>]

That's not all of it is it?

Do you have any SQL statements in the mainline and or another SR that
appears before *INZSR?

If so, that's your problem.  SET OPTION must be positioned in the code
prior to any other SQL.

The fact that *INZSR is executed before any other statement doesn't matter.

SET OPTION is a compile time statement, not a run-time one.

Charles

On Mon, May 22, 2017 at 1:20 PM, Duane Scott <dscott@xxxxxxxxxxx> wrote:

> most obvious question is the member type SQLRPGLE?  After that, I'm
> stymied too.
>
> -----Original Message-----
> From: RPG400-L [mailto:rpg400-l-bounces@xxxxxxxxxxxx] On Behalf Of Booth
> Martin
> Sent: Monday, May 22, 2017 3:18 PM
> To: RPG programming on the IBM i / System i <rpg400-l@xxxxxxxxxxxx>
> Subject: SQL set option DatFmt = *ISO ?
>
> I am missing something but can't figure out where to look to find it.  I
> am not even sure where to start counting to find position 36.
>
> I have a program with:
>
> h option(*nodebugio) dftactgrp(*no) actgrp(*caller)
>
>      begsr *inzsr;
>
>        exec sql set option
>          DatFmt = *ISO,
>          Commit = *None,
>          SrtSeq = *LangIDShr;
>
> It fails to compile with a message telling me:
>
> "SQL0084: Position 36 SQL statement not allowed."
>
> What confounds me is that this code is copy/paste from another program
> where it compiles just fine.  In fact its pretty much the same in several
> other programs.
>
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD
> CONFIDENTIALITY NOTICE: This electronic message transmission is intended
> only for the person or entity to which it is addressed and may contain
> information that is privileged, confidential or otherwise protected from
> disclosure. If you have received this transmission, but are not the
> intended recipient, you are hereby notified that any disclosure, copying,
> distribution or use of the contents of this information is strictly
> prohibited. If you have received this e-mail in error, please contact NALC
> Health Benefit Plan at 703-729-4677 and delete and destroy the original
> message and all copies.
> --
> This is the RPG programming on the IBM i (AS/400 and iSeries) (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.
>
> Please contact support@xxxxxxxxxxxx for any subscription related
> questions.
>
> Help support midrange.com by shopping at amazon.com with our affiliate
> link: http://amzn.to/2dEadiD