Re: SQL into RPG

It would be helpful if your question was a little more specific. Not sure
where I got them from (probably off this list) but below are some really
simple examples of an SQL sentence in an RPG program.

Hope this helps.

Glenn Gundermann
ggundermann@xxxxxx
(647) 272-3295


exec sql set option datfmt=*iso,
closqlcsr=*endmod;

exec sql declare DemoCursor cursor for
select
PROMO,
FIRST,
LAST
from SQL_DEMOP
where FIRST <= :MyDate
and LAST >= :MyDate
order by PROMO
;

exec sql open DemoCursor;
if SQLSTT <> SQLSuccess;
SQLProblem('open DemoCursor');
endif;

FetchCur();
dow SQLSTT = SQLSuccess;
// Program logic here
FetchCur();
enddo;

exec sql close DemoCursor;
if SQLSTT <> SQLSuccess;
SQLProblem('close DemoCursor');
endif;

where FetchCur() looks like this:

exec sql fetch DemoCursor into
:MyPromo,
:MyFirst,
:MyLast
;
if SQLSTT <> SQLSuccess
and SQLSTT <> SQLNoMoreData;
SQLProblem('fetch DemoCursor');
endif;

How I can and control an SQL sentence from a RPG program?