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
Create successful ePaper yourself
Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.
*————————————————*/<br />
/* Decimal Decode */<br />
/*————————————————*/<br />
if CTYPE = 'DECIMAL' then do<br />
if left(CCDATAE,1) = 'F' then<br />
DEFLD = '+' || substr(CCDATAE,2)<br />
else do<br />
DEFLD = '-'<br />
do I = 2 BY 1 TO 16<br />
wkf = x2d(substr(CCDATAE,I,1))<br />
wkf = 15 - wkf<br />
wkf = d2x(wkf,1)<br />
DEFLD = DEFLD || wkf<br />
end<br />
end<br />
CSIZE = CLEN + 1<br />
CCDATAD = left(DEFLD,CSIZE)<br />
return<br />
end<br />
/*————————————————*/<br />
/* Integer Decode */<br />
/*————————————————*/<br />
if CTYPE = 'INTEGER' then do<br />
DEFLD = ''<br />
wkf = left(CCDATAE,8)<br />
wkf = x2b(wkf)<br />
if left(wkf,1) = '1' then<br />
wkf = 'Ø' || substr(wkf,2)<br />
else<br />
wkf = '1' || substr(wkf,2)<br />
defld = b2x(wkf)<br />
defld = x2d(defld,9)<br />
CCDATAD = DEFLD<br />
return<br />
end<br />
/*———————————————— */<br />
/* Smallint Decode */<br />
/*———————————————— */<br />
if CTYPE = 'SMALLINT' then do<br />
DEFLD = ''<br />
wkf = left(CCDATAE,4)<br />
wkf = x2b(wkf)<br />
if left(wkf,1) = '1' then<br />
wkf = 'Ø' || substr(wkf,2)<br />
else<br />
wkf = '1' || substr(wkf,2)<br />
defld = b2x(wkf)<br />
defld = x2d(defld,5)<br />
CCDATAD = DEFLD<br />
return<br />
20<br />
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.