Ejemplo Rutina INIT

"loop at source_package assigning .

IF NOT ( -PO_STATUS NE 'K'
** PO is not a replication from SRM System (in case of Extended Scenario
** PO is created in SRM and a copy of the PO is created in ERP with
** PO_STATUS = K)
*
AND ( -PROCESSKEY = '001' OR "Normal purchasing order
-PROCESSKEY = '011' OR "Stock transport order
-PROCESSKEY = '021' OR "Cross company order
** Only Purchase Orders
*
-PROCESSKEY = '004' OR "Normal scheduling agreement
-PROCESSKEY = '014' OR "Stock transport agreement
-PROCESSKEY = '024') "Cross company agreement -
** or Call Offs from schedule agreements
*
AND -BWAPPLNM EQ 'MM' ).
DELETE source_package.
ENDIF.
ENDLOOP."



**************************
********************

  delete DATA_PACKAGE where ( CUST_MKT ne '009'    and

                             CUST_MKT ne '020' )   and

                           ( DOC_TYPE ne 'ZA11'    and

                             DOC_TYPE ne 'ZD11'    and

                             DOC_TYPE ne 'ZD21'    and

                             DOC_TYPE ne 'ZD31'    and

                             DOC_TYPE ne 'ZR11'    and

                             DOC_TYPE ne   'KE'  ) and

                           ( MATL_TYPE eq 'ZPPT'   or

                             MATERIAL  eq '000000000001200002' ).