Code: Alles auswählen.
DATA: GEFUNDEN(1) TYPE C.
GEFUNDEN = 'N'.
*--- Teil 1: gibt es ein passendes Intervall? -----------------
SELECT * FROM COBRB WHERE GABJA LE GJAHR
AND GBISJ GE GJAHR.
IF GABJA EQ GBISJ. " also GJAHR = GABJA = GBISJ
IF GABPE LE PERIO AND GBISJ GE PERIO.
GEFUNDEN = 'J'.
EXIT.
ENDIF.
ELSE. " also GABJA < GBISJ
IF GABJA EQ GJAHR. " also GJAHR < GBISJ
IF GABPE LE PERIO.
GEFUNDEN = 'J'.
EXIT.
ENDIF.
ELSE. " also GABJA < GJAHR
IF GBISJ EQ GJAHR: " dann Bis-Periode prüfen
IF GBISP GE PERIO.
GEFUNDEN = 'J'.
EXIT.
ENDIF.
ELSE. " sonst Bis-Periode egal
GEFUNDEN = 'J'.
EXIT.
ENDIF.
ENDIF.
ENDIF.
ENDSELECT.
*--- Teil 2: kein passendes Intervall, also "Dummy2-Eintrag holen ----
IF GEFUNDEN = 'N'.
SELECT SINGLE * FROM CORB WHERE GABJA IS INITIAL
AND GBISJ IS INITIAL
AND GABPE IS INITIAL
AND GBISJ IS INITIAL.
ENDIF.