using dynp_vlue_read fm

[Former Member]

hiii everybody .... can anybody give me a sample program for using fm dyp_value_read ...u can mail me at [email protected]

thanks

[Former Member]

hiii everybody .... can anybody give me a sample program for using fm dyp_value_read ...u can mail me at [email protected]

thanks

[Former Member]

Hi

It's usually used to read the input of a screen before pressing enter, so it's often used if it need to manage a search help in the POV process or AT SELECTION-SCREEN ON VALUE-REQUEST event:

PROCESS ON VALUE-REQUEST.

FIELD ZFAGTD01-BELNR MODULE LOOK_FOR_DOC.

MODULE LOOK_FOR_DOC INPUT.

PERFORM LOOK_FOR_DOC.

ENDMODULE.

FORM LOOK_FOR_DOC.

DATA: RETURN_TAB LIKE DDSHRETVAL OCCURS 0 WITH HEADER LINE.

• Read screen input

PERFORM READ_FIELDS_DYNPRO.

IF NOT ZFAGTD01-GJAHR IS INITIAL.

SET PARAMETER ID 'GJR' FIELD ZFAGTD01-GJAHR.

ENDIF.

IF NOT ZFAGTD01-CAUSALE IS INITIAL.

SET PARAMETER ID 'ZCA' FIELD ZFAGTD01-CAUSALE.

ENDIF.

• Call the search help

CALL FUNCTION 'F4IF_FIELD_VALUE_REQUEST'

EXPORTING

TABNAME = SPACE

FIELDNAME = SPACE

SEARCHHELP = 'ZFAGH3'

• dynpprog = sy-repid

• dynpnr = sy-dynnr

• dynprofield = 'ZFAGTD01-BELNR'

• display = space

TABLES

RETURN_TAB = RETURN_TAB.

READ TABLE RETURN_TAB WITH KEY FIELDNAME = 'BELNR'.

IF SY-SUBRC = 0.

MOVE RETURN_TAB-FIELDVAL TO ZFAGTD01-BELNR.

GET PARAMETER ID 'ZCA' FIELD ZFAGTD01-CAUSALE.

GET PARAMETER ID 'GJR' FIELD ZFAGTD01-GJAHR.

ENDIF.

• Update the screen input

PERFORM UPDATE_FIELDS_DYNPRO.

ENDFORM. " LOOK_FOR_DOC

FORM READ_FIELDS_DYNPRO.

DATA: BEGIN OF TB_DYNPFIELDS OCCURS 0.

INCLUDE STRUCTURE DYNPREAD.

DATA: END OF TB_DYNPFIELDS.

DATA: PROGNAME LIKE D020S-PROG.

MOVE 'ZFAGTD01-BELNR' TO TB_DYNPFIELDS-FIELDNAME.

APPEND TB_DYNPFIELDS.

MOVE 'ZFAGTD01-GJAHR' TO TB_DYNPFIELDS-FIELDNAME.

APPEND TB_DYNPFIELDS.

MOVE 'ZFAGTD01-CAUSALE' TO TB_DYNPFIELDS-FIELDNAME.

APPEND TB_DYNPFIELDS.

MOVE SY-CPROG TO PROGNAME.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

DYNAME = PROGNAME

DYNUMB = SY-DYNNR

TABLES

DYNPFIELDS = TB_DYNPFIELDS.

IF ZFAGTD01-BELNR IS INITIAL.

READ TABLE TB_DYNPFIELDS WITH KEY FIELDNAME = 'ZFAGTD01-BELNR'.

IF SY-SUBRC = 0.

ZFAGTD01-BELNR = TB_DYNPFIELDS-FIELDVALUE.

ENDIF.

ENDIF.

IF ZFAGTD01-GJAHR IS INITIAL.

READ TABLE TB_DYNPFIELDS WITH KEY FIELDNAME = 'ZFAGTD01-GJAHR'.

IF SY-SUBRC = 0.

ZFAGTD01-GJAHR = TB_DYNPFIELDS-FIELDVALUE.

ENDIF.

ENDIF.

IF ZFAGTD01-CAUSALE IS INITIAL.

READ TABLE TB_DYNPFIELDS WITH KEY FIELDNAME = 'ZFAGTD01-CAUSALE'.

IF SY-SUBRC = 0.

ZFAGTD01-CAUSALE = TB_DYNPFIELDS-FIELDVALUE.

ENDIF.

ENDIF.

ENDFORM. " READ_FIELDS_DYNPRO

Max

[Former Member]

Hi Rohit,

For a beginning, go through this link..

http://help.sap.com/saphelp_nw04/helpdata/en/9f/dbaac935c111d1829f0000e829fbfe/content.htm

I will send you the program in your mail id.

Regards,

SP.

[dani_mn]

progname = sy-repid.

dynnum = sy-dynnr.

CLEAR: field_value, dynpro_values.

"----

---

"

" PICK VALUE OF FUNCTION CODE FOR LATER USE "

"----

---

"

field_value-fieldname = 'FUNC'.

APPEND field_value TO dynpro_values.

CALL FUNCTION 'DYNP_VALUES_READ'

EXPORTING

dyname = progname

dynumb = dynnum

translate_to_upper = 'X'

TABLES

dynpfields = dynpro_values.

READ TABLE dynpro_values INDEX 1 INTO field_value.

IF NOT field_value-fieldvalue IS INITIAL.

func = field_value-fieldvalue.

Regards,

Wasim Ahmed

[Former Member]

Hi,

Check this code..

REPORT  ZTESTF4                                .

DATA: progname TYPE sy-repid,
      dynnum   TYPE sy-dynnr,
      dynpro_values TYPE TABLE OF dynpread,
      field_value LIKE LINE OF dynpro_values.

data: begin of t_t001l occurs 0,
        werks type werks_d,
        lgort type lgort_d,
      end of t_t001l.

data: v_werks type werks_d,
      V_lgort type lgort_d.


SELECTION-SCREEN BEGIN OF BLOCK B1.
  PARAMETERS: P_PLANT LIKE MSEG-WERKS,
              P_STOLOC LIKE MSEG-LGORT.
SELECTION-SCREEN END OF BLOCK B1.

INITIALIZATION.
  PROGNAME = SY-REPID.
  DYNNUM = SY-DYNNR.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_STOLOC.

  CLEAR: field_value, dynpro_values. REFRESH dynpro_values.
  field_value-fieldname = 'P_PLANT'.
  APPEND field_value TO dynpro_values.

  CALL FUNCTION 'DYNP_VALUES_READ'
       EXPORTING
            dyname             = progname
            dynumb             = dynnum
            translate_to_upper = 'X'
       TABLES
            dynpfields         = dynpro_values.

  READ TABLE dynpro_values INDEX 1 INTO field_value.

  select werks lgort into TABLE t_T001L from T001L where werks = field_value-fieldvalue.

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
       EXPORTING
            retfield    = 'P_STOLOC'
            dynpprog    = progname
            dynpnr      = dynnum
            dynprofield = 'P_STOLOC'
            value_org   = 'S'
       TABLES
            value_tab   = t_T001L.

START-OF-SELECTION.
  WRITE:/ 'TEST F4 PROGRAM'.
END-OF-SELECTION.

Regards

Vijay

[Former Member]

Hi Rohit,

You can also refer these programs that I have uploaded.

Just check these links...

http://www.esnips.com/doc/094d514b-264c-4433-a53b-505d408ab2c5/prog1.txt

http://www.esnips.com/doc/ed7bc1c3-f4cd-4931-afd7-42915a27c21f/prog2.txt

http://www.esnips.com/doc/ce26bb1d-2f29-4a5f-ad43-8a7ed89a9e85/PROG3.txt

Regards,

SP.