Dear Exüerts:
I have a database table: Zlt_mita with fields M1 (Employee Name) and M2 (Employee Code).
Like: M1 M2
Chandan Kumar DAS0907
Petra Sutor. DAS0906
--------- ------------
ANd so on.....
Requirement: in the selection output screen I want to type the employee name M! in one parameter P_mita say then corresponding employee code (M2) should get populate in the the other parameter box P_mitarn.
Here is my code. Please suggest me as how should I make it work:
DATA: it_zlt_mita TYPE TABLE OF ZLT_mita.
Selection-Screen: Begin of Block b1 With Frame Title text-001.
parameters:
p_mitar type Zlt_mita-M1,
p_mitarn type Zlt_mita-M2.
Selection-Screen : End of Block b1.
At SELECTION-SCREEN ON VALUE-REQUEST FOR P_mitarn.
Data: dynfields type table of dynpread with header line.
dynfields-fieldname = 'p_mitar'.
Append dynfields.
CALL FUNCTION 'DYNP_VALUES_READ'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
* TRANSLATE_TO_UPPER = ' '
* REQUEST = ' '
* PERFORM_CONVERSION_EXITS = ' '
* PERFORM_INPUT_CONVERSION = ' '
* DETERMINE_LOOP_INDEX = ' '
* START_SEARCH_IN_CURRENT_SCREEN = ' '
* START_SEARCH_IN_MAIN_SCREEN = ' '
* START_SEARCH_IN_STACKED_SCREEN = ' '
* START_SEARCH_ON_SCR_STACKPOS = ' '
* SEARCH_OWN_SUBSCREENS_FIRST = ' '
* SEARCHPATH_OF_SUBSCREEN_AREAS = ' '
tables
dynpfields = dynfields
* EXCEPTIONS
* INVALID_ABAPWORKAREA = 1
* INVALID_DYNPROFIELD = 2
* INVALID_DYNPRONAME = 3
* INVALID_DYNPRONUMMER = 4
* INVALID_REQUEST = 5
* NO_FIELDDESCRIPTION = 6
* INVALID_PARAMETER = 7
* UNDEFIND_ERROR = 8
* DOUBLE_CONVERSION = 9
* STEPL_NOT_FOUND = 10
* OTHERS = 11
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Read Table dynfields with key fieldname = 'P_mitar'.
p_mitar = dynfields-fieldvalue.
AT SELECTION-SCREEN Output.
Data: dynfields1 type table of dynpread with header line.
dynfields1-fieldname = 'p_mitarn'.
Append dynfields1.
CALL FUNCTION 'DYNP_VALUES_UPDATE'
EXPORTING
dyname = sy-cprog
dynumb = sy-dynnr
tables
dynpfields = dynfields1
* EXCEPTIONS
* INVALID_ABAPWORKAREA = 1
* INVALID_DYNPROFIELD = 2
* INVALID_DYNPRONAME = 3
* INVALID_DYNPRONUMMER = 4
* INVALID_REQUEST = 5
* NO_FIELDDESCRIPTION = 6
* UNDEFIND_ERROR = 7
* OTHERS = 8
.
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Looking forward for advise from you experts.
regards
chandan