Current codepage №1500

 * Company = SAP

* Sap-intern , wie ISO 8859-5

DATA: lv_spras like sy-langu,

lv_codepage like tcp00-cpcodepage.

lv_spras = sy-langu.
CALL FUNCTION 'SCP_CODEPAGE_FOR_LANGUAGE'
EXPORTING
language = lv_spras
IMPORTING
codepage = lv_codepage
EXCEPTIONS
no_codepage = 1
OTHERS = 2.

IF sy-subrc IS INITIAL.
WRITE lv_codepage.
ENDIF.