problem with AT SELECTION-SCREEN ON VALUE REQUEST

[Former Member]

Hi all,

Following is my code.

PARAMETERS: pa_kschl TYPE konv-kschl.

TYPES: BEGIN OF ty_kschl,

kschl TYPE konv-kschl,

END OF ty_kschl.

DATA: t_kschl TYPE STANDARD TABLE OF ty_kschl,

l_wa_kschl TYPE ty_kschl.

l_wa_kschl-kschl = 'ZPRA'.

APPEND l_wa_kschl TO t_kschl.

clear l_wa_kschl.

l_wa_kschl-kschl = 'ZPRE'.

APPEND l_wa_kschl TO t_kschl.

clear l_wa_kschl.

l_wa_kschl-kschl = 'ZPRV'.

APPEND l_wa_kschl TO t_kschl.

clear l_wa_kschl.

l_wa_kschl-kschl = 'ZARL'.

APPEND l_wa_kschl TO t_kschl.

clear l_wa_kschl.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_kschl.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'kschl'

• PVALKEY = ' '

• DYNPPROG = ' '

• DYNPNR = ' '

• DYNPROFIELD = ' '

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

• VALUE_ORG = 'C'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

value_tab = t_kschl.

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

IF sy-subrc <> 0.

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

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

ENDIF.

But when I click F4 on the parameter on the selection screen,it is displaying a message as 'NO VALUES FOUND'.

please help me out.

[Former Member]

Hi,

Use like this..

  CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
    EXPORTING
      retfield        = 'KSCHL'
      dynpprog        = sy-cprog
      dynpnr          = '1000'
      dynprofield     = 'PA_KSCHL'
      value_org       = 'S'
    TABLES
      value_tab       = t_kschl
    EXCEPTIONS
      parameter_error = 1
      no_values_found = 2
      OTHERS          = 3.

  IF sy-subrc  0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.

Edited by: Sukriti Saha on Nov 5, 2008 4:51 PM

[Former Member]

Hi,

pass 'S' to value_org. "Structres

Hope it's solve ur problem.

[Former Member]

Hi,

I have changed it. but no change

[Former Member]

Hi,

But my program is a normal report program.

[Former Member]

Hi,

Declare the parameter as type C.

buddy have U checked like above.

As you are refering to komv-kschl, it doesnt give u the values that ur intending to.

Try like this.

Declare the parameter as type C.

Regards,

Priya

Edited by: Priya agarwal on Nov 5, 2008 12:30 PM

[Former Member]

Hi Sandeep,

Change ur program as below.

PARAMETERS: pa_kschl TYPE konv-kschl.

TYPES: BEGIN OF ty_kschl,

kschl TYPE konv-kschl,

END OF ty_kschl.

DATA: t_kschl TYPE STANDARD TABLE OF ty_kschl,

l_wa_kschl TYPE ty_kschl.

INITIALIZATION.

l_wa_kschl-kschl = 'ZPRA'.

APPEND l_wa_kschl TO t_kschl.

CLEAR l_wa_kschl.

l_wa_kschl-kschl = 'ZPRE'.

APPEND l_wa_kschl TO t_kschl.

CLEAR l_wa_kschl.

l_wa_kschl-kschl = 'ZPRV'.

APPEND l_wa_kschl TO t_kschl.

CLEAR l_wa_kschl.

l_wa_kschl-kschl = 'ZARL'.

APPEND l_wa_kschl TO t_kschl.

CLEAR l_wa_kschl.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR pa_kschl.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

retfield = 'KSCHL'

dynpprog = sy-cprog

dynpnr = '1000'

dynprofield = 'PA_KSCHL'

value_org = 'S'

TABLES

value_tab = t_kschl

EXCEPTIONS

parameter_error = 1

no_values_found = 2

OTHERS = 3.

IF sy-subrc NE 0.

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

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

ENDIF.

[Former Member]

Hi Avi,

Its working. Thanks a lot.

[Former Member]

Hi Sandeep,

u need to populate the internal table under event INITIALIZATION.Hope wil work

[Former Member]

Hey pass this...

dynpprog = sy-cprog

dynpnr = '1000'

[Former Member]

Buddy have U checked like above .

As you are refering to komv-kschl, it doesnt give u the values that ur intending to.

Try like this.

Declare the parameter as type C.

Regards,

Priya

[Former Member]

hi,

give value_org = 'S'

[Former Member]

PARAMETERS: PA_KSCHL TYPE KONV-KSCHL.

TYPES: BEGIN OF TY_KSCHL,

KSCHL TYPE KONV-KSCHL,

END OF TY_KSCHL.

DATA: T_KSCHL TYPE STANDARD TABLE OF TY_KSCHL,

L_WA_KSCHL TYPE TY_KSCHL.

DATA: IT_RET TYPE DDSHRETVAL OCCURS 0 WITH HEADER LINE.

INITIALIZATION.

L_WA_KSCHL-KSCHL = 'ZPRA'.

APPEND L_WA_KSCHL TO T_KSCHL.

CLEAR L_WA_KSCHL.

L_WA_KSCHL-KSCHL = 'ZPRE'.

APPEND L_WA_KSCHL TO T_KSCHL.

CLEAR L_WA_KSCHL.

L_WA_KSCHL-KSCHL = 'ZPRV'.

APPEND L_WA_KSCHL TO T_KSCHL.

CLEAR L_WA_KSCHL.

L_WA_KSCHL-KSCHL = 'ZARL'.

APPEND L_WA_KSCHL TO T_KSCHL.

CLEAR L_WA_KSCHL.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR PA_KSCHL.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'KSCHL'

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'KSCHL'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = T_KSCHL

RETURN_TAB = IT_RET.

IF SY-SUBRC EQ 0.

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

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

ENDIF.