REPORT z09_002.
DATA: BEGIN OF gt_data OCCURS 0,
emp_name TYPE zemp-emp_name,
END OF gt_data.
DATA : gt_rtntab LIKE ddshretval OCCURS 0 WITH HEADER LINE.
DATA : gt_dynpread LIKE dynpread OCCURS 0 WITH HEADER LINE.
PARAMETERS: p_emp_no LIKE zemp-emp_no,
p_name LIKE zemp-emp_name.
INITIALIZATION.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_name.
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_EMP_NO'.
SELECT DISTINCT emp_name INTO TABLE gt_data
FROM zemp
WHERE emp_no = gt_dynpread-fieldvalue.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'P_NAME'
dynpprog = sy-cprog
dynpnr = sy-dynnr
window_title = 'EMP_NAME'
value_org = 'S'
TABLES
value_tab = gt_data
return_tab = gt_rtntab.
READ TABLE gt_rtntab INDEX 1.
p_name = gt_rtntab-fieldval.
댓글 0
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
130 | REPORT z05_20. | sapjoy | 2012.07.30 | 1021 |
129 | REPORT z17_04 . | sapjoy | 2012.08.01 | 1018 |
128 | REPORT z15_18. | sapjoy | 2012.08.01 | 1018 |
127 | REPORT z14_15. | sapjoy | 2012.08.01 | 1018 |
126 | REPORT z14_14. | sapjoy | 2012.08.01 | 1015 |
125 | REPORT z12_15 | sapjoy | 2012.07.30 | 1014 |
124 | REPORT z16_06. | sapjoy | 2012.08.01 | 1012 |
123 | REPORT z14_08. [2] | sapjoy | 2012.08.01 | 1012 |
122 | REPORT z12_11. | sapjoy | 2012.07.30 | 1012 |
121 | REPORT z12_13.. | sapjoy | 2012.07.30 | 1010 |
120 | REPORT z14_06. [1] | sapjoy | 2012.08.01 | 1007 |
119 | REPORT z12_25. | sapjoy | 2012.07.30 | 999 |
118 | REPORT Z12_16. | sapjoy | 2012.07.30 | 998 |
117 | REPORT z05_03. | sapjoy | 2012.07.30 | 998 |
116 | REPORT z05_19. | sapjoy | 2012.07.30 | 996 |
115 | REPORT z05_06. | sapjoy | 2012.07.30 | 996 |
114 | REPORT z17_08 . | sapjoy | 2012.08.01 | 994 |
113 | REPORT z12_32. | sapjoy | 2012.07.30 | 994 |
112 | REPORT z12_07. | sapjoy | 2012.07.30 | 994 |
» | REPORT z09_02. | sapjoy | 2012.07.30 | 992 |