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.