Back to home page

Project CMSSW displayed by LXR

 
 

    


File indexing completed on 2024-04-06 12:23:00

0001  
0002 CREATE OR REPLACE FUNCTION num2hex (N IN NUMBER) RETURN VARCHAR2 IS
0003   H  VARCHAR2(64) :='';
0004   N2 INTEGER      := N;
0005 BEGIN
0006   LOOP
0007      SELECT RAWTOHEX(CHR(N2))||H
0008      INTO   H
0009      FROM   dual;
0010  
0011      N2 := TRUNC(N2 / 256);
0012      EXIT WHEN N2=0;
0013   END LOOP;
0014   RETURN H;
0015 END num2hex;
0016 /
0017 show errors
0018