Unmanaged scenario-DELETE- basic example in RAP
Refer - Unmanaged scenario-create- basic example in RAP
Refer - Unmanaged scenario-UPDATE- basic example in RAP
Step 1: Change the API class and add logic for delete.
* While adding class definition
- go to main class select method definition and click on F2 to see parameters.
CLASS zcl_ab_stuh_12 DEFINITION
PUBLIC
FINAL
CREATE PUBLIC .
PUBLIC SECTION.
TYPES:
tt_create_student TYPE TABLE FOR CREATE ziv_ab_stuh_12,
tt_map_early TYPE RESPONSE FOR MAPPED EARLY ziv_ab_stuh_12,
tt_failed_early TYPE RESPONSE FOR FAILED EARLY ziv_ab_stuh_12,
tt_report_early TYPE RESPONSE FOR REPORTED EARLY ziv_ab_stuh_12,
tt_response_late TYPE RESPONSE FOR REPORTED LATE ziv_ab_stuh_12,
tt_keys_student TYPE TABLE FOR READ IMPORT ziv_ab_stuh_12\\student,
tt_result_student TYPE TABLE FOR READ RESULT ziv_ab_stuh_12\\student,
tt_update_student TYPE TABLE FOR UPDATE ziv_ab_stuh_12\\student,
tt_delete_student TYPE TABLE FOR DELETE ziv_ab_stuh_12\\student.
CLASS-METHODS: get_instance
RETURNING VALUE(r_instance)
TYPE REF TO zcl_ab_stuh_12,
create_student
IMPORTING
entities TYPE tt_create_student
CHANGING
mapped TYPE tt_map_early
failed TYPE tt_failed_early
reported TYPE tt_report_early,
get_next_id
RETURNING VALUE(rv_id) TYPE ziv_ab_stuh_12-StuId,
earlynumbering_create
IMPORTING entities TYPE tt_create_student
CHANGING mapped TYPE tt_map_early
failed TYPE tt_failed_early
reported TYPE tt_report_early
RAISING
cx_uuid_error,
save_data
CHANGING
reported TYPE tt_response_late,
read_student
IMPORTING
keys TYPE tt_keys_student
CHANGING
result TYPE tt_result_student
failed TYPE tt_failed_early
reported TYPE tt_report_early,
update
IMPORTING
entities TYPE tt_update_student
CHANGING
mapped TYPE tt_map_early
failed TYPE tt_failed_early
reported TYPE tt_report_early,
delete
IMPORTING
keys TYPE tt_delete_student
CHANGING
mapped TYPE tt_map_early
failed TYPE tt_failed_early
reported TYPE tt_report_early.
PROTECTED SECTION.
PRIVATE SECTION.
CLASS-DATA: mo_instance TYPE REF TO zcl_ab_stuh_12,
gt_student TYPE STANDARD TABLE OF ztl_ab_stuh_12, " WITH EMPTY KEY,
gs_student TYPE ztl_ab_stuh_12,
gs_mmaped TYPE tt_map_early,
gr_student_d TYPE RANGE OF ztl_ab_stuh_12-id.
ENDCLASS.
CLASS zcl_ab_stuh_12 IMPLEMENTATION.
METHOD get_instance.
mo_instance = r_instance = COND #( WHEN mo_instance IS BOUND
THEN mo_instance
ELSE NEW #( ) ).
ENDMETHOD.
METHOD get_next_id.
SELECT MAX( stu_id ) FROM ztl_ab_stuh_12 INTO @DATA(lv_id1).
rv_id = lv_id1 + 1.
ENDMETHOD.
METHOD earlynumbering_create.
DATA(ls_mapped) = gs_mmaped.
DATA(lv_id) = cl_uuid_factory=>create_system_uuid( )->create_uuid_x16( ).
DATA(lv_stuid) = get_next_id( ).
READ TABLE gt_student ASSIGNING FIELD-SYMBOL(<gs_student>) INDEX 1.
IF <gs_student> IS ASSIGNED.
<gs_student>-id = lv_stuid.
UNASSIGN <gs_student>.
ENDIF.
mapped-student = VALUE #(
FOR ls_entities IN entities WHERE ( id IS INITIAL )
(
%cid = ls_entities-%cid
%is_draft = ls_entities-%is_draft
Id = lv_id ) ) .
ENDMETHOD.
METHOD create_student.
gt_student = CORRESPONDING #( entities MAPPING FROM ENTITY ).
IF gt_student IS NOT INITIAL.
gt_student[ 1 ]-stu_id = get_next_id( ).
ENDIF.
LOOP AT entities ASSIGNING FIELD-SYMBOL(<ls_entities>).
mapped-student = VALUE #( (
%cid = <ls_entities>-%cid
%key = <ls_entities>-%key
%is_draft = <ls_entities>-%is_draft
) ) .
ENDLOOP.
ENDMETHOD.
METHOD save_data.
IF NOT gt_student[] IS INITIAL.
MODIFY ztl_ab_stuh_12 FROM TABLE @gt_student.
ENDIF.
IF NOT gr_student_d IS INITIAL.
DELETE FROM ztl_ab_stuh_12 WHERE id IN @gr_student_d.
ENDIF.
ENDMETHOD.
METHOD read_student.
SELECT * FROM ztl_ab_stuh_12
FOR ALL ENTRIES IN @keys
WHERE id = @keys-Id
INTO TABLE @DATA(lt_read_student).
result = CORRESPONDING #( lt_read_student MAPPING TO ENTITY ).
ENDMETHOD.
METHOD update.
DATA: lt_stu_update TYPE STANDARD TABLE OF ztl_ab_stuh_12,
lt_stu_update_x TYPE STANDARD TABLE OF zstr_up_stuh.
lt_stu_update = CORRESPONDING #( entities MAPPING FROM ENTITY ).
lt_stu_update_x = CORRESPONDING #( entities MAPPING FROM ENTITY USING CONTROL ).
IF NOT lt_stu_update IS INITIAL.
SELECT * FROM ztl_ab_stuh_12
FOR ALL ENTRIES IN @lt_stu_update
WHERE id = @lt_stu_update-Id
INTO TABLE @DATA(lt_stu_old).
ENDIF.
gt_student = VALUE #(
"FOR idx=1 idx <= lines( lt_stu_update )
LET
ls_control_flag = VALUE #( lt_stu_update_x[ 1 ] OPTIONAL )
ls_student_new = VALUE #( lt_stu_update[ 1 ] OPTIONAL )
ls_student_old = VALUE #( lt_stu_old[ id = ls_student_new-id ] OPTIONAL )
IN
(
id = ls_student_new-id
stu_id = COND #( WHEN ls_control_flag-stu_id IS NOT INITIAL
THEN ls_student_new-stu_id
ELSE ls_student_old-stu_id )
stu_name = COND #( WHEN ls_control_flag-stu_name IS NOT INITIAL
THEN ls_student_new-stu_name
ELSE ls_student_old-stu_name )
stu_age = COND #( WHEN ls_control_flag-stu_age IS NOT INITIAL
THEN ls_student_new-stu_age
ELSE ls_student_old-stu_age )
stu_course = COND #( WHEN ls_control_flag-stu_course IS NOT INITIAL
THEN ls_student_new-stu_course
ELSE ls_student_old-stu_course )
stu_cour_dur = COND #( WHEN ls_control_flag-stu_cour_dur IS NOT INITIAL
THEN ls_student_new-stu_cour_dur
ELSE ls_student_old-stu_cour_dur )
stu_status = COND #( WHEN ls_control_flag-stu_status IS NOT INITIAL
THEN ls_student_new-stu_status
ELSE ls_student_old-stu_status )
stu_gender = COND #( WHEN ls_control_flag-stu_gender IS NOT INITIAL
THEN ls_student_new-stu_gender
ELSE ls_student_old-stu_gender )
stu_gen_desc = COND #( WHEN ls_control_flag-stu_gen_desc IS NOT INITIAL
THEN ls_student_new-stu_gen_desc
ELSE ls_student_old-stu_gen_desc )
stu_dob = COND #( WHEN ls_control_flag-stu_dob IS NOT INITIAL
THEN ls_student_new-stu_dob
ELSE ls_student_old-stu_dob )
) ).
ENDMETHOD.
METHOD delete.
DATA: lt_stu_delete TYPE STANDARD TABLE OF ztl_ab_stuh_12.
lt_stu_delete = CORRESPONDING #( keys MAPPING FROM ENTITY ).
gr_student_d = VALUE #(
FOR ls_student IN lt_stu_delete
sign = 'I'
option = 'EQ'
( low = ls_student-id )
).
ENDMETHOD.
ENDCLASS.
Step 2: Call the methods in main class.
CLASS lhc_Student DEFINITION INHERITING FROM cl_abap_behavior_handler.
PRIVATE SECTION.
METHODS get_instance_authorizations FOR INSTANCE AUTHORIZATION
IMPORTING keys REQUEST requested_authorizations FOR Student RESULT result.
METHODS get_global_authorizations FOR GLOBAL AUTHORIZATION
IMPORTING REQUEST requested_authorizations FOR Student RESULT result.
METHODS create FOR MODIFY
IMPORTING entities FOR CREATE Student.
METHODS update FOR MODIFY
IMPORTING entities FOR UPDATE Student.
METHODS delete FOR MODIFY
IMPORTING keys FOR DELETE Student.
METHODS read FOR READ
IMPORTING keys FOR READ Student RESULT result.
METHODS lock FOR LOCK
IMPORTING keys FOR LOCK Student.
METHODS earlynumbering_create FOR NUMBERING
IMPORTING entities FOR CREATE Student.
ENDCLASS.
CLASS lhc_Student IMPLEMENTATION.
METHOD get_instance_authorizations.
ENDMETHOD.
METHOD get_global_authorizations.
ENDMETHOD.
METHOD create.
zcl_ab_stuh_12=>get_instance( )->create_student(
EXPORTING
entities = entities
CHANGING
failed = failed
mapped = mapped
reported = reported ).
ENDMETHOD.
METHOD update.
zcl_ab_stuh_12=>get_instance( )->update(
EXPORTING
entities = entities
CHANGING
mapped = mapped
failed = failed
reported = reported
).
ENDMETHOD.
METHOD delete.
zcl_ab_stuh_12=>get_instance( )->delete(
EXPORTING
keys = keys
CHANGING
mapped = mapped
failed = failed
reported = reported
).
ENDMETHOD.
METHOD read.
zcl_ab_stuh_12=>get_instance( )->read_student(
EXPORTING
keys = keys
CHANGING
result = result
failed = failed
reported = reported
).
ENDMETHOD.
METHOD lock.
ENDMETHOD.
METHOD earlynumbering_create.
TRY.
zcl_ab_stuh_12=>get_instance( )->earlynumbering_create(
EXPORTING
entities = entities
CHANGING
failed = failed
mapped = mapped
reported = reported ).
CATCH cx_uuid_error.
"handle exception
ENDTRY.
ENDMETHOD.
ENDCLASS.
CLASS lsc_ZIV_AB_STUH_12 DEFINITION INHERITING FROM cl_abap_behavior_saver.
PROTECTED SECTION.
METHODS finalize REDEFINITION.
METHODS check_before_save REDEFINITION.
METHODS save REDEFINITION.
METHODS cleanup REDEFINITION.
METHODS cleanup_finalize REDEFINITION.
ENDCLASS.
CLASS lsc_ZIV_AB_STUH_12 IMPLEMENTATION.
METHOD finalize.
ENDMETHOD.
METHOD check_before_save.
ENDMETHOD.
METHOD save.
zcl_ab_stuh_12=>get_instance( )->save_data(
CHANGING
reported = reported ).
ENDMETHOD.
METHOD cleanup.
ENDMETHOD.
METHOD cleanup_finalize.
ENDMETHOD.
ENDCLASS.
******************************Thank you*******************************
Comments
Post a Comment