The remove of the comment in "FOR rec IN(/*WITH ..." in the following source has the effect that the struktur of the package does not appear content area.
This occurs when you switch between the package spec tabpane and the package body tabpane
Maybe the pl/sql develeoper cannot parse the statement
create or replace package test is
FUNCTION TREE_FIXML ( IN_FIX_ORDER_ID IN FIX_ORDER.FIX_ORDER_ID%TYPE
) RETURN GLOBAL.TABLE_TREE_XML;
end test;
/
create or replace package body test is
FUNCTION TREE_FIXML ( IN_FIX_ORDER_ID IN FIX_ORDER.FIX_ORDER_ID%TYPE
) RETURN GLOBAL.TABLE_TREE_XML
IS
methodenname VARCHAR2(100) := K_PACKAGENAME||'.TREE_FIXML';
res GLOBAL.TABLE_TREE_XML := GLOBAL.TABLE_TREE_XML();
BEGIN
IF SYS_CONTEXT('TRACE','TRACE_LEVEL') >= GLOBAL.PA_UTIL.TRACE_TRACE THEN
GLOBAL.PA_UTIL.TRACE( GLOBAL.PA_UTIL.TRACE_TRACE, methodenname, 'Parameters: '
||'IN_FIX_ORDER_ID = '||IN_FIX_ORDER_ID||'; '
);
END IF;
FOR rec IN(/*WITH M2O AS (SELECT m2o.FIX_MESSAGE_ID
FROM WP.FIX_MESSAGE2ORDER m2o
WHERE m2o.FIX_ORDER_ID = IN_FIX_ORDER_ID
UNION
SELECT m2z.FIX_MESSAGE_ID
FROM WP.FIX_ZUTEILUNG2ORDER z2o
JOIN WP.FIX_MESSAGE2ZUTEILUNG m2z ON(z2o.FIX_ZUTEILUNG_ID=m2z.FIX_ZUTEILUNG_ID)
WHERE z2o.FIX_ORDER_ID = IN_FIX_ORDER_ID)*/
SELECT t2x.FIX_XML_ID
,CASE m.MSG_IO WHEN 'I' THEN 'IN ' WHEN 'O' THEN 'OUT' END||' - '||t.MSG_TYPE_NAME AS MSG_NAME
,m.FIX_MESSAGE_ID
FROM (SELECT m2o.FIX_MESSAGE_ID
FROM WP.FIX_MESSAGE2ORDER m2o
WHERE m2o.FIX_ORDER_ID = IN_FIX_ORDER_ID
UNION
SELECT m2z.FIX_MESSAGE_ID
FROM WP.FIX_ZUTEILUNG2ORDER z2o
JOIN WP.FIX_MESSAGE2ZUTEILUNG m2z ON(z2o.FIX_ZUTEILUNG_ID=m2z.FIX_ZUTEILUNG_ID)
WHERE z2o.FIX_ORDER_ID = IN_FIX_ORDER_ID) M2O
JOIN WP.FIX_MESSAGE m ON(m.FIX_MESSAGE_ID=m2o.FIX_MESSAGE_ID)
JOIN WP.FIX_MESSAGE_TYPE t ON(m.FIX_MESSAGE_TYPE_ID=t.FIX_MESSAGE_TYPE_ID)
JOIN WP.FIX_MESSAGE_TYPE2XML t2x ON(t2x.FIX_MESSAGE_TYPE_ID=t.FIX_MESSAGE_TYPE_ID AND t2x.FIX_VERSION=m.FIX_VERSION)
ORDER BY NVL(m.GEAENDERT_ZST,m.ERSTELLT_ZST)
)
LOOP
res.EXTEND;
res(res.LAST) := GLOBAL.TYPE_TREE_XML(rec.FIX_XML_ID
,''
,rec.MSG_NAME
,PA_FIX.GET_XML_PATH(rec.FIX_XML_ID)
,''
,rec.FIX_MESSAGE_ID
);
END LOOP;
RETURN res;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END;
end test;
/
This occurs when you switch between the package spec tabpane and the package body tabpane
Maybe the pl/sql develeoper cannot parse the statement
create or replace package test is
FUNCTION TREE_FIXML ( IN_FIX_ORDER_ID IN FIX_ORDER.FIX_ORDER_ID%TYPE
) RETURN GLOBAL.TABLE_TREE_XML;
end test;
/
create or replace package body test is
FUNCTION TREE_FIXML ( IN_FIX_ORDER_ID IN FIX_ORDER.FIX_ORDER_ID%TYPE
) RETURN GLOBAL.TABLE_TREE_XML
IS
methodenname VARCHAR2(100) := K_PACKAGENAME||'.TREE_FIXML';
res GLOBAL.TABLE_TREE_XML := GLOBAL.TABLE_TREE_XML();
BEGIN
IF SYS_CONTEXT('TRACE','TRACE_LEVEL') >= GLOBAL.PA_UTIL.TRACE_TRACE THEN
GLOBAL.PA_UTIL.TRACE( GLOBAL.PA_UTIL.TRACE_TRACE, methodenname, 'Parameters: '
||'IN_FIX_ORDER_ID = '||IN_FIX_ORDER_ID||'; '
);
END IF;
FOR rec IN(/*WITH M2O AS (SELECT m2o.FIX_MESSAGE_ID
FROM WP.FIX_MESSAGE2ORDER m2o
WHERE m2o.FIX_ORDER_ID = IN_FIX_ORDER_ID
UNION
SELECT m2z.FIX_MESSAGE_ID
FROM WP.FIX_ZUTEILUNG2ORDER z2o
JOIN WP.FIX_MESSAGE2ZUTEILUNG m2z ON(z2o.FIX_ZUTEILUNG_ID=m2z.FIX_ZUTEILUNG_ID)
WHERE z2o.FIX_ORDER_ID = IN_FIX_ORDER_ID)*/
SELECT t2x.FIX_XML_ID
,CASE m.MSG_IO WHEN 'I' THEN 'IN ' WHEN 'O' THEN 'OUT' END||' - '||t.MSG_TYPE_NAME AS MSG_NAME
,m.FIX_MESSAGE_ID
FROM (SELECT m2o.FIX_MESSAGE_ID
FROM WP.FIX_MESSAGE2ORDER m2o
WHERE m2o.FIX_ORDER_ID = IN_FIX_ORDER_ID
UNION
SELECT m2z.FIX_MESSAGE_ID
FROM WP.FIX_ZUTEILUNG2ORDER z2o
JOIN WP.FIX_MESSAGE2ZUTEILUNG m2z ON(z2o.FIX_ZUTEILUNG_ID=m2z.FIX_ZUTEILUNG_ID)
WHERE z2o.FIX_ORDER_ID = IN_FIX_ORDER_ID) M2O
JOIN WP.FIX_MESSAGE m ON(m.FIX_MESSAGE_ID=m2o.FIX_MESSAGE_ID)
JOIN WP.FIX_MESSAGE_TYPE t ON(m.FIX_MESSAGE_TYPE_ID=t.FIX_MESSAGE_TYPE_ID)
JOIN WP.FIX_MESSAGE_TYPE2XML t2x ON(t2x.FIX_MESSAGE_TYPE_ID=t.FIX_MESSAGE_TYPE_ID AND t2x.FIX_VERSION=m.FIX_VERSION)
ORDER BY NVL(m.GEAENDERT_ZST,m.ERSTELLT_ZST)
)
LOOP
res.EXTEND;
res(res.LAST) := GLOBAL.TYPE_TREE_XML(rec.FIX_XML_ID
,''
,rec.MSG_NAME
,PA_FIX.GET_XML_PATH(rec.FIX_XML_ID)
,''
,rec.FIX_MESSAGE_ID
);
END LOOP;
RETURN res;
EXCEPTION
WHEN OTHERS THEN
RAISE;
END;
end test;
/
