Issues installing 0IC_C03 dataflow in BW 7.0

Question

Hi experts,
We are trying to install the dataflow for stocks infocube (0IC_C03) in BW (release 700 level 0015) from Business Content (release 703 level 0008) and we get the following error message when installing the transformation from Infosource 2LIS_03_BF_TR to the cube:
Start Routine: Syntax error in routine
We have checked the code in the start routine and we get the following error message:
E:In PERFORM or CALL FUNCTION "ROUTINE_9998", the actual parameter
"SOURCE_PACKAGE" is incompatible with the formal parameter
"DATA_PACKAGE".
Has anybody faced with this issue before?
Any help will be really appreciated.
Regards,
David

Answer 1

Hi,
Pls add the following code in the start Routine.
**************Added as per note 1052648****************************************
     InfoObject: 0RMA_XCC RMA Cross-Company Code Stock Transfer.
        RMA_XCC           TYPE /BI0/OIRMA_XCC,
     InfoObject: 0RMA_LNK RMA Stock Transfer Reference Item.
        RMA_LNK           TYPE /BI0/OIRMA_LNK,
     InfoObject: 0RMA_RFLG RMA Relevance Flag.
        RMA_RFLG           TYPE /BI0/OIRMA_RFLG,
     InfoObject: 0RTHFEES Stock Transfer Fees.
        RTHFEES           TYPE /BI0/OIRTHFEES,
*******End Added as per note*****1052648*************************************
After adding the above code no syntactical error in start routine activate the Transformation.
The Problem is Solved.
In my system Start routine code:
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_SC_1,
     InfoObject: 0STORNO Reversal indicator.
        STORNO           TYPE /BI0/OISTORNO,
     InfoObject: 0RT_PROMO Promotion.
        RT_PROMO           TYPE /BI0/OIRT_PROMO,
     InfoObject: 0VAL_CLASS Valuation class.
        VAL_CLASS           TYPE /BI0/OIVAL_CLASS,
     InfoObject: 0DOC_DATE Document Date.
        DOC_DATE           TYPE /BI0/OIDOC_DATE,
     InfoObject: 0STOCKTYPE Stock type.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0STOCKCAT Stock Categories.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0PSTNG_DATE Posting date in the document.
        PSTNG_DATE           TYPE /BI0/OIPSTNG_DATE,
     InfoObject: 0COMP_CODE Company code.
        COMP_CODE           TYPE /BI0/OICOMP_CODE,
     InfoObject: 0BWAPPLNM Application component.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0MOVETYPE Movement Type (Inventory Management).
        MOVETYPE           TYPE /BI0/OIMOVETYPE,
     InfoObject: 0STOCKRELEV BW: Relevance to Stock.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0CPPVLC BW: Purchase Value in Local Currency.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0CPSVLC BW: Sales Value in Local Currency.
        CPSVLC           TYPE /BI0/OICPSVLC,
     InfoObject: 0CPSTLC BW: Sales Value in Local Currency.
        CPSTLC           TYPE /BI0/OICPSTLC,
     InfoObject: 0CPQUABU BW: Amount in base unit of measure.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0VAL_TYPE Valuation type.
        VAL_TYPE           TYPE /BI0/OIVAL_TYPE,
     InfoObject: 0PROCESSKEY BW: Transaction Key.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0BATCH Batch number.
        BATCH           TYPE /BI0/OIBATCH,
     InfoObject: 0MATMREA Reason for Goods Movement.
        MATMREA           TYPE /BI0/OIMATMREA,
     InfoObject: 0BUS_AREA Business area.
        BUS_AREA           TYPE /BI0/OIBUS_AREA,
     InfoObject: 0COSTCENTER Cost Center.
        COSTCENTER           TYPE /BI0/OICOSTCENTER,
     InfoObject: 0SOLD_TO Sold-to party.
        SOLD_TO           TYPE /BI0/OISOLD_TO,
     InfoObject: 0WHSE_NUM Warehouse number / warehouse complex.
        WHSE_NUM           TYPE /BI0/OIWHSE_NUM,
     InfoObject: 0STOR_LOC Storage location.
        STOR_LOC           TYPE /BI0/OISTOR_LOC,
     InfoObject: 0STRGE_BIN Storage bin.
        STRGE_BIN           TYPE /BI0/OISTRGE_BIN,
     InfoObject: 0STRGE_TYPE Storage type.
        STRGE_TYPE           TYPE /BI0/OISTRGE_TYPE,
     InfoObject: 0VENDOR Vendor.
        VENDOR           TYPE /BI0/OIVENDOR,
     InfoObject: 0MATERIAL Material.
        MATERIAL           TYPE /BI0/OIMATERIAL,
     InfoObject: 0DOC_NUM BW: Document Number.
        DOC_NUM           TYPE /BI0/OIDOC_NUM,
     InfoObject: 0BASE_UOM Base Unit of Measure.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
     InfoObject: 0DOC_YEAR BW: Document Year.
        DOC_YEAR           TYPE /BI0/OIDOC_YEAR,
     InfoObject: 0PROFIT_CTR Profit Center.
        PROFIT_CTR           TYPE /BI0/OIPROFIT_CTR,
     InfoObject: 0DCINDIC Debit/credit indicator.
        DCINDIC           TYPE /BI0/OIDCINDIC,
     InfoObject: 0LOC_CURRCY Local currency.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
     InfoObject: 0PLANT Plant.
        PLANT           TYPE /BI0/OIPLANT,
     InfoObject: 0FISCVARNT Fiscal year variant.
        FISCVARNT           TYPE /BI0/OIFISCVARNT,
     InfoObject: 0CPNOITEMS BW: Number of Activities.
        CPNOITEMS           TYPE /BI0/OICPNOITEMS,
     InfoObject: 0CO_AREA Controlling area.
        CO_AREA           TYPE /BI0/OICO_AREA,
     InfoObject: 0DOC_ITEM BW: Document Line Number.
        DOC_ITEM           TYPE /BI0/OIDOC_ITEM,
     InfoObject: 0VALUE_LC Amount in local currency.
        VALUE_LC           TYPE /BI0/OIVALUE_LC,
     InfoObject: 0COORDER Order number.
        COORDER           TYPE /BI0/OICOORDER,
     InfoObject: 0QUANT_B Quantity in base units of measure.
        QUANT_B           TYPE /BI0/OIQUANT_B,
     InfoObject: 0MOVE_PLANT Receiving Plant/Issuing Plant.
        MOVE_PLANT           TYPE /BI0/OIMOVE_PLANT,
     InfoObject: 0RECORDMODE BW Delta Process: Update Mode.
        RECORDMODE           TYPE RODMUPDMOD,
     InfoObject: 0BWCOUNTER Additional Key Field Revaluation Document
*Record.
        BWCOUNTER           TYPE /BI0/OIBWCOUNTER,
     InfoObject: 0INDSPECSTK Indicator: Valuation of Special Stock.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0GN_R3_SSY Source System for R/3 Entity.
        GN_R3_SSY           TYPE /BI0/OIGN_R3_SSY,
     InfoObject: 0RT_MOVINV Movement Type is Physical Inventory.
        RT_MOVINV           TYPE /BI0/OIRT_MOVINV,
     InfoObject: 0RT_MOVADJ Movement Type is Stock Adjustment.
        RT_MOVADJ           TYPE /BI0/OIRT_MOVADJ,
     InfoObject: 0RSL_STMAT Structured Article.
        RSL_STMAT           TYPE /BI0/OIRSL_STMAT,
     InfoObject: 0RT_MOVRET Movement Type is Return.
        RT_MOVRET           TYPE /BI0/OIRT_MOVRET,
     InfoObject: 0RSL_STAUTO Automatically Completed Component.
        RSL_STAUTO           TYPE /BI0/OIRSL_STAUTO,
     InfoObject: 0RT_MOVTRAN Movement Type is Stock Transfer.
        RT_MOVTRAN           TYPE /BI0/OIRT_MOVTRAN,
     InfoObject: 0RT_MATPOST Transfer Posting from Article to Article.
        RT_MATPOST           TYPE /BI0/OIRT_MATPOST,
     InfoObject: 0RT_SASTSV Share of Business Volume for Set Sales Val
*ue in Local Crcy.
        RT_SASTSV           TYPE /BI0/OIRT_SASTSV,
     InfoObject: 0RT_SASTST Share of Business Volume for Set with Tax
*in Local Currency.
        RT_SASTST           TYPE /BI0/OIRT_SASTST,
     InfoObject: 0RMA_XCC RMA Cross-Company Code Stock Transfer.
        RMA_XCC           TYPE /BI0/OIRMA_XCC,
     InfoObject: 0RMA_LNK RMA Stock Transfer Reference Item.
        RMA_LNK           TYPE /BI0/OIRMA_LNK,
     InfoObject: 0RMA_RFLG RMA Relevance Flag.
        RMA_RFLG           TYPE /BI0/OIRMA_RFLG,
     InfoObject: 0RTHFEES Stock Transfer Fees.
        RTHFEES           TYPE /BI0/OIRTHFEES,
     Field: RECORD.
        RECORD           TYPE RSARECORD,
      END   OF tys_SC_1.
    TYPES:
tyt_SC_1        TYPE STANDARD TABLE OF tys_SC_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
      start_routine
        IMPORTING
          request                  type rsrequest
          datapackid               type rsdatapid
        EXPORTING
          monitor                  type rstr_ty_t_monitors
        CHANGING
          SOURCE_PACKAGE              type tyt_SC_1
        RAISING
          cx_rsrout_abort.
    METHODS
      inverse_start_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  *
    TYPES:
      BEGIN OF tys_SC_1_full,
     InfoObject: 0STORNO Stornokennzeichen.
        STORNO           TYPE /BI0/OISTORNO,
     InfoObject: 0RT_PROMO Aktion.
        RT_PROMO           TYPE /BI0/OIRT_PROMO,
     InfoObject: 0VAL_CLASS Bewertungsklasse.
        VAL_CLASS           TYPE /BI0/OIVAL_CLASS,
     InfoObject: 0DOC_DATE Belegdatum.
        DOC_DATE           TYPE /BI0/OIDOC_DATE,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0PSTNG_DATE Buchungsdatum im Beleg.
        PSTNG_DATE           TYPE /BI0/OIPSTNG_DATE,
     InfoObject: 0COMP_CODE Buchungskreis.
        COMP_CODE           TYPE /BI0/OICOMP_CODE,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0MOVETYPE Bewegungsart (Bestandsführung).
        MOVETYPE           TYPE /BI0/OIMOVETYPE,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0CPPVLC BW: Einkaufswert in Hauswährung.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0CPSVLC BW: Verkaufswert in Hauswährung.
        CPSVLC           TYPE /BI0/OICPSVLC,
     InfoObject: 0CPSTLC BW: VerkWmS Hauswährung.
        CPSTLC           TYPE /BI0/OICPSTLC,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0VAL_TYPE Bewertungsart.
        VAL_TYPE           TYPE /BI0/OIVAL_TYPE,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0BATCH Chargennummer.
        BATCH           TYPE /BI0/OIBATCH,
     InfoObject: 0MATMREA Grund für die Warenbewegung.
        MATMREA           TYPE /BI0/OIMATMREA,
     InfoObject: 0BUS_AREA Geschäftsbereich.
        BUS_AREA           TYPE /BI0/OIBUS_AREA,
     InfoObject: 0COSTCENTER Kostenstelle.
        COSTCENTER           TYPE /BI0/OICOSTCENTER,
     InfoObject: 0SOLD_TO Auftraggeber.
        SOLD_TO           TYPE /BI0/OISOLD_TO,
     InfoObject: 0WHSE_NUM Lagernummer/Lagerkomplex.
        WHSE_NUM           TYPE /BI0/OIWHSE_NUM,
     InfoObject: 0STOR_LOC Lagerort.
        STOR_LOC           TYPE /BI0/OISTOR_LOC,
     InfoObject: 0STRGE_BIN Lagerplatz.
        STRGE_BIN           TYPE /BI0/OISTRGE_BIN,
     InfoObject: 0STRGE_TYPE Lagertyp.
        STRGE_TYPE           TYPE /BI0/OISTRGE_TYPE,
     InfoObject: 0VENDOR Lieferant.
        VENDOR           TYPE /BI0/OIVENDOR,
     InfoObject: 0MATERIAL Material.
        MATERIAL           TYPE /BI0/OIMATERIAL,
     InfoObject: 0DOC_NUM BW: Belegnummer.
        DOC_NUM           TYPE /BI0/OIDOC_NUM,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
     InfoObject: 0DOC_YEAR BW: Belegjahr.
        DOC_YEAR           TYPE /BI0/OIDOC_YEAR,
     InfoObject: 0PROFIT_CTR Profit Center.
        PROFIT_CTR           TYPE /BI0/OIPROFIT_CTR,
     InfoObject: 0DCINDIC Soll-/Haben-Kennzeichen.
        DCINDIC           TYPE /BI0/OIDCINDIC,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
     InfoObject: 0PLANT Werk.
        PLANT           TYPE /BI0/OIPLANT,
     InfoObject: 0FISCVARNT Geschäftsjahresvariante.
        FISCVARNT           TYPE /BI0/OIFISCVARNT,
     InfoObject: 0CPNOITEMS BW: Anzahl Vorgänge.
        CPNOITEMS           TYPE /BI0/OICPNOITEMS,
     InfoObject: 0CO_AREA Kostenrechnungskreis.
        CO_AREA           TYPE /BI0/OICO_AREA,
     InfoObject: 0DOC_ITEM BW: Belegpositionsnummer.
        DOC_ITEM           TYPE /BI0/OIDOC_ITEM,
     InfoObject: 0VALUE_LC Betrag in Hauswährung.
        VALUE_LC           TYPE /BI0/OIVALUE_LC,
     InfoObject: 0COORDER Auftragsnummer.
        COORDER           TYPE /BI0/OICOORDER,
     InfoObject: 0QUANT_B Menge in Basismengeneinheiten.
        QUANT_B           TYPE /BI0/OIQUANT_B,
     InfoObject: 0MOVE_PLANT Empfangendes/Abgebendes Werk.
        MOVE_PLANT           TYPE /BI0/OIMOVE_PLANT,
     InfoObject: 0RECORDMODE BW Deltaverfahren: Update Modus.
        RECORDMODE           TYPE RODMUPDMOD,
*******************Commented based on oss note1052648*****************************
     InfoObject: 0RT_RMAPIDA RMA Inventurdatum.
       RT_RMAPIDA           TYPE /BI0/OIRT_RMAPIDA,
End Commented based on oss note1052648************************
     InfoObject: 0BWCOUNTER Zusätzliches Schlüsselfeld Umbewertungsbel
*egsatz.
        BWCOUNTER           TYPE /BI0/OIBWCOUNTER,
     InfoObject: 0INDSPECSTK Kennzeichen Bewertung Sonderbestand.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0GN_R3_SSY Quellsystem der R/3 Entität.
        GN_R3_SSY           TYPE /BI0/OIGN_R3_SSY,
     InfoObject: 0RT_MOVINV Bewegungsart ist Inventur.
        RT_MOVINV           TYPE /BI0/OIRT_MOVINV,
     InfoObject: 0RT_MOVADJ Bewegungsart ist Bestandskorrektur.
        RT_MOVADJ           TYPE /BI0/OIRT_MOVADJ,
     InfoObject: 0RSL_STMAT Strukturierter Artikel.
        RSL_STMAT           TYPE /BI0/OIRSL_STMAT,
     InfoObject: 0RT_MOVRET Bewegungsart ist Retoure.
        RT_MOVRET           TYPE /BI0/OIRT_MOVRET,
     InfoObject: 0RSL_STAUTO Automatisch ergänzte Komponente.
        RSL_STAUTO           TYPE /BI0/OIRSL_STAUTO,
     InfoObject: 0RT_MOVTRAN Bewegungsart ist Umlagerung.
        RT_MOVTRAN           TYPE /BI0/OIRT_MOVTRAN,
     InfoObject: 0RT_MATPOST Umbuchung Artikel an Artikel.
        RT_MATPOST           TYPE /BI0/OIRT_MATPOST,
     InfoObject: 0RT_SASTSV Umsatzanteil am Set Verkaufswert in Hauswä
*hrung.
        RT_SASTSV           TYPE /BI0/OIRT_SASTSV,
     InfoObject: 0RT_SASTST Umsatzanteil am Set Verkaufswert mit Steue
*r in Hauswährung.
        RT_SASTST           TYPE /BI0/OIRT_SASTST,
**********************Added as per note1052648*****************************************
     InfoObject: 0RMA_XCC RMA Cross-Company Code Stock Transfer.
        RMA_XCC           TYPE /BI0/OIRMA_XCC,
     InfoObject: 0RMA_LNK RMA Stock Transfer Reference Item.
        RMA_LNK           TYPE /BI0/OIRMA_LNK,
     InfoObject: 0RMA_RFLG RMA Relevance Flag.
        RMA_RFLG           TYPE /BI0/OIRMA_RFLG,
     InfoObject: 0RTHFEES Stock Transfer Fees.
        RTHFEES           TYPE /BI0/OIRTHFEES,
**********************End Added as per note1052648**************************************
     Field: RECORD.
        RECORD           TYPE RSARECORD,
        END   OF tys_SC_1_full.
    TYPES:
tyt_SC_1_full        TYPE STANDARD TABLE OF tys_SC_1_full
                        WITH NON-UNIQUE DEFAULT KEY.
    TYPES:
      BEGIN OF tys_TG_1_full,
     InfoObject: 0CHNGID Änderungslauf ID.
        CHNGID           TYPE /BI0/OICHNGID,
     InfoObject: 0RECORDTP Satztyp.
        RECORDTP           TYPE /BI0/OIRECORDTP,
     InfoObject: 0REQUID Request ID.
        REQUID           TYPE /BI0/OIREQUID,
     InfoObject: 0CALDAY Kalendertag.
        CALDAY           TYPE /BI0/OICALDAY,
     InfoObject: 0CALMONTH Kalenderjahr / Monat.
        CALMONTH           TYPE /BI0/OICALMONTH,
     InfoObject: 0CALWEEK Kalenderjahr / Woche.
        CALWEEK           TYPE /BI0/OICALWEEK,
     InfoObject: 0CALYEAR Kalenderjahr.
        CALYEAR           TYPE /BI0/OICALYEAR,
     InfoObject: 0MATERIAL Material.
        MATERIAL           TYPE /BI0/OIMATERIAL,
     InfoObject: 0PLANT Werk.
        PLANT           TYPE /BI0/OIPLANT,
     InfoObject: 0STOR_LOC Lagerort.
        STOR_LOC           TYPE /BI0/OISTOR_LOC,
     InfoObject: 0BATCH Chargennummer.
        BATCH           TYPE /BI0/OIBATCH,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0GN_VENDOR Lieferant.
        GN_VENDOR           TYPE /BI0/OIGN_VENDOR,
     InfoObject: 0RECVS_VAL Zugangswert Bewerteter Bestand.
        RECVS_VAL           TYPE /BI0/OIRECVS_VAL,
     InfoObject: 0ISSVS_VAL Abgangswert Bewerteter Bestand.
        ISSVS_VAL           TYPE /BI0/OIISSVS_VAL,
     InfoObject: 0ISSBLOSTCK Abgangsmenge Gesperrter Bestand.
        ISSBLOSTCK           TYPE /BI0/OIISSBLOSTCK,
     InfoObject: 0ISSCNSSTCK Abgangsmenge Konsignationsbestand.
        ISSCNSSTCK           TYPE /BI0/OIISSCNSSTCK,
     InfoObject: 0ISSQMSTCK Abgangsmenge Qualitätsbestand.
        ISSQMSTCK           TYPE /BI0/OIISSQMSTCK,
     InfoObject: 0ISSTRANSST Abgangsmenge Transitbestand.
        ISSTRANSST           TYPE /BI0/OIISSTRANSST,
     InfoObject: 0RECBLOSTCK Zugangsmenge Gesperrter Bestand.
        RECBLOSTCK           TYPE /BI0/OIRECBLOSTCK,
     InfoObject: 0RECCNSSTCK Zugangsmenge Konsignationsbestand.
        RECCNSSTCK           TYPE /BI0/OIRECCNSSTCK,
     InfoObject: 0RECQMSTCK Zugangsmenge Qualitätsbestand.
        RECQMSTCK           TYPE /BI0/OIRECQMSTCK,
     InfoObject: 0RECTRANSST Zugangsmenge Transitbestand.
        RECTRANSST           TYPE /BI0/OIRECTRANSST,
     InfoObject: 0ISSSCRP Abgangsmenge Ausschuss.
        ISSSCRP           TYPE /BI0/OIISSSCRP,
     InfoObject: 0ISSVALSCRP Abgangswert Ausschuss.
        ISSVALSCRP           TYPE /BI0/OIISSVALSCRP,
     InfoObject: 0RECTOTSTCK Zugangsmenge Gesamt Bestand.
        RECTOTSTCK           TYPE /BI0/OIRECTOTSTCK,
     InfoObject: 0ISSTOTSTCK Abgangsmenge Gesamtbestand.
        ISSTOTSTCK           TYPE /BI0/OIISSTOTSTCK,
     InfoObject: 0ISSVALSTCK Abgangsmenge Bewerteter Bestand.
        ISSVALSTCK           TYPE /BI0/OIISSVALSTCK,
     InfoObject: 0RECVALSTCK Zugangsmenge Bewerteter Bestand.
        RECVALSTCK           TYPE /BI0/OIRECVALSTCK,
     InfoObject: 0VENCONCON Verbrauchswerte Lieferantenkonsignationsbe
*stand.
        VENCONCON           TYPE /BI0/OIVENCONCON,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
     Field: RECORD Nummer des Datensatzes.
        RECORD           TYPE RSARECORD,
      END   OF tys_TG_1_full.
    TYPES:
      BEGIN OF tys_SC_1__RULE_9,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_9.
    TYPES:
      BEGIN OF tys_SC_1__RULE_10,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_10.
    TYPES:
      BEGIN OF tys_SC_1__RULE_11,
     InfoObject: 0GN_R3_SSY Quellsystem der R/3 Entität.
        GN_R3_SSY           TYPE /BI0/OIGN_R3_SSY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0VENDOR Lieferant.
        VENDOR           TYPE /BI0/OIVENDOR,
      END   OF tys_SC_1__RULE_11.
    TYPES:
      BEGIN OF tys_SC_1__RULE_12,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPPVLC BW: Einkaufswert in Hauswährung.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0INDSPECSTK Kennzeichen Bewertung Sonderbestand.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
      END   OF tys_SC_1__RULE_12.
    TYPES:
      BEGIN OF tys_SC_1__RULE_13,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPPVLC BW: Einkaufswert in Hauswährung.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0INDSPECSTK Kennzeichen Bewertung Sonderbestand.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
      END   OF tys_SC_1__RULE_13.
    TYPES:
      BEGIN OF tys_SC_1__RULE_15,
     InfoObject: 0GN_R3_SSY Quellsystem der R/3 Entität.
        GN_R3_SSY           TYPE /BI0/OIGN_R3_SSY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0VENDOR Lieferant.
        VENDOR           TYPE /BI0/OIVENDOR,
      END   OF tys_SC_1__RULE_15.
    TYPES:
      BEGIN OF tys_SC_1__RULE_19,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_19.
    TYPES:
      BEGIN OF tys_SC_1__RULE_20,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_20.
    TYPES:
      BEGIN OF tys_SC_1__RULE_21,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0INDSPECSTK Kennzeichen Bewertung Sonderbestand.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_21.
    TYPES:
      BEGIN OF tys_SC_1__RULE_22,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0INDSPECSTK Kennzeichen Bewertung Sonderbestand.
        INDSPECSTK           TYPE /BI0/OIINDSPECSTK,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_22.
    TYPES:
      BEGIN OF tys_SC_1__RULE_25,
     InfoObject: 0GN_R3_SSY Quellsystem der R/3 Entität.
        GN_R3_SSY           TYPE /BI0/OIGN_R3_SSY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0VENDOR Lieferant.
        VENDOR           TYPE /BI0/OIVENDOR,
      END   OF tys_SC_1__RULE_25.
    TYPES:
      BEGIN OF tys_SC_1__RULE_31,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPPVLC BW: Einkaufswert in Hauswährung.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
      END   OF tys_SC_1__RULE_31.
    TYPES:
      BEGIN OF tys_SC_1__RULE_37,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_37.
    TYPES:
      BEGIN OF tys_SC_1__RULE_38,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_38.
    TYPES:
      BEGIN OF tys_SC_1__RULE_39,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_39.
    TYPES:
      BEGIN OF tys_SC_1__RULE_40,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_40.
    TYPES:
      BEGIN OF tys_SC_1__RULE_41,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKCAT Bestandstypen.
        STOCKCAT           TYPE /BI0/OISTOCKCAT,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_41.
    TYPES:
      BEGIN OF tys_SC_1__RULE_42,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0PROCESSKEY BW:Vorgangsschlüssel.
        PROCESSKEY           TYPE /BI0/OIPROCESSKEY,
     InfoObject: 0STOCKRELEV BW: Best.Relevanz.
        STOCKRELEV           TYPE /BI0/OISTOCKRELEV,
     InfoObject: 0STOCKTYPE Bestandsausprägung.
        STOCKTYPE           TYPE /BI0/OISTOCKTYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_42.
    TYPES:
      BEGIN OF tys_SC_1__RULE_43,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPQUABU BW: Menge in Basismengeneinheit.
        CPQUABU           TYPE /BI0/OICPQUABU,
     InfoObject: 0MOVETYPE Bewegungsart (Bestandsführung).
        MOVETYPE           TYPE /BI0/OIMOVETYPE,
     InfoObject: 0BASE_UOM Basismengeneinheit.
        BASE_UOM           TYPE /BI0/OIBASE_UOM,
      END   OF tys_SC_1__RULE_43.
    TYPES:
      BEGIN OF tys_SC_1__RULE_51,
     InfoObject: 0BWAPPLNM Anwendungskomponente.
        BWAPPLNM           TYPE /BI0/OIBWAPPLNM,
     InfoObject: 0CPPVLC BW: Einkaufswert in Hauswährung.
        CPPVLC           TYPE /BI0/OICPPVLC,
     InfoObject: 0MOVETYPE Bewegungsart (Bestandsführung).
        MOVETYPE           TYPE /BI0/OIMOVETYPE,
     InfoObject: 0LOC_CURRCY Hauswährung.
        LOC_CURRCY           TYPE /BI0/OILOC_CURRCY,
      END   OF tys_SC_1__RULE_51.
Additional types for start routine interface
  TYPES:
    data_package_structure type tys_SC_1_full.
Additional declaration for update rule interface
  DATA:
    MONITOR       type standard table of rsmonitor  WITH HEADER LINE,
    MONITOR_RECNO type standard table of rsmonitors WITH HEADER LINE,
    RECORD_NO     LIKE SY-TABIX,
    RECORD_ALL    LIKE SY-TABIX,
    SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS.
global definitions from update rules
INCLUDE rsbctgn_top.
INCLUDE rsbctgn_update_rules.
FORM routine_9998
  TABLES DATA_PACKAGE TYPE tyt_SC_1_full
  CHANGING
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
init variables
fill the internal table "MONITOR", to make monitor entries
see OSS note 571669
  LOOP AT DATA_PACKAGE.
    IF DATA_PACKAGE-stockcat EQ 'V' OR
       DATA_PACKAGE-stocktype EQ 'V'.
      DELETE DATA_PACKAGE.
    ENDIF.
  ENDLOOP.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
ENDFORM.                    "routine_9998
FORM routine_0012
  USING
    COMM_STRUCTURE type tys_SC_1__RULE_9
  CHANGING
    RESULT         TYPE tys_TG_1_full-ISSCNSSTCK
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
init variables
fill the internal table "MONITOR", to make monitor entries
only goods issue is considered
  IF ( COMM_STRUCTURE-processkey EQ '100'   "Other Issues
    OR COMM_STRUCTURE-processkey EQ '101'   "Returns / Vendor
    OR COMM_STRUCTURE-processkey EQ '104'   "Material Transfer
    OR COMM_STRUCTURE-processkey EQ '105'   "Stock Adjustment InvD
    OR COMM_STRUCTURE-processkey EQ '106'   "Stock Adjustment Other
    OR COMM_STRUCTURE-processkey EQ '110' ) "Issue from Stock Transfer
   AND COMM_STRUCTURE-bwapplnm EQ 'MM'
only movements which are relevant for stock control
   AND COMM_STRUCTURE-stockrelev EQ '1'
   AND COMM_STRUCTURE-cpquabu <> 0.
only consignment stock is considered
    CASE COMM_STRUCTURE-stockcat.
      WHEN 'K'.
        RESULT = COMM_STRUCTURE-cpquabu.
        RETURNCODE = 0.
      WHEN space.
        IF COMM_STRUCTURE-stocktype CA 'KLM'.
          RESULT = COMM_STRUCTURE-cpquabu.
          RETURNCODE = 0.
        ELSE.
          RETURNCODE = 4.
        ENDIF.
      WHEN OTHERS.
        RETURNCODE = 4.
    ENDCASE.
  ELSE.
if the returncode is not equal zero, the result will not be updated
    RETURNCODE = 4.
  ENDIF.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
ENDFORM.                    "routine_0012
FORM routine_0014
  USING
    COMM_STRUCTURE type tys_SC_1__RULE_10
  CHANGING
    RESULT         TYPE tys_TG_1_full-RECCNSSTCK
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
init variables
fill the internal table "MONITOR", to make monitor entries
only goods receipt is considered
  IF ( COMM_STRUCTURE-processkey EQ '000'   "Other Receipts
    OR COMM_STRUCTURE-processkey EQ '001'   "Goods Receipt / Vendor
    OR COMM_STRUCTURE-processkey EQ '004'   "Material Transfer
    OR COMM_STRUCTURE-processkey EQ '005'   "Stock Adjustment InvD
    OR COMM_STRUCTURE-processkey EQ '006'   "Stock Adjustment Other
    OR COMM_STRUCTURE-processkey EQ '010' ) "Receipt from Stock Transfer
   AND COMM_STRUCTURE-bwapplnm EQ 'MM'
only movements which are relevant for stock control
   AND COMM_STRUCTURE-stockrelev EQ '1'
   AND COMM_STRUCTURE-cpquabu <> 0.
only consignment stock is considered
    CASE COMM_STRUCTURE-stockcat.
      WHEN 'K'.
        RESULT = COMM_STRUCTURE-cpquabu.
        RETURNCODE = 0.
      WHEN space.
        IF COMM_STRUCTURE-stocktype CA 'KLM'.
          RESULT = COMM_STRUCTURE-cpquabu.
          RETURNCODE = 0.
        ELSE.
          RETURNCODE = 4.
        ENDIF.
      WHEN OTHERS.
        RETURNCODE = 4.
    ENDCASE.
  ELSE.
if the returncode is not equal zero, the result will not be updated
    RETURNCODE = 4.
  ENDIF.