Snapshot: new training tasks (balanced generation), docs
Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
6
tasks_gen/train/G1947/reference/svc_base.ddls.asddls
Normal file
6
tasks_gen/train/G1947/reference/svc_base.ddls.asddls
Normal file
@@ -0,0 +1,6 @@
|
||||
@EndUserText.label : 'Service job base fields'
|
||||
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
|
||||
define structure {{p}}svc_base {
|
||||
created_by : abap.char(12);
|
||||
created_on : abap.dats;
|
||||
}
|
||||
14
tasks_gen/train/G1947/reference/svc_job.ddls.asddls
Normal file
14
tasks_gen/train/G1947/reference/svc_job.ddls.asddls
Normal file
@@ -0,0 +1,14 @@
|
||||
@EndUserText.label : 'Service job line type'
|
||||
@AbapCatalog.enhancement.category : #NOT_EXTENSIBLE
|
||||
define structure {{p}}svc_job {
|
||||
created_by : abap.char(12);
|
||||
created_on : abap.dats;
|
||||
job_id : abap.char(10);
|
||||
work_hours : abap.dec(5,2);
|
||||
calc_mode : abap.char(2);
|
||||
order_ref : abap.char(12);
|
||||
service_date : abap.dats;
|
||||
part_count : abap.int4;
|
||||
group_code : abap.char(4);
|
||||
net_value : abap.dec(13,2);
|
||||
}
|
||||
55
tasks_gen/train/G1947/reference/svc_job_test.clas.abap
Normal file
55
tasks_gen/train/G1947/reference/svc_job_test.clas.abap
Normal file
@@ -0,0 +1,55 @@
|
||||
CLASS {{p}}svc_job_test DEFINITION PUBLIC FINAL CREATE PUBLIC
|
||||
FOR TESTING DURATION SHORT RISK LEVEL HARMLESS.
|
||||
PRIVATE SECTION.
|
||||
METHODS structure_exists FOR TESTING.
|
||||
METHODS field_count FOR TESTING.
|
||||
METHODS net_value_type FOR TESTING.
|
||||
METHODS base_created_by_type FOR TESTING.
|
||||
ENDCLASS.
|
||||
|
||||
|
||||
CLASS {{p}}svc_job_test IMPLEMENTATION.
|
||||
METHOD structure_exists.
|
||||
DATA lo_descr TYPE REF TO cl_abap_typedescr.
|
||||
TRY.
|
||||
lo_descr = cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
||||
CATCH cx_root.
|
||||
CLEAR lo_descr.
|
||||
ENDTRY.
|
||||
cl_abap_unit_assert=>assert_bound( act = lo_descr ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD field_count.
|
||||
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
||||
DATA lt_fields TYPE ddfields.
|
||||
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
||||
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
||||
DELETE lt_fields WHERE fieldname CP '.*'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = 10 act = lines( lt_fields ) ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD net_value_type.
|
||||
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
||||
DATA lt_fields TYPE ddfields.
|
||||
DATA ls_field TYPE dfies.
|
||||
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_JOB' ).
|
||||
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'NET_VALUE'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = `DEC`
|
||||
act = CONV string( ls_field-datatype ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 13 act = ls_field-leng ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 2 act = ls_field-decimals ).
|
||||
ENDMETHOD.
|
||||
|
||||
METHOD base_created_by_type.
|
||||
DATA lo_structdescr TYPE REF TO cl_abap_structdescr.
|
||||
DATA lt_fields TYPE ddfields.
|
||||
DATA ls_field TYPE dfies.
|
||||
lo_structdescr ?= cl_abap_typedescr=>describe_by_name( '{{P}}SVC_BASE' ).
|
||||
lt_fields = lo_structdescr->get_ddic_field_list( ).
|
||||
READ TABLE lt_fields INTO ls_field WITH KEY fieldname = 'CREATED_BY'.
|
||||
cl_abap_unit_assert=>assert_equals( exp = `CHAR`
|
||||
act = CONV string( ls_field-datatype ) ).
|
||||
cl_abap_unit_assert=>assert_equals( exp = 12 act = ls_field-leng ).
|
||||
ENDMETHOD.
|
||||
ENDCLASS.
|
||||
Reference in New Issue
Block a user