*   *ID* C05SEL1  DBCMD    changed on 1992-09-28-13.23.12 by ADMIN     *
SET FORMAT &1 !
SELECT current date, '>' || current date || '<',
       current time, '>' || current time || '<',
       current timestamp, current date, *
INTO :a, :b, :c, :d, :e, :f, :g, :h, :i, :j, :k, :l
FROM zeit where year(tag) = year (current date) !
DECLARE C CURSOR FOR SELECT * FROM zeit !
FETCH C into :a, :b, :c, :d !
CLOSE C!
