ABAP: Native SQL de DateTime ile sorgu

Abap_Native_SQL_DateTime

DATA:
lrc_root  TYPE REF TO cx_root,
lfd_text  TYPE string,
l_time TYPE char8,
tp_time1(19) TYPE c,
tp_time2(19) TYPE c.

CONCATENATE s_uzeit+0(2) s_uzeit+2(2) s_uzeit+4(2)
INTO l_time SEPARATED BY ':'.

CONCATENATE s_crdat–low+0(4) s_crdat–low+4(2) s_crdat–low+6(2)
INTO   tp_time1 SEPARATED BY '-'.

CONCATENATE tp_time1 l_time INTO tp_time1 SEPARATED BY space.

CONCATENATE s_crdat–high+0(4) s_crdat–high+4(2) s_crdat–high+6(2)
INTO   tp_time2 SEPARATED BY '-'.

CONCATENATE tp_time2 l_time INTO tp_time2 SEPARATED BY space.
TRY.

    EXEC SQL.
      OPEN C FOR
      SELECT Sicil,Giris,Cikis
      FROM VwPdks
      WHERE Giris >= :tp_time1
      AND Cikis <= :tp_time2
    ENDEXEC.

    DO.

      EXEC SQL.
        FETCH NEXT C into :ls_pdks–Sicil,
        :ls_pdks–Giris,
        :ls_pdks–Cikis
      ENDEXEC.

      IF sy–subrc = 0.
        APPEND ls_pdks TO lt_pdks.
        CLEAR ls_pdks.
      ELSE.
        EXIT.
      ENDIF.
    ENDDO.

  CATCH cx_root INTO lrc_root.
    lfd_text = lrc_root->get_text( ).
    MESSAGE ID 'ZPP' TYPE 'E' NUMBER '000'
    WITH lfd_text sy–msgv2 sy–msgv3 sy–msgv4.

ENDTRY .