1:数据库表:
2:代码:
*&---------------------------------------------------------------------* *& Report Z09_002 *&---------------------------------------------------------------------* *& *&---------------------------------------------------------------------* REPORT Z09_002. DATA:BEGIN OF gt_data occurs 0, emp_name TYPE ZEMP_DET1-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_id like ZEMP_DET1-emp_id, p_name like ZEMP_DET1-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_ID'. select DISTINCT emp_name into table gt_data from ZEMP_DET1 WHERE emp_id = 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.
3:根据输入id,查找name