Embedded SQL date in DS array problem

Hi All,



I am having a problem with date defined fields in a DS. In this example the
column NEWSDATE is defined (using DDL) as a date field. When I compile the
program below I get the message "SQL5011 30 22 Position 54 Host
structure array MYDS not defined or not usable."



Both date fields are *ISO.



If I get rid of the date field, all works fine.



If I define MyDate as character and use CHAR(NewsDate), all is fine.



I am at V5R3 - any idea what is going on?






D MyDS Ds Qualified

D Dim(10)

D MyDate d

D DaySeq 5 0



/Free

Exec SQL

Set Option Naming = *SYS,

DatFmt = *ISO;



Exec SQL

Declare C1 Cursor For

Select NewsDate, DaySeq from NewsItem

Where DaySeq = 5

for read only;



Exec SQL

Open C1;



Exec SQL

Fetch C1 for 10 rows into :MyDs ;



Exec SQL

Close C1;

*InLR = *On;

/End-Free



Regards



Paul Tuohy

ComCon

<http://www.comconadvisor.com> www.comconadvisor.com

<http://www.systemideveloper.com> www.systemideveloper.com