home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
hwidb.zip
/
HWIDB2.DAT
/
HWIDB2.bnd
(
.txt
)
next >
Wrap
DB2 Bind
|
1997-06-22
|
7KB
|
105 lines
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