topic Re: archivelink in Application Development and Automation Discussions

archivelink

Former Member — Mon, 07 Sep 2009 14:53:29 GMT

Can you tell me the function to get a file from a ArchiveLink, I found only one feature that makes you view the file Meserve for us in other things and not watch

Re: archivelink

Former Member — Mon, 07 Sep 2009 15:09:10 GMT

helpppp

Re: archivelink

Former Member — Mon, 07 Sep 2009 15:22:04 GMT

I take a file based on certain controls ie attach it to an email only geese I have no idea how to remove an individual file!

Re: archivelink

Former Member — Mon, 07 Sep 2009 15:38:43 GMT

????'

Re: archivelink

Former Member — Tue, 08 Sep 2009 07:37:46 GMT

helppp

Re: archivelink

jaideepsharma — Tue, 08 Sep 2009 07:47:30 GMT

Hi,

You can use function module ARCHIVOBJECT_GET_TABLE to fetch the file from archive server.

KR Jaideep,

Re: archivelink

Former Member — Tue, 08 Sep 2009 08:02:25 GMT

this function that I come back? I simulated in se37 and returns a kind of binary code!!!

Re: archivelink

jaideepsharma — Tue, 08 Sep 2009 08:19:05 GMT

Hi,

Yes it returns binary code.

You can use the code below to convert it into desired format.

*---Local Variables declaration

    DATA: lv_temp         TYPE i,
          lv_last         TYPE i,
          lv_toa01        TYPE toa01,
          lv_lines        TYPE i,
          lv_offset       TYPE i,
          lv_buffer       TYPE xstring,
          lv_bus2081      TYPE toa01-sap_object VALUE 'BUS2081',
          lv_binlength    TYPE sapb-length,
          lv_object_id    TYPE toa01-object_id,
          lv_archiv_id    TYPE toa01-archiv_id,
          lv_ar_status    TYPE toaom-ar_status VALUE 'X',
          lv_arc_object   TYPE toa01-ar_object VALUE 'ZMMILOGINV',
          lv_doc_type_pdf TYPE toaom-doc_type  VALUE 'PDF',

*---Local Work Area declaration

    lwa_binarchivobject TYPE tbl1024,

*---Local Internal Table declaration

    li_binarchivobject TYPE TABLE OF tbl1024.


    CONCATENATE wa_rbkp-belnr wa_rbkp-gjahr INTO lv_object_id.

    CONDENSE lv_object_id.


*---Get content rep id

    SELECT SINGLE archiv_id FROM toaom INTO lv_archiv_id
      WHERE sap_object = lv_bus2081
      AND ar_object    = lv_arc_object
      AND ar_status    = lv_ar_status.

    IF sy-subrc NE 0. EXIT.  ENDIF.

*---Get connection info from link table

    SELECT SINGLE *
      FROM toa01
      INTO lv_toa01
     WHERE sap_object = lv_bus2081
       AND object_id  = lv_object_id
       AND archiv_id  = lv_archiv_id .

*---Populate the buffer string.

        LOOP AT li_binarchivobject INTO lwa_binarchivobject.
          CONCATENATE lv_buffer lwa_binarchivobject-line
                 INTO lv_buffer IN BYTE MODE .
        ENDLOOP.

Re: archivelink

jaideepsharma — Tue, 08 Sep 2009 08:19:37 GMT

*---Find the number of lines buffer string.

        lv_last = XSTRLEN( lv_buffer ) MOD 255.
        lv_lines = XSTRLEN( lv_buffer ).
        lv_lines = lv_lines / 255.

        DO lv_lines TIMES.
*---Check after adding 255 to the offset if length becomes more than
*---total length then don't add 255 instead add lv_last.
          lv_temp = lv_offset + 255.
          IF lv_temp GE lv_binlength.
            lwa_objhex-line = lv_buffer+lv_offset(lv_last).
            APPEND lwa_objhex TO li_objhex.
          ELSE.
            lwa_objhex-line = lv_buffer+lv_offset(255).
            APPEND lwa_objhex TO li_objhex.
            lv_offset = lv_offset + 255.
          ENDIF.
        ENDDO.

*---Populate Packing internal table from relevant information required
*---to send the attachment.

        CLEAR lv_temp.

        DESCRIBE TABLE li_objhex LINES lv_temp.
        READ TABLE li_objcont INTO lwa_objcont INDEX lv_temp.

        CLEAR lwa_objpack.
        lwa_objpack-head_start = c_1.
        lwa_objpack-head_num = c_0.
        lwa_objpack-body_start = c_1.
        lwa_objpack-body_num = lv_temp.
        lwa_objpack-doc_type = c_raw.
        APPEND lwa_objpack TO li_objpack.

        CLEAR lwa_objpack.

        CLEAR lwa_objpack-transf_bin.
        lwa_objpack-transf_bin = c_x.
        lwa_objpack-head_start = c_1.
        lwa_objpack-head_num = c_1.
        lwa_objpack-body_start = c_1.
        lwa_objpack-body_num = lv_temp.
        lwa_objpack-obj_name = c_invoice.

        CONCATENATE c_invoice wa_rbkp-belnr
               INTO lwa_objpack-obj_descr
       SEPARATED BY space.

        lwa_objpack-doc_size = lv_temp * 255.
        APPEND lwa_objpack TO li_objpack.

        CLEAR: lwa_objpack.

      ENDIF. "IF sy-subrc <> 0.

    ENDIF."IF sy-subrc <> 0.

*---Find the document type in which the image was stored in the archieve
*---server.

    CASE lv_toa01-reserve.
      WHEN c_fax.
        doc_type = c_tif.
        lwa_objpack-doc_type = c_fax.
      WHEN c_pdf.
        doc_type = c_pdf.
        lwa_objpack-doc_type = c_pdf.
    ENDCASE.

Modify it as per your requirement.

KR Jaideep,

Re: archivelink

Former Member — Tue, 08 Sep 2009 08:30:55 GMT

there is no way to get the names of the file so you just select the desired?

Re: archivelink

Former Member — Tue, 08 Sep 2009 08:38:18 GMT

lwa_objhex-line ??

li_objpack??

Re: archivelink

Former Member — Tue, 08 Sep 2009 08:48:54 GMT

how they should be declared

lwa_objhex

li_objpack

Edited by: francesco aiello on Sep 8, 2009 10:49 AM

Re: archivelink

jaideepsharma — Tue, 08 Sep 2009 08:53:48 GMT

Hi,

Declare them as

data: lwa_objhex TYPE solix,

li_objpack TYPE TABLE OF sopcklsti1.

KR Jaideep,

Re: archivelink

Former Member — Tue, 08 Sep 2009 09:10:30 GMT

could have the complete code?

Re: archivelink

Former Member — Tue, 08 Sep 2009 09:36:23 GMT

....................................

Re: archivelink

Former Member — Tue, 08 Sep 2009 09:42:10 GMT

help help help

Re: archivelink

Former Member — Tue, 08 Sep 2009 09:52:05 GMT

helppppppppppppppppppp

Re: archivelink

jaideepsharma — Tue, 08 Sep 2009 10:14:17 GMT

Hi,

I can't send you the entire code as it is too big. I have selected the code where I am fetching the document from archiver server and converting it into PDF or TIF document. What extra requirement do you have ? In case you are facing any problem with data declarations please let me know.

KR Jaideep,

Re: archivelink

Former Member — Tue, 08 Sep 2009 10:14:32 GMT

anyone can help me........

Re: archivelink

Former Member — Tue, 08 Sep 2009 11:42:42 GMT

help help