Skip to Content
0
Former Member
Apr 09, 2008 at 03:26 PM

Update routine

23 Views

Hi SDN,

Please help me with understanding this code.

Points will be assigned. Thanks

DATA: doc_info_buffer type /BIC/AZPYF08O200.

DATA: tmp_subrc like sy-subrc.

INCLUDE RS_BCT_HR_PYPP_UPDATE_RULES.

$$ 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/CS8ZPYF08O1

RECORD_NO LIKE SY-TABIX

RECORD_ALL LIKE SY-TABIX

SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

CHANGING RESULT LIKE /BIC/AZPYF08O300-FUND

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

PERFORM READ_DOCINFO USING COMM_STRUCTURE-py_doc_num

COMM_STRUCTURE-py_doc_lin

CHANGING

doc_info_buffer

tmp_subrc

ABORT.

IF tmp_subrc eq 0.

RESULT = doc_info_buffer-FUND.

ELSE.

CLEAR RESULT.

ENDIF.

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

*

ENDFORM.