Skip to Content
0
Former Member
Apr 16, 2014 at 10:59 AM

Use of DYNP_VALUES_READ and subsequently DYNP_VALUES_UPDATE

374 Views

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