home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / 10ageout.zip / DFIDBIT.BND (.txt) < prev    next >
DB2 Bind  |  1993-08-19  |  2KB  |  28 lines
  1. DFIDBIT DAQAKTIJUSERID  0
  2. BEGIN DECLARE SECTION
  3. END DECLARE SECTION
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. SELECT RESERVED2, RESERVED3, RESERVED4                INTO   :hlBridgeRsvd, :hlStationRsvd, :hlIauRsvd                FROM LANM.SYSTEM_PARAMETERS
  7. SELECT COUNT(*) INTO :hlCount FROM LANM.EVENT_LOG 
  8. SELECT RESERVED2, RESERVED3, RESERVED4,                       EVENT_LOG_LIMIT, BDG_PERFORM_LIMIT                INTO   :hlBridgeRsvd, :hlStationRsvd, :hlIauRsvd,                       :hsLogLimit, :hlBridgePerfLimit                FROM LANM.SYSTEM_PARAMETERS
  9. 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
  10. OPEN eventlog6
  11. FETCH eventlog6 INTO                    :lReserved:hni1
  12. FETCH eventlog6 INTO                    :lReserved:hni1
  13. CLOSE eventlog6 
  14. DECLARE eventlog5  CURSOR WITH HOLD FOR                     SELECT RESERVED                     FROM LANM.EVENT_LOG                     WHERE DELETE_FLAG = :hfchYes                     FOR FETCH ONLY
  15. OPEN eventlog5
  16. FETCH eventlog5 INTO                    :lReserved:hni1
  17. FETCH eventlog5 INTO                    :lReserved:hni1
  18. CLOSE eventlog5 
  19. lReserved
  20. hfchNo
  21. hfchYes
  22. hlBridgeRsvd
  23. hlStationRsvd
  24. hlIauRsvd
  25. hsLogLimit
  26. hlBridgePerfLimit
  27. hlCount
  28.