Step F first pass: 81/92 accepted; budget floor 60 calls; rejected slots moved for regeneration

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
2026-10-03 12:10:52 +02:00
parent d3250acfb8
commit 39769afce8
741 changed files with 40573 additions and 317 deletions

View File

@@ -0,0 +1,94 @@
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.