Abap/4 中的OpenSQL（5）

*&---------------------------------------------------------------------*

*& Report Z_CPT5_6 *

*& *

*&---------------------------------------------------------------------*

*& 文件操作 *

*& *

*&---------------------------------------------------------------------*

REPORT Z_CPT5_6 .

PARAMETERS file(30) TYPE c DEFAULT 'C:\tmp.txt'.

DATA:wa_sflight TYPE sflight,

sflight_tab_1 LIKE TABLE OF wa_sflight,

sflight_tab_2 LIKE TABLE OF wa_sflight.

OPEN DATASET file FOR OUTPUT IN BINARY MODE.

SELECT * FROM sflight INTO wa_sflight.

TRANSFER wa_sflight TO file.

APPEND wa_sflight TO sflight_tab_1.

ENDSELECT.

CLOSE DATASET file.

OPEN DATASET file FOR INPUT IN BINARY MODE.

DO.

READ DATASET file INTO wa_sflight.

IF sy-subrc <> 0.

EXIT.

ENDIF.

APPEND wa_sflight TO sflight_tab_2.

ENDDO.

CLOSE DATASET FILE.

IF sflight_tab_1 = sflight_tab_2.

MESSAGE i888(sabapdocu) WITH 'OK'.

ENDIF.