29 lines
856 B
ABAP
29 lines
856 B
ABAP
INTERFACE {{p}}if_rope_check PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_ticket TYPE c LENGTH 10.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
empty TYPE ty_reason VALUE 'EMPTY',
|
|
ticket TYPE ty_reason VALUE 'TICKET',
|
|
age TYPE ty_reason VALUE 'AGE',
|
|
hours TYPE ty_reason VALUE 'HOURS',
|
|
height TYPE ty_reason VALUE 'HEIGHT',
|
|
END OF c_reason.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_ticket,
|
|
level_1 TYPE ty_ticket VALUE 'LEVEL_1',
|
|
level_2 TYPE ty_ticket VALUE 'LEVEL_2',
|
|
level_3 TYPE ty_ticket VALUE 'LEVEL_3',
|
|
END OF c_ticket.
|
|
|
|
METHODS check
|
|
IMPORTING iv_ticket TYPE ty_ticket
|
|
iv_height_m TYPE i
|
|
iv_logged_hours TYPE i
|
|
iv_age TYPE i
|
|
RETURNING VALUE(rv_reason) TYPE ty_reason.
|
|
ENDINTERFACE.
|