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.