L_INV_COUNT_EXT function module issue

[ahanadasgupta_23]

Hi All,

Please guide the with the use of L_INV_COUNT_EXT this fm. when I put values in this fm it shows the result. But in my coding I'm not able to fetch the data . Below is my coding Please guide me.

TABLES: linv.
TYPES: BEGIN OF ty_data,
lgnum TYPE lgnum, "Warehouse Number / Warehouse Complex
ivnum TYPE lvs_ivnum,
ivpos TYPE lvs_ivpos,
lgtyp TYPE lgtyp,
lgpla TYPE lgpla,
matnr TYPE matnr,
werks TYPE werks_d,
charg TYPE charg_d,
menga TYPE linv_menga,
altme TYPE lrmei,
END OF ty_data.

DATA: lt_LINV TYPE STANDARD TABLE OF linv,
ls_LINV TYPE linv.
DATA: lt_data TYPE STANDARD TABLE OF ty_data,
ls_data TYPE ty_data.


DATA : lt_text TYPE TABLE OF alsmex_tabline.
CONSTANTS: c_1 TYPE i VALUE '0001', "c_gm_code(2) TYPE c VALUE '05',
c_2 TYPE i VALUE '0002',
c_3 TYPE i VALUE '0003',
c_4 TYPE i VALUE '0004',
c_5 TYPE i VALUE '0005',
c_6 TYPE i VALUE '0006',
c_7 TYPE i VALUE '0007',
c_8 TYPE i VALUE '0008',
c_9 TYPE i VALUE '0009',
c_10 TYPE i VALUE '0010'.

SELECTION-SCREEN : SKIP.
PARAMETERS :p_file TYPE rlgrap-filename.

SELECTION-SCREEN: SKIP.


AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CALL FUNCTION 'F4_FILENAME'
EXPORTING
program_name = syst-cprog
dynpro_number = syst-dynnr
field_name = 'p_file'
IMPORTING
file_name = p_file.

IF p_file IS INITIAL.
MESSAGE 'FILE DOES NOT FOUND' TYPE 'I'.
ELSE.
DATA(f_file) = p_file.
ENDIF.

START-OF-SELECTION.

CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
EXPORTING
filename = p_file
i_begin_col = 1
i_begin_row = 2
i_end_col = 9999
i_end_row = 9999
TABLES
intern = lt_text
EXCEPTIONS
inconsistent_parameters = 1
upload_ole = 2.
IF sy-subrc <> 0.
* MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
* WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
FIELD-SYMBOLS: <wa> TYPE alsmex_tabline.
LOOP AT lt_text ASSIGNING <wa> .
CASE <wa>-col.
WHEN c_1.
ls_data-lgnum = <wa>-value.
WHEN c_2.
ls_data-ivnum = <wa>-value.
WHEN c_3.
ls_data-ivpos = <wa>-value.
WHEN c_4.
ls_data-lgtyp = <wa>-value.
WHEN c_5.
ls_data-lgpla = <wa>-value.
WHEN c_6.
ls_data-matnr = <wa>-value.
WHEN c_7.
ls_data-werks = <wa>-value.
WHEN c_8.
ls_data-charg = <wa>-value.
WHEN c_9.
ls_data-menga = <wa>-value.
WHEN c_10.
ls_data-altme = <wa>-value.
ENDCASE.
AT END OF row.
APPEND ls_data TO lt_data.
CLEAR ls_data.
ENDAT.
ENDLOOP.

DATA: lt_linv1 TYPE TABLE OF linv WITH HEADER LINE.

IF lt_data IS NOT INITIAL.
LOOP AT lt_data INTO ls_data.
MOVE-CORRESPONDING ls_data TO lt_linv1.

CALL FUNCTION 'L_INV_COUNT_EXT'
EXPORTING
* I_CHECK_ONLY =
I_COMMIT = 'X'
* IMPORTING
* ALLE_LGNUM =
* ALLE_IVNUM =
* ALLE_NVERS =
TABLES
s_linv = lt_linv1
* EXCEPTIONS
* EITHER_QUANTITY_OR_EMPTY_BIN = 1
* IVNUM_NOT_FOUND = 2
* CHECK_PROBLEM = 3
* NO_COUNT_ALLOWED = 4
* L_INV_READ = 5
* BIN_NOT_IN_IVNUM = 6
* COUNTS_NOT_UPDATED = 7
* LOCK_ERROR = 8
* OTHERS = 9
.
IF sy-subrc <> 0.
CLEAR lt_linv1.
ENDIF.
APPEND lt_linv1 TO lt_linv1[].
ENDLOOP.
MESSAGE TEXT-003 TYPE 'I'.
ENDIF.

Thanks You In Advance.