1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 |
DATA: ls_shd TYPE shlp_descr, lf_rc TYPE syst-subrc, lt_val TYPE STANDARD TABLE OF ddshretval. * 1) Get SH descriptor ----------------------------------------------& CALL FUNCTION 'F4IF_GET_SHLP_DESCR' EXPORTING shlpname = '/SCWM/SH_HU_NUMBERRANGES' "'HFPWBFORM' IMPORTING shlp = ls_shd. * 2) Define SH interface --------------------------------------------& LOOP AT ls_shd-interface ASSIGNING FIELD-SYMBOL(<ls_interface>). CASE <ls_interface>-shlpfield. WHEN 'SUBOBJECT'. <ls_interface>-value = pa_lgnum. WHEN 'NRRANGENR'. <ls_interface>-valfield = abap_true. ENDCASE. ENDLOOP. CALL FUNCTION 'F4IF_START_VALUE_REQUEST' EXPORTING shlp = ls_shd IMPORTING rc = lf_rc TABLES return_values = lt_val. IF lf_rc IS INITIAL. LOOP AT lt_val ASSIGNING FIELD-SYMBOL(<ls_val>). CASE <ls_val>-fieldname. WHEN 'NRRANGENR'. p_sscr_field = <ls_val>-fieldval. WHEN OTHERS. ENDCASE. ENDLOOP. ENDIF. |