home *** CD-ROM | disk | FTP | other *** search
/ IBM Presents OS/2 Software Hits 1995 / OS-2_SW_HITS_2ND_EDITION_1995.ISO / i17 / ur423843.dsk / CSD3.DFI / RU.BND (.txt) < prev    next >
DB2 Bind  |  1993-10-14  |  577b  |  12 lines
  1. RU      NAg8QOKJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. DECLARE getrecs CURSOR WITH HOLD FOR       SELECT SEGMENT_NO, INTERVAL         FROM LANM.RUPOLL_DEFS        ORDER BY SEGMENT_NO          FOR FETCH ONLY
  5. OPEN getrecs
  6. FETCH getrecs           INTO :h_segment, :h_interval
  7. CLOSE getrecs
  8. DELETE FROM LANM.RUPOLL_DEFS         WHERE SEGMENT_NO = :h_segment
  9. COMMIT
  10. h_segment
  11. h_interval
  12.