Use this code
ABLES: D010SINF.
DATA: PROGTXT(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA: PROGTXT1(72) TYPE C OCCURS 0 WITH HEADER LINE.
DATA:
BEGIN OF MT OCCURS 0,
PROG LIKE D010SINF-PROG,
EDTX LIKE D010SINF-EDTX,
R3STATE LIKE D010SINF-R3STATE,
UNAM LIKE D010SINF-UNAM,
CNAM LIKE D010SINF-CNAM,
UDAT LIKE D010SINF-UDAT,
UTIME LIKE D010SINF-UTIME,
END OF MT,
N(4),
PROG(20) TYPE C,
MIN(10) TYPE C.
RANGES: UDAT1 FOR D010SINF-UDAT.
RANGES: UTIME1 FOR D010SINF-UTIME.
SELECT-OPTIONS: PROG1 FOR D010SINF-PROG, "
UNAM1 FOR D010SINF-UNAM, "
CNAM1 FOR D010SINF-CNAM. "
PARAMETERS DEN(4) TYPE C DEFAULT '1'.
PARAMETERS SEC(5) TYPE C DEFAULT '30'.
PARAMETERS DOP AS CHECKBOX DEFAULT ' '.
START-OF-SELECTION.
IF DOP NE SPACE.
MIN = SEC * 60.
UTIME1-SIGN = 'I'.
UTIME1-OPTION = 'BT'.
UTIME1-LOW = SY-UZEIT - MIN.
UTIME1-HIGH = SY-UZEIT.
APPEND UTIME1.
ENDIF.
UDAT1-SIGN = 'I'.
UDAT1-OPTION = 'BT'.
UDAT1-LOW = SY-DATUM - DEN.
UDAT1-HIGH = SY-DATUM.
APPEND UDAT1.
SELECT PROG UNAM UDAT UTIME R3STATE EDTX CNAM
INTO (MT-PROG, MT-UNAM, MT-UDAT, MT-UTIME, MT-R3STATE, MT-EDTX,MT-CNAM )
FROM D010SINF WHERE PROG IN PROG1
AND UDAT IN UDAT1
AND UTIME IN UTIME1
AND CNAM IN CNAM1
AND UNAM IN UNAM1.
APPEND MT.
ENDSELECT.
N = 1.
WRITE: / 'from', UDAT1-LOW, 'to', UDAT1-HIGH.
SORT MT BY UNAM UDAT UTIME.
LOOP AT MT.
WRITE: / MT-CNAM,MT-PROG,MT-UNAM,MT-UDAT, MT-UTIME,
MT-R3STATE, MT-EDTX.
N = N + 1.
ENDLOOP.
WRITE: / N.
Bluesky
