*&---------------------------------------------------------------------*
*&  Include           ZXPADU02
*&---------------------------------------------------------------------*
data: i0015 type p0015.
data: i0014 type p0014.
data: p0001 TYPE p0001 OCCURS 0 WITH HEADER LINE .
data: kostl like p0001-kostl.
data: msg type string.
data: dt type char10.
IF ( innnn-infty  = '0015').

  CALL METHOD cl_hr_pnnnn_type_cast=>prelp_to_pnnnn
    EXPORTING
      prelp = innnn
    IMPORTING
      pnnnn = i0015.

if i0015-zuord is not INITIAL.
CALL FUNCTION 'HR_READ_INFOTYPE'
  EXPORTING
*   TCLAS                 = 'A'
    PERNR                 = innnn-pernr
    INFTY                 = '0001'
    BEGDA                 = i0015-begda
    ENDDA                 = i0015-begda
*   BYPASS_BUFFER         = ' '
*   LEGACY_MODE           = ' '
* IMPORTING
*   SUBRC                 =
  TABLES
    INFTY_TAB             = p0001
EXCEPTIONS
   INFTY_NOT_FOUND       = 1
   OTHERS                = 2  .
if sy-subrc = 0.
move i0015-zuord to kostl.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
  EXPORTING
    input  = kostl
  IMPORTING
    output = kostl.


data: NAME LIKE  HRCA_COSTC-NAME.
data: DESCRIPTION LIKE  HRCA_COSTC-DESCRIPTION.
data: SHORTNAME LIKE  HRCA_COSTC-SHORTNAME.
data: OBJECTNAME LIKE  HRCA_COSTC-OBJECTNAME.
CALL FUNCTION 'HRCA_COSTCENTER_TEXT'
  EXPORTING
    CONTROLLINGAREA        = p0001-kokrs
    COSTCENTER             = kostl
    READ_DATE              = i0015-begda
   LANGUAGE               = SY-LANGU
   BYPASSING_BUFFER       = ''
   FILL_BUFFER            = 'X'
IMPORTING
   NAME                   = name
   DESCRIPTION            = description
   SHORTNAME              = shortname
   OBJECTNAME             = objectname
EXCEPTIONS
   NOTHING_FOUND          = 1
   OTHERS                 = 2          .
IF SY-SUBRC = 0.
ipref-kostl = kostl.
ipref-BUKRS = ipsyst-bukrs.
ipref-gsber = ipsyst-gsber.

else.
write i0015-begda to dt DD/MM/YYYY.
CONCATENATE 'МВЗ ' kostl 'не существует на ' dt '. Присвоение не выполнено' into msg RESPECTING BLANKS.
message msg TYPE 'W'.
ENDIF.

endif.
endif.

clear: i0015.
clear: i0014.
clear: p0001.
clear: kostl.
clear: msg.
clear: dt.
refresh: p0001.
endif.