26 lines
705 B
ABAP
26 lines
705 B
ABAP
INTERFACE {{p}}if_crane_hire PUBLIC.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
|
|
TYPES:
|
|
BEGIN OF ty_result,
|
|
reason TYPE ty_reason,
|
|
fee TYPE i,
|
|
END OF ty_result.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
radius TYPE ty_reason VALUE 'RADIUS',
|
|
load TYPE ty_reason VALUE 'LOAD',
|
|
capacity TYPE ty_reason VALUE 'CAPACITY',
|
|
ground TYPE ty_reason VALUE 'GROUND',
|
|
END OF c_reason.
|
|
|
|
METHODS hire
|
|
IMPORTING iv_radius_m TYPE i
|
|
iv_load_kg TYPE i
|
|
iv_ground TYPE string
|
|
iv_permit TYPE abap_bool
|
|
RETURNING VALUE(rs_result) TYPE ty_result.
|
|
ENDINTERFACE.
|