Input parameter is not getting the value

former_member189845 — Wed, 16 Jan 2013 11:30:00 GMT

Hi,

I've created a search help for input parameter by using the function module. The FM is returning the tables but when i select the particular field in the search help is getting displayed in input parameter . When i debug the code and see the input parameter is not getting the field. It is not taking the field what i've selected . Please have a look into the below code.

DATA: LT_RSDDIME TYPE TABLE OF RSDDIME ,
      WA_RSDDIME   TYPE RSDDIME,
      LV_DIM(2) TYPE C.

TYPES: BEGIN OF ZST_,
       INFO(30) TYPE C,
       VER(1) TYPE C,
        END OF ZST_.

DATA: LT_RSDCUBET TYPE TABLE OF RSDCUBET,
      WA_RSDCUBET TYPE RSDCUBET.

DATA: LT TYPE STANDARD TABLE OF RSDCUBET.

SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.

PARAMETERS: CUBETXT(60) TYPE C OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR CUBETXT.

SELECT LANGU TXTLG OBJVERS TXTSH INFOCUBE FROM RSDCUBET INTO CORRESPONDING FIELDS OF TABLE LT WHERE OBJVERS = 'A' AND LANGU = 'EN'.

IF SY-SUBRC EQ '0'.

    CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
      EXPORTING
        DDIC_STRUCTURE   = ''
        RETFIELD         = 'INFOCUBE'
        PVALKEY          = ''
        DYNPPROG         = SY-CPROG
        DYNPNR           = SY-DYNNR
        DYNPROFIELD      = 'INFOCUBE'
        VALUE_ORG        = 'S'
      TABLES
        VALUE_TAB        = LT
      EXCEPTIONS
        PARAMETER_ERROR = 1
        NO_VALUES_FOUND = 2
       OTHERS           = 3.
ENDIF.

SELECT * FROM RSDCUBET INTO TABLE LT_RSDCUBET WHERE OBJVERS = 'A'.

IF SY-SUBRC EQ '0'.
    IF CUBETXT IS NOT INITIAL.
      READ TABLE LT_RSDCUBET INTO WA_RSDCUBET WITH KEY INFOCUBE = CUBETXT BINARY SEARCH.
      IF SY-SUBRC EQ '0'.
        WRITE: 'INFOCUBE TECHNICAL SPECFICATION'.
        ULINE.
        WRITE: 'Infocube Name :', WA_RSDCUBET-INFOCUBE.
        WRITE: /.
        WRITE: 'Description:', WA_RSDCUBET-TXTLG.
        WRITE: /.
        WRITE: 'Version :', WA_RSDCUBET-OBJVERS.
        WRITE: /.
        WRITE: 'Language :', WA_RSDCUBET-LANGU.

        SELECT INFOCUBE
               OBJVERS
               DIMENSION FROM RSDDIME INTO TABLE LT_ZST
               WHERE INFOCUBE = CUBETXT AND OBJVERS ='A'.

        LOOP AT LT_ZST INTO WA_ZST.
          LV_DIM = SY-TABIX.
        ENDLOOP.
        WRITE: /.
        WRITE: 'Dimension', LV_DIM.

      ELSE.
        MESSAGE E001.
      ENDIF.
    ENDIF.
ENDIF.

Re: Input parameter is not getting the value

former_member491621 — Wed, 16 Jan 2013 12:21:16 GMT

Hi ,

Please try below code

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'INFOCUBE'

DYNPPROG = SY-CPROG

DYNPNR = SY-DYNNR

DYNPROFIELD = 'CUBETXT'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = LT

EXCEPTIONS

PARAMETER_ERROR = 1

NO_VALUES_FOUND = 2

OTHERS = 3.

ENDIF.

topic Re: Input parameter is not getting the value in Application Development and Automation Discussions

Input parameter is not getting the value

Re: Input parameter is not getting the value