Funktionsbaustein MATERIAL MAINTAIN DARK

Aus SAP-Wiki
Zur Navigation springenZur Suche springen

Siehe Sammlung Funktionsbausteine.

Mit dem Funktionsbaustein MATERIAL_MAINTAIN_DARK kann man den Materialstamm ändern.

Feldwerte ändern

  • Ändert man einen Wert ungleich dem Initialwert eines Feldes, ist es unproblematisch. Man übergibt einfach diesen Wert.
  • Dieser Funktionsbaustein geht allerdings etwas ungewöhnlich mit den Feldern um, die auf ihren Initialwert zurückzusetzen sind. Wenn man nur die Tabellen für die Stammdatentabellen, z. B. MARA und MARM übergibt und hier auch den vollständigen Tabellensatz übergibt, werden übergebene Initialwerte zunächst nicht auf ihren Initialwert gesetzt. Dafür muss auch der Tabellenparameter AMFIELDRES gefüllt werden mit den Tabellenfelder, z. B. "MARM-MAX_STACK".

Muster

CALL FUNCTION 'MATERIAL_MAINTAIN_DARK'
  EXPORTING
*   FLAG_MUSS_PRUEFEN               = 'X'
*   SPERRMODUS                      = 'E'
*   MAX_ERRORS                      = 0
    p_kz_no_warn                    =
    kz_prf                          =
*   KZ_VERW                         = 'X'
*   KZ_AEND                         = 'X'
*   KZ_DISPO                        = 'X'
*   KZ_TEST                         = ' '
*   NO_DATABASE_UPDATE              = ' '
*   CALL_MODE                       = ' '
*   CALL_MODE2                      = ' '
*   USER                            = SY-UNAME
*   SUPPRESS_ARRAY_READ             = ' '
*   FLG_MASS                        = ' '
*   IV_CHANGE_DOC_TCODE             = ' '
* IMPORTING
*   MATNR_LAST                      =
*   NUMBER_ERRORS_TRANSACTION       =
  TABLES
    amara_ueb                       =
*   AMAKT_UEB                       =
*   AMARC_UEB                       =
*   AMARD_UEB                       =
*   AMFHM_UEB                       =
*   AMARM_UEB                       =
*   AMEA1_UEB                       =
*   AMBEW_UEB                       =
*   ASTEU_UEB                       =
*   ASTMM_UEB                       =
*   AMLGN_UEB                       =
*   AMLGT_UEB                       =
*   AMPGD_UEB                       =
*   AMPOP_UEB                       =
*   AMVEG_UEB                       =
*   AMVEU_UEB                       =
*   AMVKE_UEB                       =
*   ALTX1_UEB                       =
*   AMPRW_UEB                       =
*   AE1CUCFG_UEB                    =
*   AE1CUINS_UEB                    =
*   AE1CUVAL_UEB                    =
*   AE1CUCOM_UEB                    =
*   AMFIELDRES                      =
*   AMERRDAT                        =
*   A_NFM_TKGW_UEB                  =
*   A_NFM_TVGW_UEB                  =
*   JTKGW                           =
*   JTVGW                           =
* EXCEPTIONS
*   KSTATUS_EMPTY                   = 1
*   TKSTATUS_EMPTY                  = 2
*   T130M_ERROR                     = 3
*   INTERNAL_ERROR                  = 4
*   TOO_MANY_ERRORS                 = 5
*   UPDATE_ERROR                    = 6
*   ERROR_PROPAGATE_HEADER          = 7
*   OTHERS                          = 8
          .
IF sy-subrc <> 0.
* Implement suitable error handling here
ENDIF.