Skip to Content

update routine

Hi there,

Please help me to under standthese code.

FORM compute_data_field

TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring

USING COMM_STRUCTURE LIKE /BIC/CS0000000082

RECORD_NO LIKE SY-TABIX

RECORD_ALL LIKE SY-TABIX

SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

CHANGING RESULT LIKE /BIC/AZRTOITO100-/BIC/ZI_BUSPR

RETURNCODE LIKE SY-SUBRC "Do not use!

ABORT LIKE SY-SUBRC. "set ABORT <> 0 to cancel update,

thanks,

Rob

Add a comment
10|10000 characters needed characters exceeded

Related questions

2 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Apr 24, 2007 at 04:36 PM

    Do you have the complete code?

    What you have posted here is only the header of the subroutine.

    Ravi Thothadri

    Add a comment
    10|10000 characters needed characters exceeded

    • FORM compute_data_field

      TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring

      USING COMM_STRUCTURE LIKE /BIC/CS0000000082

      RECORD_NO LIKE SY-TABIX

      RECORD_ALL LIKE SY-TABIX

      SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

      CHANGING RESULT LIKE /BIC/AZRTOITO100-FISCPER3

      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

      CALL FUNCTION 'DATE_TO_PERIOD_CONVERT'

      EXPORTING

      i_date = COMM_STRUCTURE-CALDAY

      i_periv = COMM_STRUCTURE-FISCVARNT

      IMPORTING

      e_buper = w_fiscper

      • e_gjahr = w_fiscyear

      EXCEPTIONS

      input_false = 1

      t009_notfound = 2

      t009b_notfound = 3

      OTHERS = 4.

      IF sy-subrc eq 0.

      RESULT = w_fiscper.

      ENDIF.

  • author's profile photo Former Member
    Former Member
    Posted on Apr 24, 2007 at 05:38 PM

    The routine read date and using the function module "DATE_TO_PERIOD_CONVERT" derives the fiscal period. This is similar to the one that you posted a while ago. Same function module.

    Ravi Thothadri

    Add a comment
    10|10000 characters needed characters exceeded

    • thanks,

      could you explaine this one to please

      FORM compute_data_field

      TABLES MONITOR STRUCTURE RSMONITOR "user defined monitoring

      USING COMM_STRUCTURE LIKE /BIC/CS0000000082

      RECORD_NO LIKE SY-TABIX

      RECORD_ALL LIKE SY-TABIX

      SOURCE_SYSTEM LIKE RSUPDSIMULH-LOGSYS

      CHANGING RESULT LIKE /BIC/AZRTOITO100-/BIC/ZI_TRHR

      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

      CLEAR RESULT.

      • result value of the routine

      IF COMM_STRUCTURE-ZZI_WCKID = 'DELV'.

      RESULT = COMM_STRUCTURE-/BIC/ZI_DELTM+0(2). " 1st Load

      ELSE.

      RESULT = COMM_STRUCTURE-/BIC/ZI_POSTM+0(2). " 2nd Load

      ENDIF.

      Please any body help me

      Thanks

      Message was edited by:

      Rob

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.