Fehler Meldung in mm01 in CabelSolution

Code: Alles auswählen.

F 4.6C Materialfixierung==============================================
    REFRESH fauswtab_ueb. CLEAR  fauswtab_ueb.
*   perform wa_fuellen.   "MK/14.02.96 nach unten - mk/4.0A wieder oben
*   PERFORM WA_FUELLEN_2.               "MK/3.0D ---> fuellen_2a
  ENDIF.
  PERFORM feldinformationen.           "mk/4.0A nacht unten gezogen
  PERFORM sonfausw_in_fgruppen.
* perform wa_fullen_2a.                 "MK/3.0D  mk/4.0A nur für Übern
  IF t130m-aktyp EQ aktyph.
    sub_status = aktvstatus.
    PERFORM vorlagehandling.
  ENDIF.
  IF NOT flg_uebernahme IS INITIAL.
    PERFORM wa_fullen_2a.             "MK/4.0A runtergezogen, nur Übern.
    PERFORM eingaben_abmischen.
  ENDIF.
  IF t130m-aktyp EQ aktyph.
    PERFORM material_reference_itself.
  ENDIF.
  IF herkunft = herkunft_dial.
    PERFORM output_param_fuellen.
  ENDIF.
*br090696 3.0E  Customer-Exit für Prüfungen
  PERFORM call_exit_saplmgmu_001.

* cfo/4.6A Vorbereiten zum Buchen externe Objekte
  IF herkunft = herkunft_dial.     "cfo/5.0
    PERFORM prepare_posting_other_data.
  endif.                           "cfo/5.0

*mk/3.1H Beim Ändern darf der Status nicht einfach reduziert werden,
*wenn Mußfelder fehlen, da die betroffenen Pflegestatus ja bereits
*gepflegt waren und dadurch inkonsistent werden
*Jetzt erfolgt beim Ändern immer eine Fehlermeldung bei fehlenden
*Mußfeldern
  IF t130m-aktyp = aktypv.
    flag_muss_pruefen = x.
  ENDIF.
  PERFORM mussfelder_pruefen.
*{   INSERT         CSAK005200                                        1
  PERFORM /cab/mussfelder_pruefen.                               " /CAB/
  PERFORM /nfm/mussfelder_pruefen.                               " /NFM/
*}   INSERT
  IF flag_muss_pruefen IS INITIAL.
    IF NOT status_err IS INITIAL.
* Transtatus und PTAB anpassen hinsichtlich reduziertem Status
      PERFORM bilden_rest USING aktvstatus status_err.
      PERFORM status_fortschreibung USING x.
      IF aktvstatus IS INITIAL.
        IF neuflag IS INITIAL.
* Es wurden keine Daten geändert
          PERFORM protokoll USING message_dummy message_id_m3 001 space.
        ELSE.
* Das Material konnte nicht angelegt werden (keine Daten pflegbar)
*         MESSAGE E159(MG).
          PERFORM protokoll USING message_error message_id_mg 159 space.
        ENDIF.
      ENDIF.
      CHECK NOT aktvstatus IS INITIAL.
    ENDIF.
  ENDIF.

  PERFORM prognose_erzwingen.
  PERFORM inflation_erzwingen.         " cs/ von 4.5B

  IF NOT flg_field_empty IS INITIAL.   " nicht alle Mußfelder gefüllt
    RAISE field_s_empty.
  ENDIF.
*mk/4.0A nur für Übernahme relevant
  IF NOT flg_uebernahme IS INITIAL.
    PERFORM wa_fuellen_3.              "mk/11.03.96 vorgezogen
  ENDIF.
IF HERKUNFT = HERKUNFT_DIAL.                         "Hinweis 445135
 IF WT130M-AKTYP = AKTYPH.
  IF NOT WMARC-XCHPF IS INITIAL AND LMARC-XCHPF IS INITIAL.
   FLAG_PRUEFEN_XCHPF = 'X'.
  ENDIF.
 ENDIF.
ENDIF.
  LOOP AT mptab WHERE NOT updkz IS INITIAL.
    PERFORM fremdschluessel_pruefen.
*{   INSERT         CSAK005200                                        2
    PERFORM /cab/fremdschluessel_pruefen.                        " /CAB/
*}   INSERT
    PERFORM init_tabparam.
    PERFORM spezialpruefungen.
  ENDLOOP.
CLEAR FLAG_PRUEFEN_XCHPF.                            "Hinweis 445135
*{   INSERT         CSAK005200                                        3
  PERFORM /cab/fremdschl_cs_zus_pruefen.                         " /CAB/
  PERFORM /nfm/fremdschl_ne_zus_pruefen.                         " /NFM/
*}   INSERT

  PERFORM lvorm_pruefen.               "neu zu 3.0F /ch

* PERFORM WA_FUELLEN_3.    mk/11.03.96 vorgezogen

* Sonderhandling für Zusatzdaten im Datenübernahmefall:
  IF NOT flg_uebernahme IS INITIAL.
    PERFORM langtext_pruefen.          "mk/4.0A verlagert aus zusdat_ueb
    PERFORM zusdat_ueb.
*   Falls in einem Sonderhandling (s. vorher) Mußfelder geprüft werden,
*   wieder an dieser Stelle aktivieren (AHE: 09.06.95)
*   IF NOT FLG_FIELD_EMPTY IS INITIAL.
*     RAISE FIELD_S_EMPTY.
*   ENDIF.
  ENDIF.

  IF flg_uebernahme IS INITIAL.
    PERFORM bereinigen_pstat.
  ENDIF.