RE: Astonished by embedded sql

-----Message d'origine-----
De : rpg400-l-bounces@xxxxxxxxxxxx
[mailto:rpg400-l-bounces@xxxxxxxxxxxx] De la part de Dennis Lovelady

My last unbidden response:

DoU SqlCod <> 0;
Exec SQL
Fetch Next from C2 Into :MyFile_DS;
Leave;

I just noticed that LEAVE - the indentation got me.

Correction: Only one row (at most) will be read.

In that case, would be MUCH better off with:
dateChar = %char(someDateField)
Exec SQL
SELECT * FROM myFile
INTO :DS
WHERE myField = :dateChar
Fetch first row only
;