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:
94
tasks_gen/eval/G0137/seed/dive_check.clas.abap
Normal file
94
tasks_gen/eval/G0137/seed/dive_check.clas.abap
Normal 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.
|
||||
Reference in New Issue
Block a user