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
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
570 | REPORT z15_09. | sapjoy | 2012.08.01 | 967 |
569 | REPORT z14_19. | sapjoy | 2012.08.01 | 968 |
568 | REPORT z10_09. | sapjoy | 2012.07.30 | 969 |
567 | REPORT z05_07. | sapjoy | 2012.07.30 | 970 |
566 | REPORT z07_03. | sapjoy | 2012.07.30 | 970 |
565 | REPORT z05_29. | sapjoy | 2012.07.30 | 974 |
564 | REPORT z12_04. | sapjoy | 2012.07.30 | 976 |
563 | REPORT Z12_17. | sapjoy | 2012.07.30 | 981 |
562 | REPORT z15_08. | sapjoy | 2012.08.01 | 982 |
561 | REPORT z17_10 . | sapjoy | 2012.08.01 | 985 |
560 | REPORT z09_02. | sapjoy | 2012.07.30 | 992 |
559 | REPORT z12_07. | sapjoy | 2012.07.30 | 993 |
558 | REPORT z12_32. | sapjoy | 2012.07.30 | 994 |
557 | REPORT z17_08 . | sapjoy | 2012.08.01 | 994 |
556 | REPORT z05_06. | sapjoy | 2012.07.30 | 996 |
555 | REPORT z05_19. | sapjoy | 2012.07.30 | 996 |
554 | REPORT z05_03. | sapjoy | 2012.07.30 | 998 |
553 | REPORT Z12_16. | sapjoy | 2012.07.30 | 998 |
552 | REPORT z12_25. | sapjoy | 2012.07.30 | 999 |
551 | REPORT z14_06. [1] | sapjoy | 2012.08.01 | 1007 |