[gelöst] SAPScript PERFORM Problem

Code: Alles auswählen.

/:   IF &EKKO-BSART& EQ 'UB'
/*   DEFINE &GET_BRGEW_WERT& = '--------------'
/*   PERFORM_ABAP
/:   PERFORM GET_BRGEW IN PROGRAM Z_ZISD_BRGEW_UML_BESTELLUNG
/:   USING &EKKO-BELN&
/:   CHANGING &GET_BRGEW_WERT&
/:   ENDPERFORM
I2   Bruttogewicht: &GET_BRGEW_WERT& KG
/*   ---------------------------------------------------------
/:   ENDIF

Code: Alles auswählen.

REPORT  Z_ZISD_BRGEW_UML_BESTELLUNG                                 .


FORM GET_BRGEW TABLES IN_PAR STRUCTURE ITCSY
OUT_PAR STRUCTURE ITCSY.

* Datendefinition
  DATA BestNr like EKKO-EBELN.

  DATA: BEGIN OF brutto_gew,
      BRGEW LIKE EKPO-BRGEW,
      GEWEI LIKE EKPO-GEWEI,
      END OF brutto_gew.

  DATA wa_brutto_gew LIKE TABLE OF brutto_gew.

  DATA gs_kopf-brgew like ekpo-brgew.
  data: lc_kg type meins.

* Auslesen der übergebenen Bestellnummer

  READ TABLE IN_PAR WITH KEY 'EKPO-EBELN'.

* Datensatz gefunden?
  IF SY-SUBRC = 0.
    BestNr = IN_PAR-VALUE.
    lc_kg = 'KG'.

    SELECT brgew gewei from EKPO
    INTO brutto_gew
    WHERE EBELN = BestNr AND LOEKZ = ''.

      if sy-subrc = 0.
        CALL FUNCTION 'GEWICHT_VOLUMEN_ADDIEREN'
          EXPORTING
            m1    = gs_kopf-brgew
            meh1  = lc_kg
            m2    = brutto_gew-brgew
            meh2  = brutto_gew-gewei
          IMPORTING
            SUM   = gs_kopf-brgew
            SUMEH = lc_kg
          .  " <<-- PUNKT, ende des calls
      endif.


    endselect.


*  Rückgabe an Caller

    out_par-value = gs_kopf-brgew.

    modify out_par INDEX sy-tabix.

  ENDIF.

ENDFORM.                    "GET_BRGEW

Code: Alles auswählen.

READ TABLE OUT_PAR WITH KEY 'GET_BRGEW_WERT'.
  if sy-subrc = 0.

    out_par-value = '0'. .

    modify out_par INDEX sy-tabix.
  endif.

Code: Alles auswählen.

gs_brgew = '0'.

  READ TABLE OUT_PAR WITH KEY 'GET_BRGEW_WERT'.
  if sy-subrc = 0.

    out_par-value =  gs_brgew.

    modify out_par INDEX sy-tabix.
  endif.

Code: Alles auswählen.

DATA gs_brgew type p decimals 2.

Code: Alles auswählen.

WRITE gs_brgew TO OUT_PAR-VALUE. versucht