19 lines
650 B
ABAP
19 lines
650 B
ABAP
INTERFACE {{p}}if_credit_check PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_amount TYPE p LENGTH 11 DECIMALS 2.
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
age TYPE ty_reason VALUE 'AGE',
|
|
income TYPE ty_reason VALUE 'INCOME',
|
|
open_plan TYPE ty_reason VALUE 'OPEN_PLAN',
|
|
limit TYPE ty_reason VALUE 'LIMIT',
|
|
END OF c_reason.
|
|
METHODS check
|
|
IMPORTING iv_age TYPE i
|
|
iv_income TYPE ty_amount
|
|
iv_open_plans TYPE i
|
|
iv_order_amount TYPE ty_amount
|
|
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
|
ENDINTERFACE.
|