Quantcast
Channel: SCN: Message List - Data Warehousing
Viewing all articles
Browse latest Browse all 3366

Re: Issue with multiple records loading into cube

$
0
0

Nanda,

 

Please find the start routine below

 

Z9SD_O21 = Billing document header

 

 

      L_ZUARC like /BIC/AZ9SD_O2300-INV_QTY,

       L_ZUART like /BIC/AZ9SD_O2300-KPRICE,

       L_ZCGU like /BIC/AZ9SD_O2300-KNVAL,

       L_ZCTU like /BIC/AZ9SD_O2300-KNVAL,

       L_ZCNU like /BIC/AZ9SD_O2300-KNVAL,

       L_ZCQU like /BIC/AZ9SD_O2300-KNVAL,

 

FORM SELECT_POST_ST

    USING COMM_BILL_NUM LIKE /BIC/AZ9SD_O2100-DOC_NUMBER.

*         COMM_BILL_DATE LIKE /BIC/AZ9SD_O2100-BILL_DATE.

 

   IF COMM_BILL_NUM <> /BIC/AZ9SD_O2100-DOC_NUMBER.

*  OR COMM_BILL_DATE <> /BIC/AZ9SD_O2100-BILL_DATE.

 

 

     CLEAR /BIC/AZ9SD_O2100.

 

     SELECT SINGLE DOC_NUMBER /BIC/ZPOST_ST

 

     INTO (/BIC/AZ9SD_O2100-DOC_NUMBER,

*          /BIC/AZ9SD_O2100-BILL_DATE,

           /BIC/AZ9SD_O2100-/BIC/ZPOST_ST )

 

     FROM /BIC/AZ9SD_O2100 WHERE

      DOC_NUMBER = COMM_BILL_NUM.

 

 

   ENDIF.

 

ENDFORM. "SELECT_POST_ST

 

 

*$*$ end of global - insert your declaration only before this line   *-*

 

* The follow definition is new in the BW3.x

TYPES:

   BEGIN OF DATA_PACKAGE_STRUCTURE.

      INCLUDE STRUCTURE /BIC/CS8Z9SD_O24.

TYPES:

      RECNO   LIKE sy-tabix,

   END OF DATA_PACKAGE_STRUCTURE.

DATA:

   DATA_PACKAGE TYPE STANDARD TABLE OF DATA_PACKAGE_STRUCTURE

        WITH HEADER LINE

        WITH NON-UNIQUE DEFAULT KEY INITIAL SIZE 0.

 

FORM startup

   TABLES   MONITOR STRUCTURE RSMONITOR "user defined monitoring

            MONITOR_RECNO STRUCTURE RSMONITORS " monitoring with record n

            DATA_PACKAGE STRUCTURE DATA_PACKAGE

   USING    RECORD_ALL LIKE SY-TABIX

            SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

   CHANGING ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update

*

*$*$ begin of routine - insert your code only below this line        *-*

* fill the internal tables "MONITOR" and/or "MONITOR_RECNO",

* to make monitor entries

 

* if abort is not equal zero, the update process will be canceled

 

* DELETE DATA_PACKAGE WHERE STORNO = 'X'.

*

* DELETE DATA_PACKAGE WHERE /BIC/ZPSTAS = 'A'.

 

* CG: 07/02/07 Assign Summarization group for each partner function

* based on Master Data.

 

   DATA: LV_LINES TYPE I.

   DATA: LV_RETURN(1).

 

   DESCRIBE TABLE DATA_PACKAGE LINES LV_LINES.

 

   IF LV_LINES > 0.

 

     CLEAR: LV_RETURN, SY-SUBRC.

 

     CALL FUNCTION 'Z_FIND_SUM_GROUP_2'

       IMPORTING

         MY_RETURN                      = LV_RETURN

       TABLES

         IT_DATAPACKAGE                 = DATA_PACKAGE

       EXCEPTIONS

         GENERAL_ERROR                  = 1.

   ENDIF.

 

   ABORT = 0.

 

*$*$ end of routine - insert your code only before this line         *-*

*

ENDFORM.


Viewing all articles
Browse latest Browse all 3366

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>