SAP/abapGit
1
0
Fork 0
mirror of https://github.com/abapGit/abapGit.git synced 2025-04-30 03:36:32 +08:00
Code Issues Actions 1 Packages Projects Releases Wiki Activity

docs: SSL test program, show full error message

Browse Source
This commit is contained in:
Lars Hvam 2018-06-03 15:39:17 +02:00 committed by GitHub
parent 9cecd077da
commit 9dc998261f
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
docs/other-test-ssl.md
View File

@ -25,6 +25,7 @@ SELECTION-SCREEN END OF BLOCK proxy.
START-OF-SELECTION. START-OF-SELECTION.
PERFORM run USING p_url1. PERFORM run USING p_url1.
WRITE: /, '----', /.
PERFORM run USING p_url2. PERFORM run USING p_url2.
FORM run USING iv_url TYPE swc_value. 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, DATA: lv_code TYPE i,
lv_url TYPE string, lv_url TYPE string,
li_client TYPE REF TO if_http_client, li_client TYPE REF TO if_http_client,
lt_errors TYPE TABLE OF string,
lv_error_message TYPE string. lv_error_message TYPE string.
IF iv_url IS INITIAL. IF iv_url IS INITIAL.
@ -63,12 +65,15 @@ FORM run USING iv_url TYPE swc_value.
http_processing_failed = 3 http_processing_failed = 3
OTHERS = 4 ). OTHERS = 4 ).
IF sy-subrc <> 0. 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. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
li_client->get_last_error( li_client->get_last_error(
IMPORTING IMPORTING
message = lv_error_message ). 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'. WRITE: / 'Also check transaction SMICM -> Goto -> Trace File -> Display End'.
RETURN. RETURN.
ENDIF. ENDIF.