Habe es selbst herausgefunden nach Stunden, die Lösung ist wie folgt:
Im Programm:
REPORT ZCP_400_00_CP_EINLOESEN.parameters: p_serie TYPE Z_CP_SERIEID,
p_coupon TYPE Z_CP_COUPONID.
CALL FUNCTION 'Z_CP400_00_CP_VALID'
EXPORTING
iv_serieid = p_serie
iv_couponid = p_coupon.
Im Funktionsbaustein:
FUNCTION Z_CP400_00_CP_VALID.*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*" IMPORTING
*" REFERENCE(IV_SERIEID) TYPE Z_CP_SERIEID
*" REFERENCE(IV_COUPONID) TYPE Z_CP_COUPONID
*"----------------------------------------------------------------------
DATA: gt_couponserie TYPE zcp_couponserie,
gt_coupon TYPE zcp_coupon.
SELECT * FROM zcp_couponserie INTO gt_couponserie WHERE serieid = iv_serieid. ENDSELECT.
SELECT * FROM zcp_coupon INTO gt_coupon WHERE couponid = iv_couponid. ENDSELECT.
IF gt_couponserie IS NOT INITIAL.
Message i003(ZCP_ERROR).
ELSE.
Message i004(ZCP_ERROR).
ENDIF.
IF gt_coupon IS NOT INITIAL.
Message i003(ZCP_ERROR).
ELSE.
Message i004(ZCP_ERROR).
ENDIF.
ENDFUNCTION.