Hallo zusammen,
ich habe einige Modifikationen geerbt bekommen und muss haufenweise FuBas auf Unicode umstellen. Bei dem Test habe ich bei folgendem FuBa auf ein Unicode-Abbruch gestossen. Wenn ich Rahmenprogramm mit UCCHECK prüfe, bekomme ich die Meldung dass der Baustein O.K. ist. Wenn ich das Programm aber direkt im ABAP-Editor prüfe, bekomme ich die Meldung, dass das Programm nicht Unicodefähig ist. Wenn ich es teste, dann dricht es mit Unicodefehler ab. Hier das Coding. Kann mir einer sagen, was an dem Ding nicht Unicode fähig ist:
FUNCTION zit_fi_bank_account_data.
*"----------------------------------------------------------------------
*"*"Lokalny interfejs:
*" IMPORTING
*" VALUE(I_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*" EXPORTING
*" VALUE(E_POSTAB) LIKE RFPOS STRUCTURE RFPOS
*"----------------------------------------------------------------------
DATA: l_bseg LIKE bseg.
*-------------- Initialize Output by using the following line ----------
e_postab = i_postab.
CLEAR: e_postab-banks, e_postab-bankl,
e_postab-bankn, e_postab-bkont.
CLEAR: e_postab-name1, e_postab-name2,
e_postab-ort01, e_postab-pstlz,
e_postab-stras.
SELECT SINGLE * FROM bseg INTO l_bseg
WHERE bukrs = i_postab-bukrs
AND belnr = i_postab-belnr
AND gjahr = i_postab-gjahr
AND buzei = i_postab-buzei.
IF sy-subrc = 0.
IF l_bseg-koart = 'K'.
SELECT SINGLE banks bankl bankn bkont
INTO (e_postab-banks, e_postab-bankl,
e_postab-bankn, e_postab-bkont)
FROM lfbk
WHERE lifnr = l_bseg-lifnr " dostawca
AND bvtyp = l_bseg-bvtyp. " rodzaj konta
SELECT SINGLE name1 name2 ort01 pstlz stras
INTO (e_postab-name1, e_postab-name2,
e_postab-ort01, e_postab-pstlz,
e_postab-stras)
FROM lfa1
WHERE lifnr = l_bseg-lifnr.
ENDIF.
IF l_bseg-koart = 'D'.
SELECT SINGLE banks bankl bankn bkont
INTO (e_postab-banks, e_postab-bankl,
e_postab-bankn, e_postab-bkont)
FROM knbk
WHERE kunnr = l_bseg-kunnr
AND bvtyp = l_bseg-bvtyp.
SELECT SINGLE name1 name2 ort01 pstlz stras
INTO (e_postab-name1, e_postab-name2,
e_postab-ort01, e_postab-pstlz,
e_postab-stras)
FROM kna1
WHERE kunnr = l_bseg-kunnr.
ENDIF.
ENDIF.
ENDFUNCTION.
Danke für einen Hinweis
Netterhesse