XML function not getting compiled in Pro C

Question

Hello
I have written following statement in ProC
          EXEC SQL
          select extract(x.xml_data,'//ADDRESS/SERVERS/@REFSYSTEM').getStringVal(),
extract(x.xml_data,'//ADDRESS/SERVERS/text()').getNumberVal()
          INTO :h_refsystem,
          :h_reftext
from xml_str_table x
where key_no = 1234
and x.xml_data.existsNode('//ADDRESS/SERVERS[@REFSYSTEM="ORACLE"]') = 1 ;
and when compiled it give error " extract(x.xml_data,'//ADDRESS/SERVERS/@REFSYSTEM').getStringVal()
                                                  *. should be replaced with date, time etc*
Above query is returning output when I run on Oracle, but same code is not getting compiled in Pro C. Can you please advise what should be done to resolve this issue?
Thanks in advance,

Answer 1

Hello!
I found out that the problem was not in the variable os_create_id as I described before, instead in the another variable, l_temp_sku.
But a strange behaviour persists.
The program aborts strangely, if the following variable l_temp_sku isn't initialised like this:
l_temp_sku[0] = '\0'; (if this is done the pro*c runs ok)
This variable gets it value from a Output variable of the package called, and these have the same length, as you can see above.
In the old machine (version 8.1.3.0 as already mentioned) it worked fine without initialisation.
The (strings) precompiler options are the following:
dbms=v8
char_map=string (We already tried to change this to VARCHAR2)
My questions are:
Is this a normal behaviour or is this a non documented feature (bug) ?
Is there any precompiler option that solves this kind of problems ?
We have lots of Pro*C´s with situations like this one, our problem is if all these programs start to blow without warning. Only after lots of time spent around this Pro*C we found where was the problem, and what kind of problem.
/* Code Extract: */
char ls_error_msg[NULL_ERROR];
EXEC SQL VAR ls_error_msg IS STRING(NULL_ERROR);
char l_temp_sku[NULL_SKU];
EXEC SQL VAR l_temp_sku IS STRING(NULL_SKU);
EXEC SQL EXECUTE
DECLARE
L_table VARCHAR(50) := NULL;
L_sub_sku WIN_WH.sku%TYPE := NULL;
L_avail_stock WIN_WH.STOCK_ON_HAND%TYPE := NULL;
O_error_message VARCHAR2(255) := NULL;
BEGIN
if NB_SUB_SKU_SQL.NB_F_CHECK_SUB_SKU(:os_sku,
:os_from_loc,
:os_to_loc,
:os_tsf_no,
:os_tsfalloc_no,
:os_create_id,
to_date(:os_system_date,'YYYYMMDDHH24MISS'),
L_sub_sku,
L_avail_stock,
O_error_message) = FALSE then
:plsql_pkg_failed := -1;
:plsql_pkg_message := O_error_message;
SQL_LIB.BATCH_MSG(:ol_sql_holder,
L_table,
:plsql_pkg_message);
:table := L_table;
else
/* Only if ret true and the sub sku, everything its ok */
if L_sub_sku IS NOT NULL then
:l_temp_sku := L_sub_sku;
:plsql_pkg_failed := 0;
Best Regards,
JAP