cancel
Showing results for 
Search instead for 
Did you mean: 

3.X Routines

Former Member
0 Kudos

Hi,

I need to conver 3.x Start routine into Bi 7. Wehn ever i try system given me errors specially INCLUDE Structure.

Please help me to fix this problem.

Thanks

PROGRAM UPDATE_ROUTINE.

$$ begin of global - insert your declaration only below this line -

  • TABLES: ...

  • DATA: ...

$$ 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/CS0IM_FA_IP_2.

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

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

type-pools: imbw1.

data:

lS_TABNAMEs TYPE IMBW1_TYPE_S_TABNAME,

ls_prefetch_of type imbw1_type_s_prefetch_of,

lt_ip_attr type imbw1_type_t_sor_ip_attr.

*----


  • Get the pramameters for IM-Prefetch - Logic.

CALL FUNCTION 'AIB5_DATABASIS_START_GET_PARA'

EXPORTING

I_OBJECT = imbw1_con_object-ip

I_LOGSYST = SOURCE_SYSTEM

IMPORTING

ES_PREFETCH_OF = ls_prefetch_of

ES_TABNAMES = ls_tabnames

E_ABORT = ABORT

TABLES

ET_MONITOR = MONITOR[].

  • EXCEPTIONS

  • UNKNOWN_OBJECT = 1.

.

check ABORT is initial.

*----


  • Select the necessary data.

if ls_tabnames-ip_attr_block is initial and not

ls_prefetch_of-ip_attr is initial.

  • IP_ATTR.

select * from (ls_tabnames-IP_attr)

into corresponding fields of table

lt_ip_attr[]

for all entries in

DATA_PACKAGE[]

where

prog_def_s eq DATA_PACKAGE-prog_def_s and

appr_year eq DATA_PACKAGE-appr_year and

prog_pos eq DATA_PACKAGE-prog_pos and

objvers eq 'A'.

endif.

*----


  • Push back the data to the IM-Prefetch Buffer.

CALL FUNCTION 'AIB5_DATABASIS_START_PUT_TABL'

EXPORTING

I_OBJECT = imbw1_con_object-ip

IT_ip_attr = lt_ip_attr[]

IMPORTING

E_ABORT = ABORT.

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

*

ENDFORM.

Accepted Solutions (0)

Answers (1)

Answers (1)

Former Member
0 Kudos

Hi,

As per my understanding, you are trying to create transformation.

Right click on update rule --> Additional Functions ---> Create transformation. The system will create transformations automatically with the conversion of start routine also..

Hope this helps,

Regards,

Rama Murthy.

Former Member
0 Kudos

Hi,

I did this but it is given an error due to return table so i copy the routine from 3.x and copy in BI 7 start routine, now it is given an error

E:Within classes and interfaces, you can only use "TYPE" to refer to ABAP Dictionary types, not "LIKE" or "STRUCTURE".

Could you please help me.

Thanks

Former Member
0 Kudos

Hi Pria,

BI7 uses object oriented programming. Please refer the SAP how to guide on start routine.

-Vikram

Former Member
0 Kudos

Hi,

could you plase posted the good line, because i try to search but did not get proper doc.

Thanks

MartinMaruskin
Active Contributor
0 Kudos

Pria,

use TYPE keyword while declaring data objects. see the docu:

http://help.sap.com/saphelp_nw70/helpdata/en/e3/732c42be6fde2ce10000000a1550b0/content.htm

Former Member
0 Kudos

Closed