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

end
/*————————————————————————————————————————————*/
/* Default Decode data to hexadecimal encoded */
/*————————————————————————————————————————————*/
CCDATAD = CCDATAE
return
EC_ENCODE:
/*——————————————————*/
/* Character Encode */
/*——————————————————*/
if CTYPE = 'CHAR' then do
NCDATAD = left(NCDATAD,CLEN)
NCDATAE = c2x(NCDATAD) || '4Ø4Ø4Ø4Ø4Ø4Ø4Ø4Ø'
NCDATAE = left(NCDATAE,16)
return
end
/*————————————————*/
/* Decimal Encode */
/*————————————————*/
if CTYPE = 'DECIMAL' then do
if CLEN > 15 then CLEN = 15
CSIZE = CLEN + 1
DSIGN = left(NCDATAD,1)
/*——————————————*/
/* Extract sign */
/*——————————————*/
if DSIGN ¬= '+' then
if DSIGN ¬= '-' then do
if DSIGN = ' ' then NCDADATD = '+' || substr(NCDATAD,2)
else NCDATAD = '+' || NCDATAD
DSIGN = '+'
end
/*—————————————— */
/* Right justify */
/*—————————————— */
DLEN = length(NCDATAD)
ZS = CSIZE - DLEN
if ZS > Ø then do until ZS < 1
NCDATAD = DSIGN || 'Ø' || substr(NCDATAD,2)
ZS = ZS - 1
end
NCDATAD = left(NCDATAD,CSIZE)
/*————————————*/
/* Now encode */
/*————————————*/
if left(NCDATAD,1) = '-' then do
DEFLD = 'Ø'
do I = 2 BY 1 TO CSIZE
wkf = x2d(substr(NCDATAD,I,1))
© 1999. Reproduction prohibited. Please inform Xephon of any infringement.
21