DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
DB2 catalog statistics update REXX EXEC – part 2 This ... - CBT Tape
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
NCDATAD= CCDATAD<br />
address ispexec "TBADD T£CLM"<br />
CNAME = ' '<br />
CFLD = 'Hi2key'<br />
CCDATAE= RXCSR4.6<br />
call EB_DECODE<br />
NCDATAE= CCDATAE<br />
NCDATAD= CCDATAD<br />
address ispexec "TBADD T£CLM"<br />
end<br />
address db2 "CLOSE RXCSR4"<br />
end<br />
address db2 "SIGNOFF"<br />
<strong>DB2</strong>CON = Ø<br />
ZCMD = ''<br />
address ispexec "TBTOP T£CLM"<br />
/*———————————————————————————————— */<br />
/* Process column <strong>statistics</strong> panel */<br />
/*———————————————————————————————— */<br />
do forever<br />
address ispexec "TBDISPL T£CLM PANEL(CSCLM) AUTOSEL(NO)"<br />
if rc > 4 then leave<br />
MESS = ' '<br />
K = ZTDSELS + Ø<br />
do until K < 1<br />
if K > Ø then do I = 1 by 1 to K<br />
if NCDATAD = '' | NCDATAD = ' ' then do<br />
NCDATAE = CCDATAE<br />
NCDATAD = CCDATAD<br />
end<br />
else<br />
/*————————————————————————————————*/<br />
/* Process data depending on CFLD */<br />
/*————————————————————————————————*/<br />
if CFLD = 'Colcard' then<br />
NCDATAE = NCDATAD<br />
else<br />
call EC_ENCODE<br />
address ispexec "TBPUT T£CLM"<br />
address ispexec "TBDISPL T£CLM"<br />
MESS = ' '<br />
end /* I LOOP */<br />
K = ZTDSELS + Ø<br />
end /* K LOOP */<br />
MESS = ' '<br />
if rc > 4 then leave<br />
if ZCMD = exit then exit<br />
if ZCMD = end then leave<br />
if ZCMD = 'UPD'<br />
then do<br />
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.<br />
17