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.