SAP Reports / Programs | Payroll | State of Qatar(PY-QA) SAP PY

Home SAP Development ABAP Coding SAP Fiori SAP Training SAP Tables SAP Objects...

PAVIMQA3 SAP ABAP INCLUDE - Include PAVIMQA3

SAP T-Codes / Example ABAP code
ABAP OO / SAP Function Modules
ABAP reports / SAP Error Messages
SAP Tables / SAP Video Training

PAVIMQA3 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 PAVIMQA3 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 PAVIMQA3. "Basic submit
SUBMIT PAVIMQA3 AND RETURN. "Return to original report after report execution complete
SUBMIT PAVIMQA3 VIA SELECTION-SCREEN. "Display selection screen of submitted report to user
See more syntax options for the ABAP SUBMIT statement

Text pool values

Title: Include PAVIMQA3

INCLUDES used within this REPORT PAVIMQA3

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:

NUMBER_RANGE_ENQUEUE CALL FUNCTION 'NUMBER_RANGE_ENQUEUE' EXPORTING object = 'VISA_BLOCK' EXCEPTIONS foreign_lock = 1 object_not_found = 2 system_failure = 3 OTHERS = 4.

NUMBER_GET_NEXT CALL FUNCTION 'NUMBER_GET_NEXT ' EXPORTING nr_range_nr = '01' object = 'VISA_BLOCK' ignore_buffer = 'X' IMPORTING number = lv_reqid EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 buffer_overflow = 7 OTHERS = 8.

NUMBER_RANGE_DEQUEUE CALL FUNCTION 'NUMBER_RANGE_DEQUEUE' EXPORTING object = 'VISA_BLOCK' EXCEPTIONS object_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_visa_extend-pernr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

POPUP_TO_CONFIRM CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING titlebar = p_text1 text_question = p_text2 text_button_1 = 'Yes' default_button = '1' display_cancel_button = '' IMPORTING answer = p_answer.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_selevisa-pernr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = gc_listbox1 values = lt_list.

ENQUEUE_E_VISA_BLOCK
      CALL FUNCTION 'ENQUEUE_E_VISA_BLOCK'
        EXPORTING
          mode_t7qa61    = 'E'
          mode_t7qa61t   = 'E'
          mandt          = sy-mandt
          reqid          = p_reqid
          sprsl          = sy-langu
          x_reqid        = ' '
          x_sprsl        = ' '
          _scope         = '2'
          _wait          = ' '
          _collect       = ' '
        EXCEPTIONS
          foreign_lock   = 1
          system_failure = 2
          OTHERS         = 3.

DEQUEUE_E_VISA_BLOCK
    CALL FUNCTION 'DEQUEUE_E_VISA_BLOCK'
      EXPORTING
        mode_t7qa61  = 'E'
        mode_t7qa61t = 'E'
        mandt        = sy-mandt
        reqid        = p_reqid_de
        sprsl        = sy-langu
        x_reqid      = ' '
        x_sprsl      = ' '
        _scope       = '3'
        _synchron    = ' '
        _collect     = ' '.

ENQUEUE_READ CALL FUNCTION 'ENQUEUE_READ' EXPORTING gclient = sy-mandt gname = 'T7QA61' garg = lv_garg guname = sy-uname IMPORTING number = p_number TABLES enq = it_lock_data EXCEPTIONS communication_failure = 1 system_failure = 2 OTHERS = 3.

ENQUEUE_E_VISA_BLOCK
    CALL FUNCTION 'ENQUEUE_E_VISA_BLOCK'
      EXPORTING
        mode_t7qa61    = 'E'
        mode_t7qa61t   = 'E'
        mandt          = sy-mandt
        reqid          = p_reqid
        sprsl          = sy-langu
        x_reqid        = ' '
        x_sprsl        = ' '
        _scope         = '2'
        _wait          = ' '
        _collect       = ' '
      EXCEPTIONS
        foreign_lock   = 1
        system_failure = 2
        OTHERS         = 3.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = ls_rac_data-comno IMPORTING output = ls_rac_data-comno.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-pronr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-pronr infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-pronr infty = '0006' TABLES infty_tab = lt_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-pronr infty = '0105' TABLES infty_tab = lt_p0105 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = ls_rac_data-faxnm IMPORTING output = ls_rac_data-faxnm.

CONVERSION_EXIT_ALPHA_OUTPUT

CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = ls_subtab-amdno IMPORTING output = ls_subtab-amdno.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' bypass_buffer = 'X' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0185' bypass_buffer = 'X' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '3302' bypass_buffer = 'X' TABLES infty_tab = lt_p3302 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0006' bypass_buffer = 'X' TABLES infty_tab = lt_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

H99B_OPEN_LFORM_JOB CALL FUNCTION 'H99B_OPEN_LFORM_JOB' EXPORTING i_molga = hr99b_form_sel-molga i_fogroup = hr99b_form_sel-fogroup i_folname = hr99b_form_sel-folname OPTIONS = l_options i_raise_job_not_opened = abap_true * DIALOG = abap_false EXCEPTIONS job_not_opened = 1 OTHERS = 99.

H99B_OUTPUT_LFORM CALL FUNCTION 'H99B_OUTPUT_LFORM' EXPORTING i_molga = gc_molga i_fogroup = hr99b_form_sel-fogroup i_folname = hr99b_form_sel-folname i_fovariant = hr99b_form_sel-fovariant i_data_struc = ls_pdf_data_rac EXCEPTIONS error = 1 OTHERS = 99.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = gs_pernr infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = name values = list EXCEPTIONS id_illegal_name = 1 OTHERS = 2.

SCROLLING_IN_TABLE CALL FUNCTION 'SCROLLING_IN_TABLE' EXPORTING entry_act = -top_line entry_from = 1 entry_to = -lines last_page_full = 'X' loops = ok_code = p_ok overlapping = 'X' IMPORTING entry_new = l_tc_new_top_line EXCEPTIONS * NO_ENTRY_OR_PAGE_ACT = 01 * NO_ENTRY_TO = 02 * NO_OK_CODE_OR_PAGE_GO = 03 OTHERS = 0.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = gs_rac_data-comno IMPORTING output = gs_rac_data-comno.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = g_pronr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = g_pronr infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = g_pronr infty = '0006' TABLES infty_tab = lt_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = g_pronr infty = '0105' TABLES infty_tab = lt_p0105 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = gs_rac_data-faxnm IMPORTING output = gs_rac_data-faxnm.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the leading zeros EXPORTING input = ls_tbl_tmp-reqid IMPORTING output = ls_tbl_tmp-reqid.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = name values = list EXCEPTIONS id_illegal_name = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' bypass_buffer = 'X' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0185' bypass_buffer = 'X' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '3302' bypass_buffer = 'X' TABLES infty_tab = lt_p3302 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0006' bypass_buffer = 'X' TABLES infty_tab = lt_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' begda = lc_lowdate endda = lc_highdate TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the preceding zeros EXPORTING input = ls_tbl_item-reqnmr IMPORTING output = ls_tbl_item-reqnmr.

CONVERSION_EXIT_ALPHA_OUTPUT CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT' "Remove the preceding zeros EXPORTING input = ls_tbl_item-reqnml IMPORTING output = ls_tbl_item-reqnml.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr_app infty = '0185' begda = lc_lowdate endda = lc_highdate TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr_app infty = '0002' begda = lc_lowdate endda = lc_highdate TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = pernr_app infty = '0105' begda = lc_lowdate endda = lc_highdate TABLES infty_tab = lt_p0105 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

VRM_SET_VALUES CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = gc_listbox1 values = lt_list.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = gs_pernr infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = gs_pernr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = gs_pernr infty = '0105' TABLES infty_tab = lt_p0105 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = is_visa-pernr infty = '0002' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = is_visa-pernr infty = '3302' TABLES infty_tab = lt_p3302 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_99S_INTERVAL_BETWEEN_DATES CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES' EXPORTING begda = ls_p3302-entrd endda = is_visa-epdat IMPORTING days = lv_duration.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_visa_extend-pernr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = iv_pernr infty = '0002' bypass_buffer = 'X' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = iv_pernr infty = '3302' bypass_buffer = 'X' TABLES infty_tab = lt_p3302 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = iv_pernr infty = '0185' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = iv_pernr infty = '3305' begda = ls_p0185-begda endda = ls_p0185-endda TABLES infty_tab = lt_p3305 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0002' bypass_buffer = 'X' TABLES infty_tab = lt_p0002 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0185' bypass_buffer = 'X' TABLES infty_tab = lt_p0185 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

HR_READ_INFOTYPE CALL FUNCTION 'HR_READ_INFOTYPE' EXPORTING pernr = ls_t7qa17h-owner infty = '0006' bypass_buffer = 'X' TABLES infty_tab = lt_p0006 EXCEPTIONS infty_not_found = 1 OTHERS = 2.

H99B_CLOSE_LFORM_JOB CALL FUNCTION 'H99B_CLOSE_LFORM_JOB' EXCEPTIONS OTHERS = 99.

Contribute (Add Comments)

Although this basic information may have limited use it does provide an easy to find location to store any knowledge about this program/report.

The contribute/comments section below therefore offer's an opportunity for anyone to add additional information. This can be anything from useful hints, tips and screen shots to relevant SAP notes or anything else you feel is relevant to this report.

This will then be available for everyone to easily find by simply searching on the report name PAVIMQA3 or its description.

PAVIMQA3 - Include PAVIMQA3
PAVIMQA2 - Include PAVIMQA2
PAVIMQA1 - Include PAVIMQA1
PAVIKTRS - documentation and ABAP source code
PAVIKTRD - documentation and ABAP source code
PAV4KTRS - documentation and ABAP source code

MWSAF001I02

MV61AFZA_USEREXIT_CHANGE_PRICI

MWOG1_UEBERSICHT_ANSTEUERNF01

MWWMJF04_QUOTATION_DELETE