BIND V02
HWIDB2  iAIAPWGNHAWI    0
HAWI    
INCLUDE SQLCA 
BEGIN DECLARE SECTION
END DECLARE SECTION 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORCOLUMNS CURSOR FOR                                       SELECT TABNAME, COLNAME, COLNO, TYPESCHEMA, TYPENAME, LENGTH, SCALE FROM SYSCAT.COLUMNS ORDER BY TABNAME, COLNO 
OPEN CURSORCOLUMNS 
FETCH CURSORCOLUMNS INTO                                          :SZTABNAME, :SZCOLNAME, :USCOLNO, :SZTYPESCHEMA, :SZTYPENAME, :ULLENGTH, :USSCALE 
CLOSE CURSORCOLUMNS 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORDATATYPES CURSOR FOR                                       SELECT TYPESCHEMA, TYPENAME, DEFINER FROM SYSCAT.DATATYPES ORDER BY TYPENAME 
OPEN CURSORDATATYPES 
FETCH CURSORDATATYPES INTO                                          :SZTYPESCHEMA, :SZTYPENAME, :SZDEFINER 
CLOSE CURSORDATATYPES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSOREVENTS CURSOR FOR                                       SELECT EVMONNAME, TYPE FROM SYSCAT.EVENTS ORDER BY EVMONNAME 
OPEN CURSOREVENTS 
FETCH CURSOREVENTS INTO                                          :SZEVMONNAME, :SZTYPE 
CLOSE CURSOREVENTS 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORFUNCTIONS CURSOR FOR                                       SELECT FUNCSCHEMA, FUNCNAME, SPECIFICNAME FROM SYSCAT.FUNCTIONS ORDER BY FUNCNAME 
OPEN CURSORFUNCTIONS 
FETCH CURSORFUNCTIONS INTO                                          :SZFUNCSCHEMA, :SZFUNCNAME, :SZSPECIFICNAME 
CLOSE CURSOREVENTS 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORINDEXES CURSOR FOR                                       SELECT INDSCHEMA, INDNAME, DEFINER FROM SYSCAT.INDEXES ORDER BY INDNAME 
OPEN CURSORINDEXES 
FETCH CURSORINDEXES INTO                                          :SZINDSCHEMA, :SZINDNAME, :SZDEFINER 
CLOSE CURSORINDEXES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORPACKAGES CURSOR FOR                                       SELECT PKGNAME, BOUNDBY FROM SYSCAT.PACKAGES ORDER BY PKGNAME 
OPEN CURSORPACKAGES 
FETCH CURSORPACKAGES INTO                                          :SZNAME, :SZCREATOR 
CLOSE CURSORPACKAGES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORREFERENCES CURSOR FOR                                       SELECT TABSCHEMA, TABNAME, DEFINER FROM SYSCAT.REFERENCES ORDER BY TABNAME 
OPEN CURSORREFERENCES 
FETCH CURSORREFERENCES INTO                                          :SZTABSCHEMA, :SZTABNAME, :SZDEFINER 
CLOSE CURSORREFERENCES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORTABLES CURSOR FOR                                       SELECT TABNAME, DEFINER FROM SYSCAT.TABLES WHERE TYPE = 'T' ORDER BY TABNAME 
OPEN CURSORTABLES 
FETCH CURSORTABLES INTO                                          :SZNAME, :SZCREATOR 
CLOSE CURSORTABLES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORTABLESPACES CURSOR FOR                                       SELECT TBSPACE FROM SYSCAT.TABLESPACES ORDER BY TBSPACE 
OPEN CURSORTABLESPACES 
FETCH CURSORTABLESPACES INTO                                          :SZNAME 
CLOSE CURSORTABLESPACES 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORTRIGGERS CURSOR FOR                                       SELECT TRIGSCHEMA, TRIGNAME, DEFINER FROM SYSCAT.TRIGGERS ORDER BY TRIGNAME 
OPEN CURSORTRIGGERS 
FETCH CURSORTRIGGERS INTO                                          :SZTRIGSCHEMA, :SZTRIGNAME, :SZDEFINER 
CLOSE CURSORTRIGGERS 
CONNECT RESET 
CONNECT TO :SZDBNAME 
SELECT NAME INTO :SZNAME FROM SYSIBM.SYSTABLES 
DECLARE CURSORVIEWS CURSOR FOR                                       SELECT VIEWNAME, DEFINER FROM SYSCAT.VIEWS ORDER BY VIEWNAME 
OPEN CURSORVIEWS 
FETCH CURSORVIEWS INTO                                          :SZNAME, :SZCREATOR 
CLOSE CURSORVIEWS 
CONNECT RESET 
SZCOLNAME
SZCREATOR
SZDBNAME
SZDEFINER
SZEVMONNAME
SZFUNCNAME
SZFUNCSCHEMA
SZINDNAME
SZINDSCHEMA
SZNAME
SZSPECIFICNAME
SZTABNAME
SZTABSCHEMA
SZTRIGNAME
SZTRIGSCHEMA
SZTYPE
SZTYPENAME
SZTYPESCHEMA
ULLENGTH
USCOLNO
USSCALE