erhan/abap-llm
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Snapshot: new training tasks (balanced generation), docs

Browse Source 
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
Kral
2026-10-05 22:08:59 +02:00
parent eb13453097
commit 6984fc7917
572 changed files with 30024 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

175
tasks_gen/train/G1912/hidden/svcjob_hidden.clas.abap Normal file
View File

@@ -0,0 +1,175 @@
CLASS {{p}}svcjob_hidden DEFINITION PUBLIC FINAL CREATE PUBLIC
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
PRIVATE SECTION.
TYPES ty_typekind TYPE c LENGTH 1.
CLASS-DATA go_env TYPE REF TO if_osql_test_environment.
CLASS-METHODS class_setup.
CLASS-METHODS class_teardown.
METHODS setup.
METHODS field_names FOR TESTING.
METHODS key_fields FOR TESTING.
METHODS key_field_types FOR TESTING.
METHODS work_hours_field FOR TESTING.
METHODS calc_mode_field FOR TESTING.
METHODS order_no_field FOR TESTING.
METHODS job_date_field FOR TESTING.
METHODS part_count_field FOR TESTING.
METHODS job_group_field FOR TESTING.
METHODS job_value_field FOR TESTING.
METHODS insert_and_select FOR TESTING.
METHODS duplicate_key FOR TESTING.
METHODS get_ddic_fields RETURNING VALUE(rt_fields) TYPE ddfields.
METHODS check_type IMPORTING iv_name TYPE fieldname
iv_inttype TYPE ty_typekind
iv_leng TYPE i
iv_decimals TYPE i.
ENDCLASS.
CLASS {{p}}svcjob_hidden IMPLEMENTATION.
METHOD class_setup.
go_env = cl_osql_test_environment=>create( i_dependency_list = VALUE #( ( '{{P}}SVCJOB' ) ) ).
ENDMETHOD.
METHOD class_teardown.
go_env->destroy( ).
ENDMETHOD.
METHOD setup.
go_env->clear_doubles( ).
ENDMETHOD.
METHOD get_ddic_fields.
DATA lt_fields TYPE ddfields.
CALL FUNCTION 'DDIF_FIELDINFO_GET'
EXPORTING
tabname = '{{P}}SVCJOB'
langu = 'E'
TABLES
dfies_tab = lt_fields
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
cl_abap_unit_assert=>fail( msg = 'DDIC field information is not available' ).
ENDIF.
rt_fields = lt_fields.
ENDMETHOD.
METHOD check_type.
DATA lt_fields TYPE ddfields.
lt_fields = get_ddic_fields( ).
READ TABLE lt_fields INTO DATA(ls_field) WITH KEY fieldname = iv_name.
IF sy-subrc <> 0.
cl_abap_unit_assert=>fail( msg = |Field { iv_name } is missing| ).
ENDIF.
cl_abap_unit_assert=>assert_equals( exp = iv_inttype act = ls_field-inttype
msg = |Internal type of { iv_name }| ).
cl_abap_unit_assert=>assert_equals( exp = iv_leng act = CONV i( ls_field-leng )
msg = |Length of { iv_name }| ).
cl_abap_unit_assert=>assert_equals( exp = iv_decimals act = CONV i( ls_field-decimals )
msg = |Decimals of { iv_name }| ).
ENDMETHOD.
METHOD field_names.
DATA lt_fields TYPE ddfields.
DATA lt_expected TYPE STANDARD TABLE OF fieldname WITH EMPTY KEY.
lt_expected = VALUE #( ( 'CLIENT' ) ( 'JOB_ID' ) ( 'WORK_HOURS' )
( 'CALC_MODE' ) ( 'ORDER_NO' ) ( 'JOB_DATE' )
( 'PART_COUNT' ) ( 'JOB_GROUP' ) ( 'JOB_VALUE' ) ).
lt_fields = get_ddic_fields( ).
cl_abap_unit_assert=>assert_equals( exp = lines( lt_expected ) act = lines( lt_fields ) ).
LOOP AT lt_expected INTO DATA(lv_name).
READ TABLE lt_fields TRANSPORTING NO FIELDS WITH KEY fieldname = lv_name.
cl_abap_unit_assert=>assert_subrc( exp = 0 msg = |Field { lv_name } is missing| ).
ENDLOOP.
ENDMETHOD.
METHOD key_fields.
DATA lt_fields TYPE ddfields.
lt_fields = get_ddic_fields( ).
LOOP AT lt_fields INTO DATA(ls_field).
IF ls_field-fieldname = 'CLIENT' OR ls_field-fieldname = 'JOB_ID'.
cl_abap_unit_assert=>assert_equals( exp = 'X' act = ls_field-keyflag
msg = |Key flag of { ls_field-fieldname }| ).
ELSE.
cl_abap_unit_assert=>assert_initial( act = ls_field-keyflag
msg = |Key flag of { ls_field-fieldname }| ).
ENDIF.
ENDLOOP.
ENDMETHOD.
METHOD key_field_types.
check_type( iv_name = 'CLIENT' iv_inttype = 'C' iv_leng = 3 iv_decimals = 0 ).
check_type( iv_name = 'JOB_ID' iv_inttype = 'C' iv_leng = 10 iv_decimals = 0 ).
ENDMETHOD.
METHOD work_hours_field.
check_type( iv_name = 'WORK_HOURS' iv_inttype = 'P' iv_leng = 5 iv_decimals = 2 ).
ENDMETHOD.
METHOD calc_mode_field.
check_type( iv_name = 'CALC_MODE' iv_inttype = 'C' iv_leng = 2 iv_decimals = 0 ).
ENDMETHOD.
METHOD order_no_field.
check_type( iv_name = 'ORDER_NO' iv_inttype = 'C' iv_leng = 10 iv_decimals = 0 ).
ENDMETHOD.
METHOD job_date_field.
check_type( iv_name = 'JOB_DATE' iv_inttype = 'D' iv_leng = 8 iv_decimals = 0 ).
ENDMETHOD.
METHOD part_count_field.
check_type( iv_name = 'PART_COUNT' iv_inttype = 'I' iv_leng = 10 iv_decimals = 0 ).
ENDMETHOD.
METHOD job_group_field.
check_type( iv_name = 'JOB_GROUP' iv_inttype = 'C' iv_leng = 4 iv_decimals = 0 ).
ENDMETHOD.
METHOD job_value_field.
check_type( iv_name = 'JOB_VALUE' iv_inttype = 'P' iv_leng = 15 iv_decimals = 2 ).
ENDMETHOD.
METHOD insert_and_select.
DATA ls_job TYPE {{p}}svcjob.
ls_job-client = sy-mandt.
ls_job-job_id = 'J001'.
ls_job-work_hours = '12.50'.
ls_job-calc_mode = 'A1'.
ls_job-order_no = 'ORD123'.
ls_job-job_date = '20250101'.
ls_job-part_count = 5.
ls_job-job_group = 'GR01'.
ls_job-job_value = '1000.00'.
INSERT {{p}}svcjob FROM ls_job.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
SELECT SINGLE * FROM {{p}}svcjob WHERE job_id = 'J001' INTO @DATA(ls_read).
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-work_hours act = ls_read-work_hours ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-calc_mode act = ls_read-calc_mode ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-order_no act = ls_read-order_no ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-job_date act = ls_read-job_date ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-part_count act = ls_read-part_count ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-job_group act = ls_read-job_group ).
cl_abap_unit_assert=>assert_equals( exp = ls_job-job_value act = ls_read-job_value ).
ENDMETHOD.
METHOD duplicate_key.
DATA ls_job TYPE {{p}}svcjob.
ls_job-client = sy-mandt.
ls_job-job_id = 'J002'.
ls_job-work_hours = '1.00'.
ls_job-calc_mode = 'B2'.
ls_job-order_no = 'ORD456'.
ls_job-job_date = '20250102'.
ls_job-part_count = 1.
ls_job-job_group = 'GR02'.
ls_job-job_value = '50.00'.
INSERT {{p}}svcjob FROM ls_job.
cl_abap_unit_assert=>assert_subrc( exp = 0 ).
INSERT {{p}}svcjob FROM ls_job.
cl_abap_unit_assert=>assert_equals( exp = 4 act = sy-subrc ).
ENDMETHOD.
ENDCLASS.