DBA Data[Home] [Help]

APPS.IBY_UTILITY_PVT dependencies on UTL_RAW

Line 358: r := UTL_RAW.CAST_TO_RAW( s );

354: v VARCHAR2(32767);
355: BEGIN
356:
357: init_map;
358: r := UTL_RAW.CAST_TO_RAW( s );
359:
360: -- For every 3 bytes, split them into 4 6-bit units and map them to
361: -- the Base64 characters
362: i := 1;

Line 363: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP

359:
360: -- For every 3 bytes, split them into 4 6-bit units and map them to
361: -- the Base64 characters
362: i := 1;
363: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
364: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
365: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
366: to_number(utl_raw.substr(r, i + 2, 1), '0X');
367: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;

Line 364: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +

360: -- For every 3 bytes, split them into 4 6-bit units and map them to
361: -- the Base64 characters
362: i := 1;
363: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
364: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
365: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
366: to_number(utl_raw.substr(r, i + 2, 1), '0X');
367: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
368: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;

Line 365: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +

361: -- the Base64 characters
362: i := 1;
363: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
364: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
365: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
366: to_number(utl_raw.substr(r, i + 2, 1), '0X');
367: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
368: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;
369: y := floor(x / 64); v := v || map(y); x := x - y * 64;

Line 366: to_number(utl_raw.substr(r, i + 2, 1), '0X');

362: i := 1;
363: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
364: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
365: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
366: to_number(utl_raw.substr(r, i + 2, 1), '0X');
367: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
368: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;
369: y := floor(x / 64); v := v || map(y); x := x - y * 64;
370: v := v || map(x);

Line 376: IF ( utl_raw.length(r) - i = 0) THEN

372: END LOOP;
373:
374: -- Process the remaining bytes that has fewer than 3 bytes.
375: --when last two bytes are '='
376: IF ( utl_raw.length(r) - i = 0) THEN
377: x := to_number(utl_raw.substr(r, i, 1), '0X');
378: y := floor(x / 4); v := v || map(y); x := x - y * 4;
379: x := x * 16; v := v || map(x);
380: v := v || '==';

Line 377: x := to_number(utl_raw.substr(r, i, 1), '0X');

373:
374: -- Process the remaining bytes that has fewer than 3 bytes.
375: --when last two bytes are '='
376: IF ( utl_raw.length(r) - i = 0) THEN
377: x := to_number(utl_raw.substr(r, i, 1), '0X');
378: y := floor(x / 4); v := v || map(y); x := x - y * 4;
379: x := x * 16; v := v || map(x);
380: v := v || '==';
381: --when last one byte is '='

Line 382: ELSIF ( utl_raw.length(r) - i = 1) THEN

378: y := floor(x / 4); v := v || map(y); x := x - y * 4;
379: x := x * 16; v := v || map(x);
380: v := v || '==';
381: --when last one byte is '='
382: ELSIF ( utl_raw.length(r) - i = 1) THEN
383: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
384: to_number(utl_raw.substr(r, i + 1, 1), '0X');
385: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
386: y := floor(x / 16); v := v || map(y); x := x - y * 16;

Line 383: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +

379: x := x * 16; v := v || map(x);
380: v := v || '==';
381: --when last one byte is '='
382: ELSIF ( utl_raw.length(r) - i = 1) THEN
383: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
384: to_number(utl_raw.substr(r, i + 1, 1), '0X');
385: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
386: y := floor(x / 16); v := v || map(y); x := x - y * 16;
387: x := x * 4; v := v || map(x);

Line 384: to_number(utl_raw.substr(r, i + 1, 1), '0X');

380: v := v || '==';
381: --when last one byte is '='
382: ELSIF ( utl_raw.length(r) - i = 1) THEN
383: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
384: to_number(utl_raw.substr(r, i + 1, 1), '0X');
385: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
386: y := floor(x / 16); v := v || map(y); x := x - y * 16;
387: x := x * 4; v := v || map(x);
388: v := v || '=';