Fuba Aufruf CCAP_ECN_MAINTAIN

Code: Alles auswählen.

* Prüfung ob Änderungspaket vorhanden

    CALL FUNCTION 'CCAP_ECN_HEADER_READ'
      EXPORTING
        CHANGE_NO       = lv_change_no
      IMPORTING
        CHANGE_HEADER   = lt_change_header
      EXCEPTIONS
        NO_RECORD_FOUND = 1
        ERROR           = 2
        OTHERS          = 3.
    IF SY-SUBRC <> 0.

    ENDIF.

Code: Alles auswählen.

ls_kopf-CHANGE_NO               = lt_change_header-CHANGE_NO.
        ls_kopf-STATUS              = lt_change_header-STATUS.
        ls_kopf-DESCRIPT           = lv_vrg_text.
        ls_kopf-REASON_CHG     = lv_aegru_w.
        ls_kopf-FUNCTION          = lt_change_header-FUNCTION.
        ls_kopf-effectivity_type   = lt_change_header-effectivity_type.
        CLEAR ls_kopf-INDATE_RULE.
        CLEAR ls_kopf-OUTDATE_RULE.

        ls_objects-ACTIVE     = 'X'.
        ls_objects-OBJ_REQU   = 'X'.
        ls_objects-MGTREC_GEN = 'X'.
        ls_objects-GEN_NEW    = 'X'.


* Schreiben von Logfile in SLG1

        CALL FUNCTION 'CALO_INIT_API'
          EXPORTING
            FLAG_DB_LOG_ON          = 'X'
            FLAG_MSG_ON                = 'X'
            DEL_LOG_AFTER_DAYS    = '10'
          EXCEPTIONS
            LOG_OBJECT_NOT_FOUND     = 1
            LOG_SUB_OBJECT_NOT_FOUND = 2
            OTHERS                   = 3.
        IF SY-SUBRC <> 0.
* Implement suitable error handling here
        ENDIF.

        CALL FUNCTION 'CCAP_ECN_MAINTAIN'
          EXPORTING
            CHANGE_HEADER           = ls_kopf
            OBJECT_BOM                 = ls_objects
            OBJECT_BOM_MAT         = ls_objects
            OBJECT_TLIST_M           = ls_objects
            OBJECT_TLIST_N           = ls_objects
            OBJECT_TLIST_R           = ls_objects
            OBJECT_TLIST_S           = ls_objects
            FL_COMMIT_AND_WAIT  = COMMIT_AND_WAIT
            FL_SYNCH                     = 'X'
          EXCEPTIONS
            CHANGE_NO_ALREADY_EXISTS = 1
            ERROR                    = 2
            ERROR_BDS                = 3
            OTHERS                   = 4.
        .
        IF SY-SUBRC <> 0.
        ENDIF.