REPORT  Z04_015

DATA: wa1 TYPE sflight,   wa2 TYPE sflight.

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

OPEN CURSOR: c1 FOR SELECT  carrid connid

                                FROM  sflight

                                WHERE carrid = 'LH',

                     c2 FOR SELECT  carrid connid

                                FROM  sflight

                                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.

                                CLOSE CURSOR c2.

                                flag2 = 'X'.

                     ELSE.

                                WRITE: / wa2-carrid, wa2-connid.

                     ENDIF.

           ENDIF.

           IF flag1 = 'X' AND flag2 = 'X'.

                     EXIT.

           ENDIF.