Re: Embedded SQL Select Into; INTO host-structure-array

[CRPence <CRPbottle@xxxxxxxxx>]

  FWiW: On v5r3 at least, there was [and still is for me] an issue 
whereby a DS declared with a variable of the D [date] data type would 
encounter the error msg SQL5011 for the FETCH of the equivalent column 
of the DATE data-type, regardless that the RPG H-spec DATFMT() and the 
SQL SET OPTION DATFMT both had specified _consistent_ Date Format 
attributes.  One circumvention was to declare the subfield as a 
character field long enough to hold the date string of the specified 
format.  Another circumvention was to specify the SQL DATFMT() also, and 
thus redundantly, on the CRTSQLRPGI request.  And yet another 
circumvention was to use an external format to define the Data Structure 
for the host structure array; but of course, given consistent date 
formats, for which an SQL TABLE only allows DATFMT(*ISO), but a DDS PF 
allows others.

Regards, Chuck

On 01-Nov 13:32 , Anderson, Kurt wrote:
> Does the file MblSesP contain a date or time format field? I think
> I've had issues with inserting a date/time field from SQL into a
> host variable date/time field. It's pretty rare that I use embedded
> SQL to pull an entire file's record into the program so I haven't
> really dealt with this scenario specifically.
>
> Michael Ryan on Wednesday, October 30, 2013 12:03 PM wrote:
>
> > Still can't get that external data structure to work.
> > Now I'm trying  this:
> >
> >       D WkMblSesP     E DS                  Dim(1000)
> >       D                                     Qualified
> >       D                                     ExtName(MBLSESP)
> >
> >           Exec SQL
> >             Declare C1 Cursor For
> >               Select * From MblSesp
> >               Where Session_End is null;
> >
> >           Exec SQL
> >             Fetch C1 For 1000 Rows
> >               Into :WkMblSesP;
> > SQL5011: Position 20 Host structure array WKMBLSESP not defined or not usable.
> >
> > I'm thinking that Fetch and external data structures don't work
> > together.
> >
> > On Wed, Oct 30, 2013 at 12:55 PM, Birgitta Hauser wrote:
> >
> > > But even an array data structure cannot be used in composition
> > > with an SELECT INTO!
> > > You need a cursor. Within a cursor you can do a multiple row
> > > fetch:
> > >
> > > D MyArrDS         DS                                     Dim(100)
> > > D  Fld1                                     10A
> > > D  Fld2                                     10I 0
> > >
> > >   /Free
> > >     Exec SQL Declare CsrC01 Cursor For
> > >                         SELECT ....;
> > >
> > >     Exec SQL Open CsrC01;
> > >
> > >     Exec SQL Fetch From CsrC01For 100 Rows into :MyArrDS;