Code: Alles auswählen.
data: lang type string.
lang = '(''O'', ''P'')'.
try.
    EXEC SQL PERFORMING evaluate.
      SELECT progname, language from repotext where LANGUAGE in :lang
  INTO :wa_repo
    ENDEXEC.
  catch cx_sy_native_sql_error into exc_ref.
    error_text = exc_ref->get_text( ).
    message error_text TYPE 'I'.
endtry.Code: Alles auswählen.
 EXEC SQL PERFORMING evaluate. 
      SELECT progname, language 
     INTO :wa_repo 
     from repotext 
    where language  in :lang 
  
    ENDEXEC.