Abap/4 中的OpenSQL（3）

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

*& Report Z_CPT5_3 *

*& *

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

*& 游标 *

*& *

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

REPORT Z_CPT5_3 .

DATA: cur TYPE cursor,

wa_carrid TYPE spfli-carrid,

wa_connid TYPE spfli-connid,

wa_cityfrom TYPE spfli-cityfrom,

wa_cityto TYPE spfli-cityto.

OPEN CURSOR cur FOR

SELECT carrid connid cityfrom cityto FROM spfli

WHERE carrid = 'AA'

ORDER BY carrid.

DO.

FETCH NEXT CURSOR cur INTO (wa_carrid,wa_connid,wa_cityfrom,

wa_cityto).

IF sy-subrc <> 0.

CLOSE CURSOR cur.

EXIT.

ENDIF.

WRITE: / wa_carrid,wa_connid,wa_cityfrom,wa_cityto.

ENDDO.