Urgent: Error-Record 39,779, segment 0001 is not in the cross-record table

Question

Hi Gurus,
This is an urgent production issue: I got the following error-
I am updating data records from a DSO to Infocube in delta mode,
1.Record 39,779, segment 0001 is not in the cross-record table
2.Error in substep: End Routine
I dont know problem is in the End Routine or somewhere else,
The End routine is this:
PROGRAM trans_routine.
      CLASS routine DEFINITION
CLASS lcl_transform DEFINITION.
  PUBLIC SECTION.
Attributs
    DATA:
      p_check_master_data_exist
            TYPE RSODSOCHECKONLY READ-ONLY,
*-    Instance for getting request runtime attributs;
    Available information: Refer to methods of
    interface 'if_rsbk_request_admintab_view'
      p_r_request
            TYPE REF TO if_rsbk_request_admintab_view READ-ONLY.
  PRIVATE SECTION.
    TYPE-POOLS: rsd, rstr.
  Rule specific types
    TYPES:
      BEGIN OF tys_TG_1,
     InfoObject: ZVEHICLE Unique Vehicle ID.
        /BIC/ZVEHICLE           TYPE /BIC/OIZVEHICLE,
     InfoObject: ZLOCID Mine Site.
        /BIC/ZLOCID           TYPE /BIC/OIZLOCID,
     InfoObject: ZLOCSL Location Storage Location.
        /BIC/ZLOCSL           TYPE /BIC/OIZLOCSL,
     InfoObject: 0VENDOR Vendor.
        VENDOR           TYPE /BI0/OIVENDOR,
     InfoObject: ZNOMTK Nomination Number.
        /BIC/ZNOMTK           TYPE /BIC/OIZNOMTK,
     InfoObject: ZNOMIT Nomination Item.
        /BIC/ZNOMIT           TYPE /BIC/OIZNOMIT,
     InfoObject: ZNOMNR Nomination number.
        /BIC/ZNOMNR           TYPE /BIC/OIZNOMNR,
     InfoObject: ZVSTTIME Vehicle Starting Time Stamp.
        /BIC/ZVSTTIME           TYPE /BIC/OIZVSTTIME,
     InfoObject: ZVEDTIME Vehicle Ending Time Stamp.
        /BIC/ZVEDTIME           TYPE /BIC/OIZVEDTIME,
     InfoObject: ZNETWT Net Weight.
        /BIC/ZNETWT           TYPE /BIC/OIZNETWT,
     InfoObject: TU_GRS_WG Gross Wgt.
        /BIC/TU_GRS_WG           TYPE /BIC/OITU_GRS_WG,
     InfoObject: ZTU_TRE_W Tare Wgt.
        /BIC/ZTU_TRE_W           TYPE /BIC/OIZTU_TRE_W,
     InfoObject: ZCUSTWT Customer Weight.
        /BIC/ZCUSTWT           TYPE /BIC/OIZCUSTWT,
     InfoObject: ZCAR_NO Car Number.
        /BIC/ZCAR_NO           TYPE /BIC/OIZCAR_NO,
     InfoObject: ZINBND_ID Train Consist Inbound ID.
        /BIC/ZINBND_ID           TYPE /BIC/OIZINBND_ID,
     InfoObject: ZOTBND_ID Train Consist Return Load.
        /BIC/ZOTBND_ID           TYPE /BIC/OIZOTBND_ID,
     InfoObject: 0SOLD_TO Sold-to Party.
        SOLD_TO           TYPE /BI0/OISOLD_TO,
     InfoObject: 0CUSTOMER Customer Number.
        CUSTOMER           TYPE /BI0/OICUSTOMER,
     InfoObject: 0SHIP_TO Ship-To Party.
        SHIP_TO           TYPE /BI0/OISHIP_TO,
     InfoObject: ZVEHI_NO Vehicle Number.
        /BIC/ZVEHI_NO           TYPE /BIC/OIZVEHI_NO,
     InfoObject: ZCARSTDAT Car Start Date.
        /BIC/ZCARSTDAT           TYPE /BIC/OIZCARSTDAT,
     InfoObject: ZCAREDDAT Car End Date.
        /BIC/ZCAREDDAT           TYPE /BIC/OIZCAREDDAT,
     InfoObject: ZCARSTTIM Car Start Time.
        /BIC/ZCARSTTIM           TYPE /BIC/OIZCARSTTIM,
     InfoObject: ZCAREDTIM Car End Time.
        /BIC/ZCAREDTIM           TYPE /BIC/OIZCAREDTIM,
     InfoObject: 0COMPANY Company.
        COMPANY           TYPE /BI0/OICOMPANY,
     InfoObject: ZCONTRACT Contract.
        /BIC/ZCONTRACT           TYPE /BIC/OIZCONTRACT,
     InfoObject: 0PLANT Plant.
        PLANT           TYPE /BI0/OIPLANT,
     InfoObject: ZLOADTIME Total Vehicle Loading time.
        /BIC/ZLOADTIME           TYPE /BIC/OIZLOADTIME,
     InfoObject: ZSHIPDATE Shipping Date.
        /BIC/ZSHIPDATE           TYPE /BIC/OIZSHIPDATE,
     InfoObject: ZSHIPTIME Shipping Time.
        /BIC/ZSHIPTIME           TYPE /BIC/OIZSHIPTIME,
     InfoObject: ZMNEDDT Manifest End Date.
        /BIC/ZMNEDDT           TYPE /BIC/OIZMNEDDT,
     InfoObject: ZMNEDTM Manifest End Time.
        /BIC/ZMNEDTM           TYPE /BIC/OIZMNEDTM,
     InfoObject: ZLDEDDT Loaded End Date.
        /BIC/ZLDEDDT           TYPE /BIC/OIZLDEDDT,
     InfoObject: ZLDEDTM Loaded End Time.
        /BIC/ZLDEDTM           TYPE /BIC/OIZLDEDTM,
     InfoObject: ZMANVAR Manifest Variance.
        /BIC/ZMANVAR           TYPE /BIC/OIZMANVAR,
     InfoObject: ZTU_TYPE Trpr Unit Type.
        /BIC/ZTU_TYPE           TYPE /BIC/OIZTU_TYPE,
     InfoObject: ZACTULQTY Actual posted quantity.
        /BIC/ZACTULQTY           TYPE /BIC/OIZACTULQTY,
     InfoObject: ZVEDDT Vehicle End Date.
        /BIC/ZVEDDT           TYPE /BIC/OIZVEDDT,
     InfoObject: ZVEDTM Vehicle End Time.
        /BIC/ZVEDTM           TYPE /BIC/OIZVEDTM,
     InfoObject: ZVSTDT Vehicle Start Date.
        /BIC/ZVSTDT           TYPE /BIC/OIZVSTDT,
     InfoObject: ZVSTTM Vehicle Start Time.
        /BIC/ZVSTTM           TYPE /BIC/OIZVSTTM,
     InfoObject: ZTRPT_TYP Vehicle type.
        /BIC/ZTRPT_TYP           TYPE /BIC/OIZTRPT_TYP,
     InfoObject: 0CALMONTH Calendar Year/Month.
        CALMONTH           TYPE /BI0/OICALMONTH,
     InfoObject: 0CALYEAR Calendar Year.
        CALYEAR           TYPE /BI0/OICALYEAR,
     InfoObject: ZLOEDDT Quality Sent End Date.
        /BIC/ZLOEDDT           TYPE /BIC/OIZLOEDDT,
     InfoObject: ZLOEDTM Quality sent End Time.
        /BIC/ZLOEDTM           TYPE /BIC/OIZLOEDTM,
     InfoObject: ZATMDDT At Mine End Date.
        /BIC/ZATMDDT           TYPE /BIC/OIZATMDDT,
     InfoObject: ZATMDTM At Mine End Time.
        /BIC/ZATMDTM           TYPE /BIC/OIZATMDTM,
     InfoObject: ZDELAY Delay Duration.
        /BIC/ZDELAY           TYPE /BIC/OIZDELAY,
     InfoObject: ZSITYP Schedule type.
        /BIC/ZSITYP           TYPE /BIC/OIZSITYP,
     InfoObject: ZDOCIND Reference document indicator.
        /BIC/ZDOCIND           TYPE /BIC/OIZDOCIND,
     InfoObject: 0BASE_UOM Base Unit of Measure.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
     InfoObject: 0UNIT Unit of Measure.
        UNIT           TYPE /BI0/OIUNIT,
     InfoObject: ZACT_UOM Actual UOM.
        /BIC/ZACT_UOM           TYPE /BIC/OIZACT_UOM,
     Field: RECORD.
        RECORD           TYPE RSARECORD,
      END   OF tys_TG_1.
    TYPES:
      tyt_TG_1        TYPE STANDARD TABLE OF tys_TG_1
                        WITH NON-UNIQUE DEFAULT KEY.
$$ begin of global - insert your declaration only below this line  -
... "insert your code here
$$ end of global - insert your declaration only before this line   -
    METHODS
      end_routine
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
        EXPORTING
          monitor                  type rstr_ty_t_monitors
        CHANGING
          RESULT_PACKAGE              type tyt_TG_1
        RAISING
          cx_rsrout_abort.
    METHODS
      inverse_end_routine
        IMPORTING
          i_th_fields_outbound         TYPE rstran_t_field_inv
          i_r_selset_outbound          TYPE REF TO cl_rsmds_set
          i_is_main_selection          TYPE rs_bool
          i_r_selset_outbound_complete TYPE REF TO cl_rsmds_set
          i_r_universe_inbound         TYPE REF TO cl_rsmds_universe
        CHANGING
          c_th_fields_inbound          TYPE rstran_t_field_inv
          c_r_selset_inbound           TYPE REF TO cl_rsmds_set
          c_exact                      TYPE rs_bool.
ENDCLASS.                    "routine DEFINITION
$$ begin of 2nd part global - insert your code only below this line  *
... "insert your code here
$$ end of 2nd part global - insert your code only before this line   *
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
      Method end_routine
      Calculation of result package via end routine
      Note: Update of target fields depends on rule assignment in
      transformation editor. Only fields that have a rule assigned,
      are updated to the data target.
  <-> result package
  METHOD end_routine.
*=== Segments ===
    FIELD-SYMBOLS:
      <RESULT_FIELDS>    TYPE tys_TG_1.
    DATA:
      MONITOR_REC     TYPE rstmonitor.
*$*$ begin of routine - insert your code only below this line        *-*
Fill the following fields by reading Nomination and Vehicls DSO
SOLD_TO, Customer
data: L_TIMESTAMP1 TYPE timestamp,
      L_TIMESTAMP2 TYPE timestamp,
      L_TIMESTAMP3 type CCUPEAKA-TIMESTAMP,
      L_TIMESTAMP4 type CCUPEAKA-TIMESTAMP,
      L_TIMESTAMP5 type CCUPEAKA-TIMESTAMP,
      L_TIMESTAMP6 type CCUPEAKA-TIMESTAMP,
      L_TIMESTAMP7 TYPE timestamp,
      L_TIMESTAMP8 TYPE timestamp,
      L_TIMESTAMP9 type timestamp,
      L_TIMESTAMP10 type TIMESTAMP,
      L_CHAR1(14),
      L_CHAR2(14),
      l_duration type I,
      L_TS TYPE TZONREF-TZONE,
      l_flag,
      l_nomit TYPE /BIC/OIZNOMIT,
      l_error_flag.
l_TS = 'CST'.
Data: EXTRA_PACKAGE type tyt_TG_1.
data: extra_fields type tys_TG_1.
LOOP at RESULT_PACKAGE ASSIGNING <RESULT_FIELDS>.
clear l_error_flag.
Get sold_to and customer from nomination table.
   Select single SOLD_TO /BIC/ZLOCSL /BIC/ZCONTRACT COMPANY
                 /BIC/ZMNEDDT /BIC/ZMNEDTM /BIC/ZLDEDDT
                 /BIC/ZLDEDTM SHIP_TO /BIC/ZACTULQTY
                 /BIC/ZLOEDDT /BIC/ZLOEDTM /BIC/ZDELAY
                 /BIC/ZATMDDT /BIC/ZATMDTM
                 /BIC/ZSITYP /BIC/ZDOCIND
           into (<RESULT_FIELDS>-SOLD_TO,
                 <RESULT_FIELDS>-/BIC/ZLOCSL,
                 <RESULT_FIELDS>-/BIC/ZCONTRACT,
                 <RESULT_FIELDS>-company,
                 <RESULT_FIELDS>-/BIC/ZMNEDDT,
                 <RESULT_FIELDS>-/BIC/ZMNEDTM,
                 <RESULT_FIELDS>-/BIC/ZLDEDDT,
                 <RESULT_FIELDS>-/BIC/ZLDEDTM,
                 <RESULT_FIELDS>-SHIP_TO,
                 <RESULT_FIELDS>-/BIC/ZACTULQTY,
                 <RESULT_FIELDS>-/BIC/ZLOEDDT,
                 <RESULT_FIELDS>-/BIC/ZLOEDTM,
                 <RESULT_FIELDS>-/BIC/ZDELAY,
                 <RESULT_FIELDS>-/BIC/ZATMDDT,
                 <RESULT_FIELDS>-/BIC/ZATMDTM,
                 <RESULT_FIELDS>-/BIC/ZSITYP,
                 <RESULT_FIELDS>-/BIC/ZDOCIND)
           from   /BIC/AZTSW_0000
           where /BIC/ZNOMTK = <RESULT_FIELDS>-/BIC/ZNOMTK
            AND  /BIC/ZNOMIT = <RESULT_FIELDS>-/BIC/ZNOMIT.
Select Invalid Nominations
  if sy-subrc <> 0.
    l_error_flag = 'X'.
  endif.
   <RESULT_FIELDS>-customer = <RESULT_FIELDS>-SOLD_TO.
Prepare time stamp for Time Differences
Vehicle Starting Time Stamp
  clear : L_TIMESTAMP9,L_TIMESTAMP10.
  CONVERT DATE <RESULT_FIELDS>-/BIC/ZCARSTDAT TIME
               <RESULT_FIELDS>-/BIC/ZCARSTTIM
           INTO TIME STAMP L_TIMESTAMP9 TIME ZONE l_TS.
Vehicle Ending Time Stamp
  CONVERT DATE <RESULT_FIELDS>-/BIC/ZCAREDDAT TIME
               <RESULT_FIELDS>-/BIC/ZCAREDTIM
           INTO TIME STAMP L_TIMESTAMP10 TIME ZONE l_TS.
  Clear : L_TIMESTAMP3, L_TIMESTAMP4,
         <RESULT_FIELDS>-/BIC/ZVEDTIME,
         <RESULT_FIELDS>-/BIC/ZVSTTIME.
  <RESULT_FIELDS>-/BIC/ZVEDTIME = L_TIMESTAMP10.
  <RESULT_FIELDS>-/BIC/ZVSTTIME = L_TIMESTAMP9.
  L_TIMESTAMP3 = L_TIMESTAMP10.
  L_TIMESTAMP4 = L_TIMESTAMP9.
Caliculate the load time
IF L_TIMESTAMP3 is initial.
   clear <RESULT_FIELDS>-/BIC/ZLOADTIME.
elseif L_TIMESTAMP4 is initial.
   clear <RESULT_FIELDS>-/BIC/ZLOADTIME.
else.
   CALL FUNCTION 'CCU_TIMESTAMP_DIFFERENCE'
     EXPORTING
       timestamp1       =  L_TIMESTAMP3
       timestamp2       =  L_TIMESTAMP4
     IMPORTING
       DIFFERENCE        = <RESULT_FIELDS>-/BIC/ZLOADTIME
ENDIF.
Caliculate the Manifest Variance
   clear : L_TIMESTAMP5,L_TIMESTAMP6,L_TIMESTAMP7,L_TIMESTAMP8.
   CONVERT DATE <RESULT_FIELDS>-/BIC/ZMNEDDT TIME
                <RESULT_FIELDS>-/BIC/ZMNEDTM
           INTO TIME STAMP L_TIMESTAMP7 TIME ZONE l_TS.
   CONVERT DATE <RESULT_FIELDS>-/BIC/ZLDEDDT TIME
                <RESULT_FIELDS>-/BIC/ZLDEDTM
           INTO TIME STAMP L_TIMESTAMP8 TIME ZONE l_TS.
  L_TIMESTAMP5 = L_TIMESTAMP7.
  L_TIMESTAMP6 = L_TIMESTAMP8.
Caliculate the Maniefest Variance
IF L_TIMESTAMP5 is initial.
   clear <RESULT_FIELDS>-/BIC/ZMANVAR.
elseif L_TIMESTAMP6 is initial.
   clear <RESULT_FIELDS>-/BIC/ZMANVAR.
else.
   CALL FUNCTION 'CCU_TIMESTAMP_DIFFERENCE'
     EXPORTING
       timestamp1       =  L_TIMESTAMP5
       timestamp2       =  L_TIMESTAMP6
     IMPORTING
       DIFFERENCE        = <RESULT_FIELDS>-/BIC/ZMANVAR
   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.
Delete datapackets with blank nominations
Delete datapackets with blank shipdate and Invalid Time Stamps
*IF <RESULT_FIELDS>-/BIC/ZNOMTK IS INITIAL OR
  <RESULT_FIELDS>-/BIC/ZSHIPDATE IS INITIAL.
l_error_flag = 'X'.
*ENDIF.
<RESULT_FIELDS>-/BIC/ZVEHI_NO = 1.
  <RESULT_FIELDS>-CALMONTH = <RESULT_FIELDS>-/BIC/ZSHIPDATE(6).
  <RESULT_FIELDS>-CALYEAR  = <RESULT_FIELDS>-/BIC/ZSHIPDATE(4).
if l_error_flag = 'X'.
Looks like Monitor Entries are not working in SP11.
Hence the following is commented temporarily.
CLEAR MONITOR_REC.
MONITOR_REC-MSGID = '0M'.
MONITOR_REC-MSGTY = 'S'.
MONITOR_REC-MSGNO = '501'.
MONITOR_REC-MSGV1 = <RESULT_FIELDS>-/BIC/ZNOMTK.
MONITOR_REC-recno = sy-tabix.
APPEND MONITOR_REC to MONITOR.
RAISE exception type CX_RSROUT_ABORT.
DELETE RESULT_PACKAGE index sy-tabix.
CLEAR L_ERROR_FLAG.
else.
   MODIFY RESULT_PACKAGE FROM <RESULT_FIELDS>.
endif.
clear l_nomit.
l_nomit = <RESULT_FIELDS>-/BIC/ZNOMIT.
extra_fields = <RESULT_FIELDS>.
Actual Qty and Contract details
   Select /BIC/ZLOCSL /BIC/ZNOMIT /BIC/ZCONTRACT /BIC/ZACTULQTY
          /BIC/ZSITYP /BIC/ZDOCIND
          SOLD_TO SHIP_TO COMPANY
           into (extra_fields-/BIC/ZLOCSL,
                 extra_fields-/BIC/ZNOMIT,
                 extra_fields-/BIC/ZCONTRACT,
                 extra_fields-/BIC/ZACTULQTY,
                 extra_fields-/BIC/ZSITYP,
                 extra_fields-/BIC/ZDOCIND,
                 extra_fields-SOLD_TO,
                 extra_fields-SHIP_TO,
                 extra_fields-company)
           from  /BIC/AZTSW_0000
           where /BIC/ZNOMTK = <RESULT_FIELDS>-/BIC/ZNOMTK AND
                 /BIC/ZNOMIT <> l_NOMIT.
       INSERT extra_fields into table EXTRA_PACKAGE.
   endselect.
ENDLOOP.
Append lines of extra_package to RESULT_PACKAGE.
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
$$ end of routine - insert your code only before this line         -
  ENDMETHOD.                    "end_routine
      Method inverse_end_routine
      This subroutine needs to be implemented only for direct access
      (for better performance) and for the Report/Report Interface
      (drill through).
      The inverse routine should transform a projection and
      a selection for the target to a projection and a selection
      for the source, respectively.
      If the implementation remains empty all fields are filled and
      all values are selected.
  METHOD inverse_end_routine.
$$ begin of inverse routine - insert your code only below this line-
... "insert your code here
$$ end of inverse routine - insert your code only before this line -
  ENDMETHOD.                    "inverse_end_routine
ENDCLASS.                    "routine IMPLEMENTATION

Answer 1

Hi,
Most probably you are appending some records in the data package or deleting from the data package through end routine or expert routine or start routine.
I just solved it.....you will have to import the note 1180163.
Then modify the code which you are using....and include the function module as mentioned in the note 1223532.
You need to add the function module just before you append the records.This will work perfectly.
Thanks
Ajeet