C/Exec SQL

C+ DECLARE C1 CURSOR FOR SELECT LT_DTADAT FROM CDCSOBJ/CDCSLIST

C+ WHERE LT_BAKSTA"1" and LT_DTASTA"0"

C+ GROUP BY LT_DTADAT ORDER BY LT_DTADAT

C/End-Exec

*

C/Exec SQL

C+ OPEN C1

C/End-Exec

*

C Eval KC_Date = ""

C/Exec SQL

C+ FETCH NEXT FROM C1 INTO :KC_Date

C/End-Exec