Program Update_routine

[manusap]

Hola a todos!! Algún alma caritativa me podría traducir un poquito lo que me está queriendo decir este programita, por favor? Son unas updates rules que quiero entender en BW.
Muchas gracias!!!
Saludos


PROGRAM UPDATE_ROUTINE.
*$*$ begin of global - insert your declaration only below this line *-*
* TABLES: ...
DATA i TYPE n.
DATA: i_calyear LIKE scal-year,
i_week LIKE scal-week,
e_mweek LIKE sy-tabix,
i_date LIKE scal-date.
*$*$ end of global - insert your declaration only before this line *-*


FORM compute_data_field
TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring
USING COMM_STRUCTURE LIKE /BIC/CS8ZSMISOO3
RECORD_NO LIKE SY-TABIX
RECORD_ALL LIKE SY-TABIX
SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS
CHANGING RESULT LIKE /BIC/VZSMISOSC1T-/BIC/ZNO_ORHD
RETURNCODE LIKE SY-SUBRC
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

* result value of the routine
RESULT = 1.
* if the returncode is not equal zero, the result will not be updated
RETURNCODE = 0.
* 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.