SAP Reports / Programs | Personnel Management | Organizational Structure | Staffing(PA-OS-ST) SAP PA

comments icon Comments

MP100820 SAP ABAP INCLUDE - PD Infotype 1008 - PAI/PBO Special Modules







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


Text pool values


Title: PD Infotype 1008 - PAI/PBO Special Modules


INCLUDES used within this REPORT MP100820

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:

RH_SET_DATE
      CALL FUNCTION 'RH_SET_DATE'
        EXPORTING
          beg_dat            = p1008-begda
          end_dat            = p1008-endda
        IMPORTING
          ret_dat            = check_date
        EXCEPTIONS
          intervall_negative = 1
          OTHERS             = 2.

RH_CHECK_KOKRS_TOP
        CALL FUNCTION 'RH_CHECK_KOKRS_TOP'
          EXPORTING
            plvar    = p1008-plvar
            otype    = p1008-otype
            objid    = rd_objid
            key_date = check_date
          IMPORTING
            i_1008   = inhrt_1008.

HRCA_COMPANYCODE_GETDETAIL
  CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
    EXPORTING
      companycode = p1008-bukrs
    IMPORTING
      comp_name   = q1008-bktext
    EXCEPTIONS
      not_found   = 1
      OTHERS      = 2.

HRCA_BUSINESSAREA_GETDETAIL
  CALL FUNCTION 'HRCA_BUSINESSAREA_GETDETAIL'
    EXPORTING
      bus_area   = p1008-gsber
      language   = sy-langu
    IMPORTING
      bus_ar_des = q1008-gsbtxt
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.

HRCA_CONTROLLINGAREA_FIND
    CALL FUNCTION 'HRCA_CONTROLLINGAREA_FIND'
      EXPORTING
        companycode  = q1008-bukrs  "note 1075383
        businessarea = q1008-gsber  "note 1075383
      IMPORTING
        contrlarea   = q1008-kokrs
      EXCEPTIONS
        not_found    = 1
        OTHERS       = 2.

HRCA_CONTROLLINGAREA_GETDETAIL
      CALL FUNCTION 'HRCA_CONTROLLINGAREA_GETDETAIL'
        EXPORTING
          co_area   = q1008-kokrs
        IMPORTING
          name      = q1008-kktext
        EXCEPTIONS
          not_found = 1
          OTHERS    = 2.

RH_CHECK_BUKRS_FIKRS
  CALL FUNCTION 'RH_CHECK_BUKRS_FIKRS'
    EXPORTING
      act_bukrs            = p1008-bukrs
      act_endda            = p1008-endda
    IMPORTING
      fikrs_off            = fikrs_off
      act_fikrs            = fi
    EXCEPTIONS
      pm_customizing_error = 1
      OTHERS               = 2.

RH_PM_FIKRS_TEXT_GET
          CALL FUNCTION 'RH_PM_FIKRS_TEXT_GET'              "STFO717323
            EXPORTING                                       "STFO717323
              fikrs           =  fi                         "STFO717323
            IMPORTING                                       "STFO717323
              text            =  hcm_fikrs_attributes-fikrstext
*           EXCEPTIONS                                      "STFO717323
*             NOT_FOUND       = 1                           "STFO717323
*             OTHERS          = 2                           "STFO717323
          .

RH_CHECK_ACC_INPUT
*    CALL FUNCTION 'RH_CHECK_ACC_INPUT'
*      EXPORTING
*        plvar                     = p1008-plvar
*        otype                     = p1008-otype
*        objid                     = p1008-objid
*        begda                     = p1008-begda
*        endda                     = p1008-endda
*        act_1008                  = p1008
**    OM_BUFFER_MODE            = 'X'
*     IMPORTING
*       inh_bukrs                 = inh_bukrs.

HRCA_COMPANYCODE_GETDETAIL
    CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
      EXPORTING
        companycode = p1008-bukrs
      IMPORTING
        comp_name   = q1008-bktext
      EXCEPTIONS
        not_found   = 1
        OTHERS      = 2.

HRCA_PLANT_GETDETAIL
  CALL FUNCTION 'HRCA_PLANT_GETDETAIL'
    EXPORTING
      plant     = p1008-werks
    IMPORTING
      name      = q1008-wktext
    EXCEPTIONS
      not_found = 1
      OTHERS    = 2.

RH_CHECK_ACC_INPUT
*    CALL FUNCTION 'RH_CHECK_ACC_INPUT'
*      EXPORTING
*        plvar                     = p1008-plvar
*        otype                     = p1008-otype
*        objid                     = p1008-objid
*        begda                     = p1008-begda
*        endda                     = p1008-endda
*        act_1008                  = p1008
**    OM_BUFFER_MODE            = 'X'
*     IMPORTING
*       inh_gsber                 = inh_gsber.

HRCA_BUSINESSAREA_GETDETAIL
  CALL FUNCTION 'HRCA_BUSINESSAREA_GETDETAIL'
    EXPORTING
      bus_area   = p1008-gsber
      language   = sy-langu
    IMPORTING
      bus_ar_des = q1008-gsbtxt
    EXCEPTIONS
      not_found  = 1
      OTHERS     = 2.

HRCA_CONTROLLINGAREA_FIND
    CALL FUNCTION 'HRCA_CONTROLLINGAREA_FIND'
      EXPORTING
*       companycode  = p1008-bukrs     "SRON1032983
*       businessarea = p1008-gsber     "SRON1032983
        companycode  = q1008-bukrs     "SRON1032983
        businessarea = q1008-gsber     "SRON1032983
      IMPORTING
        contrlarea   = q1008-kokrs
      EXCEPTIONS
        not_found    = 1
        OTHERS       = 2.

HRCA_CONTROLLINGAREA_GETDETAIL
      CALL FUNCTION 'HRCA_CONTROLLINGAREA_GETDETAIL'
        EXPORTING
          co_area   = q1008-kokrs
        IMPORTING
          name      = q1008-kktext
        EXCEPTIONS
          not_found = 1
          OTHERS    = 2.

DYNP_VALUES_READ
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = 'MP100800'
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = dyntab
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      OTHERS               = 9.

HELP_VALUES_GET_WITH_TABLE
    CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
      EXPORTING
        display                   = disp_flag
        fieldname                 = 'PERSA'
        titel                     = 'Personalbereich'(peb)
      IMPORTING
        select_value              = p1008-persa
      TABLES
        fields                    = field_tab
        valuetab                  = value_tab
      EXCEPTIONS
        field_not_in_ddic         = 1
        more_then_one_selectfield = 2
        no_selectfield            = 3
        OTHERS                    = 4.

DYNP_VALUES_READ
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = 'MP100800'
      dynumb               = sy-dynnr
    TABLES
      dynpfields           = dyntab
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      OTHERS               = 9.

HELP_VALUES_GET_WITH_TABLE
















      CALL FUNCTION 'HELP_VALUES_GET_WITH_TABLE'
        EXPORTING
          display                   = disp_flag
          fieldname                 = 'BTRTL'
          titel                     = 'Personalteilbereich'(ptb)
        IMPORTING
          select_value              = p1008-btrtl
        TABLES
          fields                    = field_tab
          valuetab                  = value_tab
        EXCEPTIONS
          field_not_in_ddic         = 1
          more_then_one_selectfield = 2
          no_selectfield            = 3
          OTHERS                    = 4.

RH_OM_ACC_INH_ON
  CALL FUNCTION 'RH_OM_ACC_INH_ON'
    EXPORTING
      inh         = 'BUKRS'
    EXCEPTIONS
      acc_inh_off = 1
      wrong_input = 2
      OTHERS      = 3.

DYNP_VALUES_READ
  CALL FUNCTION 'DYNP_VALUES_READ'
    EXPORTING
      dyname               = prog_name
      dynumb               = dyn_num
    TABLES
      dynpfields           = dyntab
    EXCEPTIONS
      invalid_abapworkarea = 1
      invalid_dynprofield  = 2
      invalid_dynproname   = 3
      invalid_dynpronummer = 4
      invalid_request      = 5
      no_fielddescription  = 6
      invalid_parameter    = 7
      undefind_error       = 8
      OTHERS               = 9.

HRCA_CONTROLLINGAREA_COMPCODES
    CALL FUNCTION 'HRCA_CONTROLLINGAREA_COMPCODES'
      EXPORTING
        co_area      = q1008-kokrs
        no_auth      = 'X'                                "SRON1843429
      TABLES
        companycodes = bukrs_kokrs_tab
      EXCEPTIONS
        not_found    = 1
        OTHERS       = 2.

HELP_VALUES_GET
        CALL FUNCTION 'HELP_VALUES_GET'
          EXPORTING
            display      = disp_flag
            fieldname    = 'BUKRS'
            tabname      = 'T001'
          IMPORTING
*           select_value = p1008-bukrs     "SRON1026590
            select_value = q1008-bukrs     "SRON1026590
          EXCEPTIONS
            OTHERS       = 1.

HRCA_CONTROLLINGAREA_GETDETAIL
        CALL FUNCTION 'HRCA_CONTROLLINGAREA_GETDETAIL'
          EXPORTING
            co_area   = q1008-kokrs
          IMPORTING
            name      = f4_tab-kokrs_text
          EXCEPTIONS
            not_found = 1
            OTHERS    = 2.

HRCA_COMPANYCODE_GETDETAIL
          CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
            EXPORTING
              companycode = bukrs_kokrs_tab-comp_code
            IMPORTING
              comp_name   = f4_tab-bukrs_text
            EXCEPTIONS
              not_found   = 1
              OTHERS      = 2.

F4IF_INT_TABLE_VALUE_REQUEST
        CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
          EXPORTING
            retfield        = 'BUKRS'
            value_org       = 'S'
            display         = disp_flag
          TABLES
            value_tab       = f4_tab
            return_tab      = f4_return
          EXCEPTIONS
            parameter_error = 1
            no_values_found = 2
            OTHERS          = 3.

HRCA_COMPANYCODE_GETDETAIL
    CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
      EXPORTING
        companycode = p1008-bukrs
      IMPORTING
        comp_name   = q1008-bktext
      EXCEPTIONS
        not_found   = 1
        OTHERS      = 2.

RH_PM_CHECK_ACTIVE_OM_INT
  CALL FUNCTION 'RH_PM_CHECK_ACTIVE_OM_INT'
    EXPORTING
      bukrs           = p1008-bukrs
    IMPORTING
      activation_date = active_date
    EXCEPTIONS
      not_active      = 1
      OTHERS          = 2.

HRCA_COMPANYCODE_GETDETAIL
    CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
      EXPORTING
        companycode       = p1008-bukrs
      IMPORTING
        fi_managementarea = fi
      EXCEPTIONS
        not_found         = 1
        OTHERS            = 2.

RH_PM_FIKRS_IN_ORGSTRUC_CHECK
        CALL FUNCTION 'RH_PM_FIKRS_IN_ORGSTRUC_CHECK'
          EXPORTING
            plvar                          = p1008-plvar
            otype                          = p1008-otype
            objid                          = p1008-objid
            istat                          = p1008-istat
          TABLES
            p1008_tab                      = p1008_tab
          EXCEPTIONS
            no_account_assignment_for_root = 1
            no_fikrs_for_bukrs             = 2
            account_assignment_with_gaps   = 3
            fikrs_change_in_org_structure  = 4
            new_bukrs_makes_fikrs_change   = 5
            kostl_of_wrong_fikrs           = 6
            OTHERS                         = 7.

RH_PM_FIKRS_IN_ORGSTRUC_CHECK
*        call function 'RH_PM_FIKRS_IN_ORGSTRUC_CHECK'
*             exporting
*                  plvar     = p1008-plvar
*                  otype     = p1008-otype
*                  objid     = p1008-objid
*                  istat     = p1008-istat
*             importing
*                  subrc     = error
*                  fikrs     = fikrs_pm
*             tables
*                  p1008_tab = p1008_tab.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

RH_PM_CHECK_ERROR_INACTIVE
*            call function 'RH_PM_CHECK_ERROR_INACTIVE'
*                 changing
*                      flag = flag_pm_check_noterr.

HRCA_COMPANYCODE_GETDETAIL
    CALL FUNCTION 'HRCA_COMPANYCODE_GETDETAIL'
      EXPORTING
        companycode = p1008-bukrs
      IMPORTING
        comp_name   = q1008-bktext
      EXCEPTIONS
        not_found   = 1
        OTHERS      = 2.




HRCA_PLANT_GETDETAIL
    CALL FUNCTION 'HRCA_PLANT_GETDETAIL'
      EXPORTING
        plant     = p1008-werks
      IMPORTING
        name      = q1008-wktext
      EXCEPTIONS
        not_found = 1
        OTHERS    = 2.

RH_CHECK_ACC_INPUT
*  call function 'RH_CHECK_ACC_INPUT'
*           exporting
*                plvar           = p1008-plvar
*                otype           = p1008-otype
*                objid           = p1008-objid
*                begda           = p1008-begda
*                endda           = p1008-endda
*                act_1008        = p1008
*           importing
*                inh_bukrs       = inh_bukrs
*           exceptions
*                internal_error  = 1
*                others          = 2.

RH_CHECK_ACC_INPUT
    CALL FUNCTION 'RH_CHECK_ACC_INPUT'
      EXPORTING
        plvar                     = p1008-plvar
        otype                     = p1008-otype
        objid                     = p1008-objid
        begda                     = p1008-begda
        endda                     = p1008-endda
        act_1008                  = p1008
*    OM_BUFFER_MODE            = 'X'
     IMPORTING
       inh_gsber                 = inh_gsber.

RH_CHECK_ACC_INPUT
    CALL FUNCTION 'RH_CHECK_ACC_INPUT'
      EXPORTING
        plvar                     = p1008-plvar
        otype                     = p1008-otype
        objid                     = p1008-objid
        begda                     = p1008-begda
        endda                     = p1008-endda
        act_1008                  = p1008
*    OM_BUFFER_MODE            = 'X'
     IMPORTING
       inh_bukrs                 = inh_bukrs.


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 MP100820 or its description.


   
 

MP100820 - PD Infotype 1008 - PAI/PBO Special Modules
MP100800 - PD Infotype 1008 Account Assignment Features
MP100800 - PD Infotype 1008 Account Assignment Features
MP1007BI - General Data for All PD Infotypes
MP1007BI - General Data for All PD Infotypes
MP100750 - Include MP100750