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

wkf = 15 - wkf
wkf = d2x(wkf,1)
DEFLD = DEFLD || wkf
end
DEFLD = DEFLD || '4Ø4Ø4Ø4Ø4Ø4Ø4Ø4Ø'
end
else
DEFLD = 'F' || substr(NCDATAD,2,CLEN) || '4Ø4Ø4Ø4Ø4Ø4Ø4Ø4Ø'
NCDATAE = left(DEFLD,16)
return
end
/*———————————————————————————— */
/* Smallint/Integer validation */
/*———————————————————————————— */
if CTYPE = 'INTEGER' then do
intlen = 9
if left(NCDATAD,1) = '-' then intlen = intlen + 1
if left(NCDATAD,1) = '+' then intlen = intlen + 1
NCDATAD = left(NCDATAD,intlen)
end
if CTYPE = 'SMALLINT' then do
if NCDATAD < -32768 then NCDATAD = -32768
if NCDATAD > 32767 then NCDATAD = 32767
end
/*————————————————*/
/* Integer Encode */
/*————————————————*/
if CTYPE = 'INTEGER' then do
wkf = d2x(NCDATAD,8)
wkf = x2b(wkf)
if left(wkf,1) = '1' then
wkf = 'Ø' || substr(wkf,2)
else
wkf = '1' || substr(wkf,2)
wkf = b2x(wkf)
NCDATAE = wkf || '4Ø4Ø4Ø4Ø'
return
end
/*———————————————— */
/* Smallint Encode */
/*———————————————— */
if CTYPE = 'SMALLINT' then do
wkf = d2x(NCDATAD,4)
wkf = x2b(wkf)
if left(wkf,1) = '1' then
wkf = 'Ø' || substr(wkf,2)
else
wkf = '1' || substr(wkf,2)
wkf = b2x(wkf)
NCDATAE = wkf || '4Ø4Ø4Ø4Ø4Ø4Ø'
22
© 1999. Xephon UK telephone 01635 33848, fax 01635 38345. USA telephone (940) 455 7050, fax (940) 455 2492.