Error while selecting values for f4 help.

[Former Member]

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

SELECT-OPTIONS: CCG for setnode-SETNAME.

SELECTION-SCREEN END OF BLOCK B1.

At Selection-screen on value-request for ccg-low.

Select setname from setnode into corresponding fields of table i_setnode where setclass = '0101'.

Sort i_setnode by setname.

Delete adjacent duplicates from i_setnode.

Perform F4_Help_ccg_low.

FORM F4_Help_ccg_low .

data: prog like sy-repid , scrno like sy-dynnr.

prog = sy-repid.

scrno = sy-dynnr.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'i_setnode-setname'

DYNPPROG = prog

DYNPNR = scrno

DYNPROFIELD = 'CCG-low'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = i_setnode

.

ENDFORM.

The field which i select from the f4 help is not being diaplsyed on select-option. I have attached the code written above. Please check and if i have done anything pls correct me.

Regards,

Phyrose.

[Former Member]

HI,

TRY LIKE THIS,

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = 'CSG' // U CANT GIVE INTERNAL TABLE FIELD U HAVE TO GIVE THE SELECT OPTION OR PARAMETER WHICH U HAD DECLARED

DYNPPROG = prog

DYNPNR = scrno

DYNPROFIELD = 'CCG-low'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = i_setnode

IF HELPFUL REWARD SOME POINTS.

WITH REGARDS,

SURESH ALURI.

[Former Member]

Hi

check with this code

TYPES : BEGIN OF ST_OBJID_SH,

OTYPE TYPE HRP1000-OTYPE,

OBJID TYPE HRP1000-OBJID,

END OF ST_OBJID_SH.

DATA : IT_OBJID_SH TYPE STANDARD TABLE OF ST_OBJID_SH.

DATA : WA_OBJID_SH TYPE ST_OBJID_SH.

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

*SELECT-OPTIONS : S_OTYPE FOR HRP1001-OTYPE NO INTERVALS .

SELECT-OPTIONS : S_OBJID FOR HRP1001-OBJID NO INTERVALS .

SELECT-OPTIONS : DATE FOR SY-DATUM NO-EXTENSION OBLIGATORY.

SELECTION-SCREEN END OF BLOCK B1.

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.

.

<b>Reward if usefull</b>

[Former Member]

Hi Suresh,

I have tried that too but still it is not displaying that field.

Regards,

Phyrose.

[varma_narayana]

Hi Camila..

Check the Corrections in BOLD

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

SELECT-OPTIONS: CCG for setnode-SETNAME.

SELECTION-SCREEN END OF BLOCK B1.

At Selection-screen on value-request for ccg-low.

Select setname from setnode into corresponding fields of table i_setnode where setclass = '0101'.

Sort i_setnode by setname.

Delete adjacent duplicates from i_setnode.

Perform F4_Help_ccg_low.

FORM F4_Help_ccg_low .

data: prog like sy-repid , scrno like sy-dynnr.

prog = sy-repid.

scrno = sy-dynnr.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

<b>RETFIELD = 'CCG-LOW'</b>

DYNPPROG = prog

DYNPNR = scrno

<b>DYNPROFIELD = 'CCG-LOW' "Should be in Upper case </b>

VALUE_ORG = 'S'

TABLES

VALUE_TAB = i_setnode

.

ENDFORM.

<b>reward if helpful.</b>

[hymavathi_oruganti]

data ret_tab type table of ddshretval.

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'

EXPORTING

RETFIELD = '<b>setname'</b>

DYNPPROG = prog

DYNPNR = scrno

DYNPROFIELD = 'CCG-low'

VALUE_ORG = 'S'

TABLES

VALUE_TAB = i_setnode

return_tab = ret_tab

.

ENDFORM.

read table ret_tab index 1.

ccg-low = ret_tab-fieldval.