PARAMETERS p_hexcis
m.deccrd = 0
m.digdec = 0
FOR k=1 TO LEN(m.p_hexcis)
  m.dig = SUBSTR(m.p_hexcis,k,1)
  DO case
  CASE INLIST(m.dig,'0','1','2','3','4','5','6','7','8','9')
    m.digdec = VAL(m.dig)
  CASE UPPER(m.dig) = 'A'
    m.digdec = 10
  CASE UPPER(m.dig) = 'B'
    m.digdec = 11
  CASE UPPER(m.dig) = 'C'
    m.digdec = 12
  CASE UPPER(m.dig) = 'D'
    m.digdec = 13
  CASE UPPER(m.dig) = 'E'
    m.digdec = 14
  CASE UPPER(m.dig) = 'F'
    m.digdec = 15
  ENDCASE 
  m.deccrd = m.deccrd + m.digdec*16**(LEN(m.p_hexcis)-k)
ENDFOR 
RETURN m.deccrd
