DECLARE SCgauCur CURSOR FOR SELECT CREATOR , REMARKS FROM SYSIBM.SYSTABLES WHERE CREATOR LIKE :H_AUTHID
OPEN SCgauCur
FETCH SCgauCur INTO :H_AUTHID, :H_COMM:H_COMMIND
CLOSE SCgauCur
DECLARE SCgtaCur CURSOR FOR SELECT NAME, KEYCOLUMNS, REMARKS FROM SYSIBM.SYSTABLES WHERE CREATOR = :H_AUTHID AND TYPE = :H_SORT AND NAME LIKE :H_NAME AND NAME <> 'QRWSYS_OBJECT' ORDER BY NAME
OPEN SCgtaCur
FETCH SCgtaCur INTO :H_NAME, :H_KEYCOLS:H_NULLIND, :H_COMM:H_COMMIND
CLOSE SCgtaCur
DECLARE SCgtagrpCur CURSOR FOR SELECT DISTINCT TTNAME, TABAUTH, KEYCOLUMNS, REMARKS FROM SYSIBM.SYSTABAUTH, SYSIBM.SYSTABLES WHERE TTNAME = NAME AND CREATOR = :H_AUTHID AND TCREATOR = :H_AUTHID AND ( GRANTEE = :H_GRP1 OR GRANTEE = :H_GRP2 OR GRANTEE = :H_GRP3 OR GRANTEE = :H_GRP4 OR GRANTEE = :H_GRP5 OR GRANTEE = :H_GRP6 OR GRANTEE = :H_GRP7 OR GRANTEE = :H_GRP8 OR GRANTEE = :H_GRP9 OR GRANTEE = :H_GRP10 OR GRANTEE = :H_GRP11 OR GRANTEE = :H_GRP12 OR GRANTEE = :H_GRP13 OR GRANTEE = :H_GRP14 OR GRANTEE = :H_GRP15 OR GRANTEE = :H_GRP16 OR GRANTEE = :H_GRP17 OR GRANTEE = :H_GRP18 OR GRANTEE = :H_GRP19 OR GRANTEE = :H_GRP20 ) AND TYPE = :H_SORT AND NAME LIKE :H_NAME AND NAME <> 'QRWSYS_OBJECT' ORDER BY TTNAME
OPEN SCgtagrpCur
FETCH SCgtagrpCur INTO :H_NDXN, :H_CNO, :H_KEYSEQ:H_CLEN, :H_TEMP:H_CPAGE
FETCH SCgtalgCur INTO :H_NDXN, :H_CNO, :H_KEYSEQ:H_CLEN, :H_TEMP:H_CPAGE
CLOSE SCgtalgCur
DECLARE SCgviCur CURSOR FOR SELECT NAME, REMARKS FROM SYSIBM.SYSTABLES WHERE CREATOR = :H_AUTHID AND TYPE = :H_SORT AND NAME LIKE :H_NAME ORDER BY NAME
OPEN SCgviCur
FETCH SCgviCur INTO :H_NAME, :H_COMM:H_COMMIND
CLOSE SCgviCur
DECLARE SCgvigrpCur CURSOR FOR SELECT DISTINCT TTNAME, TABAUTH, REMARKS FROM SYSIBM.SYSTABAUTH, SYSIBM.SYSTABLES WHERE TTNAME = NAME AND CREATOR = :H_AUTHID AND TCREATOR = :H_AUTHID AND ( GRANTEE = :H_GRP1 OR GRANTEE = :H_GRP2 OR GRANTEE = :H_GRP3 OR GRANTEE = :H_GRP4 OR GRANTEE = :H_GRP5 OR GRANTEE = :H_GRP6 OR GRANTEE = :H_GRP7 OR GRANTEE = :H_GRP8 OR GRANTEE = :H_GRP9 OR GRANTEE = :H_GRP10 OR GRANTEE = :H_GRP11 OR GRANTEE = :H_GRP12 OR GRANTEE = :H_GRP13 OR GRANTEE = :H_GRP14 OR GRANTEE = :H_GRP15 OR GRANTEE = :H_GRP16 OR GRANTEE = :H_GRP17 OR GRANTEE = :H_GRP18 OR GRANTEE = :H_GRP19 OR GRANTEE = :H_GRP20 ) AND TYPE = :H_SORT AND NAME LIKE :H_NAME ORDER BY TTNAME
OPEN SCgvigrpCur
FETCH SCgvigrpCur INTO :H_NDXN, :H_CNO, :H_TEMP:H_CPAGE
FETCH SCgvilgCur INTO :H_NDXN, :H_CNO, :H_TEMP:H_CPAGE
CLOSE SCgvilgCur
DECLARE SCgtvCur CURSOR FOR SELECT NAME, TYPE, REMARKS FROM SYSIBM.SYSTABLES WHERE CREATOR = :H_AUTHID AND NAME LIKE :H_NAME AND NAME <> 'QRWSYS_OBJECT' ORDER BY NAME
OPEN SCgtvCur
FETCH SCgtvCur INTO :H_NAME, :H_SORT, :H_COMM:H_COMMIND
CLOSE SCgtvCur
DECLARE SCgrpCur CURSOR FOR SELECT DISTINCT TTNAME, TABAUTH, TYPE, REMARKS FROM SYSIBM.SYSTABAUTH, SYSIBM.SYSTABLES WHERE TTNAME = NAME AND CREATOR = :H_AUTHID AND TCREATOR = :H_AUTHID AND ( GRANTEE = :H_GRP1 OR GRANTEE = :H_GRP2 OR GRANTEE = :H_GRP3 OR GRANTEE = :H_GRP4 OR GRANTEE = :H_GRP5 OR GRANTEE = :H_GRP6 OR GRANTEE = :H_GRP7 OR GRANTEE = :H_GRP8 OR GRANTEE = :H_GRP9 OR GRANTEE = :H_GRP10 OR GRANTEE = :H_GRP11 OR GRANTEE = :H_GRP12 OR GRANTEE = :H_GRP13 OR GRANTEE = :H_GRP14 OR GRANTEE = :H_GRP15 OR GRANTEE = :H_GRP16 OR GRANTEE = :H_GRP17 OR GRANTEE = :H_GRP18 OR GRANTEE = :H_GRP19 OR GRANTEE = :H_GRP20 ) ORDER BY TTNAME
OPEN SCgrpCur
FETCH SCgrpCur INTO :H_NDXN, :H_CNO, :H_NULLS, :H_TEMP:H_CPAGE