DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape

DB2 catalog statistics update REXX EXEC – part 2
This month we conclude the article providing a REXX EXEC that can
be used to update DB2 catalog statistics.
/*————————————————————————————————————————————————————————*/
/* If we are connected to DB2 ( DB2CON = 1) then updates */
/* have been performed, therefore a 'COMMIT' is required. */
/*————————————————————————————————————————————————————————*/
if DB2CON = 1 then do
address db2 "COMMIT"
if SQLCODE Ø then do
MESS = 'Error on DB2 Commit sqlcode ' SQLCODE
return
end
MESS = 'Table/Index statistics updated'
end
else
MESS = 'No updates required for Table/Index statistics'
/*———————————————————————————————————————————————————————— */
/* Set DUPD flag to show that new number of rows is active */
/*———————————————————————————————————————————————————————— */
DUPD = 1
return
/*————————————————————————*/
/* Process Index Columns */
/*————————————————————————*/
E_Columns:
if DB2CON = Ø then do
address db2 "SIGNON" DB2S
if RC > Ø then do
MESS = "Error - Unable to connect to " DB2S
RETURN16
end
end
DB2CON = 1
/*———————————————————————————————————————————— */
/* Define ISPF Table T£CLM to hold column data */
/*———————————————————————————————————————————— */
address ispexec "TBCREATE T£CLM",
"NAMES(CNAME CFLD NCDATAD NCDATAE CCDATAE CCDATAD CTYPE",
" CLEN)",
"NOWRITE REPLACE"
CNAME = ""
CCFLD = ""
CTYPE = ""
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
15