REPORT Z15_014.
PARAMETERS:
p_carr_1 TYPE spfli-carrid,
p_carr_2 TYPE spfli-carrid.
AT SELECTION-SCREEN ON VALUE-REQUEST
FOR p_carr_2.
CALL SCREEN 100 STARTING AT 10 5
ENDING AT 50 10.
MODULE value_list OUTPUT.
SUPPRESS DIALOG.
LEAVE TO LIST-PROCESSING AND
RETURN TO SCREEN 0.
SET PF-STATUS space.
p_carr_2 = 'AK '. WRITE: / p_carr_2
COLOR COL_KEY, '아시아나 Korea'.
HIDE p_carr_2.
p_carr_2 = 'AD '. WRITE: / p_carr_2
COLOR COL_KEY, '대한항공 Korea'.
HIDE p_carr_2.
p_carr_2 = 'UA '. WRITE: / p_carr_2
COLOR COL_KEY, 'United Airlines'.
HIDE p_carr_2.
ENDMODULE.
AT LINE-SELECTION.
CHECK NOT p_carr_2 IS INITIAL. LEAVE TO SCREEN 0.
PARAMETERS:
p_carr_1 TYPE spfli-carrid,
p_carr_2 TYPE spfli-carrid.
AT SELECTION-SCREEN ON VALUE-REQUEST
FOR p_carr_2.
CALL SCREEN 100 STARTING AT 10 5
ENDING AT 50 10.
MODULE value_list OUTPUT.
SUPPRESS DIALOG.
LEAVE TO LIST-PROCESSING AND
RETURN TO SCREEN 0.
SET PF-STATUS space.
p_carr_2 = 'AK '. WRITE: / p_carr_2
COLOR COL_KEY, '아시아나 Korea'.
HIDE p_carr_2.
p_carr_2 = 'AD '. WRITE: / p_carr_2
COLOR COL_KEY, '대한항공 Korea'.
HIDE p_carr_2.
p_carr_2 = 'UA '. WRITE: / p_carr_2
COLOR COL_KEY, 'United Airlines'.
HIDE p_carr_2.
ENDMODULE.
AT LINE-SELECTION.
CHECK NOT p_carr_2 IS INITIAL. LEAVE TO SCREEN 0.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
211 | REPORT Z15_015 | sapjoy | 2008.04.15 | 1869 |
» | REPORT z15_014 | sapjoy | 2007.01.27 | 2631 |
209 | Report Z15_013 | sapjoy | 2008.04.15 | 1937 |
208 | REPORT Z15_012 | sapjoy | 2008.04.15 | 1803 |
207 | REPORT Z_15_012 | sapjoy | 2008.04.15 | 2583 |
206 | REPORT Z_15_011 | sapjoy | 2008.04.15 | 1825 |
205 | REPORT Z15_011 | sapjoy | 2008.04.15 | 1920 |
204 | REPORT Z15_008 | sapjoy | 2008.04.15 | 1948 |
203 | REPORT Z15_003 [49] | sapjoy | 2008.04.15 | 7528 |
202 | REPORT Z15_002 [1] | sapjoy | 2008.04.15 | 1913 |
201 | REPORT Z15_001 [2] | sapjoy | 2008.04.15 | 2705 |
200 | REPORT Z14_004 | sapjoy | 2008.04.15 | 1743 |
199 | REPORT Z14_003 | sapjoy | 2008.04.15 | 1905 |
198 | REPORT z13_023 [1] | sapjoy | 2008.04.15 | 1862 |
197 | REPORT Z13_022 [2] | sapjoy | 2008.04.15 | 1946 |
196 | REPORT Z13_020 [2] | sapjoy | 2007.11.30 | 2487 |
195 | REPORT Z13_015 [2] | sapjoy | 2007.09.13 | 2377 |
194 | REPORT Z13_004 [1] | sapjoy | 2008.04.15 | 2226 |
193 | REPORT Z13_002 | sapjoy | 2007.01.03 | 2315 |
192 | REPORT Z13_001 | sapjoy | 2007.01.08 | 2371 |