| Class | Details/Code Snippet | +
CL_DEMO_CLASSRUN |
+
+As an alternative to using the IF_OO_ADT_CLASSRUN interface for displaying output in the console, you can also use the CL_DEMO_CLASSRUN class, which offers more methods.
+For more information, refer to this blog.
+The following example makes use of CL_DEMO_CLASSRUN class for output purposes. A structure and an internal table are displayed in the console. Note the automatic dereferencing of the component. Plus, the write_xml method is shown, which displays XML data.
++ +``` abap +CLASS zcl_some_class DEFINITION + INHERITING FROM cl_demo_classrun + PUBLIC + CREATE PUBLIC. + + PUBLIC SECTION. + METHODS main REDEFINITION. + PROTECTED SECTION. + PRIVATE SECTION. +ENDCLASS. + +CLASS zcl_some_class IMPLEMENTATION. + METHOD main. + TYPES: BEGIN OF s, + comp1 TYPE string, + comp2 TYPE i, + comp3 TYPE string_table, + comp4 TYPE REF TO string, + END OF s, + it_type TYPE TABLE OF s WITH EMPTY KEY. + + DATA(struct) = VALUE s( comp1 = `Hello` + comp2 = 1 + comp3 = VALUE #( ( `a` ) ( `b` ) ( `a` ) ( `p` ) ) + comp4 = NEW #( `world` ) ). + + DATA(itab) = VALUE it_type( ( struct ) + ( comp1 = `Hi` + comp2 = 2 + comp3 = VALUE #( ( `x` ) ( `y` ) ( `z` ) ) + comp4 = NEW #( `ABAP` ) ) ). + + out->write( struct ). + out->write( itab ). + + DATA(some_xml) = cl_abap_conv_codepage=>create_out( )->convert( + ` |
+
| Class | Details/Code Snippet | +
CL_ABAP_STRUCT_UTILITIES |
+
+Provides methods to get information about filled components in structures allowing an efficient processing of non-initial components of a structure.
+ + +``` abap +CLASS zcl_some_class DEFINITION + PUBLIC + FINAL + CREATE PUBLIC . + + PUBLIC SECTION. + INTERFACES if_oo_adt_classrun. + PRIVATE SECTION. +ENDCLASS. + +CLASS zcl_some_class IMPLEMENTATION. + METHOD if_oo_adt_classrun~main. + out->write( `---------- filled_components method ----------` ). + "It returns an internal table containing the names of the non-initial + "components of the structure and their index. + DATA: BEGIN OF struct, + a TYPE c LENGTH 1, + b TYPE i, + c TYPE zdemo_abap_carr, + d TYPE REF TO string, + END OF struct. + + struct = VALUE #( a = 'X' + b = 123 + c = VALUE #( carrid = 'LH' ) + d = NEW #( `ABAP` ) ). + + "Getting component information using RTTI + DATA(all_comps) = CAST cl_abap_structdescr( cl_abap_typedescr=>describe_by_data( struct ) )->components. + out->write( all_comps ). + + "Getting an internal table containing the names of non-initial components + "and their index + DATA(filled_comps) = cl_abap_struct_utilities=>filled_components( struct ). + out->write( filled_comps ). + + "In a loop, structure components are cleared. The filled_components method + "is called in each loop pass, visualizing the filled components in the + "structure. + DO lines( all_comps ) TIMES. + CLEAR struct-(sy-index). + filled_comps = cl_abap_struct_utilities=>filled_components( struct ). + out->write( filled_comps ). + ENDDO. + + out->write( `---------- filled_components_c method ----------` ). + "Same as above. All structure components must be typed with c LENGTH 1. + DATA: BEGIN OF struct_c1, + a TYPE c LENGTH 1 VALUE 'X', + b TYPE c LENGTH 1, + c TYPE c LENGTH 1 VALUE 'X', + END OF struct_c1. + + filled_comps = cl_abap_struct_utilities=>filled_components_c( struct_c1 ). + out->write( filled_comps ). + + out->write( `---------- filled_components_x method ----------` ). + "Same as above. All structure components must be typed with x LENGTH 1. + "It is especially useful for checking filled components of BDEF derived types, + "for example, %control. + DATA struc_der_type TYPE STRUCTURE FOR READ IMPORT zdemo_abap_rap_ro_m. + struc_der_type = VALUE #( %control = VALUE #( key_field = if_abap_behv=>mk-on + field1 = if_abap_behv=>mk-on + field2 = if_abap_behv=>mk-off + field3 = if_abap_behv=>mk-off + field4 = if_abap_behv=>mk-on ) ). + + filled_comps = cl_abap_struct_utilities=>filled_components_x( struc_der_type-%control ). + out->write( filled_comps ). + ENDMETHOD. +ENDCLASS. +``` + + |
+
XCO_XP_JSON |
+ XCO_CP_JSON |
Handling JSON data using the XCO library
@@ -1382,13 +1544,13 @@ DATA(host) = ui_url->get_host( ). DATA(port) = ui_url->get_port( ). "Global account ID -DATA(ui_urdld) = ten->get_global_account_id( )->as_string( ). +DATA(global_acc_id) = ten->get_global_account_id( )->as_string( ). "Guid -DATA(udld) = ten->get_guid( )->value. +DATA(guid) = ten->get_guid( )->value. "Id -DATA(uddld) = ten->get_id( ). +DATA(id) = ten->get_id( ). "Subaccount ID -DATA(uddsdld) = ten->get_subaccount_id( )->as_string( ). +DATA(sub_acc_id) = ten->get_subaccount_id( )->as_string( ). ``` |
@@ -1689,7 +1851,7 @@ ENDTRY.
-## Executing Code in Background
+## Running Code in the Background
CL_BGMC_PROCESS_FACTORY |
|
| Class | Details/Code Snippet | +
CL_ABAP_LOCK_OBJECT_FACTORY |
+
+For activating lock objects. Note that you can also use the DEQUEUE_ALL method to remove all locks in the current SAP LUW.
+The following example code snippet uses artifacts from the ABAP cheat sheet repository.
++ +``` abap +"Deleting demo database table +DELETE FROM zdemo_abap_rapt1. +"Creating a database table entry and reading it into a data reference variable +MODIFY zdemo_abap_rapt1 FROM @( VALUE #( key_field = 1 field1 = 'aaa' field2 = 'bbb' field3 = 2 field4 = 3 ) ). +SELECT SINGLE * FROM zdemo_abap_rapt1 WHERE key_field = 1 INTO NEW @DATA(key). + +TRY. + "Instantiating a lock object + DATA(lock) = cl_abap_lock_object_factory=>get_instance( iv_name = 'EZDEMO_ABAP_LOCK' ). + + "Enqueuing a lock object + "Note that there are various parameters. The parameter used in the example contains + "a list of lock fields including a reference to the parameter value. + lock->enqueue( it_parameter = VALUE #( ( name = 'KEY_FIELD' value = REF #( key->key_field ) ) ) ). + CATCH cx_abap_lock_failure cx_abap_foreign_lock INTO DATA(enq_error). +ENDTRY. + +TRY. + "Dequeuing a lock object + lock->dequeue( it_parameter = VALUE #( ( name = 'KEY_FIELD' value = REF #( key->key_field ) ) ) ). + CATCH cx_abap_lock_failure INTO DATA(deq_error). +ENDTRY. +``` + + |
+