home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / GPF.ZIP / DLL / GPFDLL03.BND (.txt) < prev    next >
DB2 Bind  |  1991-04-02  |  1KB  |  24 lines
  1. GPFDLL035AYfICEHUSERID  0
  2. INCLUDE SQLCA
  3. INCLUDE SQLDA
  4. BEGIN DECLARE SECTION
  5. END DECLARE SECTION
  6. DECLARE cur CURSOR FOR st 
  7. DECLARE C0 CURSOR FOR         SELECT NAME,CREATOR,REMARKS         FROM SYSIBM.SYSTABLES         WHERE (CREATOR <> 'SYSIBM' AND         CREATOR <> 'QRWSYS')
  8. OPEN C0
  9. CLOSE C0
  10. COMMIT WORK
  11. SELECT CREATOR          INTO :SYSTABLES_CREATOR          FROM SYSIBM.SYSTABLES          WHERE (CREATOR <> 'SYSIBM' AND          CREATOR <> 'QRWSYS' AND          NAME = :SYSTABLES_NAME)
  12. OPEN cur 
  13. FETCH cur USING DESCRIPTOR :sqldap  
  14. CLOSE cur 
  15. COMMIT WORK
  16. ROLLBACK
  17. PREPARE st INTO :sqlda_tmp  FROM :stmbuf 
  18. PREPARE st INTO :sqldap  FROM :stmbuf 
  19. EXECUTE st 
  20. GRANT EXECUTE ON PROGRAM GPFDLL03 TO PUBLIC
  21. stmbuf
  22. SYSTABLES_NAME
  23. SYSTABLES_CREATOR
  24.