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