Urgent! HELP_VALUES_GET_NO_DD_NAME replacement

Question

Hi,
    When replace 'HELP_VALUES_GET_NO_DD_NAME', I don't know how to fill the return value 'P_IND'.
""ローカルインタフェース:
*"  IMPORTING
*"     VALUE(P_CUCOL) LIKE  SY-CUCOL DEFAULT 0
*"     VALUE(P_CUROW) LIKE  SY-CUROW DEFAULT 0
*"     VALUE(P_DISPLAY) DEFAULT SPACE
*"     VALUE(P_SELECTFIELD) LIKE  HELP_INFO-FIELDNAME
*"     VALUE(P_TITEL) DEFAULT SPACE
*"     VALUE(P_NO_PERS_HELP_SELECT) DEFAULT SPACE
*"     VALUE(P_TITLE_IN_VALUES_LIST) DEFAULT SPACE
*"     VALUE(P_SHOW_ALL_VALUES_AT_FIRST_TIM) DEFAULT SPACE
*"     VALUE(P_USE_USER_SELECTIONS) DEFAULT SPACE
*"     VALUE(P_WRITE_SELECTFIELD_IN_COLOURS) DEFAULT 'X'
*"     VALUE(P_NO_SCROLL) DEFAULT SPACE
*"     VALUE(P_NO_CONVERSION) DEFAULT SPACE
*"     VALUE(P_REDUCED_STATUS_ONLY) DEFAULT SPACE
*"     VALUE(P_NO_MARKING_OF_CHECKVALUE) DEFAULT SPACE
*"     VALUE(P_NO_DISPLAY_OF_PERS_VALUES) DEFAULT SPACE
*"     VALUE(P_FILTER_FULL_TABLE) DEFAULT SPACE
*"  EXPORTING
*"     VALUE(P_IND) LIKE  SY-TABIX
*"     VALUE(P_SELECT_VALUE) LIKE  HELP_INFO-FLDVALUE
*"  TABLES
*"      P_FIELDS STRUCTURE  HELP_VALUE
*"      P_FULL_TABLE
*"      P_USER_SEL_FIELDS STRUCTURE  DYNPREAD OPTIONAL
*"      P_HEADING_TABLE TYPE  F4TYP_HEADING_TAB OPTIONAL
*"  EXCEPTIONS
*"      RETURN01
*"      RETURN02
*"      RETURN03
*"      RETURN04
*"      RETURN05
2007/05/23 delete-start *
*CALL FUNCTION 'HELP_VALUES_GET_NO_DD_NAME'
    EXPORTING
      CUCOL                         = P_CUCOL
      CUROW                         = P_CUROW
      DISPLAY                       = P_DISPLAY
      SELECTFIELD                   = P_SELECTFIELD
      TITEL                         = P_TITEL
      NO_PERS_HELP_SELECT           = P_NO_PERS_HELP_SELECT
      TITLE_IN_VALUES_LIST          = P_TITLE_IN_VALUES_LIST
      SHOW_ALL_VALUES_AT_FIRST_TIME = P_SHOW_ALL_VALUES_AT_FIRST_TIM
      USE_USER_SELECTIONS           = P_USE_USER_SELECTIONS
      WRITE_SELECTFIELD_IN_COLOURS  = P_WRITE_SELECTFIELD_IN_COLOURS
      NO_SCROLL                     = P_NO_SCROLL
      NO_CONVERSION                 = P_NO_CONVERSION
      REDUCED_STATUS_ONLY           = P_REDUCED_STATUS_ONLY
      NO_MARKING_OF_CHECKVALUE      = P_NO_MARKING_OF_CHECKVALUE
      NO_DISPLAY_OF_PERS_VALUES     = P_NO_DISPLAY_OF_PERS_VALUES
      FILTER_FULL_TABLE             = P_FILTER_FULL_TABLE
   IMPORTING
      IND                           = P_IND
      SELECT_VALUE                  = P_SELECT_VALUE
   TABLES
      FIELDS                        = P_FIELDS
      FULL_TABLE                    = P_FULL_TABLE
      USER_SEL_FIELDS               = P_USER_SEL_FIELDS
      HEADING_TABLE                 = P_HEADING_TABLE
   EXCEPTIONS
      FULL_TABLE_EMPTY              = 1
      NO_TABLESTRUCTURE_GIVEN       = 2
      NO_TABLEFIELDS_IN_DICTIONARY  = 3
      MORE_THEN_ONE_SELECTFIELD     = 4
      NO_SELECTFIELD                = 5.
     OTHERS                        = 6.
2007/05/23 delete-end *
2007/05/23 add-start *
*タイプ変換
  DATA:
    TEMP_FIELDS   TYPE TABLE OF DFIES WITH HEADER LINE,
    TEMP_PARAM    TYPE TABLE OF DDSHRETVAL,
    TEMP_WK_PARAM TYPE DDSHRETVAL.
  DATA: INAMETAB  LIKE DNTAB OCCURS 0 WITH HEADER LINE,
        INAMETAB1 LIKE DNTAB OCCURS 0 WITH HEADER LINE.
  LOOP AT P_FIELDS.
    CALL FUNCTION 'NAMETAB_GET'
      EXPORTING
        LANGU               = SY-LANGU
        ONLY                = 'N'
        TABNAME             = P_FIELDS-TABNAME
    IMPORTING
      HEADER              = IHEADER
      TABLES
        NAMETAB             = INAMETAB
      EXCEPTIONS
        INTERNAL_ERROR      = 01
        TABLE_HAS_NO_FIELDS = 02
        TABLE_NOT_ACTIV     = 03.
    IF SY-SUBRC EQ 2 OR SY-SUBRC EQ 3.
     RAISE NO_TABLESTRUCTURE_GIVEN.
    ENDIF.
    LOOP AT INAMETAB.
      CHECK P_FIELDS-FIELDNAME = INAMETAB-FIELDNAME.
      MOVE INAMETAB TO INAMETAB1.
      APPEND INAMETAB1.
    ENDLOOP.
  ENDLOOP.
  CLEAR INAMETAB1.
  DATA: CHARLEN       TYPE I,
        LEN           TYPE I,
        OFFSET        TYPE I,
        NO_CONVERSION TYPE C.
  DATA: BEGIN OF ITAB OCCURS 0,
          FIELD_VALUE(132),
        END OF ITAB.
  CHARLEN = CL_ABAP_CHAR_UTILITIES=>CHARSIZE.
  IF P_FILTER_FULL_TABLE EQ 'X'.
    LOOP AT P_FULL_TABLE.
      OFFSET = 0.
      LOOP AT INAMETAB.
        IF NO_CONVERSION = SPACE.
          LEN = INAMETAB-INTLEN / CHARLEN.
        ELSE.
          LEN = INAMETAB-DDLEN / CHARLEN.
        ENDIF.
        READ TABLE INAMETAB1 WITH KEY INAMETAB.
        IF SY-SUBRC EQ 0.
          MOVE P_FULL_TABLE+OFFSET(LEN)
               TO ITAB-FIELD_VALUE.
          APPEND ITAB.
        ENDIF.
        OFFSET = OFFSET + LEN.
      ENDLOOP.
    ENDLOOP.
  ELSE.
    LOOP AT P_FULL_TABLE.
      OFFSET = 0.
      LOOP AT INAMETAB1.
        IF NO_CONVERSION = SPACE.
          LEN = INAMETAB1-INTLEN / CHARLEN.
        ELSE.
          LEN = INAMETAB1-DDLEN / CHARLEN.
        ENDIF.
        MOVE P_FULL_TABLE+OFFSET(LEN) TO ITAB-FIELD_VALUE.
        OFFSET = OFFSET + LEN.
        APPEND ITAB.
      ENDLOOP.
    ENDLOOP.
  ENDIF.
*タイプ変換
  APPEND LINES OF P_FIELDS TO TEMP_FIELDS.
  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      RETFIELD        = P_SELECTFIELD
      WINDOW_TITLE    = P_TITEL
    TABLES
      VALUE_TAB       = ITAB
      FIELD_TAB       = TEMP_FIELDS
      RETURN_TAB      = TEMP_PARAM
    EXCEPTIONS
      PARAMETER_ERROR = 1
      NO_VALUES_FOUND = 2
      OTHERS          = 3.
  READ TABLE TEMP_PARAM INTO TEMP_WK_PARAM INDEX 1.
  IF SY-SUBRC = 0.
    P_SELECT_VALUE = TEMP_WK_PARAM-FIELDVAL.
  ENDIF.
2007/05/23 add-end *
  CASE  SY-SUBRC.
    WHEN  1.
      RAISE  RETURN01.
    WHEN  2.
      RAISE  RETURN02.
    WHEN  3.
      RAISE  RETURN03.
    WHEN  4.
      RAISE  RETURN04.
    WHEN  5.
      RAISE  RETURN05.
  ENDCASE.

Answer 1

Refer to this sample code
http://www.geocities.com/victorav15/sapr3/examples/f4_table1.txt
* popup window
  call function 'HELP_VALUES_GET_NO_DD_NAME'
       exporting
            selectfield                   = fieldname
            titel                         = 'Select Company Code'
            use_user_selections           = 'S'
       importing
            ind                = ind
       tables
            fields             = fields
            full_table         = inttab
            user_sel_fields    = shrinkfields
       exceptions
            full_table_empty             = 01
            no_tablestructure_given      = 02
            no_tablefields_in_dictionary = 03
            more_than_one_selectfield    = 04
            no_electfield                = 05.
  if sy-subrc <> 0.
    write: / 'Error =', sy-subrc.
  else.
    write: / '#', ind, 'selected'.
    read table inttab index ind.
    write: inttab-bukrs.
  endif.