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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
170 | REPORT z16_05. | sapjoy | 2012.08.01 | 1183 |
169 | PROGRAM z13_02. | sapjoy | 2012.08.01 | 1183 |
168 | REPORT z15_03. | sapjoy | 2012.08.01 | 1182 |
167 | REPORT z15_13. | sapjoy | 2012.08.01 | 1181 |
166 | REPORT z05_01. [3] | sapjoy | 2012.07.30 | 1170 |
165 | REPORT z15_15. | sapjoy | 2012.08.01 | 1168 |
164 | Report Z15_02 | sapjoy | 2012.08.01 | 1164 |
163 | PROGRAM z13_03. | sapjoy | 2012.08.01 | 1162 |
162 | REPORT z12_30. | sapjoy | 2012.07.30 | 1160 |
161 | REPORT z15_04. | sapjoy | 2012.08.01 | 1157 |
160 | REPORT z12_05. | sapjoy | 2012.07.30 | 1156 |
159 | REPORT z15_21. | sapjoy | 2012.08.01 | 1154 |
158 | PROGRAM z13_05. | sapjoy | 2012.08.01 | 1153 |
157 | REPORT z12_24. | sapjoy | 2012.07.30 | 1153 |
156 | REPORT z15_10. | sapjoy | 2012.08.01 | 1146 |
155 | REPORT z16_03. | sapjoy | 2012.08.01 | 1143 |
154 | REPORT z15_07. | sapjoy | 2012.08.01 | 1129 |
153 | REPORT z15_01. | sapjoy | 2012.08.01 | 1118 |
152 | REPORT z15_22. | sapjoy | 2012.08.01 | 1107 |
151 | REPORT z16_08. | sapjoy | 2012.08.01 | 1090 |