home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
GPF.ZIP
/
DLL
/
GPFDLL02.BND
(
.txt
)
< prev
next >
Wrap
DB2 Bind
|
1991-04-02
|
3KB
|
68 lines
GPFDLL02GB6SKCEHUSERID 0
INCLUDE SQLCA
INCLUDE SQLDA
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE C1 CURSOR FOR SELECT NAME,CREATOR,REMARKS FROM SYSIBM.SYSTABLES WHERE (CREATOR <> 'SYSIBM' AND CREATOR <> 'QRWSYS') ORDER BY NAME,CREATOR
OPEN C1
FETCH C1 INTO :SYSTABLES_NAME ,:SYSTABLES_CREATOR , :SYSTABLES_REMARKS:SYSTABLES_REMARKS_NULL
CLOSE C1
COMMIT WORK
DECLARE C2 CURSOR FOR SELECT NAME,COLTYPE,LENGTH,SCALE,NULLS,CODEPAGE FROM SYSIBM.SYSCOLUMNS WHERE (TBNAME = :SYSTABLES_NAME) ORDER BY NAME
OPEN C2
FETCH C2 INTO :SYSCOLUMNS_NAME , :SYSCOLUMNS_COLTYPE , :SYSCOLUMNS_LENGTH , :SYSCOLUMNS_SCALE , :SYSCOLUMNS_NULLS , :SYSCOLUMNS_CODEPAGE
CLOSE C2
COMMIT WORK
DECLARE C0 CURSOR FOR SELECT NAME,CREATOR,REMARKS FROM SYSIBM.SYSTABLES WHERE (CREATOR <> 'SYSIBM' AND CREATOR <> 'QRWSYS')
OPEN C0
CLOSE C0
COMMIT WORK
ROLLBACK
GRANT EXECUTE ON PROGRAM GPFDLL02 TO PUBLIC
SYSCOLUMNS_AVGCOLLEN
SYSCOLUMNS_CODEPAGE
SYSCOLUMNS_COLCARD
SYSCOLUMNS_COLNO
SYSCOLUMNS_COLTYPE
SYSCOLUMNS_DBCSCODEPG
SYSCOLUMNS_HIGH2KEY
SYSCOLUMNS_KEYSEQ
SYSCOLUMNS_KEYSEQ_NULL
SYSCOLUMNS_LENGTH
SYSCOLUMNS_LOW2KEY
SYSCOLUMNS_NAME
SYSCOLUMNS_NULLS
SYSCOLUMNS_REMARKS
SYSCOLUMNS_REMARKS_NULL
SYSCOLUMNS_SCALE
SYSCOLUMNS_TBCREATOR
SYSCOLUMNS_TBNAME
SYSTABLES_CARD
SYSTABLES_CHILDREN
SYSTABLES_CHILDREN_NULL
SYSTABLES_COLCOUNT
SYSTABLES_CREATOR
SYSTABLES_CTIME
SYSTABLES_FID
SYSTABLES_FPAGES
SYSTABLES_KEYCOLUMNS
SYSTABLES_KEYCOLUMNS_NULL
SYSTABLES_KEYOBID
SYSTABLES_KEYOBID_NULL
SYSTABLES_NAME
SYSTABLES_NPAGES
SYSTABLES_OVERFLOW
SYSTABLES_PACKED_DESC
SYSTABLES_PARENTS
SYSTABLES_PARENTS_NULL
SYSTABLES_REL_DESC
SYSTABLES_REL_DESC_NULL
SYSTABLES_REMARKS
SYSTABLES_REMARKS_NULL
SYSTABLES_SELFREFS
SYSTABLES_SELFREFS_NULL
SYSTABLES_TID
SYSTABLES_TYPE
SYSTABLES_VIEW_DESC
SYSTABLES_VIEW_DESC_NULL