SAP EXEC IMPLICIT ABAP Statements

Get Example source ABAP code based on a different SAP table
  



EXEC SQL - PERFORMING

Short Reference
• PERFORMING EXEC SQL (obsolete)

ABAP Syntax(Obsolete)EXEC SQL PERFORMING subr.
SELECT ... INTO :wa1 :wa2 ...
ENDEXEC.

What does it do? If the addition PERFORMING (forbidden in classes) is specified after EXEC SQL, the Native SQL interface performs implicit cursor processing.

Only a SELECT statement can be specified as an embedded Native SQL statement. The Native SQL interface opens a cursor for the SELECT statement and reads the appropriate data, row by row. The subr subroutine is called each time a row is read successfully. The subr subroutine must be defined in the same ABAP program and must not have a parameter interface.

If the host variables specified in the SELECT statement after INTO are global data objects of the ABAP program, they can be evaluated in the subroutine. In the subroutine, sy-dbcnt gets the number of rows read so far and sy-subrc is set to the value 0. After the ENDEXEC statement, sy-dbcnt contains the total number of rows read so far and sy-subrc is set to 4 since no more rows could be read using the implicit cursor. If an overflow occurs because the number or rows is greater than 2,147,483,647, sy-dbcnt is set to -1.

Latest notes:Implicit cursor processing using the PERFORMING addition is obsolete and forbidden in classes, since methods of global classes do not have access to the global data and the subroutines of the calling ABAP program. Use explicit cursor processing instead. Implicit cursor processing can be exited using the (obsolete) statement EXIT FROM SQL.

Bad example

Reads multiple rows from the database table SCARR and calls the subroutine evaluate for each row read. DATA wa TYPE spfli-carrid.

EXEC SQL PERFORMING evaluate.
SELECT carrid FROM spfli INTO :wa WHERE mandt = :sy-mandt
ENDEXEC.
cl_demo_output=>display( ).

FORM evaluate.
cl_demo_output=>write( |{ wa } | ).
ENDFORM.

Good example

Explicit cursor processing. DATA wa TYPE spfli-carrid.

EXEC SQL.
OPEN CUR FOR
SELECT carrid FROM spfli WHERE mandt = :sy-mandt
ENDEXEC.

DO.
EXEC SQL.
FETCH NEXT CUR INTO :wa
ENDEXEC.
IF sy-subrc <(><<)>> 0.
EXIT.
ENDIF.
cl_demo_output=>write( |{ wa } | ).
ENDDO.
cl_demo_output=>display( ).

Return to menu