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 | 2112 |
| 170 | REPORT Z05_014 | sapjoy | 2008.04.15 | 3011 |
| 169 | REPORT z05_028 | sapjoy | 2007.05.30 | 2276 |
| 168 | REPORT Z05_026 [2] | sapjoy | 2007.05.28 | 2428 |
| 167 | REPORT Z05_012 [1] | sapjoy | 2008.04.15 | 2455 |
| 166 | REPORT Z05_010 [1] | sapjoy | 2007.05.28 | 2122 |
| 165 | REPORT Z05_009 [2] | sapjoy | 2007.05.28 | 2150 |
| 164 | REPORT Z05_008 [2] | sapjoy | 2007.05.28 | 2612 |
| 163 | REPORT Z05_007 [2] | sapjoy | 2007.05.27 | 2192 |
| 162 | REPORT z05_005 | sapjoy | 2007.05.22 | 2160 |
| 161 | REPORT Z05_004 | sapjoy | 2008.04.15 | 2227 |
| 160 | REPORT Z04_033 [1] | sapjoy | 2008.04.15 | 2456 |
| 159 | REPORT Z04_019 [2] | sapjoy | 2007.05.22 | 2476 |
| 158 | REPORT Z04_018 | sapjoy | 2007.05.22 | 2110 |
| 157 | REPORT Z04_017 | sapjoy | 2007.05.22 | 2233 |
| » | REPORT Z04_015 | sapjoy | 2007.05.17 | 2111 |
| 155 | REPORT Z04_012 [1] | sapjoy | 2007.05.17 | 2064 |
| 154 | REPORT Z04_011 [1] | sapjoy | 2007.05.17 | 2249 |
| 153 | REPORT Z04_010 | sapjoy | 2008.04.15 | 2153 |
| 152 | REPORT z04_009 [1] | sapjoy | 2007.09.13 | 2202 |
