【SAP ABAP系列】ABAP游标的使用

  在Oracle，SQLServer中游标的使用是经常的，所以在ABAP不懂是不行的......

    1、声明游标

     OPEN CURSOR [WITH HOLD] <c> FOR SELECT      <result>

    FROM      <source>

    [WHERE    <condition>]

    [GROUP BY <fields>]

    [HAVING   <cond>]

    [ORDER BY <fields>].

     cursor <c>需事先在data语句中声明变量，在句型中可见，基本上select使用的所有附加项都可使用，除了一个，single

 2、操作游标

   向下移动游标：FETCH NEXT CURSOR <c> INTO <target>.

   关闭游标：CLOSE CURSOR c1.

   如：FETCH NEXT CURSOR S_CURSOR into TABLE itab PACKAGE SIZE S_S_IF-MAXSIZE.

        FETCH NEXT CURSOR s_cursor into wa.

REPORT ydemo_rick_4.

DATA: c1 TYPE cursor, "声明游标       c2 TYPE cursor.

DATA: wa1 TYPE spfli,       wa2 TYPE spfli.

DATA: flag1(1) TYPE c,       flag2(1) TYPE c.

OPEN CURSOR: c1 FOR SELECT  carrid connid                 FROM  spfli                 WHERE carrid = 'LH',

             c2 FOR SELECT  carrid connid cityfrom cityto                     FROM  spfli                     WHERE carrid = 'AZ'. DO.   IF flag1 NE 'X'.     FETCH NEXT CURSOR c1 INTO CORRESPONDING FIELDS OF wa1.   "放到一个工作区中     IF sy-subrc <> 0.       "当没数据时就关闭游标       CLOSE CURSOR c1.       flag1 = 'X'.     ELSE.       WRITE: / wa1-carrid, wa1-connid.     ENDIF.   ENDIF.

  IF flag2 NE 'X'.     FETCH NEXT CURSOR c2 INTO CORRESPONDING FIELDS OF wa2.     IF sy-subrc <> 0.       CLOSE CURSOR c2.       flag2 = 'X'.     ELSE.       WRITE: / wa2-carrid, wa2-connid,       wa2-cityfrom, wa2-cityto.     ENDIF.   ENDIF.   IF flag1 = 'X' AND flag2 = 'X'.     EXIT.   ENDIF. ENDDO.