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 / REORG.BND (.txt) < prev    next >
DB2 Bind  |  1994-03-29  |  2KB  |  26 lines
  1. REORG   jA5YOdDKUSERID  0
  2. INCLUDE SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. SELECT NPAGES, FPAGES, OVERFLOW, CARD INTO                  :npages, :fpages, :overflow, :card             FROM SYSIBM.SYSTABLES             WHERE NAME = :table_name
  6. DECLARE C1 CURSOR WITH HOLD FOR           SELECT AVGCOLLEN              FROM SYSIBM.SYSCOLUMNS              WHERE TBNAME = :table_name
  7. OPEN C1
  8. FETCH C1 INTO :avgcollen
  9. CLOSE C1
  10. SELECT CLUSTERRATIO, FULLKEYCARD, NLEAF, NLEVELS,                 COLNAMES, COLCOUNT           INTO :clusterratio, :fullkeycard, :nleaf, :nlevels,                :colnames, :colcount           FROM SYSIBM.SYSINDEXES WHERE TBCREATOR = :qualifier            AND NAME = :index_name
  11. SELECT AVGCOLLEN              INTO :avgcollen              FROM SYSIBM.SYSCOLUMNS             WHERE NAME = :column_name               AND TBNAME  = :table_name
  12. table_name
  13. index_name
  14. qualifier
  15. overflow
  16. fpages
  17. npages
  18. clusterratio
  19. nleaf
  20. nlevels
  21. fullkeycard
  22. colnames
  23. colcount
  24. avgcollen
  25. column_name
  26.