Download Dynpros in einem Unicode-System

Download Dynpros in einem Unicode-System

Hallo,

habe das Problem, dass ich mir immer mit Hilfe eines Z-Reports die ganze Dynproentwicklung sowohl up- als auch downloaden konnte.
Nun ist dieses System aber ein Unicode-System und die Konvertierungen im Report führen zu Fehlermeldungen. Kennt jeman ggf. einen Z-Report der auch bei Unicode-Systemen funktioniert??? Vielen Dank schon mal im voraus...
Viele Grüsse
Nicole

Hier der Report mal im Anhang:
REPORT ZZ_DYNPRO .


DATA: H LIKE D020S.
DATA: F LIKE D021S OCCURS 0 WITH HEADER LINE.
DATA: E LIKE D022S OCCURS 0 WITH HEADER LINE.
DATA: M LIKE D023S OCCURS 0 WITH HEADER LINE.

DATA: BEGIN OF ID,
PROG LIKE D020S-PROG,
DNUM LIKE D020S-DNUM,
END OF ID.

DATA: BEGIN OF CONTAINER OCCURS 0,
ID(1) TYPE C,
SDATA(1023) TYPE C,
END OF CONTAINER.

DATA: FILE LIKE RLGRAP-FILENAME.
DATA: FC TYPE I.
DATA: FR TYPE I.
DATA: FS TYPE I.

PARAMETERS: PROGRAM LIKE D020S-PROG.
PARAMETERS: DYNPRO LIKE D020S-DNUM.
PARAMETERS: PATH(40) TYPE C.
PARAMETERS: DOWNLOAD RADIOBUTTON GROUP RAD1,
UPLOAD RADIOBUTTON GROUP RAD1.

START-OF-SELECTION.

IF NOT DOWNLOAD IS INITIAL.
ID-PROG = PROGRAM.
ID-DNUM = DYNPRO.
IMPORT DYNPRO H F E M ID ID.
IF SY-SUBRC = 0.
CONTAINER-ID = 'H'.
CONTAINER-SDATA = H.
APPEND CONTAINER.
LOOP AT F.
CONTAINER-ID = 'F'.
CONTAINER-SDATA = F.
APPEND CONTAINER.
ENDLOOP.
LOOP AT E.
CONTAINER-ID = 'E'.
CONTAINER-SDATA = E.
APPEND CONTAINER.
ENDLOOP.
LOOP AT M.
CONTAINER-ID = 'M'.
CONTAINER-SDATA = M.
APPEND CONTAINER.
ENDLOOP.
DESCRIBE TABLE CONTAINER LINES FR.
DESCRIBE FIELD CONTAINER LENGTH FC IN CHARACTER MODE.
FS = FR * FC.
CONCATENATE PATH ID INTO FILE.
CONDENSE FILE NO-GAPS.
CALL FUNCTION 'WS_DOWNLOAD'
EXPORTING
BIN_FILESIZE = FS
FILENAME = FILE
FILETYPE = 'BIN'
TABLES
DATA_TAB = CONTAINER
EXCEPTIONS
OTHERS = 9.
WRITE: / 'Download:', FILE.
ENDIF.
ELSE.
ID-PROG = PROGRAM.
ID-DNUM = DYNPRO.
CONCATENATE PATH ID INTO FILE.
CONDENSE FILE NO-GAPS.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
FILENAME = FILE
FILETYPE = 'BIN'
TABLES
DATA_TAB = CONTAINER
EXCEPTIONS
OTHERS = 9.
IF SY-SUBRC = 0.
LOOP AT CONTAINER.
CASE CONTAINER-ID.

WHEN 'H'.
H = CONTAINER-SDATA.


WHEN 'F'.
F = CONTAINER-SDATA.
APPEND F.

WHEN 'E'.
E = CONTAINER-SDATA.
APPEND E.

WHEN 'M'.
M = CONTAINER-SDATA.
APPEND M.

ENDCASE.
ENDLOOP.
EXPORT DYNPRO H F E M ID ID.
IF SY-SUBRC = 0.
WRITE: / 'Upload:', FILE.
ENDIF.
ENDIF.
ENDIF.

Danke dir, der Tip war 'goldrichtig'. Klappt jetzt super!
Gruss Nicole