Skip to Content
0
Apr 01, 2008 at 09:34 PM

ABAP Code

13 Views

Hi,

please help me to understand following codes.

FORM compute_data_field

TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring

USING COMM_STRUCTURE LIKE /BIC/CS8SSDOGPF1

RECORD_NO LIKE SY-TABIX

RECORD_ALL LIKE SY-TABIX

SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

CHANGING RESULT LIKE /BIC/ASSDOGPF200-SHIP_TO

RETURNCODE LIKE SY-SUBRC "Do not use!

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

if g_count <> RECORD_NO.

g_count = RECORD_NO.

read table t_g_output into s_g_output index RECORD_NO.

if sy-subrc = 0.

RESULT = s_g_output-ship_to.

endif.

else.

RESULT = s_g_output-ship_to.

endif.

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

ABORT = 0.

Please give me urgent reply,

Thanks