FUNCTION ZFM_MM_CONVERT_FROM_TIMESTAMP.
*"----------------------------------------------------------------------
"“Local interface:
*” IMPORTING
*" VALUE(IV_TIMESTAMP) TYPE CHAR15
*" VALUE(IV_TZONE) TYPE BBP_TZONE DEFAULT ‘UTC’
*" EXPORTING
*" VALUE(EV_DATE) TYPE DATUM
*" VALUE(EV_TIME) TYPE UZEIT
*" REFERENCE(EV_TIMESTAMP) TYPE BCOS_TSTMP
*"----------------------------------------------------------------------
DATA: rv_timestamp TYPE bcos_tstmp.
DATA: lv_timestamp_msec TYPE string,
lv_date TYPE datum,
lv_time TYPE uzeit.
CLEAR rv_timestamp.
lv_timestamp_msec = iv_timestamp.
cl_pco_utility=>convert_java_timestamp_to_abap(
EXPORTING
iv_timestamp = lv_timestamp_msec
IMPORTING
ev_date = lv_date
ev_time = lv_time
-
ev_msec = " Remaining Milliseconds
).
CONVERT DATE lv_date TIME lv_time INTO TIME STAMP rv_timestamp
TIME ZONE iv_tzone.CONVERT TIME STAMP rv_timestamp TIME ZONE sy-zonlo
INTO DATE ev_date TIME ev_time.ev_timestamp = rv_timestamp.
-
CALL FUNCTION ‘IB_CONVERT_FROM_TIMESTAMP’
-
EXPORTING
-
i_timestamp = rv_timestamp
-
i_tzone = sy-zonlo
-
IMPORTING
-
e_datlo = ev_date
-
e_timlo = ev_time.
ENDFUNCTION.