SQLPC1A0JBAqSXKINULLID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
BEGIN DECLARE SECTION
END DECLARE SECTION
INCLUDE SQLCA
SELECT FID, TYPE INTO :sqluigsi_fid, :sqluigsi_type FROM           SYSIBM.SYSTABLES WHERE NAME=:sqluigsi_table AND           CREATOR=:sqluigsi_creator
DECLARE cindex CURSOR FOR               SELECT NAME, CREATOR FROM SYSIBM.SYSINDEXES WHERE               TBNAME=:sqluigsi_table AND TBCREATOR=:sqluigsi_creator
OPEN cindex
FETCH cindex INTO :sqluigsi_iname,                             :sqluigsi_icreate
EXECUTE IMMEDIATE :sqluigsi_drop_str
CLOSE cindex
SELECT TYPE, CHILDREN, SELFREFS INTO             :sqluiref_type, :sqluiref_children:sqluiref_children_ind,             :sqluiref_selfrefs:sqluiref_selfrefs_ind FROM             SYSIBM.SYSTABLES WHERE NAME=:sqluiref_table AND             CREATOR=:sqluiref_creator
SELECT BTYPE, BCREATOR, BNAME INTO                   :sqluiref_type, :sqluiref_creator, :sqluiref_table                   FROM SYSIBM.SYSVIEWDEP WHERE DNAME=:sqluiref_dtable                   AND  DCREATOR=:sqluiref_dcreator
SELECT CHILDREN, SELFREFS INTO                   :sqluiref_children:sqluiref_children_ind,                   :sqluiref_selfrefs:sqluiref_selfrefs_ind FROM                   SYSIBM.SYSTABLES WHERE NAME=:sqluiref_table AND                   CREATOR=:sqluiref_creator
sqluigsi_drop_str
sqluigsi_table
sqluigsi_creator
sqluigsi_fid
sqluigsi_type
sqluigsi_iname
sqluigsi_icreate
sqluiref_table
sqluiref_creator
sqluiref_dtable
sqluiref_dcreator
sqluiref_type
sqluiref_children
sqluiref_children_ind
sqluiref_selfrefs
sqluiref_selfrefs_ind