LOOP at wi.

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

    ALTER INDEX :indexName NOMONITORING USAGE

  ENDEXEC.

ENDLOOP.

LOOP at wi.

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

    ALTER INDEX "Z_MAT~Z0" NOMONITORING USAGE

  ENDEXEC.

LOOP at wi.

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

    ALTER INDEX :indexName NOMONITORING USAGE

  ENDEXEC.

ENDLOOP.

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.

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.