ENDMETHOD is missing

Question

Hi,
I'm creating end routine and using the following code.it is given an error
FORM routine_0007
  TABLES
   P_MONITOR         structure rsmonitor
  CHANGING
    RETURNCODE     LIKE sy-subrc
    ABORT          LIKE sy-subrc
  RAISING
    cx_sy_arithmetic_error
    cx_sy_conversion_error.
init variables
not supported
     icube_values = g.
     CLEAR result_table. REFRESH result_table.
type-pools: imbw1.
Data for currency conversion.
  statics:
   s_FLG_CURR_CON_ACT TYPE  FLAG value 'X'.
  data:
   ls_curr_conv tyPE  IMBW1_TYPE_s_CURR_CONV,
   lT_curr_conv tyPE  IMBW1_TYPE_T_CURR_CONV.
  move-corresponding:
   ICUBE_VALUES  to RESULT_TABLE.
  RESULT_TABLE-currency = COMM_STRUCTURE-currency.
  RESULT_TABLE-amount   = COMM_STRUCTURE-amount.
  if s_flg_curr_con_act is initial.
  Take over values.
    append RESULT_TABLE.
  else.
Use currency conversion logic.
    move-corresponding:
     RESULT_TABLE to ls_curr_conv.
    append
     ls_curr_conv to lt_curr_CONV.
Execute currency conversion.
    CALL FUNCTION 'AIB3_CURR_CONV'
      EXPORTING
        I_OBJECT                 = imbw1_con_object-ip
        I_APPR_YEAR              = COMM_STRUCTURE-appr_year
        I_FISCVARNT              = COMM_STRUCTURE-fiscvarnt
        I_CO_AREA                = COMM_STRUCTURE-co_area
        I_FISCYEAR               = COMM_STRUCTURE-fiscyear
      I_FISCPER                = comm_structure-fiscper
        I_PROG_DEF_S             = COMM_STRUCTURE-prog_def_s
        I_PROG_POS               = COMM_STRUCTURE-prog_pos
      I_APPR_REQU              = comm_structure-appr_requ
      I_COORDER                = comm_structure-coorder
      I_WBS_ELEMT              = comm_structure-wbs_elemt
      I_ACTIVITY               = comm_structure-activity
      I_ACTY_ELEMT             = comm_structure-acty_elemt
      I_NETWORK                = comm_structure-network
      IMPORTING
        E_FLG_CURR_CON_ACT       = s_flg_curr_con_act
        E_ABORT                  = ABORT
      TABLES
        CT_VALUES                = lt_curr_conv
        CT_MONITOR               = MONITOR
      CHANGING
        CS_CUBEVALUES            = RESULT_TABLE.
    IF ABORT <> 0.
ERROR: ==> Exit.
      exit.
    ENDIF.
  Take over converted values.
    loop at lt_curr_conv into ls_curr_conv.
      move-corresponding:
       ls_curr_conv     to    RESULT_TABLE.
      append RESULT_TABLE.
    endloop.
  endif.
  p_monitor[] = MONITOR[].
  CLEAR:
    MONITOR[].
ENDFORM.                    "routine_0007
it is given an error .
E:Statement "ENDMETHOD" is missing.
Please help to fix this problem.
thanks

Answer 1

Hi Pria,
The error is not in your code. The End Routine itself is a Method. When you create the End routine the initial code will be something like below. I believe you accidently deleted the "EndMethod" statement. Delete the End routine and recreate it. You'll not see the issue.
Good luck,
vijay
      CLASS routine IMPLEMENTATION
CLASS lcl_transform IMPLEMENTATION.
      Method end_routine
      Calculation of result package via end routine
      Note: Update of target fields depends on rule assignment in
      transformation editor. Only fields that have a rule assigned,
      are updated to the data target.
  <-> result package
  METHOD end_routine.
*=== Segments ===
    FIELD-SYMBOLS:
      <RESULT_FIELDS>    TYPE tys_TG_1.
    DATA:
      MONITOR_REC     TYPE rstmonitor.
$$ begin of routine - insert your code only below this line        -
... "insert your code here
*--  fill table "MONITOR" with values of structure "MONITOR_REC"
*-   to make monitor entries
... "to cancel the update process
   raise exception type CX_RSROUT_ABORT.
$$ end of routine - insert your code only before this line         -
ENDMETHOD.                    "end_routine