Abap Native SQL de DateTime ile sorgu

DATA:
LRC_ROOT  TYPE REF TO CX_ROOT,
LFD_TEXT  TYPE STRING,
l_time TYPE char8,
tp_time1(19TYPE c,
tp_time2(19TYPE c.

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

CONCATENATE s_crdatlow+0(4s_crdatlow+4(2s_crdatlow+6(2)
INTO   tp_time1 SEPARATED BY ‘-‘.

CONCATENATE tp_time1 l_time INTO tp_time1 SEPARATED BY space.

CONCATENATE s_crdathigh+0(4s_crdathigh+4(2s_crdathigh+6(2)
INTO   tp_time2 SEPARATED BY ‘-‘.

CONCATENATE tp_time2 l_time INTO tp_time2 SEPARATED BY space.
TRY.

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

DO.

EXEC SQL.
FETCH NEXT into :ls_pdksSicil,
:ls_pdksGiris,
:ls_pdksCikis
ENDEXEC.

IF SYSUBRC 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 SYMSGV2 SYMSGV3 SYMSGV4.

ENDTRY .

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir