*&---------------------------------------------------------------------*
*& 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.