RU      NAg8QOKJUSERID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE getrecs CURSOR WITH HOLD FOR       SELECT SEGMENT_NO, INTERVAL         FROM LANM.RUPOLL_DEFS        ORDER BY SEGMENT_NO          FOR FETCH ONLY
OPEN getrecs
FETCH getrecs           INTO :h_segment, :h_interval
CLOSE getrecs
DELETE FROM LANM.RUPOLL_DEFS         WHERE SEGMENT_NO = :h_segment
COMMIT
h_segment
h_interval