39769afce8
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
95 lines
2.4 KiB
ABAP
95 lines
2.4 KiB
ABAP
CLASS {{p}}dive_check DEFINITION
|
|
PUBLIC
|
|
FINAL
|
|
CREATE PUBLIC.
|
|
|
|
PUBLIC SECTION.
|
|
TYPES ty_reason TYPE c LENGTH 10.
|
|
TYPES ty_cert_level TYPE c LENGTH 1.
|
|
|
|
CONSTANTS:
|
|
BEGIN OF c_reason,
|
|
ok TYPE ty_reason VALUE 'OK',
|
|
age TYPE ty_reason VALUE 'AGE',
|
|
cert TYPE ty_reason VALUE 'CERT',
|
|
depth TYPE ty_reason VALUE 'DEPTH',
|
|
dives TYPE ty_reason VALUE 'DIVES',
|
|
recent TYPE ty_reason VALUE 'RECENT',
|
|
END OF c_reason.
|
|
|
|
METHODS check_diver
|
|
IMPORTING
|
|
iv_cert_level TYPE ty_cert_level
|
|
iv_depth TYPE i
|
|
iv_dives TYPE i
|
|
iv_last_dive TYPE d
|
|
iv_dive_date TYPE d
|
|
iv_age TYPE i
|
|
RETURNING
|
|
VALUE(rv_reason) TYPE ty_reason.
|
|
ENDCLASS.
|
|
|
|
|
|
CLASS {{p}}dive_check IMPLEMENTATION.
|
|
METHOD check_diver.
|
|
DATA lv_max_depth TYPE i.
|
|
DATA lv_min_dives TYPE i.
|
|
DATA lv_days TYPE i.
|
|
DATA lv_known TYPE c LENGTH 1.
|
|
|
|
rv_reason = c_reason-ok.
|
|
|
|
IF iv_age < 12.
|
|
rv_reason = c_reason-age.
|
|
ELSE.
|
|
IF iv_cert_level = 'O'.
|
|
lv_max_depth = 18.
|
|
lv_min_dives = 20.
|
|
lv_known = 'X'.
|
|
ELSEIF iv_cert_level = 'A'.
|
|
lv_max_depth = 30.
|
|
lv_min_dives = 50.
|
|
lv_known = 'X'.
|
|
ELSEIF iv_cert_level = 'R'.
|
|
lv_max_depth = 40.
|
|
lv_min_dives = 80.
|
|
lv_known = 'X'.
|
|
ELSEIF iv_cert_level = 'D'.
|
|
lv_max_depth = 40.
|
|
lv_min_dives = 100.
|
|
lv_known = 'X'.
|
|
ELSE.
|
|
lv_known = ' '.
|
|
ENDIF.
|
|
|
|
IF lv_known <> 'X'.
|
|
rv_reason = c_reason-cert.
|
|
ELSE.
|
|
IF iv_depth > lv_max_depth.
|
|
rv_reason = c_reason-depth.
|
|
ELSE.
|
|
IF iv_dives < lv_min_dives.
|
|
rv_reason = c_reason-dives.
|
|
ELSE.
|
|
IF iv_last_dive IS INITIAL.
|
|
rv_reason = c_reason-recent.
|
|
ELSE.
|
|
IF iv_depth > 30.
|
|
lv_days = iv_dive_date - iv_last_dive.
|
|
IF lv_days > 180.
|
|
rv_reason = c_reason-recent.
|
|
ENDIF.
|
|
ELSE.
|
|
lv_days = iv_dive_date - iv_last_dive.
|
|
IF lv_days > 365.
|
|
rv_reason = c_reason-recent.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDIF.
|
|
ENDMETHOD.
|
|
ENDCLASS.
|