REPORT z12_002 .
DATA: BEGIN OF gt_connid OCCURS 0,
connid TYPE sflight-connid,
END OF gt_connid.
DATA : gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
DATA : gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
PARAMETERS: p_carrid LIKE sflight-carrid,
p_connid LIKE sflight-connid.
INITIALIZATION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_connid.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
request = 'A'
translate_to_upper = 'X'
TABLES
dynpfields = gt_dynpread.
READ TABLE gt_dynpread WITH KEY fieldname = 'P_CARRID'.
SELECT DISTINCT connid
INTO TABLE gt_connid
FROM sflight
WHERE carrid = gt_dynpread-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'P_CONNID'
dynpprog = sy-cprog
dynpnr = sy-dynnr
window_title = 'CONNID'
value_org = 'S'
TABLES
value_tab = gt_connid
return_tab = gt_rtntab.
READ TABLE gt_rtntab INDEX 1.
p_connid = gt_rtntab-fieldval.
DATA: BEGIN OF gt_connid OCCURS 0,
connid TYPE sflight-connid,
END OF gt_connid.
DATA : gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
DATA : gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
PARAMETERS: p_carrid LIKE sflight-carrid,
p_connid LIKE sflight-connid.
INITIALIZATION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_connid.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
request = 'A'
translate_to_upper = 'X'
TABLES
dynpfields = gt_dynpread.
READ TABLE gt_dynpread WITH KEY fieldname = 'P_CARRID'.
SELECT DISTINCT connid
INTO TABLE gt_connid
FROM sflight
WHERE carrid = gt_dynpread-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'P_CONNID'
dynpprog = sy-cprog
dynpnr = sy-dynnr
window_title = 'CONNID'
value_org = 'S'
TABLES
value_tab = gt_connid
return_tab = gt_rtntab.
READ TABLE gt_rtntab INDEX 1.
p_connid = gt_rtntab-fieldval.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
30 | REPORT Z07_020 | sapjoy | 2006.12.08 | 2152 |
29 | REPORT Z07_019 | sapjoy | 2006.12.08 | 2284 |
28 | REPORT Z07_018 | sapjoy | 2006.12.08 | 2341 |
27 | REPORT Z07_017 | sapjoy | 2006.12.08 | 2609 |
26 | REPORT Z07_015 | sapjoy | 2006.12.08 | 2426 |
25 | REPORT Z07_014 | sapjoy | 2006.12.08 | 2098 |
24 | REPORT Z07_013 | sapjoy | 2006.12.08 | 2544 |
23 | REPORT Z07_012 | sapjoy | 2006.12.08 | 2326 |
22 | REPORT Z07_011 [1] | sapjoy | 2006.12.07 | 2183 |
21 | REPORT Z07_010. | sapjoy | 2006.12.07 | 2527 |
20 | REPORT Z07_009 | sapjoy | 2006.12.07 | 2258 |
19 | REPORT Z07_008 | sapjoy | 2006.12.07 | 2462 |
18 | REPORT Z07_007 | sapjoy | 2006.12.07 | 2698 |
17 | Z07_005 | sapjoy | 2006.12.06 | 2353 |
16 | Z07_001 | sapjoy | 2006.12.06 | 2396 |
15 | REPORT Z07_002 . | sapjoy | 2006.12.06 | 2755 |
14 | REPORT Z06_001 MESSAGE-ID ZTEST . [1] | sapjoy | 2006.12.05 | 3205 |
13 | Dynamic Table Maintenance [1] | sapjoy | 2006.12.04 | 4094 |
12 | <b>ABAP SOURCE는 교재에 사용된 소스들입니다.</b> [1] | sapjoy | 2006.12.02 | 3618 |
11 | REPORT Z04_005 . | sapjoy | 2006.12.02 | 2595 |