topic Re: paste code lines ??? in Application Development and Automation Discussions

paste code lines ???

joan_ayala — Wed, 20 May 2009 08:54:29 GMT

how could i paste a code block in a post ?

i cannot find the place where it is explained...

Re: paste code lines ???

Former Member — Wed, 20 May 2009 09:12:34 GMT

Your solution is here:

Re: paste code lines ???

joan_ayala — Wed, 20 May 2009 09:48:30 GMT

no, it didn't work...

look what happens:


DATA: invented type string.

CALL FUNCTION...

Re: paste code lines ???

joan_ayala — Wed, 20 May 2009 09:49:18 GMT


  CONCATENATE 'UPC' ordendpago INTO is_object-objkey
                    SEPARATED BY space.
* Indicamos el tipo de objeto URL
  is_object-objtype  = 'FMPSO'.
  rel_doc-objkey  = document_id.
  rel_doc-objtype = 'MESSAGE'.
* Creamos la relación entre la op y el objeto enlazado
  CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT'
       EXPORTING
            obj_rolea      = is_object
            obj_roleb      = rel_doc
            relationtype   = 'URL'
       EXCEPTIONS
            no_model       = 1
            internal_error = 2
            unknown        = 3
            OTHERS         = 4.


  DATA: lo_list   TYPE REF TO CL_GOS_ATTACHMENT_LIST,
        lt_output TYPE TRL_BRLNK,
        ls_output TYPE SRL_BRLNK,
        lo_bor_item TYPE REF TO CL_SREL_BOR_ITEM,
        lo_bor_browser TYPE REF TO CL_SREL_BROWSER_ITEM,
        ls_bor_obj  TYPE borident,
        ls_folderid TYPE soodk,
        ls_objectid TYPE soodk.

        CONCATENATE 'UPC' i_ops-lotkz INTO lv_objkey SEPARATED BY space.
        ls_object-objkey = lv_objkey.
        ls_object-objtype = 'FMPSO'.

        create object lo_list
          exporting
            is_object        = ls_object
            .
        IF sy-subrc <> 0.
        ENDIF.

        lt_output = lo_list->GO_LIST_VIEWER->gt_output.
*       in lt_output i have all the attachments for this document
        LOOP AT lt_output INTO ls_output.

          lo_bor_browser = ls_output-objref.
          lo_bor_item ?= lo_bor_browser.
          ls_bor_obj  = lo_bor_item->gs_bor_object.
          ls_folderid = ls_bor_obj-objkey(17).
          ls_objectid = ls_bor_obj-objkey+17(17).

          CALL FUNCTION 'SO_OBJECT_DELETE'
           EXPORTING
             folder_id                        = ls_folderid
*            FORWARDER                        = ' '
*            F_UNREAD_DELETE                  = ' '
             object_id                        = ls_objectid
*            OWNER                            = ' '
*            PUT_IN_WASTEBASKET               = 'X'
           EXCEPTIONS
             COMMUNICATION_FAILURE            = 1
             FOLDER_NOT_EMPTY                 = 2
             FOLDER_NOT_EXIST                 = 3
             FOLDER_NO_AUTHORIZATION          = 4
             FORWARDER_NOT_EXIST              = 5
             OBJECT_NOT_EXIST                 = 6
             OBJECT_NO_AUTHORIZATION          = 7
             OPERATION_NO_AUTHORIZATION       = 8
             OWNER_NOT_EXIST                  = 9
             SUBSTITUTE_NOT_ACTIVE            = 10
             SUBSTITUTE_NOT_DEFINED           = 11
             SYSTEM_FAILURE                   = 12
             X_ERROR                          = 13
             OTHERS                           = 14
                    .

Edited by: Joan Ayala on May 20, 2009 11:49 AM

Re: paste code lines ???

joan_ayala — Wed, 20 May 2009 09:50:45 GMT

maybe it didn't work this time because i have 2 code blocks...

Isn't that possible ?

Re: paste code lines ???

Former Member — Wed, 20 May 2009 09:55:06 GMT

Multiple code blocks should also work just fine.

Check for the limit of 2500 characters per post. Exceed that.. and everything goes for a toss.

 CONCATENATE 'UPC' ordendpago INTO is_object-objkey SEPARATED BY space. 
* Indicamos el tipo de objeto URL is_object-objtype = 'FMPSO'. 
rel_doc-objkey = document_id. 
rel_doc-objtype = 'MESSAGE'. 
* Creamos la relación entre la op y el objeto enlazado 
CALL FUNCTION 'BINARY_RELATION_CREATE_COMMIT' 
EXPORTING 
obj_rolea = is_object 
obj_roleb = rel_doc 
relationtype = 'URL' 
EXCEPTIONS 
no_model = 1 
internal_error = 2 
unknown = 3 
OTHERS = 4.

 DATA: lo_list TYPE REF TO CL_GOS_ATTACHMENT_LIST, 
lt_output TYPE TRL_BRLNK, 
ls_output TYPE SRL_BRLNK, 
lo_bor_item TYPE REF TO CL_SREL_BOR_ITEM, 
lo_bor_browser TYPE REF TO CL_SREL_BROWSER_ITEM, 
ls_bor_obj TYPE borident,

Edited by: kishan P on May 20, 2009 3:25 PM