Ubicar las funciones en Oracle

[Nova]

Estimados estoy intentando ubicar las funciones de oracle, he intentado la bsuqueda en las tablas y en las vistas pero no tengo exito hasta el momento.
Necesito ubicar ya que algunas funciones están dando valores erroneos y quisiera corregirlos.
Adjunto codigo

AAA.ASSETCLASSID,
ARADMIN.ARS_SEC_TO_DATE (AAA.CREATE_DATE),
(SELECT ARADMIN.TEF_SELECTION_VALUES ('AST:AssetPeople', 7, STATUS)
FROM DUAL) AS ESTADO,
AAA.SUBMITTER

[gnzsoloyo]

¿Las funciones de Oracle, o funciones almacenadas creadas por los usuarios?
Para ver las rutinas almacenadas puedes usar la vista SYS.DBA_SOURCE, si es lo que necesitas.

[Nova]

Hola gnzsoloyo, gracias por responder en efecto lo que necesito son las rutinas generadas por los usuarios.
En tanto intenté encontrar la vista pero no hay la que dices (SYS.DBA_SOURCE).
Hay una lista de mas o menos 30 vistas con el inicio SYS_xyz..... , pero en ella no hay nada referente a dba_source.
Alguna pista?
Gracias

[gnzsoloyo]

En el esquema SYS están todos los componentes glbales, pero de allí a poder verlos hay un trecho. No te olvides que Oracle es muy estricto en cuanto a permisos.
¿Qué usuario y qué permisos tiene el que utilizas para consultar?

Prueba con ALL_SOURCE, por ejemplo:

Código SQL:

SELECT *
  FROM all_source a
 WHERE a.NAME = 'ARS_SEC_TO_DATE';
 

o bien all_objects:

Código SQL:

SELECT *
  FROM all_objects a
 WHERE a.owner = 'ARADMIN'
   AND a.object_type = 'FUNCTION';
 

Por supuesto, simepre dependerá de si tienes o n opermisos para realizar esas consultas a las vistas de la base SYS.

[Nova]

Me hiciste el día gnzsoloyo,
Tengo los resultados de ambas consultas, pero aun necesito saber (o desifrar) donde consigo los valores que obtiene al realizar dicha consulta, por ahi veo un FROM DUAL, el cual dicha vista/tabla no existe.

Código SQL:

FUNCTION TEF_SELECTION_VALUES ( FORMULARIO VARCHAR2, IDFIELD VARCHAR2, P_CODIGO NUMBER) RETURN varchar2 IS
 
    XXXX                      VARCHAR2(90);
 
    L_TEF_TAB_SELECT_VALUES   TEF_TAB_SELECT_VALUES:= TEF_TAB_SELECT_VALUES();
 
    F_DATOS                   VARCHAR2(4000);
 
    F_ELEMENTOS               NUMBER(15);
 
    F_LONGUITUD               NUMBER(15);
 
    L_LOCALE                  VARCHAR2(30);
 
    L_VALUE                   VARCHAR2(255);
 
    L_NUMBER                  NUMBER(15);
 
    X                         NUMBER(15) :=0;
 
    R                         NUMBER(15) :=0;
 
    CURSOR C1 IS
 
        SELECT DISTINCT
 
                       TO_NUMBER(FUENTE.LONGUITUD, '999990') AS LONGUITUD,
 
                       TO_NUMBER(SUBSTR(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)+1), 1, INSTR(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)+1), '\')-1), '999990') AS ELEMENTOS,
 
                       SUBSTR(SUBSTR(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)+1), INSTR(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)+1), '\'), LENGTH(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)+1))-INSTR(SUBSTR(FUENTE.CADENA, LENGTH(FUENTE.LONGUITUD)+2, LENGTH(FUENTE.CADENA)-LENGTH(FUENTE.LONGUITUD)), '\')), 1,  FUENTE.LONGUITUD) AS CADENA,
 
                       FUENTE.LOCALE AS LOCALE
 
        FROM
 
        (SELECT SUBSTR(SUBSTR(NVL(PROPSHORT, PROPLONG), INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')+7, LENGTH(NVL(PROPSHORT, PROPLONG))-INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')), 1, INSTR(SUBSTR(NVL(PROPSHORT, PROPLONG), INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')+7, LENGTH(NVL(PROPSHORT, PROPLONG))-INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')), '\')-1) AS LONGUITUD,
 
                SUBSTR(NVL(PROPSHORT, PROPLONG), INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')+7, LENGTH(NVL(PROPSHORT, PROPLONG))-INSTR(NVL(PROPSHORT, PROPLONG), '\230\4\')) AS CADENA,
                D.LOCALE AS LOCALE
         FROM   ARSCHEMA A, FIELD B, FIELD_DISPPROP C, VUI D
         WHERE  A.SCHEMAID = B.SCHEMAID
         AND    B.SCHEMAID = C.SCHEMAID
         AND    A.SCHEMAID = D.SCHEMAID
         AND    C.FIELDID  = B.FIELDID
         AND    D.VUIID = C.VUIID
         AND    D.LOCALE LIKE 'es%'
         AND    B.FIELDID  = IDFIELD
         AND    A.SCHEMAID = (SELECT SCHEMAID FROM ARSCHEMA WHERE NAME = FORMULARIO)) FUENTE;
    BEGIN
 
        OPEN C1;
        FETCH C1 INTO F_LONGUITUD, F_ELEMENTOS, F_DATOS, L_LOCALE;
 
        LOOP
            IF F_DATOS IS NULL THEN EXIT; END IF;
            --x :=0;
 
            R :=0;
 
            FOR R IN 1..F_ELEMENTOS LOOP
 
                --dbms_output.PUT_LINE(f_datos);
 
                SELECT REPLACE(SUBSTR(F_DATOS, 1, INSTR(F_DATOS, '\', 2)), '\', '') INTO L_NUMBER FROM DUAL;
 
                --dbms_output.PUT_LINE(l_number);
 
                SELECT '\' || REPLACE('@' || F_DATOS, '@' || SUBSTR(F_DATOS, 1, INSTR(F_DATOS, '\', 2)), '') INTO F_DATOS  FROM DUAL;
 
                --dbms_output.PUT_LINE(f_datos);
 
                SELECT REPLACE(SUBSTR(F_DATOS, 1, INSTR(F_DATOS, '\', 2)), '\', '') INTO L_VALUE FROM DUAL;
 
                --dbms_output.PUT_LINE(l_value);
 
                SELECT '\' || REPLACE('@' || F_DATOS, '@' || SUBSTR(F_DATOS, 1, INSTR(F_DATOS, '\', 2)), '') INTO F_DATOS FROM DUAL;
 
                L_TEF_TAB_SELECT_VALUES.EXTEND;
 
                L_TEF_TAB_SELECT_VALUES (X + 1) := TEF_OBJ_SELECT_VALUES(FORMULARIO, IDFIELD, L_NUMBER, L_VALUE, L_LOCALE);
 
                XXXX:=L_VALUE;
 
                EXIT WHEN L_NUMBER=P_CODIGO;
 
                X := X + 1;
 
            END LOOP;
 
        FETCH C1 INTO F_LONGUITUD, F_ELEMENTOS, F_DATOS, L_LOCALE;
 
        EXIT WHEN C1%NOTFOUND;
 
    END LOOP;
 
    CLOSE C1;
 
    RETURN XXXX;
 
   END;
 

[/QUOTE]

[gnzsoloyo]

Iniciado por Nova

Me hiciste el día gnzsoloyo,
Tengo los resultados de ambas consultas, pero aun necesito saber (o desifrar) donde consigo los valores que obtiene al realizar dicha consulta, por ahi veo un FROM DUAL, el cual dicha vista/tabla no existe.

Sin pretender ofenderte, esa observación que haces demuestra que te falta aprender algunas cosas de Oracle... Yo te sugeriría que antes de proseguir busques un tutorial básico para comprender algunos detalles de ese tenor y otros más.

DUAL es una tabla ficticia o "dummie" que se usa cuando se pretende obtener un resultado que no proviene de ninguna tabla física ni vista (datos creados por un SELECT), o bien se intenta almacenar un valor sin usar SET en una o más variables.
Oracle no acepta que un SELECT no tenga un FROM. Es una restricción que posee, a diferencia, por ejemplo, de MySQL.
¿Se entiende?
Por ello, eso no es un error.

Por otro lado, tu estás mencionando "valores erróneos", pero no nos dices ni cuáles, ni cómo sabes que son erróneos, ni tampoco en qué contexto de datos aparecen.

Con tan poca información no podemos ayudarte.

Previamente estabas buscando cómo encontrar las SF, y eso ya te lo dije. El resto del problema es algo que debes hacer tu, a menos que nos expliques concretamente lo que te menciono:
1) ¿Qué errores?
2) ¿En qué contexto?
3) ¿Cómo sabes que son errores de los SP y no errores producto de datos incorrectos ingressados?

Lo que sí te puedo hacer notar anticipadamente, es que esa SF tiene agregados puntos de control (ahora inactivos) tales que si la ejecutas a mano, te pueden mostrar en pantalla el estado parcial de ciertos datos en la ejecución. Tales controles se mostrarían en el spool o en pantalla si lo haces en consola.
Por lo demás, la forma de armado de la SF muestra bastante profesionalismo, por lo que no esperaría errores de programación, sino en todo caso de datos entrantes...

Código SQL:

FUNCTION TEF_SELECTION_VALUES (FORMULARIO VARCHAR2, IDFIELD VARCHAR2, P_CODIGO NUMBER)
    RETURN VARCHAR2
IS
    XXXX                      VARCHAR2 (90);
    L_TEF_TAB_SELECT_VALUES   TEF_TAB_SELECT_VALUES := TEF_TAB_SELECT_VALUES ();
    F_DATOS                   VARCHAR2 (4000);
    F_ELEMENTOS               NUMBER (15);
    F_LONGUITUD               NUMBER (15);
    L_LOCALE                  VARCHAR2 (30);
    L_VALUE                   VARCHAR2 (255);
    L_NUMBER                  NUMBER (15);
    X                         NUMBER (15)           := 0;
    R                         NUMBER (15)           := 0;
 
    CURSOR C1
    IS
        SELECT DISTINCT TO_NUMBER (FUENTE.LONGUITUD, '999990') AS LONGUITUD,
                        TO_NUMBER (SUBSTR (SUBSTR (FUENTE.CADENA,
                                                   LENGTH (FUENTE.LONGUITUD) + 2,
                                                   LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD) + 1
                                                  ),
                                           1,
                                             INSTR (SUBSTR (FUENTE.CADENA,
                                                            LENGTH (FUENTE.LONGUITUD) + 2,
                                                            LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD) + 1
                                                           ),
                                                    '\')
                                           - 1
                                          ),
                                   '999990') AS ELEMENTOS,
                        SUBSTR (SUBSTR (SUBSTR (FUENTE.CADENA,
                                                LENGTH (FUENTE.LONGUITUD) + 2,
                                                LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD) + 1
                                               ),
                                        INSTR (SUBSTR (FUENTE.CADENA,
                                                       LENGTH (FUENTE.LONGUITUD) + 2,
                                                       LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD) + 1
                                                      ),
                                               '\'),
                                          LENGTH (SUBSTR (FUENTE.CADENA,
                                                          LENGTH (FUENTE.LONGUITUD) + 2,
                                                          LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD) + 1
                                                         ))
                                        - INSTR (SUBSTR (FUENTE.CADENA,
                                                         LENGTH (FUENTE.LONGUITUD) + 2,
                                                         LENGTH (FUENTE.CADENA) - LENGTH (FUENTE.LONGUITUD)
                                                        ),
                                                 '\')
                                       ),
                                1,
                                FUENTE.LONGUITUD
                               ) AS CADENA,
                        FUENTE.LOCALE AS LOCALE
                   FROM (SELECT SUBSTR (SUBSTR (NVL (PROPSHORT, PROPLONG),
                                                INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\') + 7,
                                                LENGTH (NVL (PROPSHORT, PROPLONG))
                                                - INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\')
                                               ),
                                        1,
                                          INSTR (SUBSTR (NVL (PROPSHORT, PROPLONG),
                                                         INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\') + 7,
                                                           LENGTH (NVL (PROPSHORT, PROPLONG))
                                                         - INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\')
                                                        ),
                                                 '\')
                                        - 1
                                       ) AS LONGUITUD,
                                SUBSTR (NVL (PROPSHORT, PROPLONG),
                                        INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\') + 7,
                                        LENGTH (NVL (PROPSHORT, PROPLONG)) - INSTR (NVL (PROPSHORT, PROPLONG), '\230\4\')
                                       ) AS CADENA,
                                D.LOCALE AS LOCALE
                           FROM ARSCHEMA A, FIELD B, FIELD_DISPPROP C, VUI D
                          WHERE A.SCHEMAID = B.SCHEMAID
                            AND B.SCHEMAID = C.SCHEMAID
                            AND A.SCHEMAID = D.SCHEMAID
                            AND C.FIELDID = B.FIELDID
                            AND D.VUIID = C.VUIID
                            AND D.LOCALE LIKE 'es%'
                            AND B.FIELDID = IDFIELD
                            AND A.SCHEMAID = (SELECT SCHEMAID
                                                FROM ARSCHEMA
                                               WHERE NAME = FORMULARIO)) FUENTE;
BEGIN
    OPEN C1;
 
    FETCH C1
     INTO F_LONGUITUD, F_ELEMENTOS, F_DATOS, L_LOCALE;
    LOOP
        IF F_DATOS IS NULL
        THEN
            EXIT;
        END IF;
        --x :=0;
        R    := 0;
        FOR R IN 1 .. F_ELEMENTOS LOOP
            --dbms_output.PUT_LINE(f_datos);
            SELECT REPLACE (SUBSTR (F_DATOS, 1, INSTR (F_DATOS, '\', 2)), '\', '')
              INTO L_NUMBER
              FROM DUAL;
              
            --dbms_output.PUT_LINE(l_number);
            SELECT '\' || REPLACE ('@' || F_DATOS, '@' || SUBSTR (F_DATOS, 1, INSTR (F_DATOS, '\', 2)), '')
              INTO F_DATOS
              FROM DUAL;
 
            --dbms_output.PUT_LINE(f_datos);
            SELECT REPLACE (SUBSTR (F_DATOS, 1, INSTR (F_DATOS, '\', 2)), '\', '')
              INTO L_VALUE
              FROM DUAL;
 
            --dbms_output.PUT_LINE(l_value);
            SELECT '\' || REPLACE ('@' || F_DATOS, '@' || SUBSTR (F_DATOS, 1, INSTR (F_DATOS, '\', 2)), '')
              INTO F_DATOS
              FROM DUAL;
 
            L_TEF_TAB_SELECT_VALUES.EXTEND;
            L_TEF_TAB_SELECT_VALUES (X + 1)    := TEF_OBJ_SELECT_VALUES (FORMULARIO,
                                                                         IDFIELD,
                                                                         L_NUMBER,
                                                                         L_VALUE,
                                                                         L_LOCALE
                                                                        );
            XXXX                               := L_VALUE;
            EXIT WHEN L_NUMBER = P_CODIGO;
            X                                  := X + 1;
        END LOOP;
        FETCH C1
         INTO F_LONGUITUD, F_ELEMENTOS, F_DATOS, L_LOCALE;
        EXIT WHEN C1%NOTFOUND;
    END LOOP;
    CLOSE C1;
    RETURN XXXX;
END;
 

Explicanos lo que te digo y veremos por donde es el problema.