Beispiel für Endroutine

Sie laden Daten über die DataSource Hauptbuch: Verkehrszahlen (0FI_GL_1) im SAP ERP-System in das DataStore-Objekt FIGL: Verkehrszahlen (0FIGL_O06).

Sie möchten eine Endroutine anlegen, durch die das zusätzliche InfoObject Plan-/Ist- Kennzeichen(ZPLACTUAL) gefüllt wird. Die Routine soll dazu das Feld Werttyp lesen. Wenn der Wert 10 (Ist) beträgt, dann wird der Wert A in das InfoObject Plan-/Ist-Kennzeichen geschrieben, wenn der Wert 20 (Plan) beträgt, dann wird der Wert P in das InfoObject Plan-/Ist-Kennzeichen geschrieben.

Sie befinden sich in der Pflege der Transformation. Sie wählen (Endroutine anlegen). Der Routineneditor öffnet sich.
Sie fügen folgende Coding-Zeilen ein:

Beispiel

*----------------------------------------------------------------------*
  METHOD end_routine.
*=== Segments ===

    FIELD-SYMBOLS:
      <RESULT_FIELDS>    TYPE _ty_s_TG_1.

*$*$ begin of routine - insert your code only below this line        *-*

    loop at RESULT_PACKAGE assigning <RESULT_FIELDS>
      where vtype eq '010' or vtype eq '020'.
      case <RESULT_FIELDS>-vtype.
        when '010'.
          <RESULT_FIELDS>-/bic/zplactual = 'A'. "Actual
        when '020'.
          <RESULT_FIELDS>-/bic/zplactual = 'P'. "Plan 
      endcase.
    endloop.
*$*$ end of routine - insert your code only before this line         *-*
  ENDMETHOD.                    "end_routine
*----------------------------------------------------------------------*

Ende des Codes

Das Coding macht einen Loop über das result_package und sucht nach Werten, die den Werttyp 10 oder 20 haben. Für diese Werte wird dann der entsprechende Wert an das InfoObject Plan-/Ist-Kennzeichen (ZPLACTUAL) weitergegeben.

Sie verlassen den Routineneditor.
Sie sichern die Transformation. An der Bleistift-Ikone () vor Endroutine erkennen Sie, dass eine Endroutine vorhanden ist.