home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 29 Fixes_o / 29-Fixes_o.zip / us6035d1.dsk / EXPLAIN.BND (.txt) < prev    next >
DB2 Bind  |  1993-02-16  |  2KB  |  30 lines
  1. EXPLAIN ZAQXPPCJNULLID  0
  2. Include SQLCA
  3. BEGIN DECLARE SECTION
  4. END DECLARE SECTION
  5. SELECT COLCOUNT INTO :snbr FROM SYSIBM.SYSTABLES                WHERE CREATOR = 'SYSIBM' AND NAME='SYSTABLES'
  6. DECLARE c2 CURSOR FOR             SELECT SECTION, SECTNO, SEQNO FROM SYSIBM.SYSSECTION             WHERE PLNAME = :planname AND PLCREATOR = :creator AND                   SECTNO BETWEEN :snbr AND :snbr2             ORDER BY SECTNO, SEQNO
  7. OPEN c2
  8. SELECT VALID INTO :valid FROM SYSIBM.SYSPLAN WHERE                      CREATOR = :creator AND NAME = :planname
  9. FETCH c2 INTO :section, :sectno, :seqnbr
  10. DECLARE c3 CURSOR FOR                                SELECT TEXT, SEQNO FROM SYSIBM.SYSSTMT                                WHERE PLCREATOR = :creator AND PLNAME = :planname AND                                SECTNO = :oldsectno                                ORDER BY SEQNO
  11. OPEN c3
  12. FETCH c3 INTO :stmt, :seqnbr2
  13. CLOSE c3
  14. CLOSE c2
  15. SELECT CREATOR, NAME INTO :icreator, :iname                 FROM SYSIBM.SYSINDEXES                 WHERE TBCREATOR = :tbcreator AND TBNAME = :tbname AND IID = :iid
  16. SELECT CREATOR, NAME INTO :tbcreator, :tbname             FROM SYSIBM.SYSTABLES             WHERE FID = :fid
  17. section
  18. planname
  19. creator
  20. tbcreator
  21. tbname
  22. icreator
  23. iname
  24. seqnbr
  25. seqnbr2
  26. sectno
  27. oldsectno
  28. snbr2
  29. valid
  30.