SAP R/3 форум ABAP консультантов

[даня]

хотелось бы не подключаться заново если соединение уже открыто
такой вариант не проходит, прошу помощи:
CONSTANTS dbs TYPE dbcon-con_name VALUE 'TEST'.
DATA dbtype TYPE dbcon_dbms.
SELECT SINGLE dbms FROM dbcon INTO dbtype WHERE con_name = dbs.

IF dbtype <> 'ORA'. EXIT.
EXEC SQL.SET CONNECTION :dbs ENDEXEC. " EXEC SQL.GET CONNECTION :dbs ENDEXEC. - тоже не идет
IF sy-subrc <> 0.
TRY.
EXEC SQL.
CONNECT TO :dbs
ENDEXEC.
IF sy-subrc <> 0. RAISE EXCEPTION TYPE cx_sy_native_sql_error. ENDIF.
ENDTRY.
ENDIF.
ENDIF.

[даня]

TRY.
EXEC SQL.
SET CONNECTION :con_name
ENDEXEC.
IF SY-SUBRC <> 0. " not open
EXEC SQL.
CONNECT TO :con_name "opening
ENDEXEC.
IF SY-SUBRC <> 0.
subrc = 4.
RAISE EXCEPTION TYPE cx_sy_native_sql_error.
ENDIF.
ENDIF.

Тема закрыта)