HR ABAP Personel detail information and fire and hire date FM

sap_hr_abap_personel_info_FM

TABLES: pa0000.

DATA: lv_entrydate   TYPE p0000-begda,
      lv_leavingdate TYPE p0000-begda.

DATA:   it_org LIKE TABLE OF bapip0001b WITH HEADER LINE,
        it_per LIKE TABLE OF bapip0002b WITH HEADER LINE.

PARAMETERS: p_pernr LIKE pa0000-pernr.

START-OF-SELECTION.

  CALL FUNCTION 'BAPI_EMPLOYEE_GETDATA'
    EXPORTING
      employee_id     = p_pernr
      date            = sy-datum
      authority_check = ''
    TABLES
      org_assignment  = it_org
      personal_data   = it_per.

  CALL FUNCTION 'HR_ENTRY_DATE'
    EXPORTING
      persnr               = p_pernr
      begda                = '18000101'
      endda                = '99991231'
    IMPORTING
      entrydate            = lv_entrydate
    EXCEPTIONS
      entry_date_not_found = 1
      pernr_not_assigned   = 2
      OTHERS               = 3.

  CALL FUNCTION 'HR_LEAVING_DATE'
    EXPORTING
      persnr                 = p_pernr
      begda                  = '18000101'
      endda                  = '99991231'
    IMPORTING
      leavingdate            = lv_leavingdate
    EXCEPTIONS
      leaving_date_not_found = 1
      pernr_not_assigned     = 2
      OTHERS                 = 3.

END-OF-SELECTION.

  WRITE:/ 'Departman           :', it_org-orgtxt,
        / 'Görev               :', it_org-postxt,
        / 'Personel no         :', p_pernr,
        / 'Adı                 :', it_per-firstname,
        / 'Soyadı              :', it_per-last_name,
        / 'Doğum yılı          :', it_per-birthyear,
        / 'İşe giriş tarihi    :', lv_entrydate,
        / 'İşten ayrılış tarihi:', lv_leavingdate.

initial commit

comm 2