Code: Alles auswählen.
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_borrb
FROM /saplom/lib_loan
WHERE loan_book_id = bookr AND loan_emp_id = bookur.
IF sy-subrc <> 0 OR bookur <> loan_emp_id.
WRITE 'Buch ist nicht ausgeliehen'.
ELSE.
DELETE FROM /saplom/lib_loan WHERE loan_book_id = bookr.
UPDATE /saplom/lib_book SET book_lent_flake = space
WHERE NOT EXISTS ( SELECT * FROM /saplom/lib_loan
WHERE loan_book_id = /saplom/lib_book~book_id ).
WRITE 'Buch erfolgreich zurückgegeben'.
ENDIF.
Code: Alles auswählen.
* Prüfen ob Buch ausgeliehen ist
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_borrb
FROM /saplom/lib_loan
WHERE loan_book_id = bookr.
IF sy-subrc <> 0.
WRITE 'Buch ist nicht ausgeliehen'.
EXIT.
ENDIF.
* Prüfen ob Buch von User X ausgeliehen ist
SELECT * INTO CORRESPONDING FIELDS OF TABLE lt_borrb
FROM /saplom/lib_loan
WHERE loan_emp_id = bookur.
IF sy-subrc <> 0.
WRITE 'Buch ist nicht von diesem User ausgeliehen'.
ELSE.
DELETE FROM /saplom/lib_loan WHERE loan_book_id = bookr.
UPDATE /saplom/lib_book SET book_lent_flake = space
WHERE NOT EXISTS ( SELECT * FROM /saplom/lib_loan
WHERE loan_book_id = /saplom/lib_book~book_id ).
WRITE 'Buch erfolgreich zurückgegeben'.
ENDIF.