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
| 번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
|---|---|---|---|---|
| 510 | REPORT Z03_010 [2] | sapjoy | 2007.05.14 | 2655 |
| 509 | REPORT Z03_013 [4] | sapjoy | 2007.05.14 | 2388 |
| 508 | REPORT Z03_015 | sapjoy | 2007.05.14 | 2131 |
| 507 | REPORT Z03_016 [1] | sapjoy | 2007.05.14 | 2220 |
| 506 | TYPE-POOL ztgrp [1] | sapjoy | 2007.05.14 | 2699 |
| 505 | REPORT Z03_020 | sapjoy | 2007.05.15 | 2166 |
| 504 | REPORT Z03_021 [5] | sapjoy | 2007.05.15 | 2737 |
| 503 | REPORT z03_022 [2] | sapjoy | 2007.05.15 | 2111 |
| 502 | REPORT z03_026 | sapjoy | 2007.05.15 | 2313 |
| 501 | REPORT z03_029 [1] | sapjoy | 2007.05.15 | 2132 |
| 500 | REPORT Z03_028 | sapjoy | 2007.05.15 | 2102 |
| 499 | REPORT Z03_030 | sapjoy | 2007.05.15 | 2166 |
| 498 | REPORT Z04_001 | sapjoy | 2007.05.16 | 2375 |
| 497 | REPORT Z04_003 [9] | sapjoy | 2007.05.16 | 2561 |
| 496 | REPORT Z04_008 [1] | sapjoy | 2007.05.16 | 2150 |
| 495 | REPORT Z04_021 [4] | sapjoy | 2007.05.16 | 2206 |
| 494 | REPORT Z04_022 | sapjoy | 2007.05.16 | 2092 |
| 493 | REPORT Z04_012 [1] | sapjoy | 2007.05.16 | 2064 |
| 492 | REPORT Z04_011 [1] | sapjoy | 2007.05.16 | 2249 |
| » | REPORT Z04_015 | sapjoy | 2007.05.16 | 2111 |
