学习笔记（三十一）

最新推荐文章于 2024-08-01 19:45:58 发布

qiume

最新推荐文章于 2024-08-01 19:45:58 发布

阅读量2k

点赞数

分类专栏：架构设计文章标签： dataset table parameters file output input

架构设计专栏收录该内容

61 篇文章

订阅专栏

PARAMETERS file(30) TYPE c DEFAULT '\test\testfile'.

DATA: wa_sflight TYPE sflight,
      table_1 TYPE TABLE OF sflight,
      table_2 TYPE TABLE OF sflight.

OPEN DATASET file FOR OUTPUT IN BINARY MODE.
SELECT * FROM sflight INTO wa_sflight.
  TRANSFER wa_sflight TO file.
  APPEND wa_sflight TO table_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 table_2.
ENDDO.
CLOSE DATASET file.

IF table_1 = table_2.
  MESSAGE i888(sabapdocu) WITH 'OK'.
ENDIF.