New exceptions

Author: mbtools

src/zcl_http_agent.clas.abap

@@ -50,7 +50,9 @@ CLASS zcl_http_agent IMPLEMENTATION.
       WHEN cl_abap_typedescr=>typekind_char.
         request->set_cdata( |{ payload }| ).
       WHEN OTHERS.
-        zcx_error=>raise( |Unexpected payload type { payload_type->absolute_name }| ).
+        RAISE EXCEPTION TYPE zcx_error_text
+          EXPORTING
+            text = |Unexpected payload type { payload_type->absolute_name }|.
     ENDCASE.
 
   ENDMETHOD.
@@ -146,7 +148,10 @@ CLASS zcl_http_agent IMPLEMENTATION.
         IMPORTING
           code    = status_code
           message = message ).
-      zcx_error=>raise( |HTTP error: [{ status_code }] { message }| ).
+
+      RAISE EXCEPTION TYPE zcx_error_text
+        EXPORTING
+          text = |HTTP error: [{ status_code }] { message }|.
     ENDIF.
 
     result = lcl_http_response=>create( http_client ).

src/zcl_http_agent.clas.locals_imp.abap

@@ -70,7 +70,7 @@ CLASS lcl_http_response IMPLEMENTATION.
     TRY.
         result = zcl_ajson=>parse( zif_http_response~cdata( ) ).
       CATCH zcx_ajson_error INTO DATA(error).
-        zcx_error=>raise_with_text( error ).
+        RAISE EXCEPTION TYPE zcx_error_prev EXPORTING previous = error.
     ENDTRY.
 
   ENDMETHOD.

src/zcl_http_login_manager.clas.abap

@@ -22,6 +22,7 @@ CLASS zcl_http_login_manager DEFINITION
         !host         TYPE csequence
         !username     TYPE csequence
         !password     TYPE csequence
+        !is_basic     TYPE abap_bool DEFAULT abap_true
       RETURNING
         VALUE(result) TYPE string.
 
@@ -101,7 +102,13 @@ CLASS zcl_http_login_manager IMPLEMENTATION.
       RETURN.
     ENDIF.
 
-    result = |Basic { cl_http_utility=>encode_base64( |{ username }:{ password }| ) }|.
+    result = cl_http_utility=>encode_base64( |{ username }:{ password }| ).
+
+    IF is_basic = abap_true.
+      result = |Basic { result }|.
+    ELSE.
+      result = |Bearer { result }|.
+    ENDIF.
 
     append( host = host
             auth = result ).