DATA time TYPE timestamp.
DATA lv_tstmp1 TYPE p.
DATA lv_tstmp2 TYPE p.
DATA lv_secs TYPE timestamp.
CONVERT DATE sy-datlo TIME sy-timlo
INTO TIME STAMP time TIME ZONE sy-zonlo.
lv_tstmp1 = time.
lv_tstmp2 = '19700101000000'.
TRY.
CALL METHOD cl_abap_tstmp=>subtract
EXPORTING
tstmp1 = lv_tstmp1
tstmp2 = lv_tstmp2
RECEIVING
r_secs = lv_secs.
CATCH cx_parameter_invalid_range .
CATCH cx_parameter_invalid_type .
ENDTRY.
ls_request-timestamp = lv_secs .