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

18
ZCMD = ''
call EA_UPDATE
leave
end
end
return
/*————————————————————*/
/* Update column data */
/*————————————————————*/
EA_UPDATE:
address ispexec "TBTOP T£CLM"
do forever
CFLAG = Ø
address ispexec "TBSKIP T£CLM"
if rc > Ø then leave
if CNAME = ' ' then error
UCNAME = CNAME
/*———————————————————————————————————————— */
/* Ensure first table entry is for colcard.*/
/* Three table entries for each update. */
/*———————————————————————————————————————— */
if CFLD 'Colcard' then do
MESS = 'Error first table entry not colcard'
return
end
if CCDATAE NCDATAE then CFLAG = 1
NCCARD = NCDATAD
address ispexec "TBSKIP T£CLM"
if CCDATAD NCDATAD then CFLAG = 1
NL2KEY = x2c(NCDATAE)
address ispexec "TBSKIP T£CLM"
if CCDATAD NCDATAD then CFLAG = 1
NH2KEY = x2c(NCDATAE)
/*———————————————————————————————————————*/
/* CFLAG set if any updates are required */
/*———————————————————————————————————————*/
if CFLAG = 1 then do
CFLAG = Ø
if DB2CON = Ø then do
address db2 "SIGNON" DB2S
if RC > Ø then do
MESS = "Error - Unable to connect to " DB2S
RETURN16
end
DB2CON = 1
end
UPDT = "UPDATE SYSIBM.SYSCOLUMNS ",
"SET COLCARD="NCCARD",LOW2KEY='"NL2KEY"',",
"HIGH2KEY='"NH2KEY"'"
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.