function module

[Former Member]

plz help me in understanding this funct. module

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

[Former Member]

http://www.sap-img.com/abap/attach-a-search-help-to-the-screen-field.htm

Use this functionality to get help.

*-- Set up fields to retrieve data 

  ltab_fields-tabname    = 'ZFI_PMNTADV'. 
  ltab_fields-fieldname  = 'CHECT'. 
  ltab_fields-selectflag = 'X'. 
  APPEND ltab_fields. 

  ltab_fields-tabname    = 'ZFI_PMNTADV'. 
  ltab_fields-fieldname  = 'PMNT_ADV'. 
  ltab_fields-selectflag = 'X'. 
  APPEND ltab_fields. 

  SORT ltab_fields. 
  DELETE ADJACENT DUPLICATES FROM ltab_fields. 

*-- Fill values 
  SELECT chect 
  INTO TABLE ltab_values 
         FROM zfi_pmntadv 
            WHERE pmnt_adv NE space. 
  SORT ltab_values. 
  DELETE ADJACENT DUPLICATES FROM ltab_values. 

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE' 
     EXPORTING 
          fieldname                 = 'chect' 
          tabname                   = 'zfi_pmntadv' 
          title_in_values_list      = 'Select a value' 
     IMPORTING 
          select_value              = so_chect 
     TABLES 
          fields                    = ltab_fields 
          valuetab                  = ltab_values 
     EXCEPTIONS 
          field_not_in_ddic         = 01 
          more_then_one_selectfield = 02 
          no_selectfield            = 03. 
  

[Former Member]

HI

<b>HELP_VALUES_GET_WITH_TABLE</b> Show a list of possible values for F4 popup help on selection screens. This function module pops up a screen that is just like all the other F4 helps, so it looks like the rest of the SAP system. Very useful for providing dropdowns on fields that do not have them predefined.

tables: t001w.

DATA: lc_werks      LIKE t001w-werks,
      ltab_fields LIKE help_value OCCURS 0 with header line,

      BEGIN OF ltab_values OCCURS 0,
        feld(40) TYPE c,
      END OF ltab_values.

*-- Set up fields to retrieve data
  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'WERKS'.
  ltab_fields-selectflag = 'X'.
  APPEND ltab_fields.

  ltab_fields-tabname    = 'T001W'.
  ltab_fields-fieldname  = 'NAME1'.
  ltab_fields-selectflag = space.
  APPEND ltab_fields.

*-- Fill values
  select * from t001w.
    ltab_values-feld = t001w-werks.
    append ltab_values.
    ltab_values-feld = t001w-name1.
    append ltab_values.
  endselect.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
     EXPORTING
          fieldname                 = 'WERKS'
          tabname                   = 'T001W'
          title_in_values_list      = 'Select a value'
     IMPORTING
          select_value              = lc_werks
     TABLES
          fields                    = ltab_fields
          valuetab                  = ltab_values
     EXCEPTIONS
          field_not_in_ddic         = 01
          more_then_one_selectfield = 02
          no_selectfield            = 03.

Reward all helpfull answers

Regards

Pavan

[Former Member]

Hi Surinder,

This FM is obselte now.

Any way just check the code below,

This FM is actually meant for F4 help

DATA: MWSKZ LIKE T007A-MWSKZ.

DATA: BEGIN OF VALUES OCCURS 100,

LINE(45),

END OF VALUES.

DATA: BEGIN OF FIELDT OCCURS 30.

INCLUDE STRUCTURE HELP_VALUE.

DATA: END OF FIELDT.

FIELDT-TABNAME = 'T007A'.

FIELDT-FIELDNAME = 'MWSKZ'.

FIELDT-SELECTFLAG = 'X'.

APPEND FIELDT.

FIELDT-TABNAME = 'T007S'.

FIELDT-FIELDNAME = 'TEXT1'.

FIELDT-SELECTFLAG = SPACE.

APPEND FIELDT.

CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'

EXPORTING

FIELDNAME = 'MWSKZ'

TABNAME = 'T007A'

IMPORTING

SELECT_VALUE = MWSKZ

TABLES

FIELDS = FIELDT

VALUETAB = VALUES

EXCEPTIONS

FIELD_NOT_IN_DDIC = 01

MORE_THEN_ONE_SELECTFIELD = 02

NO_SELECTFIELD = 03.

IF sy-subrc <> 0.

• MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

• WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

regards

Antony Thomas

Reward if find useful!