MP061440 SAP ABAP INCLUDE - Subroutines for infotype 0614

MP061440 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 MP061440 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.

Text pool values

INCLUDES used within this REPORT MP061440

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:

HRGPBS_HESA_YEAR
  CALL FUNCTION 'HRGPBS_HESA_YEAR'
    EXPORTING
      p_date  = p0614-begda
    IMPORTING
      p_begda = l_start_of_year.

HRGPBS_HESA_STAFFID_CHECK
    CALL FUNCTION 'HRGPBS_HESA_STAFFID_CHECK'
      EXPORTING
        p_staffid = p0614-staff.

HRGPBS_HESA_STAFFID_UNIQUE
    CALL FUNCTION 'HRGPBS_HESA_STAFFID_UNIQUE'
      EXPORTING
        p_staffid = p0614-staff
        p_pernr   = pspar-pernr                          "#EC DOM_EQUAL
      TABLES
        p_p0031   = i0031.

HRGPBS_HESA_YEAR
*        CALL FUNCTION 'HRGPBS_HESA_YEAR'
*             EXPORTING
*                  p_date        = p0614-begda
*    IMPORTING
*         P_BEGDA       =
*         P_ENDDA       =
*             CHANGING
*                  p_hesa_year   = l_year.

HR_DATESPECIFICATION_DATE_GET
        CALL FUNCTION 'HR_DATESPECIFICATION_DATE_GET'
          EXPORTING
            p0041   = i0041
            p_datkn = c_hesa_datekn_datehei
          IMPORTING
            p_date  = l_datehei
          EXCEPTIONS
            others  = 1.

HR_ENTRY_DATE
        CALL FUNCTION 'HR_ENTRY_DATE'
          EXPORTING
            persnr      = p0614-pernr
          IMPORTING
            entrydate   = l_entry_date
          TABLES
            entry_dates = l_entrydates
          EXCEPTIONS
            others      = 1.

HRGPBS_HESA_STAFFID_NEXT
  CALL FUNCTION 'HRGPBS_HESA_STAFFID_NEXT'
       EXPORTING
            p_year             = l_year
       IMPORTING
            p_staffid          = l_staffid
*      CHANGING
*           P_INSTID           =
*      EXCEPTIONS
*           INVALID_DATA       = 1
*           NUMBER_RANGE_ERROR = 2
*           NO_INSTID          = 3
*           OTHERS             = 4
            .

HRGPBS_HESA_RE5GPBSH_IS
  CALL FUNCTION 'HRGPBS_HESA_RE5GPBSH_IS'
    EXPORTING
      p_arg      = p0614-priid
    CHANGING
      p5gpbsh_is = l_5gpbsh_is
    EXCEPTIONS
      no_entry   = 1.

HRGPBS_HESA_INSTID_GET
  CALL FUNCTION 'HRGPBS_HESA_INSTID_GET'
       IMPORTING
            p_instid = this_instid
       EXCEPTIONS
*           NO_ENTRY_IN_TABLE = 1
            OTHERS            = 2.

HRGPBS_HESA_RE5GPBSH_IS
  CALL FUNCTION 'HRGPBS_HESA_RE5GPBSH_IS'
    EXPORTING
      p_arg      = this_instid
    CHANGING
      p5gpbsh_is = t5gpbsh_is
    EXCEPTIONS
      OTHERS     = 2.

ADDRESS_SHOW_PRINTFORM
  CALL FUNCTION 'ADDRESS_SHOW_PRINTFORM'
       EXPORTING
*         ADDRESS_1                      =
*         ADDRESS_2                      =
*         ADDRESS_3                      =
          address_type                   = '1'
          address_number                 = g_instid_address_no
*         ADDRESS_HANDLE                 = ' '
*         PERSON_NUMBER                  = ' '
*         PERSON_HANDLE                  = ' '
          sender_country                 = 'GB'
*         receiver_language              = ' '
*         NUMBER_OF_LINES                = 10
*         STREET_HAS_PRIORITY            = ' '
*         LINE_PRIORITY                  = ' '
*         COUNTRY_NAME_IN_RECEIVER_LANGU = ' '
*         LANGUAGE_FOR_COUNTRY_NAME      = ' '
*         NO_UPPER_CASE_FOR_CITY         = ' '
*    IMPORTING
*         ADDRESS_PRINTFORM              =
*         ADDRESS_SHORT_FORM             =
*         ADDRESS_DATA_CARRIER           =
*         NUMBER_OF_USED_LINES           =
*         NAME_IS_EMPTY                  =
*         ADDRESS_NOT_FOUND              =
            .

HRGPBS_HESA_RE5GPBSH_PRV
  call function 'HRGPBS_HESA_RE5GPBSH_PRV'
    EXPORTING
      p_arg    = p0614-emppr
      p_cdate  = l_date
    IMPORTING
      P_RETURN = l_return
    EXCEPTIONS
      OTHERS   = 1.

HR_ENTRY_DATE
    call function 'HR_ENTRY_DATE'
      EXPORTING
        persnr    = p0614-pernr
      IMPORTING
        entrydate = l_dateh
      EXCEPTIONS
        others    = 1.

HRGPBS_HESA_NISR_CHECK_PREVHEI
  call function 'HRGPBS_HESA_NISR_CHECK_PREVHEI'
    EXPORTING
      p_pernr   = p0614-pernr
      p_datehei = l_dateh
      p_prevhei = p_priid
      p_prevemp = p_emppr
    IMPORTING
      is_ok     = is_ok
    TABLES
      p_error   = lt_error.

HRGPBS_HESA_NISR_CHECK_UOA
  call function 'HRGPBS_HESA_NISR_CHECK_UOA'
    EXPORTING
      p_pernr  = p0614-pernr
      p_uoa    = l_uoa
      p_resact = p_resa2
    IMPORTING
      is_ok    = is_ok
    TABLES
      p_error  = lt_error.

VRM_SET_VALUES
  CALL FUNCTION 'VRM_SET_VALUES'
    EXPORTING
      ID     = P_FELD
      VALUES = VALUES[]
    EXCEPTIONS
      OTHERS = 1.

HR_FEATURE_BACKFIELD
    CALL FUNCTION 'HR_FEATURE_BACKFIELD'
      EXPORTING
        feature       = '08H02'  "QNO
        struc_content = l_pme03
        kind_of_error = '3'      "info-msg.