Re: Date field in MODS result set unusable...

[Robert Rogerson <rogersonra@xxxxxxxxx>]

Kurt and Eric,

I attempted your suggestions.
     D storeSalesRs    ds                  Dim(1000)
     D                                     qualified
     D*storeSalesRs    ds                  occurs(1000)
     d   o_StoreNum                  10i 0
     d   o_StoreName                 20a

      *  Actual dates
     d   o_AFromDate                   d
     d   o_NullInds                   5i 0 dim(3) inz

This resulted in the same SQL5011 error.

I then thought if I were fetching into a datastructure array I would do this
Exec SQL FETCH c1 into :storeSalesRs :NullIndDs;
So I tried
     D storeSalesRs    ds                  Dim(1000)
     D                                     qualified
     D*storeSalesRs    ds                  occurs(1000)
     d   o_StoreNum                  10i 0
     d   o_StoreName                 20a

      *  Actual dates
     d   o_AFromDate                   d

     d NullIndDs       ds                  dim(1000)
     d   o_NullInds                   5i 0 dim(3) inz
and then
         Exec SQL
           SET RESULT SETS ARRAY :storeSalesRs :NullIndDs for :idx ROWS;
Same result, SQL5011.

By the way, where's Brigitta?  She shouldn't be asleep yet...lol

Robert Rogerson.

On Wed, Aug 10, 2011 at 10:49 AM, DeLong, Eric <EDeLong@xxxxxxxxxxxxxxx>wrote:

> Can your SQL statement result in NULL values?  If so, I think there needs
> to be more stuff in the MODS...
>
> -Eric DeLong
>
> -----Original Message-----
> From: rpg400-l-bounces@xxxxxxxxxxxx [mailto:rpg400-l-bounces@xxxxxxxxxxxx]
> On Behalf Of Robert Rogerson
> Sent: Tuesday, August 09, 2011 8:16 PM
> To: RPG programming on the IBM i / System i
> Subject: Date field in MODS resultset unusable...
>
> Hi all,
>
> I'm working on a macine at V7R1,
>
> I have a MODS defined as
>     d storeSalesRs    ds                  occurs(1000)
>     d   o_StoreNum                  10i 0
>     d   o_StoreName                 20a
>      *  Actual dates
>     d*   o_AFromDate                   d
>
> and later I return the result set
>         Exec SQL
>           SET RESULT SETS ARRAY :storeSalesRs for :idx ROWS;
>
> If I uncomment the date field o_AFromDate and recompile I get
> SQL5011  30     520  Position 35 Host structure array STORESALESRS not
> defined or not usable.
>
> I already attampted to set the datfmt for the SQL (SET OPTION Datfmt=*ISO)
> but this had no effect.
>
> Does anyone have any insight as to what I'm missing?
>
> Thanks,
>
> Robert Rogerson
> --
> 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.