QRW3D3A0ZBSWPOHJNULLID  0
BEGIN DECLARE SECTION
END DECLARE SECTION
DECLARE SCgtiCur CURSOR FOR        SELECT NAME, CREATOR        FROM   SYSIBM.SYSINDEXES        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_NDXN
OPEN SCgtiCur
FETCH SCgtiCur INTO :H_NDXN, :H_AUTHID
CLOSE SCgtiCur
DECLARE SCgcoCur CURSOR FOR        SELECT NAME, REMARKS        FROM   SYSIBM.SYSCOLUMNS        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_COLN
OPEN SCgcoCur
FETCH SCgcoCur INTO :H_COLN, :H_COMM:H_COMMIND
CLOSE SCgcoCur
DECLARE SCgciCur CURSOR FOR        SELECT COLTYPE, NULLS, CODEPAGE, LENGTH, SCALE, COLNO, KEYSEQ        FROM   SYSIBM.SYSCOLUMNS        WHERE  TBCREATOR         = :H_AUTHID          AND  TBNAME            = :H_NAME          AND  NAME           LIKE :H_COLN
OPEN SCgciCur
FETCH SCgciCur INTO :H_COLTYPE, :H_NULLS,  :H_CPAGE,                          :H_CLEN,    :H_CSCALE, :H_CNO, :H_KEYSEQ:H_NULLIND
CLOSE SCgciCur
SELECT NAME INTO :H_NAME      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
SELECT UNIQUERULE, COLNAMES INTO :H_UNIQUE, :H_COLNAMES      FROM   SYSIBM.SYSINDEXES      WHERE  TBCREATOR = :H_AUTHID        AND  CREATOR   = :H_GRANTEE        AND  NAME      = :H_NDXN        AND  TBNAME    = :H_NAME
SELECT TYPE INTO :H_SORT      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
DECLARE SCgatpCur CURSOR FOR        SELECT GRANTOR, GRANTEE, CONTROLAUTH, ALTERAUTH, DELETEAUTH,               INDEXAUTH, INSERTAUTH, SELECTAUTH, UPDATEAUTH, TABAUTH, REFAUTH        FROM   SYSIBM.SYSTABAUTH        WHERE  TCREATOR          = :H_AUTHID          AND  TTNAME            = :H_NAME          AND  GRANTEE        LIKE :H_GRANTEE          AND  TTNAME            <> 'QRWSYS_OBJECT'        ORDER BY GRANTEE
OPEN SCgatpCur
FETCH SCgatpCur INTO :H_GRANTOR, :H_GRANTEE, :H_CTRAUTH, :H_ALTAUTH,                           :H_DELAUTH, :H_IDXAUTH, :H_INSAUTH, :H_SELAUTH,                           :H_UPDAUTH, :H_TABAUTH, :H_REFAUTH
CLOSE SCgatpCur
DECLARE SCgadpCur CURSOR FOR        SELECT GRANTOR, GRANTEE, DBADMAUTH, CREATETABAUTH, BINDADDAUTH,               CONNECTAUTH        FROM   SYSIBM.SYSDBAUTH        WHERE  GRANTEE        LIKE :H_GRANTEE        ORDER BY GRANTEE
OPEN SCgadpCur
FETCH SCgadpCur INTO :H_GRANTOR, :H_GRANTEE, :H_ADMAUTH, :H_CTABAUTH,                           :H_BNDAUTH, :H_CONAUTH
CLOSE SCgadpCur
SELECT CHILDREN, SELFREFS INTO :H_CHILDREN:H_NULLIND, :H_SELFREFS:H_SELFIND      FROM   SYSIBM.SYSTABLES      WHERE  CREATOR = :H_AUTHID        AND  NAME    = :H_NAME
SELECT BTYPE, BNAME, BCREATOR INTO :H_SORT, :H_NAME, :H_AUTHID        FROM   SYSIBM.SYSVIEWDEP        WHERE  DCREATOR =  :H_AUTHID          AND  DNAME    =  :H_NAME
DECLARE SCgdtCur CURSOR FOR        SELECT RELNAME, REFTBNAME, REFTBCREATOR, COLCOUNT, DELETERULE,               UPDATERULE, FKCOLNAMES, PKCOLNAMES        FROM   SYSIBM.SYSRELS        WHERE  CREATOR           = :H_AUTHID          AND  TBNAME            = :H_NAME
OPEN SCgdtCur
FETCH SCgdtCur INTO :H_GRANTEE, :H_NAME, :H_GRANTOR, :H_KEYCOLS,                          :H_DELAUTH, :H_UPDAUTH, :H_COLNAMES, :H_PKNAMES
CLOSE SCgdtCur
H_AUTHID
H_GRANTEE
H_GRANTOR
H_NAME
H_NDXN
H_COMM
H_COMMIND
H_NULLIND
H_SORT
H_COLN
H_COLTYPE
H_NULLS
H_CPAGE
H_CLEN
H_CSCALE
H_CNO
H_KEYCOLS
H_KEYSEQ
H_ADMAUTH
H_CTABAUTH
H_BNDAUTH
H_CONAUTH
H_CTRAUTH
H_ALTAUTH
H_DELAUTH
H_IDXAUTH
H_INSAUTH
H_SELAUTH
H_UPDAUTH
H_TABAUTH
H_REFAUTH
H_COLNAMES
H_PKNAMES
H_UNIQUE
H_CHILDREN
H_SELFREFS
H_SELFIND