Ich versuche gerade folgendes (in diesem Fall für update Anweisungen):

Code:
...


  case
    when requestLibrary = 'EDDATJRN' and requestTable = 'IDMRBLOB' then
       update idmrblob
       set rb_blob = requestBlob
       where rb_rec_id = requestTableId;
       get diagnostics sqlcod = DB2_RETURNED_SQLCODE;


    when requestLibrary = 'EDDATJRN' and requestTable = 'IDMBLOBS' then
       update idmblobs
       set bl_blob = requestBlob
       where bl_rec_id = requestTableId;
       get diagnostics sqlcod = DB2_RETURNED_SQLCODE;


    else
       set errorClob = DAXWS_createErrorJSON(procName, 'ERROR_INPUT_PARAM', 'Lib und/oder Table ungültig.');
  end case;


  if sqlcod <> 0 then
     set errorClob = DAXWS_createErrorJSON(procName, 'ERROR_UPDATE',
                           'Update war nicht erfolgreich. SQL-Fehlercode ' concat digits(sqlcode) );
  end if;


  set resultClob = json_object('fehler' value errorClob format json,
                               'daten'  value nullif(0, 0) );
  return resultClob;
Wenn ich den Code ausführe, um die Funktion zu erstellen, wird jedoch die Zeile
get diagnostics sqlcod = DB2_RETURNED_SQLCODE;
angemeckert.

Position 33 Token DB2_RETURNED_SQLCODE ungültig. Gültige
Token: COMMAND_FUNCTION COMMAND_FUNCTION_CODE
DB2_RELATIVE_COST_ESTIMATE DB2_DIAGNOSTIC_CONVERSION_ERR
OR DB2_GET_DIAGNOSTICS_DIAGNOSTICS DB2_LAST_ROW
DB2_NUMBER_CONNECTIONS DB2_NUMBER_PARAMETER_MARKERS
DB2_NUMBER_RESULT_SETS DB2_NUMBER_ROWS
DB2_NUMBER_SUCCESSFUL_SUBSTMTS DB2_RETURN_STATUS
RETURN_STATUS DB2_ROW_COUNT_SECONDARY DB2_ROW_LENGTH
DB2_SQL_ATTR_CONCURRENCY DB2_SQL_ATTR_CURSOR_CAPABILITY
DB2_SQL_ATTR_CURSOR_HOLD DB2_SQL_ATTR_CURSOR_ROWSET
DB2_SQL_ATTR_CURSOR_SCROLLABLE DB2_SQL_ATTR_CURSOR_SENSI
TIVITY DB2_SQL_ATTR_CURSOR_TYPE DYNAMIC_FUNCTION
DYNAMIC_FUNCTION_CODE MORE NUMBER ROW_COUNT
TRANSACTION_ACTIVE TRANSACTIONS_COMMITTED