ADT fallback: Accept headers for FUNC; G0189 accepted; regen2 results
Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_014aUaQeLnwbb1zTpN7kHeat
This commit is contained in:
Kral
193
tasks_gen/eval/G0161/reference/ward_stay.prog.abap
Normal file
193
tasks_gen/eval/G0161/reference/ward_stay.prog.abap
Normal file
@@ -0,0 +1,193 @@
|
||||
REPORT {{p}}ward_stay.
|
||||
|
||||
TYPES ty_ward TYPE {{p}}admit-ward.
|
||||
|
||||
DATA gv_ward TYPE ty_ward.
|
||||
|
||||
PARAMETERS p_from TYPE d OBLIGATORY.
|
||||
PARAMETERS p_to TYPE d OBLIGATORY.
|
||||
SELECT-OPTIONS s_ward FOR gv_ward.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
TYPES:
|
||||
BEGIN OF ty_admit,
|
||||
adm_id TYPE {{p}}admit-adm_id,
|
||||
ward TYPE {{p}}admit-ward,
|
||||
admit_date TYPE {{p}}admit-admit_date,
|
||||
discharge_date TYPE {{p}}admit-discharge_date,
|
||||
daily_rate TYPE {{p}}admit-daily_rate,
|
||||
END OF ty_admit,
|
||||
tt_admit TYPE STANDARD TABLE OF ty_admit WITH EMPTY KEY,
|
||||
BEGIN OF ty_line,
|
||||
ward TYPE {{p}}admit-ward,
|
||||
admissions TYPE i,
|
||||
bed_days TYPE i,
|
||||
total_cost TYPE {{p}}admit-daily_rate,
|
||||
END OF ty_line,
|
||||
tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY,
|
||||
tt_ward TYPE RANGE OF {{p}}admit-ward.
|
||||
METHODS select_stays
|
||||
IMPORTING iv_from TYPE d
|
||||
iv_to TYPE d
|
||||
it_ward TYPE tt_ward
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
METHODS aggregate
|
||||
IMPORTING it_admit TYPE tt_admit
|
||||
iv_to TYPE d
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
PRIVATE SECTION.
|
||||
METHODS add_admission
|
||||
IMPORTING is_admit TYPE ty_admit
|
||||
iv_to TYPE d
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_stays.
|
||||
DATA lt_admit TYPE tt_admit.
|
||||
|
||||
SELECT adm_id, ward, admit_date, discharge_date, daily_rate
|
||||
FROM {{p}}admit
|
||||
WHERE admit_date >= @iv_from
|
||||
AND admit_date <= @iv_to
|
||||
AND ward IN @it_ward
|
||||
INTO TABLE @lt_admit.
|
||||
|
||||
rt_lines = aggregate( it_admit = lt_admit
|
||||
iv_to = iv_to ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD aggregate.
|
||||
DATA ls_admit TYPE ty_admit.
|
||||
|
||||
LOOP AT it_admit INTO ls_admit.
|
||||
add_admission( EXPORTING is_admit = ls_admit
|
||||
iv_to = iv_to
|
||||
CHANGING ct_lines = rt_lines ).
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY total_cost DESCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD add_admission.
|
||||
DATA lv_discharge TYPE d.
|
||||
DATA lv_days TYPE i.
|
||||
DATA lv_cost TYPE {{p}}admit-daily_rate.
|
||||
DATA lv_index TYPE i.
|
||||
DATA ls_line TYPE ty_line.
|
||||
|
||||
lv_discharge = is_admit-discharge_date.
|
||||
IF lv_discharge IS INITIAL.
|
||||
lv_discharge = iv_to.
|
||||
ENDIF.
|
||||
|
||||
lv_days = lv_discharge - is_admit-admit_date.
|
||||
lv_cost = lv_days * is_admit-daily_rate.
|
||||
|
||||
READ TABLE ct_lines INTO ls_line WITH KEY ward = is_admit-ward.
|
||||
IF sy-subrc = 0.
|
||||
lv_index = sy-tabix.
|
||||
ELSE.
|
||||
CLEAR ls_line.
|
||||
ls_line-ward = is_admit-ward.
|
||||
APPEND ls_line TO ct_lines.
|
||||
lv_index = lines( ct_lines ).
|
||||
ENDIF.
|
||||
|
||||
ls_line-admissions = ls_line-admissions + 1.
|
||||
ls_line-bed_days = ls_line-bed_days + lv_days.
|
||||
ls_line-total_cost = ls_line-total_cost + lv_cost.
|
||||
MODIFY ct_lines INDEX lv_index FROM ls_line.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
DATA lo_alv TYPE REF TO cl_salv_table.
|
||||
DATA lx_error TYPE REF TO cx_salv_msg.
|
||||
|
||||
TRY.
|
||||
cl_salv_table=>factory( IMPORTING r_salv_table = lo_alv
|
||||
CHANGING t_table = ct_lines ).
|
||||
lo_alv->display( ).
|
||||
CATCH cx_salv_msg INTO lx_error.
|
||||
MESSAGE lx_error TYPE 'I' DISPLAY LIKE 'E'.
|
||||
ENDTRY.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
|
||||
START-OF-SELECTION.
|
||||
DATA go_report TYPE REF TO lcl_report.
|
||||
DATA gt_lines TYPE lcl_report=>tt_line.
|
||||
|
||||
go_report = NEW lcl_report( ).
|
||||
gt_lines = go_report->select_stays( iv_from = p_from
|
||||
iv_to = p_to
|
||||
it_ward = s_ward[] ).
|
||||
go_report->display( CHANGING ct_lines = gt_lines ).
|
||||
|
||||
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
METHODS open_stay_uses_p_to FOR TESTING.
|
||||
METHODS totals_per_ward FOR TESTING.
|
||||
METHODS sorted_by_cost FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD open_stay_uses_p_to.
|
||||
DATA lt_admit TYPE lcl_report=>tt_admit.
|
||||
DATA lt_lines TYPE lcl_report=>tt_line.
|
||||
DATA ls_line TYPE lcl_report=>ty_line.
|
||||
|
||||
lt_admit = VALUE #(
|
||||
( adm_id = 1 ward = 'A' admit_date = '20260101'
|
||||
discharge_date = '00000000' daily_rate = '10.00' ) ).
|
||||
|
||||
lt_lines = NEW lcl_report( )->aggregate( it_admit = lt_admit
|
||||
iv_to = '20260105' ).
|
||||
READ TABLE lt_lines INTO ls_line INDEX 1.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 4 act = ls_line-bed_days ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = CONV {{p}}admit-daily_rate( 40 )
|
||||
act = ls_line-total_cost ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_ward.
|
||||
DATA lt_admit TYPE lcl_report=>tt_admit.
|
||||
DATA lt_lines TYPE lcl_report=>tt_line.
|
||||
DATA ls_line TYPE lcl_report=>ty_line.
|
||||
|
||||
lt_admit = VALUE #(
|
||||
( adm_id = 1 ward = 'A' admit_date = '20260101'
|
||||
discharge_date = '20260103' daily_rate = '10.00' )
|
||||
( adm_id = 2 ward = 'A' admit_date = '20260105'
|
||||
discharge_date = '20260106' daily_rate = '10.00' )
|
||||
( adm_id = 3 ward = 'B' admit_date = '20260101'
|
||||
discharge_date = '20260111' daily_rate = '5.00' ) ).
|
||||
|
||||
lt_lines = NEW lcl_report( )->aggregate( it_admit = lt_admit
|
||||
iv_to = '20260131' ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
|
||||
READ TABLE lt_lines INTO ls_line WITH KEY ward = 'A'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-admissions ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 3 act = ls_line-bed_days ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD sorted_by_cost.
|
||||
DATA lt_admit TYPE lcl_report=>tt_admit.
|
||||
DATA lt_lines TYPE lcl_report=>tt_line.
|
||||
DATA ls_line TYPE lcl_report=>ty_line.
|
||||
|
||||
lt_admit = VALUE #(
|
||||
( adm_id = 1 ward = 'A' admit_date = '20260101'
|
||||
discharge_date = '20260103' daily_rate = '10.00' )
|
||||
( adm_id = 2 ward = 'B' admit_date = '20260101'
|
||||
discharge_date = '20260111' daily_rate = '10.00' ) ).
|
||||
|
||||
lt_lines = NEW lcl_report( )->aggregate( it_admit = lt_admit
|
||||
iv_to = '20260131' ).
|
||||
READ TABLE lt_lines INTO ls_line INDEX 1.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'B' act = ls_line-ward ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
@@ -1,160 +0,0 @@
|
||||
REPORT {{p}}zoo_feed.
|
||||
|
||||
TYPES: BEGIN OF ty_line,
|
||||
enclosure TYPE {{p}}animal-enclosure,
|
||||
animals TYPE i,
|
||||
cost TYPE {{p}}animal-food_cost,
|
||||
END OF ty_line.
|
||||
TYPES tt_line TYPE STANDARD TABLE OF ty_line WITH EMPTY KEY.
|
||||
TYPES tt_enclosure TYPE RANGE OF {{p}}animal-enclosure.
|
||||
|
||||
TYPES: BEGIN OF ty_animal,
|
||||
enclosure TYPE {{p}}animal-enclosure,
|
||||
food_cost TYPE {{p}}animal-food_cost,
|
||||
END OF ty_animal.
|
||||
TYPES tt_animal TYPE STANDARD TABLE OF ty_animal WITH EMPTY KEY.
|
||||
|
||||
DATA gv_enclosure TYPE {{p}}animal-enclosure.
|
||||
|
||||
PARAMETERS p_minwg TYPE {{p}}animal-weight_kg OBLIGATORY.
|
||||
SELECT-OPTIONS s_encl FOR gv_enclosure.
|
||||
|
||||
CLASS lcl_report DEFINITION FINAL.
|
||||
PUBLIC SECTION.
|
||||
CLASS-METHODS select_lines
|
||||
IMPORTING iv_min_weight TYPE {{p}}animal-weight_kg
|
||||
it_enclosure TYPE tt_enclosure
|
||||
RETURNING VALUE(rt_lines) TYPE tt_line.
|
||||
CLASS-METHODS display
|
||||
CHANGING ct_lines TYPE tt_line.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS lcl_report IMPLEMENTATION.
|
||||
METHOD select_lines.
|
||||
DATA: lt_animals TYPE tt_animal,
|
||||
ls_animal TYPE ty_animal,
|
||||
ls_line TYPE ty_line.
|
||||
|
||||
SELECT enclosure food_cost
|
||||
FROM {{p}}animal
|
||||
INTO CORRESPONDING FIELDS OF TABLE lt_animals
|
||||
WHERE weight_kg >= iv_min_weight
|
||||
AND enclosure IN it_enclosure.
|
||||
|
||||
LOOP AT lt_animals INTO ls_animal.
|
||||
READ TABLE rt_lines INTO ls_line
|
||||
WITH KEY enclosure = ls_animal-enclosure.
|
||||
IF sy-subrc = 0.
|
||||
ls_line-animals = ls_line-animals + 1.
|
||||
ls_line-cost = ls_line-cost + ls_animal-food_cost.
|
||||
MODIFY rt_lines FROM ls_line INDEX sy-tabix.
|
||||
ELSE.
|
||||
CLEAR ls_line.
|
||||
ls_line-enclosure = ls_animal-enclosure.
|
||||
ls_line-animals = 1.
|
||||
ls_line-cost = ls_animal-food_cost.
|
||||
APPEND ls_line TO rt_lines.
|
||||
ENDIF.
|
||||
ENDLOOP.
|
||||
|
||||
SORT rt_lines BY cost DESCENDING enclosure ASCENDING.
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD display.
|
||||
DATA: lo_alv TYPE REF TO cl_salv_table,
|
||||
lx_msg TYPE REF TO cx_salv_msg.
|
||||
TRY.
|
||||
cl_salv_table=>factory(
|
||||
IMPORTING r_salv_table = lo_alv
|
||||
CHANGING t_table = ct_lines ).
|
||||
lo_alv->display( ).
|
||||
CATCH cx_salv_msg INTO lx_msg.
|
||||
MESSAGE lx_msg TYPE 'I' DISPLAY LIKE 'E'.
|
||||
ENDTRY.
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
|
||||
START-OF-SELECTION.
|
||||
DATA gt_lines TYPE tt_line.
|
||||
|
||||
gt_lines = lcl_report=>select_lines( iv_min_weight = p_minwg
|
||||
it_enclosure = s_encl[] ).
|
||||
lcl_report=>display( CHANGING ct_lines = gt_lines ).
|
||||
|
||||
CLASS ltc_report DEFINITION FINAL FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
|
||||
CLASS-METHODS class_setup.
|
||||
CLASS-METHODS class_teardown.
|
||||
METHODS totals_per_enclosure FOR TESTING.
|
||||
METHODS weight_filter FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
CLASS ltc_report IMPLEMENTATION.
|
||||
METHOD class_setup.
|
||||
go_env = cl_osql_test_environment=>create(
|
||||
i_dependency_list = VALUE #( ( '{{P}}ANIMAL' ) ) ).
|
||||
DATA: lt_animal TYPE STANDARD TABLE OF {{p}}animal WITH EMPTY KEY,
|
||||
ls_animal TYPE {{p}}animal.
|
||||
|
||||
ls_animal-animal_id = 1.
|
||||
ls_animal-enclosure = 'A'.
|
||||
ls_animal-species = 'LION'.
|
||||
ls_animal-weight_kg = '100.0'.
|
||||
ls_animal-food_cost = '10.00'.
|
||||
APPEND ls_animal TO lt_animal.
|
||||
|
||||
CLEAR ls_animal.
|
||||
ls_animal-animal_id = 2.
|
||||
ls_animal-enclosure = 'A'.
|
||||
ls_animal-species = 'CUB'.
|
||||
ls_animal-weight_kg = '5.0'.
|
||||
ls_animal-food_cost = '2.00'.
|
||||
APPEND ls_animal TO lt_animal.
|
||||
|
||||
CLEAR ls_animal.
|
||||
ls_animal-animal_id = 3.
|
||||
ls_animal-enclosure = 'B'.
|
||||
ls_animal-species = 'SEAL'.
|
||||
ls_animal-weight_kg = '50.0'.
|
||||
ls_animal-food_cost = '7.00'.
|
||||
APPEND ls_animal TO lt_animal.
|
||||
|
||||
go_env->insert_test_data( lt_animal ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD class_teardown.
|
||||
go_env->destroy( ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD totals_per_enclosure.
|
||||
DATA: lt_lines TYPE tt_line,
|
||||
ls_line TYPE ty_line,
|
||||
lt_none TYPE tt_enclosure.
|
||||
|
||||
lt_lines = lcl_report=>select_lines( iv_min_weight = '0.0'
|
||||
it_enclosure = lt_none ).
|
||||
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
|
||||
READ TABLE lt_lines INTO ls_line INDEX 1.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 'A' act = ls_line-enclosure ).
|
||||
cl_abap_unit_assert=>assert_equals(
|
||||
exp = CONV {{p}}animal-food_cost( 12 ) act = ls_line-cost ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_line-animals ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD weight_filter.
|
||||
DATA: lt_lines TYPE tt_line,
|
||||
ls_line TYPE ty_line,
|
||||
lt_none TYPE tt_enclosure.
|
||||
|
||||
lt_lines = lcl_report=>select_lines( iv_min_weight = '10.0'
|
||||
it_enclosure = lt_none ).
|
||||
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = lines( lt_lines ) ).
|
||||
|
||||
READ TABLE lt_lines INTO ls_line INDEX 1.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 1 act = ls_line-animals ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user