From 9dc998261f23413599cced6cb4af5e88c06a6a3f Mon Sep 17 00:00:00 2001 From: Lars Hvam Date: Sun, 3 Jun 2018 15:39:17 +0200 Subject: [PATCH] docs: SSL test program, show full error message --- docs/other-test-ssl.md | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/docs/other-test-ssl.md b/docs/other-test-ssl.md index e4f00dfdf..d75ad9c0b 100644 --- a/docs/other-test-ssl.md +++ b/docs/other-test-ssl.md @@ -25,6 +25,7 @@ SELECTION-SCREEN END OF BLOCK proxy. START-OF-SELECTION. PERFORM run USING p_url1. + WRITE: /, '----', /. PERFORM run USING p_url2. FORM run USING iv_url TYPE swc_value. @@ -32,6 +33,7 @@ FORM run USING iv_url TYPE swc_value. DATA: lv_code TYPE i, lv_url TYPE string, li_client TYPE REF TO if_http_client, + lt_errors TYPE TABLE OF string, lv_error_message TYPE string. IF iv_url IS INITIAL. @@ -63,12 +65,15 @@ FORM run USING iv_url TYPE swc_value. http_processing_failed = 3 OTHERS = 4 ). IF sy-subrc <> 0. - WRITE: / 'Error Number', sy-subrc. + WRITE: / 'Error Number', sy-subrc, /. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. li_client->get_last_error( IMPORTING message = lv_error_message ). - WRITE: / `Error message: ` && lv_error_message. + SPLIT lv_error_message AT cl_abap_char_utilities=>newline INTO TABLE lt_errors. + LOOP AT lt_errors INTO lv_error_message. + WRITE: / lv_error_message. + ENDLOOP. WRITE: / 'Also check transaction SMICM -> Goto -> Trace File -> Display End'. RETURN. ENDIF.