ABAP游标取表数据

REPORT Y_CLY_OP1.

TABLES: T001.

SELECT-OPTIONS S_BUKRS FOR T001-BUKRS.

START-OF-SELECTION.

  DATA: LT_T001 TYPE TABLE OF T001 WITH HEADER LINE.
  PERFORM FRM_GET_CURSOR TABLES LT_T001.

*&---------------------------------------------------------------------*
*&      Form  FRM_GET_CURSOR
*&---------------------------------------------------------------------*
*       text
*----------------------------------------------------------------------*
*      -->P_LT_T001  text
*----------------------------------------------------------------------*
FORM FRM_GET_CURSOR  TABLES   PT_DATA STRUCTURE T001.

  DATA: LV_CUR TYPE CURSOR.          " 声明游标

  OPEN CURSOR: LV_CUR FOR
    SELECT * FROM T001
      WHERE BUKRS IN S_BUKRS.

  FETCH NEXT CURSOR LV_CUR
        INTO CORRESPONDING FIELDS OF TABLE PT_DATA.

  CLOSE CURSOR LV_CUR.

  DATA: LV_LINE  TYPE STRING.
  DESCRIBE TABLE PT_DATA LINES LV_LINE.
  WRITE: LV_LINE.

ENDFORM.                    " FRM_GET_CURSOR