DBA Data[Home] [Help]

APPS.CZ_FCE_COMPILE_DEBUG dependencies on DBMS_LOB

Line 15: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 1, p_ptr));

11: -------------------------------------------
12: FUNCTION get_byte ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
13: BEGIN
14:
15: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 1, p_ptr));
16:
17: END get_byte;
18: -------------------------------------------
19: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS

Line 22: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 2, p_ptr));

18: -------------------------------------------
19: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
20: BEGIN
21:
22: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 2, p_ptr));
23:
24: END get_word;
25: -------------------------------------------
26: FUNCTION get_integer ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS

Line 29: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 4, p_ptr));

25: -------------------------------------------
26: FUNCTION get_integer ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
27: BEGIN
28:
29: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 4, p_ptr));
30:
31: END get_integer;
32: -------------------------------------------
33: BEGIN

Line 35: CASE DBMS_LOB.SUBSTR (ConstantPool, 1, i_ptr)

31: END get_integer;
32: -------------------------------------------
33: BEGIN
34:
35: CASE DBMS_LOB.SUBSTR (ConstantPool, 1, i_ptr)
36:
37: WHEN cz_fce_compile.const_string_tag THEN
38:
39: i_len := get_word (i_ptr + 1);

Line 41: RETURN UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(ConstantPool, i_len, i_ptr + 3));

37: WHEN cz_fce_compile.const_string_tag THEN
38:
39: i_len := get_word (i_ptr + 1);
40:
41: RETURN UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(ConstantPool, i_len, i_ptr + 3));
42:
43: WHEN cz_fce_compile.const_integer_tag THEN
44:
45: RETURN get_integer (i_ptr + 1);

Line 49: RETURN UTL_RAW.CAST_TO_BINARY_FLOAT(DBMS_LOB.SUBSTR(ConstantPool, 4, i_ptr + 1));

45: RETURN get_integer (i_ptr + 1);
46:
47: WHEN cz_fce_compile.const_float_tag THEN
48:
49: RETURN UTL_RAW.CAST_TO_BINARY_FLOAT(DBMS_LOB.SUBSTR(ConstantPool, 4, i_ptr + 1));
50:
51: WHEN cz_fce_compile.const_long_tag THEN
52:
53: RETURN get_integer (i_ptr + 1) || ':' || get_integer (i_ptr + 5);

Line 57: RETURN UTL_RAW.CAST_TO_BINARY_DOUBLE(DBMS_LOB.SUBSTR(ConstantPool, 8, i_ptr + 1));

53: RETURN get_integer (i_ptr + 1) || ':' || get_integer (i_ptr + 5);
54:
55: WHEN cz_fce_compile.const_double_tag THEN
56:
57: RETURN UTL_RAW.CAST_TO_BINARY_DOUBLE(DBMS_LOB.SUBSTR(ConstantPool, 8, i_ptr + 1));
58:
59: WHEN cz_fce_compile.const_method_tag THEN
60:
61: RETURN t_methoddescriptors ( get_byte (i_ptr + 1));

Line 94: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(CodeMemory, 1, p_ptr));

90: -------------------------------------------
91: FUNCTION get_byte ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
92: BEGIN
93:
94: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(CodeMemory, 1, p_ptr));
95:
96: END get_byte;
97: -------------------------------------------
98: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS

Line 101: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(CodeMemory, 2, p_ptr));

97: -------------------------------------------
98: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
99: BEGIN
100:
101: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(CodeMemory, 2, p_ptr));
102:
103: END get_word;
104: -------------------------------------------
105: BEGIN

Line 108: debug('Code Memory: ' || NVL ( DBMS_LOB.GETLENGTH (CodeMemory), 0) || ' bytes');

104: -------------------------------------------
105: BEGIN
106:
107: debug('------------------------');
108: debug('Code Memory: ' || NVL ( DBMS_LOB.GETLENGTH (CodeMemory), 0) || ' bytes');
109: debug('------------------------');
110:
111: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (CodeMemory)) LOOP
112:

Line 111: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (CodeMemory)) LOOP

107: debug('------------------------');
108: debug('Code Memory: ' || NVL ( DBMS_LOB.GETLENGTH (CodeMemory), 0) || ' bytes');
109: debug('------------------------');
110:
111: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (CodeMemory)) LOOP
112:
113: CASE DBMS_LOB.SUBSTR (CodeMemory, 1, i_ptr)
114:
115: WHEN cz_fce_compile.h_inst('nop') THEN

Line 113: CASE DBMS_LOB.SUBSTR (CodeMemory, 1, i_ptr)

109: debug('------------------------');
110:
111: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (CodeMemory)) LOOP
112:
113: CASE DBMS_LOB.SUBSTR (CodeMemory, 1, i_ptr)
114:
115: WHEN cz_fce_compile.h_inst('nop') THEN
116:
117: debug('nop');

Line 405: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 1, p_ptr));

401: -------------------------------------------
402: FUNCTION get_byte ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
403: BEGIN
404:
405: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 1, p_ptr));
406:
407: END get_byte;
408: -------------------------------------------
409: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS

Line 412: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 2, p_ptr));

408: -------------------------------------------
409: FUNCTION get_word ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
410: BEGIN
411:
412: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 2, p_ptr));
413:
414: END get_word;
415: -------------------------------------------
416: FUNCTION get_integer ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS

Line 419: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 4, p_ptr));

415: -------------------------------------------
416: FUNCTION get_integer ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
417: BEGIN
418:
419: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR(ConstantPool, 4, p_ptr));
420:
421: END get_integer;
422: -------------------------------------------
423: BEGIN

Line 426: debug('Constant Pool: ' || NVL ( DBMS_LOB.GETLENGTH (ConstantPool), 0) || ' bytes');

422: -------------------------------------------
423: BEGIN
424:
425: debug('--------------------------');
426: debug('Constant Pool: ' || NVL ( DBMS_LOB.GETLENGTH (ConstantPool), 0) || ' bytes');
427: debug('--------------------------');
428:
429: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (ConstantPool)) LOOP
430:

Line 429: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (ConstantPool)) LOOP

425: debug('--------------------------');
426: debug('Constant Pool: ' || NVL ( DBMS_LOB.GETLENGTH (ConstantPool), 0) || ' bytes');
427: debug('--------------------------');
428:
429: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (ConstantPool)) LOOP
430:
431: CASE DBMS_LOB.SUBSTR (ConstantPool, 1, i_ptr)
432:
433: WHEN cz_fce_compile.const_string_tag THEN

Line 431: CASE DBMS_LOB.SUBSTR (ConstantPool, 1, i_ptr)

427: debug('--------------------------');
428:
429: WHILE (i_ptr <= DBMS_LOB.GETLENGTH (ConstantPool)) LOOP
430:
431: CASE DBMS_LOB.SUBSTR (ConstantPool, 1, i_ptr)
432:
433: WHEN cz_fce_compile.const_string_tag THEN
434:
435: i_len := get_word (i_ptr + 1);

Line 437: UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(ConstantPool, i_len, i_ptr + 3)));

433: WHEN cz_fce_compile.const_string_tag THEN
434:
435: i_len := get_word (i_ptr + 1);
436: debug('string ' || TO_CHAR(i_ptr - 1 , 'FM09999999') || ': ' ||
437: UTL_RAW.CAST_TO_VARCHAR2(DBMS_LOB.SUBSTR(ConstantPool, i_len, i_ptr + 3)));
438: i_ptr := i_ptr + i_len + 3;
439:
440: WHEN cz_fce_compile.const_integer_tag THEN
441:

Line 448: UTL_RAW.CAST_TO_BINARY_FLOAT(DBMS_LOB.SUBSTR(ConstantPool, 4, i_ptr + 1)));

444:
445: WHEN cz_fce_compile.const_float_tag THEN
446:
447: debug('float ' || TO_CHAR(i_ptr - 1, 'FM09999999') || ': ' ||
448: UTL_RAW.CAST_TO_BINARY_FLOAT(DBMS_LOB.SUBSTR(ConstantPool, 4, i_ptr + 1)));
449: i_ptr := i_ptr + 5;
450:
451: WHEN cz_fce_compile.const_long_tag THEN
452:

Line 460: UTL_RAW.CAST_TO_BINARY_DOUBLE(DBMS_LOB.SUBSTR(ConstantPool, 8, i_ptr + 1)));

456:
457: WHEN cz_fce_compile.const_double_tag THEN
458:
459: debug('double ' || TO_CHAR(i_ptr - 1, 'FM09999999') || ': ' ||
460: UTL_RAW.CAST_TO_BINARY_DOUBLE(DBMS_LOB.SUBSTR(ConstantPool, 8, i_ptr + 1)));
461: i_ptr := i_ptr + 9;
462:
463: WHEN cz_fce_compile.const_method_tag THEN
464:

Line 489: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR( p_fce_file, 4, p_ptr));

485:
486: FUNCTION get_integer ( p_ptr IN PLS_INTEGER ) RETURN BINARY_INTEGER IS
487: BEGIN
488:
489: RETURN UTL_RAW.CAST_TO_BINARY_INTEGER(DBMS_LOB.SUBSTR( p_fce_file, 4, p_ptr));
490:
491: END get_integer;
492:
493: BEGIN

Line 495: l_size := get_integer ( DBMS_LOB.GETLENGTH ( p_fce_file ) - 7 );

491: END get_integer;
492:
493: BEGIN
494:
495: l_size := get_integer ( DBMS_LOB.GETLENGTH ( p_fce_file ) - 7 );
496: l_tail := DBMS_LOB.GETLENGTH ( p_fce_file ) - 8 - l_size;
497:
498: IF ( l_size > 0 ) THEN l_constant_pool := DBMS_LOB.SUBSTR ( p_fce_file, l_size, 1 ); END IF;
499: IF ( l_tail > 0 ) THEN l_code_memory := DBMS_LOB.SUBSTR ( p_fce_file, l_tail, l_size + 1); END IF;

Line 496: l_tail := DBMS_LOB.GETLENGTH ( p_fce_file ) - 8 - l_size;

492:
493: BEGIN
494:
495: l_size := get_integer ( DBMS_LOB.GETLENGTH ( p_fce_file ) - 7 );
496: l_tail := DBMS_LOB.GETLENGTH ( p_fce_file ) - 8 - l_size;
497:
498: IF ( l_size > 0 ) THEN l_constant_pool := DBMS_LOB.SUBSTR ( p_fce_file, l_size, 1 ); END IF;
499: IF ( l_tail > 0 ) THEN l_code_memory := DBMS_LOB.SUBSTR ( p_fce_file, l_tail, l_size + 1); END IF;
500:

Line 498: IF ( l_size > 0 ) THEN l_constant_pool := DBMS_LOB.SUBSTR ( p_fce_file, l_size, 1 ); END IF;

494:
495: l_size := get_integer ( DBMS_LOB.GETLENGTH ( p_fce_file ) - 7 );
496: l_tail := DBMS_LOB.GETLENGTH ( p_fce_file ) - 8 - l_size;
497:
498: IF ( l_size > 0 ) THEN l_constant_pool := DBMS_LOB.SUBSTR ( p_fce_file, l_size, 1 ); END IF;
499: IF ( l_tail > 0 ) THEN l_code_memory := DBMS_LOB.SUBSTR ( p_fce_file, l_tail, l_size + 1); END IF;
500:
501: dump_constant_pool( l_constant_pool, p_run_id );
502: dump_code_memory( l_code_memory, l_constant_pool, p_run_id);

Line 499: IF ( l_tail > 0 ) THEN l_code_memory := DBMS_LOB.SUBSTR ( p_fce_file, l_tail, l_size + 1); END IF;

495: l_size := get_integer ( DBMS_LOB.GETLENGTH ( p_fce_file ) - 7 );
496: l_tail := DBMS_LOB.GETLENGTH ( p_fce_file ) - 8 - l_size;
497:
498: IF ( l_size > 0 ) THEN l_constant_pool := DBMS_LOB.SUBSTR ( p_fce_file, l_size, 1 ); END IF;
499: IF ( l_tail > 0 ) THEN l_code_memory := DBMS_LOB.SUBSTR ( p_fce_file, l_tail, l_size + 1); END IF;
500:
501: dump_constant_pool( l_constant_pool, p_run_id );
502: dump_code_memory( l_code_memory, l_constant_pool, p_run_id);
503: