Configuring HTTP Content Server (4) : ABAP code (1/2) : Read

[FredericGirod]

The goal of this doc, is to give some tools to access to file store using GOS & ArchiveLink

The big problem of GOS is: you could store documents in different places. You will need to use different method / functions to read the document depending of the location.

Lets take an example, a Sales Order :

At first you could think all the documents are stored in the same place, but it's not. A detail could give you this information quickly. There is no creator for object post on a HTTP Content Server.

1. Get the list of document store in the HTTP Content Server.

Code

DATA : lw_objecttype  TYPE saeanwdid ,         lw_object_id   TYPE saeobjid ,         lt_connections TYPE toav0_t . MOVE : '0000009122' TO lw_object_id ,        'VBAK'       TO lw_objecttype . CALL FUNCTION 'ARCHIV_GET_CONNECTIONS'    EXPORTING      objecttype    = lw_objecttype      object_id     = lw_object_id    TABLES      connections   = lt_connections    EXCEPTIONS      nothing_found = 1      OTHERS        = 2.

The result in debug is

5 documents store in the Content Repository Z1

1 document store in the Content Repository Z2

Sample code to read the content of the last file.

Code

DATA : lw_objecttype  TYPE saeanwdid ,         lw_object_id   TYPE saeobjid  ,         lw_file        TYPE string ,         lw_path        TYPE string ,         lw_fullpath    TYPE string ,         lw_doctype     TYPE saedoktyp ,         lw_length      TYPE num12 ,         lw_offset      TYPE num12 ,         lw_size        TYPE i ,         ls_connection  TYPE toav0 ,         lt_connections TYPE toav0_t ,         lt_data        TYPE tabl1024_t . MOVE : '0000009122' TO lw_object_id ,        'VBAK'       TO lw_objecttype . * Get the list of documents link to the Sales Order CALL FUNCTION 'ARCHIV_GET_CONNECTIONS'    EXPORTING      objecttype    = lw_objecttype      object_id     = lw_object_id    TABLES      connections   = lt_connections    EXCEPTIONS      nothing_found = 1      OTHERS        = 2. * Get the last entry. LOOP AT lt_connections       INTO ls_connection. ENDLOOP. * Change the type of the field for Document Type (=PDF) MOVE ls_connection-reserve TO lw_doctype. * Get the Content of the entry in Binary Mode (more simple for PDF) CALL FUNCTION 'ARCHIVOBJECT_GET_BYTES'    EXPORTING      archiv_id                = ls_connection-archiv_id      archiv_doc_id            = ls_connection-arc_doc_id      document_type            = lw_doctype      length                   = lw_length      offset                   = lw_offset    IMPORTING      binlength                = lw_length    TABLES      binarchivobject          = lt_data    EXCEPTIONS      error_archiv             = 1      error_communicationtable = 2      error_kernel             = 3      OTHERS                   = 4. CHECK sy-subrc EQ space. * Ask user for the name and the location of the file CALL METHOD cl_gui_frontend_services=>file_save_dialog    CHANGING      filename             = lw_file      path                 = lw_path      fullpath             = lw_fullpath    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      not_supported_by_gui = 3      OTHERS               = 4. MOVE lw_length TO lw_size. * Save the file. CALL METHOD cl_gui_frontend_services=>gui_download    EXPORTING      bin_filesize            = lw_size      filename                = lw_file      filetype                = 'BIN'    CHANGING      data_tab                = lt_data    EXCEPTIONS      OTHERS                  = 24.

2. Get the list of document store in the default SAP tables.

Code

DATA : w_file_type  TYPE fileformat ,         is_role      TYPE obl_s_rolt ,         is_object    TYPE sibflporb  ,         is_relation  TYPE obl_s_relt ,         it_objects   TYPE sibflporbt,         it_link_a    TYPE obl_t_link ,         it_roles     TYPE obl_t_rolt ,         it_relations TYPE obl_t_relt. * The object Key MOVE : '0000009122' TO is_object-instid ,         'BUS2032'    TO is_object-typeid ,         'BO'         TO is_object-catid . APPEND is_object TO it_objects. * The kind of object MOVE : 'I'          TO is_role-sign ,         'EQ'         TO is_role-option ,         'GOSAPPLOBJ' TO is_role-low. APPEND is_role TO it_roles. MOVE : 'I'          TO is_relation-sign ,         'EQ'         TO is_relation-option ,         'ATTA'       TO is_relation-low . APPEND is_relation TO it_relations. MOVE : 'BIN' TO w_file_type. * Extraction des liens. TRY.      CALL METHOD cl_binary_relation=>read_links_of_objects        EXPORTING          it_objects          = it_objects *       ip_logsys           =          it_role_options     = it_roles          it_relation_options = it_relations *       ip_no_buffer        = SPACE        IMPORTING          et_links_a          = it_link_a.    CATCH cx_obl_model_error .    CATCH cx_obl_parameter_error .    CATCH cx_obl_internal_error . ENDTRY.

The result in debug mode will be :

To read the data, we will used a SAP Office function. Because the file are stored in the SAP Office table SOO*

Code

DATA : lw_file_type  TYPE fileformat ,         lw_file       TYPE string ,         lw_path       TYPE string ,         lw_fullpath   TYPE string ,         lw_doc_id     TYPE so_entryid ,         ls_role      TYPE obl_s_rolt ,         ls_object    TYPE sibflporb  ,         ls_relation  TYPE obl_s_relt ,         ls_link_a    TYPE obl_s_link ,         ls_doc_data  TYPE sofolenti1 ,         lt_objects   TYPE sibflporbt ,         lt_link_a    TYPE obl_t_link ,         lt_roles     TYPE obl_t_rolt ,         lt_relations TYPE obl_t_relt ,         lt_content   TYPE TABLE OF solisti1  ,         lt_contentx  TYPE solix_tab. * The object Key MOVE : '0000009122' TO ls_object-instid ,         'BUS2032'    TO ls_object-typeid ,         'BO'         TO ls_object-catid . APPEND ls_object TO lt_objects. * The kind of object MOVE : 'I'          TO ls_role-sign ,         'EQ'         TO ls_role-option ,         'GOSAPPLOBJ' TO ls_role-low. APPEND ls_role TO lt_roles. MOVE : 'I'          TO ls_relation-sign ,         'EQ'         TO ls_relation-option ,         'ATTA'       TO ls_relation-low . APPEND ls_relation TO lt_relations. MOVE : 'BIN' TO lw_file_type. * Extraction des liens. TRY.      CALL METHOD cl_binary_relation=>read_links_of_objects        EXPORTING          it_objects          = lt_objects          it_role_options     = lt_roles          it_relation_options = lt_relations        IMPORTING          et_links_a          = lt_link_a.    CATCH cx_obl_model_error .    CATCH cx_obl_parameter_error .    CATCH cx_obl_internal_error . ENDTRY. LOOP AT lt_link_a       INTO ls_link_a. ENDLOOP. MOVE ls_link_a-instid_b TO lw_doc_id . CALL FUNCTION 'SO_DOCUMENT_READ_API1'    EXPORTING      document_id                = lw_doc_id    IMPORTING      document_data              = ls_doc_data    TABLES      object_content             = lt_content      contents_hex               = lt_contentx    EXCEPTIONS      document_id_not_exist      = 1      operation_no_authorization = 2      x_error                    = 3      OTHERS                     = 4. * Ask user for the name and the location of the file CALL METHOD cl_gui_frontend_services=>file_save_dialog    CHANGING      filename             = lw_file      path                 = lw_path      fullpath             = lw_fullpath    EXCEPTIONS      cntl_error           = 1      error_no_gui         = 2      not_supported_by_gui = 3      OTHERS               = 4. * Save the file. CALL METHOD cl_gui_frontend_services=>gui_download    EXPORTING *   bin_filesize = lw_size      filename     = lw_file      filetype     = 'BIN'    CHANGING      data_tab     = lt_contentx    EXCEPTIONS      OTHERS       = 24.