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.

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.

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.

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.

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.

* 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.