REPORT Z04_015
3 2 1
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.
4
CLOSE CURSOR c2.
flag2 = 'X'.
ELSE.
WRITE: / wa2-carrid, wa2-connid.
ENDIF.
ENDIF.
IF flag1 = 'X' AND flag2 = 'X'.
EXIT.
ENDIF.
댓글 0
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 171 | REPORT Z02_014 | sapjoy | 2008.04.15 | 2143 |
| 170 | REPORT Z05_014 | sapjoy | 2008.04.15 | 3045 |
| 169 | REPORT z05_028 | sapjoy | 2007.05.30 | 2306 |
| 168 | REPORT Z05_026 [2] | sapjoy | 2007.05.28 | 2471 |
| 167 | REPORT Z05_012 [1] | sapjoy | 2008.04.15 | 2493 |
| 166 | REPORT Z05_010 [1] | sapjoy | 2007.05.28 | 2174 |
| 165 | REPORT Z05_009 [2] | sapjoy | 2007.05.28 | 2188 |
| 164 | REPORT Z05_008 [2] | sapjoy | 2007.05.28 | 2654 |
| 163 | REPORT Z05_007 [2] | sapjoy | 2007.05.27 | 2237 |
| 162 | REPORT z05_005 | sapjoy | 2007.05.22 | 2190 |
| 161 | REPORT Z05_004 | sapjoy | 2008.04.15 | 2250 |
| 160 | REPORT Z04_033 [1] | sapjoy | 2008.04.15 | 2508 |
| 159 | REPORT Z04_019 [2] | sapjoy | 2007.05.22 | 2521 |
| 158 | REPORT Z04_018 | sapjoy | 2007.05.22 | 2126 |
| 157 | REPORT Z04_017 | sapjoy | 2007.05.22 | 2265 |
| » | REPORT Z04_015 | sapjoy | 2007.05.17 | 2140 |
| 155 | REPORT Z04_012 [1] | sapjoy | 2007.05.17 | 2099 |
| 154 | REPORT Z04_011 [1] | sapjoy | 2007.05.17 | 2295 |
| 153 | REPORT Z04_010 | sapjoy | 2008.04.15 | 2179 |
| 152 | REPORT z04_009 [1] | sapjoy | 2007.09.13 | 2247 |
