problem mit select und load dataset

problem mit select und load dataset

Hallo,
ich bin leider anfaenger in abap und hab ein problem im folgenden programm die daten in die interne tabelle zu laden und dann mit dem dataset auf server zu speichern.

REPORT zruckauf.
tables: msku.
DATA: BEGIN OF smsku,
kunde LIKE msku-kunnr,
werk LIKE msku-werks,
mat LIKE msku-matnr,
qta TYPE c LENGTH 13,
END OF smsku,
intern LIKE SORTED TABLE OF smsku WITH NON-UNIQUE KEY mat.
DATA: msg(100).

SELECTION-SCREEN BEGIN OF BLOCK due WITH FRAME TITLE text-002.
PARAMETERS: p_file LIKE rlgrap-filename OBLIGATORY DEFAULT '/tmp/md100/file.txt'.
SELECTION-SCREEN END OF BLOCK due.

SELECT-OPTIONS kunde FOR smsku-kunde.
PARAMETERS pa_werk LIKE smsku-werk OBLIGATORY DEFAULT 'D100'.

SELECT * FROM msku INTO CORRESPONDING FIELDS OF TABLE intern WHERE kunnr IN kunde.


IF sy-subrc <> 0.
MESSAGE i000(vaca) WITH 'Nessun dato trovato!'.
ELSE.
PERFORM load_file.
ENDIF.


*&--------------------------------------------------------------------*
*& Form carica_file
*&--------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
FORM load_file.


CLEAR msg.

OPEN DATASET p_file FOR OUTPUT IN TEXT MODE ENCODING DEFAULT
MESSAGE msg.
IF sy-subrc <> 0.
WRITE / msg.
STOP.
ELSE.

LOOP AT intern INTO smsku.
WRITE smsku-kunde.
WRITE smsku-werk.
WRITE smsku-mat.
WRITE smsku-qta.
TRANSFER smsku TO p_file.
ENDLOOP.
CLOSE DATASET p_file.

WRITE: / text-003.

kein fehler

es kommt leider kein fehler raus. das problem ist das wenn ich eine select auf die tabelle mache, daten rausbekomme, hingegen das programm schreibt mir eine leere datei.
slim.