*&---------------------------------------------------------------------*
*& Report ZTEST_GRAMA
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ztest_grama.
TYPES: BEGIN OF ty_buffer.
INCLUDE TYPE usr02 AS data.
TYPES: flag TYPE c LENGTH 1,
END OF ty_buffer.
DATA:ls_buffer TYPE ty_buffer.
DATA: lt_buffer TYPE STANDARD TABLE OF ty_buffer.
DATA: lt_usr02 TYPE STANDARD TABLE OF usr02.
SELECT * FROM usr02 INTO CORRESPONDING FIELDS OF TABLE lt_buffer UP TO 5 ROWS.
LOOP AT lt_buffer INTO ls_buffer.
INSERT CORRESPONDING #( ls_buffer-data ) INTO TABLE lt_usr02.
ENDLOOP.
WRITE: lines( lt_usr02 ).
INSERT CORRESPONDING #( ls_buffer-data ) INTO TABLE
最新推荐文章于 2024-07-27 14:08:37 发布