Re: Array Data Structures with date fields

[Charles Wilt <charles.wilt@xxxxxxxxx>]

make sure you have
h datfmt(*iso) cvtopt(*none)

Charles


On Wed, Dec 19, 2012 at 3:40 PM, Jack W. Long Jr <jackwlongjr@xxxxxxxxx>wrote:

> I have the following code that compiles and work but only when sending
> the data to the data structure without a date field.  Not Problems then
> copying it to the desired one but I cannot utilize the #22 one without
> getting a SQL5011 on the compile.    The kicker is that if I have the
> data structure externally defined all is well.
>
> Does anyone have any thoughts to what might be going on here.  We are on
> 7.1 with DB2 for i groupPTF at 17.
>
> TIA
>
>
>      d pData2          ds                  dim(5) qualified inz
>      d  policy                       12a
>      d  termDate                     10a
>      d  number                        5s 0
>
>      d pData22         ds                  dim(5) qualified inz
>      d  policy                       12a
>      d  termDate                       d
>      d  number                        5s 0
>
>       /free
>          exec sql
>            Set Option  Naming    = *Sys,
>                        Commit    = *None,
>                        UsrPrf    = *User,
>                        DynUsrPrf = *User,
>                        Datfmt    = *iso,
>                        CloSqlCsr = *EndActGrp ;
>
>          exec sql
>            declare c2 cursor for
>            select 'ABC12345', current date, 1234
>              from qrpglesrc;
>
>          exec sql open c2;
>          exec sql fetch from c2 for 5 rows into :pData2;
>        //exec sql fetch from c2 for 5 rows into :pData22;  // No compile
>          exec sql close c2;
>
>          pData22 = pData2;
>
>          *inlr = *on;
>       /end-free
> --
> 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.