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.