home *** CD-ROM | disk | FTP | other *** search
/ IBM Presents OS/2 Software Hits 1995 / OS-2_SW_HITS_2ND_EDITION_1995.ISO / i17 / ur423841.dsk / CSD1.DFI / DFIDBIT.BND (.txt) < prev    next >
DB2 Bind  |  1994-03-29  |  1KB  |  23 lines
  1. DFIDBIT jBRNOdDKUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. SELECT COUNT(*) INTO :hlCount FROM LANM.EVENT_LOG 
  7. DECLARE eventlog6  CURSOR WITH HOLD FOR                     SELECT RESERVED, SORT_NUM                                                       FROM LANM.EVENT_LOG                     WHERE DELETE_FLAG = :hfchNo                                                 ORDER BY SORT_NUM ASC                     FOR FETCH ONLY
  8. OPEN eventlog6
  9. FETCH eventlog6 INTO                    :lReserved:hni1
  10. FETCH eventlog6 INTO                    :lReserved:hni1
  11. CLOSE eventlog6 
  12. COMMIT
  13. DECLARE eventlog5  CURSOR WITH HOLD FOR                     SELECT RESERVED                     FROM LANM.EVENT_LOG                     WHERE DELETE_FLAG = :hfchYes                     FOR FETCH ONLY
  14. OPEN eventlog5
  15. FETCH eventlog5 INTO                    :lReserved:hni1
  16. FETCH eventlog5 INTO                    :lReserved:hni1
  17. CLOSE eventlog5 
  18. COMMIT
  19. lReserved
  20. hfchNo
  21. hfchYes
  22. hlCount
  23.