Re: PL/SQL function to output number as hexadecimal string?

From: Yass Khogaly <ykhogaly_at_us.oracle.com>
Date: Mon, 19 Jul 1999 15:52:08 -0700
Message-ID: <7n06lq$kt5$1@inet16.us.oracle.com>

SET ECHO off
  REM NAME: TFSDC2HX.SQL
  REM USAGE:"@path/tfsdec2hx"

REM ------------------------------------------------------------------------

  REM REQUIREMENTS:
  REM CREATE PROCEDURE

REM ------------------------------------------------------------------------

  REM PURPOSE:
  REM This function will convert a decimal input to hexadecimal.

REM ------------------------------------------------------------------------

  REM EXAMPLE:
  REM N/A
  REM

REM ------------------------------------------------------------------------

  REM DISCLAIMER:
  REM This script is provided for educational purposes only. It is NOT   REM supported by Oracle World Wide Technical Support.   REM The script has been tested and appears to work as intended.   REM You should always run new scripts on a test instance initially.

REM ------------------------------------------------------------------------

  REM Main text of script follows:

          FUNCTION hextodec (hexnum in char) RETURN number IS
          x       number;
          digits  number;
          result  number := 0;


          current_digit char(1);
          current_digit_dec number;
          BEGIN
          digits := length(hexnum);
          for x in 1..digits loop
            current_digit := SUBSTR(hexnum, x, 1);
            if current_digit in ('A','B','C','D','E','F') then
                  current_digit_dec := ascii(current_digit) - ascii('A') +
10;
            else
                  current_digit_dec := to_number(current_digit);
            end if;
                  result := (result * 16) + current_digit_dec;
   end loop;
          return result;
          END;

I hope this of any help

Regards

"The Views expressed here are my own and not necessarily those of Oracle Corporation"

Kevin P. Fleming <kfleming_at_access-laserpress.com> wrote in message news:SGLk3.69981$Fz2.10560_at_news.rdc1.az.home.com...
> Anyone have one of these beasts already written they'd care to share?
>
Received on Mon Jul 19 1999 - 17:52:08 CDT