Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 8808

Re: Getting associated values from F4 Help

$
0
0

This is the code i have written in my program, please tell me what is wrong with this code

 

MODULE GET_VALUES INPUT.

 

     IF ZSDPROJECT1-TYPE IS NOT INITIAL.

     IF ZSDPROJECT1-TYPE = '1'.

       SELECT EMP_CODE

              DOJ

              NAME

              FROM ZDST INTO TABLE IT_ZDST.

        SORT IT_ZDST BY EMP_CODE NAME.

        DELETE ADJACENT DUPLICATES FROM IT_ZDST COMPARING EMP_CODE NAME.

 

    s_mapping-fldname     = 'F0001'.

    s_mapping-dyfldname   = 'NAME'.

    APPEND s_mapping TO t_mapping.

    CLEAR s_mapping.

 

    s_mapping-fldname     = 'F0002'.

    s_mapping-dyfldname   = 'EMP_CODE'.

    APPEND s_mapping TO t_mapping.

    CLEAR s_mapping.

 

IF IT_ZDST[] IS NOT INITIAL.

 

   CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

     EXPORTING

*     DDIC_STRUCTURE         = ' '

       RETFIELD               = 'NAME'

*     PVALKEY                = ' '

      DYNPPROG               = SY-REPID

      DYNPNR                 = SY-DYNNR

      DYNPROFIELD            = 'ZSDPROJECT1-RM_NAME'

*     STEPL                  = 0

      WINDOW_TITLE           = 'Select the Value'

*     VALUE                  = ' '

      VALUE_ORG              = 'S'

*     MULTIPLE_CHOICE        = ' '

*     DISPLAY                = ' '

*     CALLBACK_PROGRAM       = ' '

*     CALLBACK_FORM          = ' '

*     CALLBACK_METHOD        =

*     MARK_TAB               =

*   IMPORTING

*     USER_RESET             =

     TABLES

       VALUE_TAB              = IT_ZDST

*     FIELD_TAB              =

      RETURN_TAB             = T_RETURN

      DYNPFLD_MAPPING        = T_MAPPING

    EXCEPTIONS

      PARAMETER_ERROR        = 1

      NO_VALUES_FOUND        = 2

      OTHERS                 = 3

             .

   IF SY-SUBRC <> 0.

* Implement suitable error handling here

   ENDIF.

ENDIF.

 

ENDMODULE.


Viewing all articles
Browse latest Browse all 8808

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>