Start routine internal table data is inaccessible.

Question

Hi Guru,
I have written a small code in start routine  using internal tables. The internal table has 4 fields. Intially first 3 fields are populated from ods for only the records in the data package. Then the 4th field is modified using loop on internal table. Then a sort is done on internal table  and deleting the adjacent records. Now the data is read from internal table in updates rules. But data is not populating for the fields in listcube. I guess the loop on internal table is not modifying the internal table, below is the code.
Types: BEGIN OF ITAB1,
doc_no LIKE /BIC/AZFGLO10100-AC_DOC_NO,
item_no LIKE /BIC/AZFGLO10100-ITEM_NUM,
taxjur LIKE /BIC/AZFGLO10100-TAXJURCODE,
z_len TYPE I,
END OF ITAB1.
DATA ITAB_01 TYPE TABLE OF ITAB1 WITH HEADER LINE.
DATA LEN TYPE I.
DATA: str1 TYPE string,
str2 TYPE string,
doc like /BIC/AZFGLO10100-AC_DOC_NO,
item like /BIC/AZFGLO10100-ITEM_NUM,
jur like /BIC/AZFGLO10100-TAXJURCODE.
***filling the internal table with the contents of
select AC_DOC_NO ITEM_NUM TAXJURCODE into
corresponding fields of itab_01
from /BIC/AZFGLO10100
FOR ALL ENTRIES IN DATA_PACKAGE
WHERE AC_DOC_NO = DATA_PACKAGE-AC_DOC_NO
AND ITEM_NUM = DATA_PACKAGE-ITEM_NUM.
endselect.
SORT ITAB_01 ASCENDING BY doc_no ITEM_NO ASCENDING.
loop at itab_01.
doc = itab_01-doc_no.
item = itab_01-item_no.
TAX = itab_01-taxjur.
len = STRLEN(tax).
itab_01-z_len = len.
modify itab_01 transporting z_len where
doc_no = doc and item_no = item.
ENDLOOP.
***what I am doing here I am keep only the records in itab which has minimum
tax jurisdiction length for a line item in a document*****
SORT ITAB_01 DESCENDING BY doc_no z_len ASCENDING.
DELETE ADJACENT DUPLICATES FROM itab_01 comparing doc_no.
and for zlenght object I am writing the followoing code in update rules.
read table itab_01 with key doc_no = COMM_STRUCTURE-AC_DOC_NO
BINARY SEARCH.
if sy-subrc = 0.
RESULT = itab_01-z_len.
endif.
But the field z_len field is blank for all fields.
Any help is really appreciated.
Thanks,
Raj

Answer 1

hi Ravi,
try to give same field name in internal table and /BIC/AZFGLO10100, change the code accordingly
Types: BEGIN OF ITAB1,
<b>AC_DOC_NO</b> LIKE /BIC/AZFGLO10100-AC_DOC_NO,
<b>ITEM_NUM</b> LIKE /BIC/AZFGLO10100-ITEM_NUM,
<b>TAXJURCODE</b> LIKE /BIC/AZFGLO10100-TAXJURCODE,
z_len TYPE I,
END OF ITAB1.
DATA ITAB_01 TYPE TABLE OF ITAB1 WITH HEADER LINE.
***filling the internal table with the contents of
select AC_DOC_NO ITEM_NUM TAXJURCODE into
<b>corresponding fields</b> of itab_01
from /BIC/AZFGLO10100
FOR ALL ENTRIES IN DATA_PACKAGE
WHERE AC_DOC_NO = DATA_PACKAGE-AC_DOC_NO
AND ITEM_NUM = DATA_PACKAGE-ITEM_NUM.
endselect.
<b></b><b></b>