Code: Alles auswählen.
PARAMETERS :
p_gdat TYPE syst-datum, " Gültig ab Datum
p_gzeit TYPE syst-uzeit. " Gültig ab Zeit
DATA: datum TYPE d,
zeit TYPE t,
zeitstempel_akt TYPE yrdsdwk0_zeitpunkt_fmt,
tzonref TYPE tzonref,
mein_zeitstempel TYPE timestamp.
*Datum und Zeit konvertieren in Zeitstempel
PERFORM convert_date
USING p_gdat
p_gzeit
CHANGING zeitstempel_akt.
*&---------------------------------------------------------------------*
*& Form CONVERT_DATE
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_DATUM text
* -->P_ZEIT text
* <--P_ZEITSTEMPEL_AKT text
*----------------------------------------------------------------------*
FORM convert_date USING p_datum
p_zeit
CHANGING p_zeitstempel_akt.
CLEAR tzonref-tzone.
CONVERT DATE p_gdat
TIME p_gzeit
INTO TIME STAMP tzonref-tstamps
TIME ZONE tzonref-tzone.
zeitstempel_akt = tzonref-tstamps.
ENDFORM. " CONVERT_DATE