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

16
tasks_gen/train/G1912/reference/svcjob.tabl.asabap Normal file
View File

@@ -0,0 +1,16 @@
@EndUserText.label : 'Service job'
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
@AbapCatalog.tableCategory : #TRANSPARENT
@AbapCatalog.deliveryClass : #A
@AbapCatalog.dataMaintenance : #RESTRICTED
define table {{p}}svcjob {
key client : abap.clnt not null;
key job_id : abap.char(10) not null;
work_hours : abap.dec(5,2) not null;
calc_mode : abap.char(2) not null;
order_no : abap.char(10) not null;
job_date : abap.dats not null;
part_count : abap.int4 not null;
job_group : abap.char(4) not null;
job_value : abap.dec(15,2) not null;
}

139
tasks_gen/train/G1912/reference/svcjob_test.clas.abap Normal file
View File

@@ -0,0 +1,139 @@
CLASS {{p}}svcjob_test 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 field_types 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_test 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 ).
cl_abap_unit_assert=>assert_equals( exp = iv_leng act = CONV i( ls_field-leng ) ).
cl_abap_unit_assert=>assert_equals( exp = iv_decimals act = CONV i( ls_field-decimals ) ).
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 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 ).
check_type( iv_name = 'WORK_HOURS' iv_inttype = 'P' iv_leng = 5 iv_decimals = 2 ).
check_type( iv_name = 'CALC_MODE' iv_inttype = 'C' iv_leng = 2 iv_decimals = 0 ).
check_type( iv_name = 'ORDER_NO' iv_inttype = 'C' iv_leng = 10 iv_decimals = 0 ).
check_type( iv_name = 'JOB_DATE' iv_inttype = 'D' iv_leng = 8 iv_decimals = 0 ).
check_type( iv_name = 'PART_COUNT' iv_inttype = 'I' iv_leng = 10 iv_decimals = 0 ).
check_type( iv_name = 'JOB_GROUP' iv_inttype = 'C' iv_leng = 4 iv_decimals = 0 ).
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-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.