Hi all,
I am new to dialog programming. I have one requirement to create search help for parameters
I have declared these parameters in Subscreen .
parameter 1 plant - When we press F4 key for this field we need to see Sales order number, plant and sale order type.
here Sales order number and plant are in VBAP
and SO type is in VBAK
So i have written code for this like below
TYPES: BEGIN OF ty_h1,
vbeln TYPE vbeln,
vbtyp TYPE vbtyp,
END OF ty_h1.
DATA: it_h1 TYPE STANDARD TABLE OF ty_h1,
wa_h1 TYPE ty_h1.
TYPES:BEGIN OF ty_f1,
vbeln TYPE vbeln,
vbtyp TYPE vbtyp,
END OF ty_f1.
DATA:it_f1 TYPE STANDARD TABLE OF ty_f1,
wa_f1 TYPE ty_f1.
TYPES:BEGIN OF ty_f2,
vbeln TYPE vbeln,
werks TYPE werks,
END OF ty_f2.
DATA:it_f2 TYPE STANDARD TABLE OF ty_f2,
wa_f2 TYPE ty_f2.
TYPES:BEGIN OF ty_foutput,
vbeln TYPE vbeln,
vbtyp TYPE vbtyp,
werks TYPE werks,
END OF ty_foutput.
DATA:it_foutput TYPE STANDARD TABLE OF ty_foutput,
wa_foutput TYPE ty_foutput.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_werks.
SELECT vbeln vbtyp FROM vbak INTO TABLE it_f1.
SELECT vbeln werks FROM vbap INTO TABLE it_f2
FOR ALL ENTRIES IN it_f1
WHERE vbeln = it_f1-vbeln.
LOOP AT it_f2 INTO wa_f2.
MOVE-CORRESPONDING wa_f2 TO wa_foutput.
CLEAR : wa_f1.
READ TABLE it_f1 INTO wa_f1 WITH KEY vbeln = wa_f2-vbeln BINARY SEARCH.
IF sy-subrc EQ 0.
wa_foutput-vbtyp = wa_f1-vbtyp.
ENDIF.
APPEND wa_foutput TO it_foutput.
CLEAR : wa_foutput, wa_f2.
ENDLOOP.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
* DDIC_STRUCTURE = ' '
retfield = 'P_WERKS'
* PVALKEY = ' '
dynpprog = sy-repid
dynpnr = sy-dynnr
" DYNPROFIELD =
* STEPL = 0
* WINDOW_TITLE =
* VALUE = ' '
value_org = 'S'
" MULTIPLE_CHOICE = 'X'
* DISPLAY = ' '
* CALLBACK_PROGRAM = ' '
* CALLBACK_FORM = ' '
* CALLBACK_METHOD =
* MARK_TAB =
* IMPORTING
* USER_RESET =
TABLES
value_tab = it_foutput
* FIELD_TAB =
" return_tab = it_foutput_ret
* DYNPFLD_MAPPING =
EXCEPTIONS
PARAMETER_ERROR = 1
NO_VALUES_FOUND = 2
OTHERS = 3
.
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.
but i have been getting a dump at runtime saying
Program error: ASSIGN with length 0 in program "SAPLSDH4".
if i changed value_org to C it is showing no values found.
I have checked in debugging mode that all fields are getting populated to it_foutput but not into function module
Please look into this issue
Thanks in advance 