F4 programming

[Former Member]

Dear All,

I am trying to give the list of numbers as the F4 option. But nothing is displaying for me. Please check my code and let me know the problem. Helpful answers will be appreciated.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR debtact.

DATA : BEGIN OF values OCCURS 0,

debtacnt(13).

DATA : END OF values.

DO 5 TIMES.

values-debtacnt = '1234567891011'.

APPEND values.

ENDDO.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

retfield = 'DEBTACNT'

• PVALKEY = ' '

dynpprog = sy-repid

dynpnr = sy-dynnr

dynprofield = 'DEBTACT'

• STEPL = 0

• window_title = 'Debit Account'

• VALUE = ' '

value_org = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

TABLES

value_tab = values

• FIELD_TAB =

• RETURN_TAB =

• DYNPFLD_MAPPING =

• EXCEPTIONS

• PARAMETER_ERROR = 1

• NO_VALUES_FOUND = 2

• OTHERS = 3

.

[Former Member]

hi,

why dont u use Search Help?

[Former Member]

HI,

I AM NOT USING DIALOG PROGRAMMING...

REGARDS

RENJAN

[Former Member]

hi,

its not like that u cant use search help in normal reporting.

U can create search help and give it into parameters like,

<b>PARAMETERS:doc LIKE lips-vbeln MATCHCODE OBJECT zdel_typ,</b>

[Former Member]

HI,

PLEASE HELP ME HOW TO DEFINE THE MATCHCODE OBJECT...

REGARDS

RENJAN

[Former Member]

ur parameter is DDIC field? because than only search help will work.

Message was edited by:

Dhwani shah

[Former Member]

HI DHWANI,

MY PARAMETER IS NOT A DDIC FIELD.

REGARDS

RENJAN

[Former Member]

ok so,

cant u create list box?

i think than i have to find some other way.

[Former Member]

Hi

see this code i think it will help you

AT SELECTION-SCREEN ON VALUE-REQUEST FOR S_OBJID-LOW.

• IF S_OBJID IS NOT INITIAL.

SELECT OTYPE OBJID FROM HRP1000

INTO TABLE IT_OBJID_SH

WHERE OTYPE = 'D'.

IF SY-SUBRC EQ 0.

• SEARCH HELP FOR QUALIFICATION.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

• DDIC_STRUCTURE = ' '

RETFIELD = 'OBJID'

• PVALKEY = ' '

DYNPPROG = SY-REPID

DYNPNR = SY-DYNNR

DYNPROFIELD = 'S_OBJID'

• STEPL = 0

• WINDOW_TITLE =

• VALUE = ' '

VALUE_ORG = 'S'

• MULTIPLE_CHOICE = ' '

• DISPLAY = ' '

• CALLBACK_PROGRAM = ' '

• CALLBACK_FORM = ' '

• MARK_TAB =

• IMPORTING

• USER_RESET =

TABLES

VALUE_TAB = IT_OBJID_SH

• FIELD_TAB =

• RETURN_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.

ENDIF.

.

reward if usefull

[Former Member]

HI NARESH,

I THINK I HAVE GIVEN THE SAME WAY.

REGARDS

RENJAN

[Former Member]

Hi Renjan,

make this small change to ur internal table declaration

DATA : BEGIN OF values OCCURS 0,

debtacnt <b>type pdbkra-skpnr,</b>

DATA : END OF values.

[Former Member]

HI RAJESH,

THANKS A LOT. IT WORKED.

REGARDS

RENJAN

[Former Member]

hi,

u can declare like this also...

DATA : BEGIN OF values OCCURS 0,

debtacnt TYPE char13.

DATA : END OF values.