Native SQL

excalibur

Доброе время суток.
Подскажите пожалуйста где ошибка.

так дамп с ошибкой ORA-01036: illegal variable name/number

Code:

LOOP at wi.

  CONCATENATE '"' wi-SQLTAB '~' wi-INDEXNAME '"' INTO indexName.
  EXEC SQL.

    ALTER INDEX :indexName NOMONITORING USAGE

  ENDEXEC.

ENDLOOP.

а так все Ок.

Code:

LOOP at wi.

  CONCATENATE '"' wi-SQLTAB '~' wi-INDEXNAME '"' INTO indexName.
  EXEC SQL.

    ALTER INDEX "Z_MAT~Z0" NOMONITORING USAGE

  ENDEXEC.

ENDLOOP.

Чёрный Freelancer

А если без ковычек попробовать?

excalibur

Чёрный Freelancer написал:

А если без ковычек попробовать?

так

Code:

LOOP at wi.

  CONCATENATE wi-SQLTAB '~' wi-INDEXNAME INTO indexName.
  EXEC SQL.

    ALTER INDEX :indexName NOMONITORING USAGE

  ENDEXEC.

ENDLOOP.

тоже пробовал - ошибка та же.

Чёрный Freelancer

Ошибка ОРАКЛа, может переменную как-то попроще попробовать назвать, а то вдруг она в списке зарезервированных слов

Цитата:

ORA-01036 illegal variable name/number

Cause: Unable to find bind context on user side.

Action: Make sure that the variable being bound is in the SQL statement.

excalibur

Чёрный Freelancer написал:

Ошибка ОРАКЛа, может переменную как-то попроще попробовать назвать, а то вдруг она в списке зарезервированных слов

Цитата:

ORA-01036 illegal variable name/number

Cause: Unable to find bind context on user side.

Action: Make sure that the variable being bound is in the SQL statement.

Не помогает

excalibur

Мне тут подсказали что сама команда ALTER INDEX не поддерживает работу с бинд переменными. Так каким же тогда образом подставлять имя индекса ?

Чёрный Freelancer

excalibur написал(а):

Мне тут подсказали что сама команда ALTER INDEX не поддерживает работу с бинд переменными. Так каким же тогда образом подставлять имя индекса ?

Если так, то может попробовать через создание временных программ, используя GENERATE SUBROUTINE POOL, пример из help'а выглядит вроде подходящим:

Code:

DATA: prog TYPE string, 
      tab  TYPE STANDARD TABLE OF string, 
      mess TYPE string, 
      sid  TYPE string. 

APPEND 'PROGRAM subpool.'                        TO tab. 
APPEND `DATA spfli_tab TYPE TABLE OF spfli.`     TO tab. 
APPEND `LOAD-OF-PROGRAM.`                        TO tab. 
APPEND `  SELECT *` & 
       `         FROM spfli` & 
       `         INTO TABLE spfli_tab.`          TO tab. 
APPEND `FORM loop_at_tab.`                       TO tab. 
APPEND `  DATA spfli_wa TYPE spfli.`             TO tab. 
APPEND `  LOOP AT spfli_tab INTO spfli_wa.`      TO tab. 
APPEND `    PERFORM evaluate_wa USING spfli_wa.` TO tab. 
APPEND `  ENDLOOP.`                              TO tab. 
APPEND `ENDFORM.`                                TO tab. 
APPEND `FORM evaluate_wa USING l_wa TYPE spfli.` TO tab. 
APPEND `  WRITE: / l_wa-carrid, l_wa-connid.`    TO tab. 
APPEND `ENDFORM.`                                TO tab. 

GENERATE SUBROUTINE POOL tab NAME prog 
         MESSAGE mess 
         SHORTDUMP-ID sid. 

IF sy-subrc = 0. 
  PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND. 
ELSEIF sy-subrc = 4. 
  MESSAGE mess TYPE 'I'. 
ELSEIF sy-subrc = 8. 
  MESSAGE sid TYPE 'I'. 
ENDIF. 

excalibur

Чёрный Freelancer написал:

excalibur написал(а):

Мне тут подсказали что сама команда ALTER INDEX не поддерживает работу с бинд переменными. Так каким же тогда образом подставлять имя индекса ?

Если так, то может попробовать через создание временных программ, используя GENERATE SUBROUTINE POOL, пример из help'а выглядит вроде подходящим:

Code:

DATA: prog TYPE string, 
      tab  TYPE STANDARD TABLE OF string, 
      mess TYPE string, 
      sid  TYPE string. 

APPEND 'PROGRAM subpool.'                        TO tab. 
APPEND `DATA spfli_tab TYPE TABLE OF spfli.`     TO tab. 
APPEND `LOAD-OF-PROGRAM.`                        TO tab. 
APPEND `  SELECT *` & 
       `         FROM spfli` & 
       `         INTO TABLE spfli_tab.`          TO tab. 
APPEND `FORM loop_at_tab.`                       TO tab. 
APPEND `  DATA spfli_wa TYPE spfli.`             TO tab. 
APPEND `  LOOP AT spfli_tab INTO spfli_wa.`      TO tab. 
APPEND `    PERFORM evaluate_wa USING spfli_wa.` TO tab. 
APPEND `  ENDLOOP.`                              TO tab. 
APPEND `ENDFORM.`                                TO tab. 
APPEND `FORM evaluate_wa USING l_wa TYPE spfli.` TO tab. 
APPEND `  WRITE: / l_wa-carrid, l_wa-connid.`    TO tab. 
APPEND `ENDFORM.`                                TO tab. 

GENERATE SUBROUTINE POOL tab NAME prog 
         MESSAGE mess 
         SHORTDUMP-ID sid. 

IF sy-subrc = 0. 
  PERFORM ('LOOP_AT_TAB') IN PROGRAM (prog) IF FOUND. 
ELSEIF sy-subrc = 4. 
  MESSAGE mess TYPE 'I'. 
ELSEIF sy-subrc = 8. 
  MESSAGE sid TYPE 'I'. 
ENDIF. 

Подходит

спс.

Вот еще один вариант нашел. Может кому пригодится.

Code:

PARAMETERS key TYPE scarr-carrid.

DATA: sql      TYPE REF TO cl_sql_statement,
      result   TYPE REF TO cl_sql_result_set,
      exc      TYPE REF TO cx_sql_exception,
      stmnt    TYPE string,
      carrid   TYPE scarr-carrid,
      carrname TYPE scarr-carrname,
      dref     TYPE REF TO data,
      rc       TYPE i.

TRY.
    CREATE OBJECT sql.
    CONCATENATE `SELECT carrid, carrname `
                `FROM scarr `
                `WHERE carrid = '` key `'`  INTO stmnt.
    result = sql->execute_query( stmnt ).
    GET REFERENCE OF carrid INTO dref.
    result->set_param( dref ).
    GET REFERENCE OF carrname INTO dref.
    result->set_param( dref ).
    rc = result->next( ).
    IF rc > 0.
      WRITE: / carrid, carrname.
    ELSE.
      WRITE / 'No entry found'.
    ENDIF.
    result->close( ).
  CATCH cx_sql_exception INTO exc.
    MESSAGE exc TYPE 'I' DISPLAY LIKE 'E'.
ENDTRY. 

подробнее тут http://www.sdn.sap.com/irj/scn/weblogs;jsessionid=%28J2EE3414700%29ID1852717850DB01200657663831363898End?blog=/pub/wlg/15837

Правила форума

Native SQL

Кто сейчас на конференции