BI : ABAP 3.x to transformation 7.0

Question

Hi Gurus ,
For the below update routine ,can you please tell me what code to be written in Transformation routine 7.0 ? kindly advise. I am getting many errors.
PROGRAM UPDATE_ROUTINE.
$$ begin of global - insert your declaration only below this line  -
INCLUDE rs_bct_mm_update_rules.
data g_price_unit type ref to data.
field-symbols <price_unit> type any.
constants c_price_unit type string value
  '/BIC/CS2LIS_02_ITM-price_unit'.
$$ 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/CS2LIS_02_ITM.
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 table "MONITOR", to make monitor entries
see OSS note 627498
  LOOP AT DATA_PACKAGE.
    IF ( DATA_PACKAGE-processkey NE '001' AND
       DATA_PACKAGE-processkey NE '011' AND
       DATA_PACKAGE-processkey NE '021' AND
       DATA_PACKAGE-processkey NE '002' AND
       DATA_PACKAGE-processkey NE '012' AND
       DATA_PACKAGE-processkey NE '022') OR
see OSS note 636914
       DATA_PACKAGE-order_quan EQ 0 OR
       DATA_PACKAGE-numerator EQ 0 OR
       DATA_PACKAGE-denomintr EQ 0.
      DELETE DATA_PACKAGE.
see OSS note 690106
    ENDIF.
  ENDLOOP.
if abort is not equal zero, the update process will be canceled
  ABORT = 0.
$$ end of routine - insert your code only before this line         -
ENDFORM.
Thanks & regards,
M.S

Answer 1

*$*$ begin of routine - insert your code only below this line -
* fill the internal table "MONITOR", to make monitor entries
* see OSS note 627498
LOOP AT DATA_PACKAGE.
IF ( DATA_PACKAGE-processkey NE '001' AND
DATA_PACKAGE-processkey NE '011' AND
DATA_PACKAGE-processkey NE '021' AND
DATA_PACKAGE-processkey NE '002' AND
DATA_PACKAGE-processkey NE '012' AND
DATA_PACKAGE-processkey NE '022') OR
* see OSS note 636914
DATA_PACKAGE-order_quan EQ 0 OR
DATA_PACKAGE-numerator EQ 0 OR
DATA_PACKAGE-denomintr EQ 0.
DELETE DATA_PACKAGE.
* see OSS note 690106
ENDIF.
ENDLOOP.
* if abort is not equal zero, the update process will be canceled
ABORT = 0.
*$*$ end of routine - insert your code only before this line -*
should be transformed into
*$*$ begin of routine - insert your code only below this line -
LOOP at source_package assigning <source_fields>.
  IF (     <source_fields>-processkey NE '001'
       AND <source_fields>-processkey NE '011'
       AND <source_fields>-processkey NE '021'
       AND <source_fields>-processkey NE '002'
       AND <source_fields>-processkey NE '012'
       AND <source_fields>-processkey NE '022' )
  OR <source_fields>-order_quan EQ 0 " see OSS note 636914
  OR <source_fields>-numerator  EQ 0
  OR <source_fields>-denomintr  EQ 0.
    delete source_package. " see OSS note 690106
  ENDIF.
ENDLOOP.
*$*$ end of routine - insert your code only before this line -*