DBA Data[Home] [Help]

APPS.IBY_UTILITY_PVT dependencies on UTL_RAW

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

365: v VARCHAR2(32767);
366: BEGIN
367:
368: init_map;
369: r := UTL_RAW.CAST_TO_RAW( s );
370:
371: -- For every 3 bytes, split them into 4 6-bit units and map them to
372: -- the Base64 characters
373: i := 1;

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

370:
371: -- For every 3 bytes, split them into 4 6-bit units and map them to
372: -- the Base64 characters
373: i := 1;
374: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
375: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
376: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
377: to_number(utl_raw.substr(r, i + 2, 1), '0X');
378: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;

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

371: -- For every 3 bytes, split them into 4 6-bit units and map them to
372: -- the Base64 characters
373: i := 1;
374: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
375: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
376: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
377: to_number(utl_raw.substr(r, i + 2, 1), '0X');
378: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
379: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;

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

372: -- the Base64 characters
373: i := 1;
374: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
375: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
376: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
377: to_number(utl_raw.substr(r, i + 2, 1), '0X');
378: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
379: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;
380: y := floor(x / 64); v := v || map(y); x := x - y * 64;

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

373: i := 1;
374: WHILE ( i + 2 <= utl_raw.length(r) ) LOOP
375: x := to_number(utl_raw.substr(r, i, 1), '0X') * 65536 +
376: to_number(utl_raw.substr(r, i + 1, 1), '0X') * 256 +
377: to_number(utl_raw.substr(r, i + 2, 1), '0X');
378: y := floor(x / 262144); v := v || map(y); x := x - y * 262144;
379: y := floor(x / 4096); v := v || map(y); x := x - y * 4096;
380: y := floor(x / 64); v := v || map(y); x := x - y * 64;
381: v := v || map(x);

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

383: END LOOP;
384:
385: -- Process the remaining bytes that has fewer than 3 bytes.
386: --when last two bytes are '='
387: IF ( utl_raw.length(r) - i = 0) THEN
388: x := to_number(utl_raw.substr(r, i, 1), '0X');
389: y := floor(x / 4); v := v || map(y); x := x - y * 4;
390: x := x * 16; v := v || map(x);
391: v := v || '==';

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

384:
385: -- Process the remaining bytes that has fewer than 3 bytes.
386: --when last two bytes are '='
387: IF ( utl_raw.length(r) - i = 0) THEN
388: x := to_number(utl_raw.substr(r, i, 1), '0X');
389: y := floor(x / 4); v := v || map(y); x := x - y * 4;
390: x := x * 16; v := v || map(x);
391: v := v || '==';
392: --when last one byte is '='

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

389: y := floor(x / 4); v := v || map(y); x := x - y * 4;
390: x := x * 16; v := v || map(x);
391: v := v || '==';
392: --when last one byte is '='
393: ELSIF ( utl_raw.length(r) - i = 1) THEN
394: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
395: to_number(utl_raw.substr(r, i + 1, 1), '0X');
396: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
397: y := floor(x / 16); v := v || map(y); x := x - y * 16;

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

390: x := x * 16; v := v || map(x);
391: v := v || '==';
392: --when last one byte is '='
393: ELSIF ( utl_raw.length(r) - i = 1) THEN
394: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
395: to_number(utl_raw.substr(r, i + 1, 1), '0X');
396: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
397: y := floor(x / 16); v := v || map(y); x := x - y * 16;
398: x := x * 4; v := v || map(x);

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

391: v := v || '==';
392: --when last one byte is '='
393: ELSIF ( utl_raw.length(r) - i = 1) THEN
394: x := to_number(utl_raw.substr(r, i, 1), '0X') * 256 +
395: to_number(utl_raw.substr(r, i + 1, 1), '0X');
396: y := floor(x / 1024); v := v || map(y); x := x - y * 1024;
397: y := floor(x / 16); v := v || map(y); x := x - y * 16;
398: x := x * 4; v := v || map(x);
399: v := v || '=';