ABAP中的光标

小疯子

6.3.8使用光标(多个光标可指向同一个选择)

DATA: cur TYPE cursor.

OPEN CURSOR cur FOR SELECT carrid FROM spfli  WHERE cityfrom = 'BOSTON'.打开光标.

DO.

FETCH NEXT CURSOR cur INTO (wa_carrid_tab-carrid).相当于循环读取OPEN CURSOR语句生成的结果集中的下一行数据.

APPEND wa_carrid_tab.

或者FETCH NEXT CURSOR cur INTO TABLE wa_carrid_tab.整体读取放放内表.

IF sy-subrc <> 0.如果FETCH语句没有读取任何行, sy-subrc返回4,否则返回0.

    CLOSE CURSOR cur.关闭光标.

    EXIT.

  ENDIF.

ENDDO.