MQEVAF30 SAP ABAP INCLUDE - Usage Decision Form Pool

MQEVAF30 is a standard ABAP INCLUDE available within your SAP system (depending on your version and release level). Below is the basic information available for this SAP report including which OBJECTS it interacts with such as TABLES, FUNCTION MODULES, INCLUDES ETC. Also check out the submitted Comments related to this SAP report or see any standard documentation available.

If you would like to execute this report or see the full code listing simply enter MQEVAF30 into the relevant SAP transactions such as SE38 or SE80

ABAP code to call this SAP report using the submit statement

This report can be called from another progam/report simply by using the ABAP SUBMIT statement, see below for example ABAP code snipts of how to do this.

SUBMIT MQEVAF30. "Basic submit
SUBMIT MQEVAF30 AND RETURN. "Return to original report after report execution complete
SUBMIT MQEVAF30 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
    See more syntax options for the ABAP SUBMIT statement

Text pool values

INCLUDES used within this REPORT MQEVAF30

No INCLUDES are used within this REPORT code!

TABLES used within REPORT and the associated SELECT statement:

No SAP DATABASE tables are accessed within this REPORT code!

Function Modules used within report and the associated call statement:

SCROLLING_IN_TABLE
  CALL FUNCTION 'SCROLLING_IN_TABLE'
    EXPORTING
      entry_act   = l_entry_act
      entry_to    = l_entry_to
      loops       = l_loops
      ok_code     = ok-code
      overlapping = ' '
    IMPORTING
      entry_new   = l_entry_new
    EXCEPTIONS
      no_entry_to = 1.

QELA_CONFIRMATION_LIST
  CALL FUNCTION 'QELA_CONFIRMATION_LIST'
    EXPORTING
      i_aufpl    = qals-aufpl
      i_update   = l_modus
      i_winx1_23 = 2
      i_winx2_23 = 81
      i_winy1_23 = 3
      i_winy2_23 = 22
      i_prueflos = qals-prueflos
      i_sondauf  = qals-stat06
    IMPORTING
      e_upd_flag = g_co_upd_flag.

QAST_STATUS_CHECK
    CALL FUNCTION 'QAST_STATUS_CHECK'
      EXPORTING
        i_objnr          = qals-objnr
        i_status         = c_status_ve
      EXCEPTIONS
        status_not_activ = 01.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_bend  "Bestandsbuchung beendet
    EXCEPTIONS
      status_not_activ = 01.

QAST_STATUS_CHECK
      CALL FUNCTION 'QAST_STATUS_CHECK'
        EXPORTING
          i_objnr          = qals-objnr
          i_status         = c_status_bend       "Bestandsbuchung beendet
        EXCEPTIONS
          status_not_activ = 01.

SIGN_CREATE
*    CALL FUNCTION 'SIGN_CREATE'
*         EXPORTING
*              object_imp                = l_rc73-sign_obj
*              key_lot_imp               = l_rc73
**             SIGNER_IMP                = SY-UNAME
**             FLG_COMMENT_REQ_IMP       = ' '
*              flg_signer_changeable_imp = c_kreuz
*              sign_reason_ktxt          = l_sign_reason_ktxt
*         EXCEPTIONS
*              cancelled_by_user         = 2
*              pse_info_not_found        = 4
*              password_wrong_3_times    = 5
*              no_authority              = 6
*              OTHERS                    = 7.

SIGN_SAVE
*      CALL FUNCTION 'SIGN_SAVE'
*        EXPORTING
*          object_imp  = l_rc73-sign_obj
*          key_lot_imp = l_rc73.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_paku
    EXCEPTIONS
      status_not_activ = 01.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_ve
    EXCEPTIONS
      status_not_activ = 01.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_qlge
    EXCEPTIONS
      status_not_activ = 01.

QAST_STATUS_CHECK
    CALL FUNCTION 'QAST_STATUS_CHECK'
      EXPORTING
        i_objnr          = qals-objnr
        i_status         = c_status_ve
      EXCEPTIONS
        status_not_activ = 01.

QPRS_QPRNS_LOT_UPDATE
    CALL FUNCTION 'QPRS_QPRNS_LOT_UPDATE'
      EXPORTING
        i_qals = qals.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_lstv
    EXCEPTIONS
      status_not_activ = 01.

QPL1_INSPECTION_LOT_CANCEL
    CALL FUNCTION 'QPL1_INSPECTION_LOT_CANCEL'
      EXPORTING
        i_qals             = qals
        i_dialog           = ' '
        i_cancel_ud_stats  = ' '
      EXCEPTIONS
        x_lot_not_canceled = 00.

QLCO_POST_CONFIRMATION
    CALL FUNCTION 'QLCO_POST_CONFIRMATION'.

QTLS_PARTIAL_LOT_UD_STANDARD
    CALL FUNCTION 'QTLS_PARTIAL_LOT_UD_STANDARD'
      EXPORTING
        i_qals = qals
        i_qavp = qave.

COCQ_DELETE_INSP_LOT_MESSAGES
    CALL FUNCTION 'COCQ_DELETE_INSP_LOT_MESSAGES'
      EXPORTING
        prueflos = qals-prueflos
        plantyp  = qals-plnty.

MB_POST_GOODS_MOVEMENT
    CALL FUNCTION 'MB_POST_GOODS_MOVEMENT'
      IMPORTING
        emkpf = l_emkpf.

QMHU_QMHUTAB_POSTING














    CALL FUNCTION 'QMHU_QMHUTAB_POSTING'.

HU_POST
    CALL FUNCTION 'HU_POST'
         EXPORTING
*         IF_SYNCHRON    = ' '
              if_no_rename   = 'X'
              if_no_messages = 'X'.

QLMSM_PREPARE_POSTING
    CALL FUNCTION 'QLMSM_PREPARE_POSTING'.

STATUS_GET_CHANGE_FLAG
  CALL FUNCTION 'STATUS_GET_CHANGE_FLAG'
    IMPORTING
      flg_change = l_status_change.

VBDRV_DERIVATION_REGISTER_UD
          CALL FUNCTION 'VBDRV_DERIVATION_REGISTER_UD'
            EXPORTING
              i_matnr = qals-matnr
              i_werks = qals-werk
              i_charg = qals-charg
              i_qals  = qals
              i_qave  = qave.

MCS_BW_ACTIVE
    CALL FUNCTION 'MCS_BW_ACTIVE'
      EXPORTING
        mcapp  = '05'
        event  = 'QV'
      IMPORTING
        active = l_bw_active.

STATUS_CHECK
        CALL FUNCTION 'STATUS_CHECK'
          EXPORTING
            objnr             = qals-objnr
            status            = c_status_lsto
          EXCEPTIONS
            status_not_active = 1.

STATUS_CHECK_OLD
        CALL FUNCTION 'STATUS_CHECK_OLD'
          EXPORTING
            objnr             = qals_leiste-objnr
            status            = c_status_lsto
          EXCEPTIONS
            status_not_active = 1.

QMEX_INSPECTION_LOT_IMPORT
        CALL FUNCTION 'QMEX_INSPECTION_LOT_IMPORT'          "#EC *
             EXPORTING
                  i_event  = 'QV'
                  qals_new = qals
                  qave_new = qave.

QMEX_INSPECTION_LOT_IMPORT
        CALL FUNCTION 'QMEX_INSPECTION_LOT_IMPORT'          "#EC *
             EXPORTING
                  i_event  = 'QV'
                  qals_new = qals
                  qals_old = qals_leiste
                  qave_new = qave
                  qave_old = qave_leiste.

QMEX_INSPECTION_LOT_IMPORT
        CALL FUNCTION 'QMEX_INSPECTION_LOT_IMPORT'          "#EC *
             EXPORTING
                  i_event  = 'QV'
                  qals_old = qals_leiste
                  qave_old = qave_leiste.

STATUS_CHECK_NEW_OLD
    CALL FUNCTION 'STATUS_CHECK_NEW_OLD'
      EXPORTING
        objnr            = qals-objnr
      TABLES
        t_jstact         = l_stat_tab
      EXCEPTIONS
        object_not_found = 0
        OTHERS           = 0.

MCS_BW_ACTIVE
        CALL FUNCTION 'MCS_BW_ACTIVE'
          EXPORTING
            mcapp  = '05'
            event  = 'QE'
          IMPORTING
            active = l_bw_active.

QMEX_INSPECTION_LOT_IMPORT
          CALL FUNCTION 'QMEX_INSPECTION_LOT_IMPORT'        "#EC *
               EXPORTING
                    qals_status = 'RE_CANCELLED'
                    i_event     = 'QE'
                    qals_new    = qals.

MCS_BW_ACTIVE
        CALL FUNCTION 'MCS_BW_ACTIVE'
          EXPORTING
            mcapp  = '05'
            event  = 'QE'
          IMPORTING
            active = l_bw_active.

QMEX_INSPECTION_LOT_IMPORT
          CALL FUNCTION 'QMEX_INSPECTION_LOT_IMPORT'        "#EC *
               EXPORTING
                    i_event       = 'QE'
                    qals_status   = 'CANCELLED'
                    qals_old      = qals_leiste.

COMMIT_TEXT
  CALL FUNCTION 'COMMIT_TEXT'
    EXPORTING
      object = 'QPRUEFLOS'.

QELA_CHANGEDOCUMENTS_SHOW
  CALL FUNCTION 'QELA_CHANGEDOCUMENTS_SHOW'
    EXPORTING
      i_objectclas     = l_objectclas
      i_objectid       = l_objectid
      winy1_01         = 2
      winy2_01         = 08
    EXCEPTIONS
      no_data_found    = 01
      no_data_selected = 02.

QELA_START_SELECTION_OF_LOTS
  CALL FUNCTION 'QELA_START_SELECTION_OF_LOTS'
    EXPORTING
      i_stat_ero       = space
      i_stat_aenderung = l_aenderung
      i_stat_frei      = l_stat_frei
      i_stat_ve        = l_stat_ve
      i_vorg           = l_vorgang
    IMPORTING
      e_prueflos       = qals-prueflos
    EXCEPTIONS
      no_entry         = 01
      no_selected      = 02.

QSS1_PLAN_SHOW
    CALL FUNCTION 'QSS1_PLAN_SHOW'
      EXPORTING
        i_matnr   = qals-selmatnr
        i_planal  = qals-plnal
        i_plannr  = qals-plnnr
        i_plantyp = qals-plnty
        i_sttag   = qals-gueltigab
        i_werk    = qals-selwerk
      EXCEPTIONS
        no_plan   = 1.

QAST_PROCESS_ACTIVITY
  CALL FUNCTION 'QAST_PROCESS_ACTIVITY'
    EXPORTING
      i_check_only = ' '
      i_dialog     = 'X'
      i_objnr      = qals-objnr
      i_vorgang    = c_vorg_los_sperren
    EXCEPTIONS
      not_allowed  = 01.

QAST_PROCESS_ACTIVITY
  CALL FUNCTION 'QAST_PROCESS_ACTIVITY'
    EXPORTING
      i_check_only = ' '
      i_dialog     = 'X'
      i_objnr      = qals-objnr
      i_vorgang    = c_vorg_los_entsperren
    EXCEPTIONS
      not_allowed  = 01.

QPL1_INSPECTION_LOT_CANCEL
  CALL FUNCTION 'QPL1_INSPECTION_LOT_CANCEL'
    EXPORTING
      i_qals             = qals
      i_cancel_ud_stats  = ' '
    EXCEPTIONS
      x_lot_not_canceled = 01.

QAST_PROCESS_ACTIVITY
  CALL FUNCTION 'QAST_PROCESS_ACTIVITY'
    EXPORTING
      i_dialog             = 'X'
      i_objnr              = qals-objnr
      i_vorgang            = c_vorg_losstorno_ruecknehmen
    EXCEPTIONS
      not_allowed          = 01
      activity_not_allowed = 02.

QEVA_UD_DETAIL_DISPLAY
  CALL FUNCTION 'QEVA_UD_DETAIL_DISPLAY'
    EXPORTING
      i_qave = qave.

SERIALPROFILE_CHECK
    CALL FUNCTION 'SERIALPROFILE_CHECK'
      EXPORTING
        activity  = l_aktivitaet
        material  = qals-matnr
        operation = 'QMSL'
        profile   = qals-sernp
        quantity  = qals-anzsn
        prueflos  = qals-prueflos
        j_vorgang = 'PMS6'.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_ve
    EXCEPTIONS
      status_not_activ = 01.

ENQUEUE_EMMARCE
    CALL FUNCTION 'ENQUEUE_EMMARCE'
      EXPORTING
        matnr          = qals-matnr
        werks          = qals-werk
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 2.

ENQUEUE_EMMCH1E
    CALL FUNCTION 'ENQUEUE_EMMCH1E'
      EXPORTING
        matnr          = qals-matnr
        charg          = qals-charg
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 2.

POPUP_TO_DECIDE_WITH_MESSAGE
          CALL FUNCTION 'POPUP_TO_DECIDE_WITH_MESSAGE'
            EXPORTING
              defaultoption = '1'
              diagnosetext1 = text-i13
              diagnosetext2 = text-i14
              diagnosetext3 = l_mchar_qndat
              textline1     = text-i08
              textline2     = text-i09
              text_option1  = l_option1
              text_option2  = text-i11
              titel         = text-i12
              start_column  = 15
            IMPORTING
              answer        = l_antwort.

POPUP_TO_DECIDE
        CALL FUNCTION 'POPUP_TO_DECIDE'
          EXPORTING
            defaultoption = '1'
            textline1     = text-i07
            textline2     = text-i08
            textline3     = text-i09
            text_option1  = l_option1
            text_option2  = text-i11
            titel         = text-i12
            start_column  = 15
          IMPORTING
            answer        = l_antwort.

QEVA_BATCH_UPDATE
  CALL FUNCTION 'QEVA_BATCH_UPDATE' IN UPDATE TASK
    EXPORTING
      i_mcha_old       = mcha_old
      i_next_insp_date = g_npruefdatum
      i_batch_level    = tcuch-kzdch.

CHARGE_WRITE_DOCUMENT
  CALL FUNCTION 'CHARGE_WRITE_DOCUMENT' IN UPDATE TASK
    EXPORTING
      objectid      = l_objectid
      tcode         = sy-tcode
      utime         = sy-uzeit
      udate         = sy-datum
      username      = sy-uname
      n_mcha        = mcha
      o_mcha        = mcha_old
      n_mchx        = l_n_mchx
      o_mchx        = l_o_mchx
      n_mchb        = l_n_mchb
      o_mchb        = l_o_mchb
      upd_mcha      = 'U'
    TABLES
      icdtxt_charge = l_tab.

QAST_PROCESS_ACTIVITY
  CALL FUNCTION 'QAST_PROCESS_ACTIVITY'
    EXPORTING
      i_objnr              = qals-objnr
      i_vorgang            = c_vorg_fehler_erfassen
      i_check_only         = c_kreuz
    EXCEPTIONS
      not_allowed          = 1
      activity_not_allowed = 2
      OTHERS               = 3.

QFFE_FAILURE_RECORDING_DIALOG
  CALL FUNCTION 'QFFE_FAILURE_RECORDING_DIALOG'
    EXPORTING
      i_qals              = qals
      i_flg_los           = kreuz
      i_flg_pvo           = space
      i_flg_mk            = space
      i_flg_message       = kreuz
      i_activity          = 'E'  "Nur aus der QA11
      i_flg_window        = kreuz
      i_pruefer           = l_pruefer
    IMPORTING
      e_flg_save          = l_qffe_update
      e_flg_serial_update = l_sichern_serial_flag
    EXCEPTIONS
      cancel              = 01.

QAST_PROCESS_ACTIVITY
      CALL FUNCTION 'QAST_PROCESS_ACTIVITY'
        EXPORTING
          i_objnr              = qals-objnr
          i_vorgang            = c_vorg_fehler_erfassen
        EXCEPTIONS
          not_allowed          = 1
          activity_not_allowed = 2
          OTHERS               = 3.

QFRD_FILL_DIALOG_TABLES
  CALL FUNCTION 'QFRD_FILL_DIALOG_TABLES'
    EXPORTING
      i_qfoh_wa       = l_qfobe
    TABLES
      qfaa_tab        = g_qfaa_tab
      qfob_tab        = g_qfob_tab
    EXCEPTIONS
      no_entry        = 01
      no_unique_feart = 02.

QF20_CDF_POISSON_ESTIMATE
        CALL FUNCTION 'QF20_CDF_POISSON_ESTIMATE'
          EXPORTING
            sample_size = l_size
            sample_sum  = rqeva-anz_fehler
          IMPORTING
            prob_above  = g_anteil_qals.

GET_SERNOS_OF_DOCUMENT
  CALL FUNCTION 'GET_SERNOS_OF_DOCUMENT'
    EXPORTING
      key_data      = l_key_data
    TABLES
      sernos        = l_sernos_itab
    EXCEPTIONS
      no_data_found = 0.

SERIALPROFILE_CHECK
  CALL FUNCTION 'SERIALPROFILE_CHECK'
    EXPORTING
      operation = 'QMUP'.

QFFE_HIERARCHY_OF_DEFECTS
  CALL FUNCTION 'QFFE_HIERARCHY_OF_DEFECTS'
       EXPORTING
            i_qals       = qals
            i_flg_window = kreuz
            i_feart      = space
*-- Übersicht aus Ergebniserfassung nur anzeigbar
            i_activity   = 'A'
       EXCEPTIONS
            cancel       = 0.

QMSP_COMPARE_QM_BATCH_VALUES
  CALL FUNCTION 'QMSP_COMPARE_QM_BATCH_VALUES'
    EXPORTING
      i_charg    = l_charge
      i_matnr    = l_matnr
      i_werks    = qals-werkvorg
    TABLES
      t_qamkrtab = g_mktb.

LOCATION_EXTRACT
    CALL FUNCTION 'LOCATION_EXTRACT'
      IMPORTING
        bild            = l_screen_sequence_buf-bild
        bildgruppe      = l_screen_sequence_buf-bildgruppe
        kopfgruppe      = l_screen_sequence_buf-kopfgruppe
        positionsgruppe = l_screen_sequence_buf-positionsgruppe
        programm        = l_screen_sequence_buf-programm
        stackstufe      = l_screen_sequence_buf-stackstufe
        trtyp           = l_screen_sequence_buf-trtyp
        flag_ende       = l_screen_sequence_buf-flag_ende
        funktion        = l_screen_sequence_buf-funktion
      EXCEPTIONS
        OTHERS          = 1.

LOCATION_CORRECT
    CALL FUNCTION 'LOCATION_CORRECT'
      EXPORTING
        bild            = l_screen_sequence_buf-bild
        bildgruppe      = l_screen_sequence_buf-bildgruppe
        kopfgruppe      = l_screen_sequence_buf-kopfgruppe
        positionsgruppe = l_screen_sequence_buf-positionsgruppe
        programm        = l_screen_sequence_buf-programm
        stackstufe      = l_screen_sequence_buf-stackstufe
        trtyp           = l_screen_sequence_buf-trtyp
        tabellen_lesen  = 'X'
        clr_flag_ende   = l_clr_flag_ende
        funktion        = l_screen_sequence_buf-funktion
      EXCEPTIONS
        OTHERS          = 1.

QTLS_PARTIAL_LOT_READ_ALL
  CALL FUNCTION 'QTLS_PARTIAL_LOT_READ_ALL'
    EXPORTING
      i_prueflos       = qals-prueflos
    TABLES
      e_qalt           = p_qalttab
    EXCEPTIONS
      x_no_data        = 1
      x_lot_is_initial = 2
      OTHERS           = 3.

QAST_STATUS_CHECK
    CALL FUNCTION 'QAST_STATUS_CHECK'
      EXPORTING
        i_objnr          = p_qalttab-objnr
        i_status         = 'I0224'
      EXCEPTIONS
        status_not_activ = 1
        OTHERS           = 2.

QAST_STATUS_CHECK
  CALL FUNCTION 'QAST_STATUS_CHECK'
    EXPORTING
      i_objnr          = qals-objnr
      i_status         = c_status_pako
    EXCEPTIONS
      status_not_activ = 1
      OTHERS           = 2.

QAUT_INSP_FIN
  CALL FUNCTION 'QAUT_INSP_FIN'
    EXPORTING
      i_qpruefart      = qals-art
      i_werks          = qals-werk
    EXCEPTIONS
      no_authorization = 4.

POPUP_TO_CONFIRM
*      CALL FUNCTION 'POPUP_TO_CONFIRM'
*      EXPORTING
*        titlebar                    = text-001
*        diagnose_object             = lv_diagnose
*        text_question               = text-007
*        default_button              = '2'
**           DISPLAY_CANCEL_BUTTON       = space
*        popup_type                  = 'ICON_MESSAGE_WARNING'
*     IMPORTING
*       answer                       = antwort
*     EXCEPTIONS
*       OTHERS                       = 0.