Estimated reading time: 1 min
Nugget-Zip-Datei: NUGG_ZHR_SCMS.zip
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 |
FUNCTION z_hr_scms_doc_to_xstring. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" REFERENCE(CREP_ID) TYPE SCMS_CREP *" REFERENCE(DOC_ID) TYPE SAEARDOID *" EXPORTING *" REFERENCE(XSTRING) TYPE XSTRING *" EXCEPTIONS *" ERROR_READING_DOC<a href="http://jukefox.de/wp-content/uploads/2017/02/NUGG_ZHR_SCMS.zip">NUGG_ZHR_SCMS</a> *" ERROR_CONVERTING_TO_XSTRING *"---------------------------------------------------------------------- *Testfall * lv_crep_id = 'ZDCOM'. * lv_doc_id = '56E5244F6C571600E10080000A70D818'. gv_crep_id = crep_id. gv_doc_id = doc_id. CALL FUNCTION 'SCMS_DOC_READ' EXPORTING stor_cat = ' ' crep_id = gv_crep_id doc_id = gv_doc_id * SIGNATURE = 'X' * SECURITY = ' ' TABLES access_info = gt_accessinf content_bin = gv_binary_tab EXCEPTIONS bad_storage_type = 1 bad_request = 2 unauthorized = 3 comp_not_found = 4 not_found = 5 forbidden = 6 conflict = 7 internal_server_error = 8 error_http = 9 error_signature = 10 error_config = 11 error_format = 12 error_parameter = 13 error = 14 OTHERS = 15. IF sy-subrc <> 0. RAISE error_reading_doc. ENDIF. READ TABLE gt_accessinf INTO gs_accessinf INDEX 1. gv_size = gs_accessinf-comp_size. CALL FUNCTION 'SCMS_BINARY_TO_XSTRING' EXPORTING input_length = gv_size IMPORTING buffer = gv_xstring TABLES binary_tab = gv_binary_tab EXCEPTIONS failed = 1 OTHERS = 2. IF sy-subrc <> 0. RAISE error_converting_to_xstring. ENDIF. xstring = gv_xstring. ENDFUNCTION. |
Views: 222