rammanohar.tiwari

Generic object services (GOS) - in Background - Part II

Ram Manohar Tiwari — Sat, 25 Mar 2006 10:22:07 GMT

This weblog is a sequel to my most successful weblog till date. [ was quoted in at least 2 Forum threads, only once by myself ;-) ]. Just trying to capitalize on it.

I tried to clarify a few points about attaching URL, Notes & documents in background using GOS basics in my earlier weblog.

Generic object services (GOS) - in Background .

However, I received a few queries from the readers who wanted the code for attaching documents in background [ Also for 4.6C ].

The code for it, might well have been discussed in the forums since my earlier weblog was published but I would like to present the code here for attaching documents like DOC, PDF, GIF etc. Last time I cheated my readers with 'only funda but no code' for document attachments.

The code from my earlier weblog was converted to suit 4.6C by one of my weblog readers [ Madeleine Kempka / Kempka Madeleine - I am not sure about the sequence of first & last name :-) ] and then I corrected a few problems with it for attaching PDF and other documents.

Points to remember:

For file attachments: Pass the file path on application server and also choose correct message type [ P_MSGTYP ] as per the file extension[e.g. PDF,DOC etc]. P_RELTYP should be 'ATTA'. Also file size should be calculated and passed while creating the message.
For URLs: P_RELTYP should be 'URL' & P_MSGTYP will be derived as 'URL'.
For Notes: P_RELTYP should be 'NOTE' & P_MSGTYP will be derived as 'RAW'.

Sample Code:

In case you find bugs in the code below...rememeber, it's just a sample...real one contains too many ;-)

REPORT  Z_RMTIWARI_ATTACH_DOC_TO_BO_46          .*---------------------------------------------------------------------** Function   : We need to maintain links between Business Object and*              the attachment.Attachment document is basiclally a*              business object of type 'MESSAGE'.In order to maintain*              links, first the attachment will be crated as Business*              Object of type 'MESSAGE' using Message.Create method.**              This program can be used to attach PC documents eg. PDF*              ,DOC,TXT,GIF etc. to a SAP Business Object e.g Purchase*              Order etc. You should pass the correct message type*              [ P_MSGTYP ] as per the file extension[e.g. PDF,DOC etc].**              The code below is suitable for 4.6C+, though you might*              like to use the commented code, instead, for 4.7+*---------------------------------------------------------------------** Include for BO macros  INCLUDE : &ltcntn01&gt.* Load class.*  CLASS CL_BINARY_RELATION definition load.  PARAMETERS:*  Object_a*   P_BOTYPE LIKE obl_s_pbor-typeid DEFAULT 'BUS2031', " e.g. 'BUS2012'*   P_BO_ID  LIKE OBL_S_PBOR-INSTID DEFAULT '0002029816',   P_BOTYPE LIKE borident-OBJTYPE DEFAULT 'BUS2031', " e.g. 'BUS2012'   P_BO_ID  LIKE borident-OBJKEY DEFAULT '0002029816',                                                    " Key e.g. PO No.*  Object_b   P_MSGTYP LIKE SOFM-DOCTP  DEFAULT 'PDF',   P_DOCTY  LIKE borident-OBJTYPE DEFAULT 'MESSAGE',*  Relationship   P_RELTYP  LIKE BRELTYP-RELTYPE DEFAULT 'ATTA',*  File Name   P_FNAME like rlgrap-filename Default '/usr/data/Test.pdf'.  types: BEGIN OF TY_MESSAGE_KEY,        FOLTP TYPE SO_FOL_TP,        FOLYR TYPE SO_FOL_YR,        FOLNO TYPE SO_FOL_NO,        DOCTP TYPE SO_DOC_TP,        DOCYR TYPE SO_DOC_YR,        DOCNO TYPE SO_DOC_NO,        FORTP TYPE SO_FOR_TP,        FORYR TYPE SO_FOR_YR,        FORNO TYPE SO_FOR_NO,       END OF TY_MESSAGE_KEY.  DATA : LV_MESSAGE_KEY type TY_MESSAGE_KEY.  DATA : LO_MESSAGE type SWC_OBJECT.  DATA : LT_DOC_CONTENT type standard table of SOLI-LINE                             with header line.*----------------------------------------------------------------------** First derive the Attachment's ( MESSAGE )document type.  P_DOCTY = 'MESSAGE'.  CASE P_RELTYP.*   In case of URls    WHEN 'URL'.      P_MSGTYP = 'URL'.*   In case of Notes / Private Notes    WHEN 'NOTE' OR 'PNOT'.      P_MSGTYP = 'RAW'.    WHEN 'ATTA'.*     Take given parameter e.g. 'DOC', 'PDF' etc.*     P_MSGTYP = 'EXT'.    WHEN OTHERS.*    ....exit    EXIT.  ENDCASE.*----------------------------------------------------------------** Create an initial instance of BO 'MESSAGE' - to call the* instance-independent method 'Create'.  swc_create_object LO_MESSAGE 'MESSAGE' LV_MESSAGE_KEY.* define container to pass the parameter values to the method call* in next step.  swc_container LT_MESSAGE_CONTAINER.* Populate container with parameters for method  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTTITLE' 'TestDocument'.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTLANGU' 'E'.  swc_set_element LT_MESSAGE_CONTAINER 'NO_DIALOG'     'X'.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTNAME'   P_DOCTY.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTTYPE'   P_MSGTYP.* In case of URLs..it should be concatenated with &KEY& in the begining.  CASE P_MSGTYP.  WHEN 'URL'.    LT_DOC_CONTENT = '&KEY&http://www.rmtiwari.com' .    append LT_DOC_CONTENT.* In case of Notes or Private Notes, get the data from files on appl* server or from wherever(? - remember background).  WHEN 'RAW'.    LT_DOC_CONTENT = 'Hi How r u?' .    append LT_DOC_CONTENT.* In case of PC File attachments  WHEN OTHERS.    OPEN DATASET P_FNAME FOR INPUT.    IF SY-subrc EQ 0.      DO.        READ DATASET P_FNAME INTO LT_DOC_CONTENT.        IF SY-subrc EQ 0.          append LT_DOC_CONTENT.        ELSE.          EXIT.        ENDIF.      ENDDO.      CLOSE DATASET P_FNAME.    ENDIF.  ENDCASE.* 'DocumentContent' is a multi-line element ( itab ).  swc_set_table LT_MESSAGE_CONTAINER 'DocumentContent' LT_DOC_CONTENT.* Size is required in case of File attachments  data : LV_DOC_SIZE type i.  data : L_FILE_LINES type i.  DESCRIBE TABLE LT_DOC_CONTENT LINES L_FILE_LINES.  READ TABLE LT_DOC_CONTENT INDEX L_FILE_LINES.  LV_DOC_SIZE = ( 255 * ( L_FILE_LINES - 1 ) ) +              STRLEN( LT_DOC_CONTENT ).  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTSIZE'   LV_DOC_SIZE .* Refresh to get the reference of create 'MESSAGE' object for attachment  swc_refresh_object LO_MESSAGE.  swc_call_method LO_MESSAGE 'CREATE' LT_MESSAGE_CONTAINER.* Get Key of new object  swc_get_object_key LO_MESSAGE LV_MESSAGE_KEY.* Now we have attachment as a business object instance. We can now* attach it to our main business object instance.* Create main BO object_a* data: LO_IS_OBJECT_A type SIBFLPORB.  "type SIBFLPORB is unknown, so I  data: LO_IS_OBJECT_A type BORIDENT.  LO_IS_OBJECT_A-OBJKEY = P_BO_ID.  LO_IS_OBJECT_A-OBJTYPE = P_BOTYPE.*  LO_IS_OBJECT_A-CATID  = 'BO'.* Create attachment BO object_b* data: LO_IS_OBJECT_B type SIBFLPORB.    "type SIBFLPORB is unknown  data: LO_IS_OBJECT_B type BORIDENT.  LO_IS_OBJECT_B-OBJKEY = LV_MESSAGE_KEY.  LO_IS_OBJECT_B-OBJTYPE = P_DOCTY.*  LO_IS_OBJECT_B-CATID  = 'BO'.*TRY.*CALL METHOD CL_BINARY_RELATION=&gtCREATE_LINK*  EXPORTING*    IS_OBJECT_A            = LO_IS_OBJECT_A*    IS_OBJECT_B            = LO_IS_OBJECT_B*    IP_RELTYPE             = P_RELTYP.call function 'BINARY_RELATION_CREATE'  EXPORTING    obj_rolea    = LO_IS_OBJECT_A    obj_roleb    = LO_IS_OBJECT_B    relationtype = P_RELTYP  EXCEPTIONS    others       = 1.* Check if everything OK...who cares!!commit work.

ABAP Utility: SAP to Google : View translated ABAP documentation online

Ram Manohar Tiwari — Wed, 01 Mar 2006 08:37:33 GMT

This is about a simple ABAP Utility . It will post ABAP object's documentation to Google, for the purpose of displaying translated text in your logon language or in English.

You can also use this weblog for extending workbench functionality.

The Problem :

Not sure if you've faced this problem but I found that quite a few of the function modules are not provided with English documentation - however documentation in German does exist for most of these.

Actually I made the problem afterwards. Frankly speaking, I didn't write this utility because I wanted to solve any problem. It was just for the fun !!

[ Now where is the fun part? - keep on reading, it's in The End ]

Benefits :

You can write a weblog on SDN about it.

It will extend the functionality of the ABAP workbench function[-code] "documentation"

, to get the documentation translated online using Google.

It translates into (other) logon language - if documentation exist in English.

Translates into English - if documentation exists only in German.

When no documentation exist at all then you can be sure about that immediately.

Processing :

You can run the report program directly from SE38 as well . But it will be good if you can embed the functionality in ABAP Workbench itself .

Implementation for BADI WB_PROCESS_FCODE -Method DISPATCH

: It calls the main utility program Z_RMTIWARI_ABAP_DOC_TRANSLATOR, whenever someone clicks on the 'Documentation' of ABAP Workbench Menu..

method IF_EX_WB_PROCESS_FCODE~DISPATCH . Data : lv_OBJECT type DOKHL-OBJECT. Data : lv_obj_id type DOKHL-ID. data : lv_langp type char5. data : lv_typ type c. data : lt_dokil type standard table of dokil. data : wa_dokil type dokil.

*P_OK_CODE Check P_OK_CODE eq 'WB_DOCUMENTATION'. break-point. IF sy-tcode eq 'SE37'. get parameter id 'LIB' field lv_OBJECT. lv_obj_id = 'FU'. lv_typ = 'T'.

ELSEIF sy-tcode eq 'SE38'. get parameter id 'RID' field lv_OBJECT. lv_obj_id = 'RE'. lv_typ = 'E'.

ELSE.

Not implemented as yet

ENDIF.

select * into table lt_dokil from DOKIL where ID eq lv_obj_id and OBJECT eq lv_OBJECT and TYP eq lv_typ.

check sy-subrc eq 0.

READ TABLE lt_dokil into wa_dokil with key langu = sy-langu.

check sy-subrc ne 0.

READ TABLE lt_dokil into wa_dokil with key langu = 'E'.

if sy-subrc eq 0 .

Translate from english to logon language

concatenate 'en|' sy-langu into lv_langp.

else.

Get German and translate to English.

lv_langp = 'de|en'.

endif.

SUBMIT Z_RMTIWARI_ABAP_DOC_TRANSLATOR AND RETURN WITH P_ID = lv_obj_id WITH P_OBJECT = lv_object WITH P_LANGP = lv_langp.

endmethod.

Program Z_RMTIWARI_ABAP_DOC_TRANSLATOR :

The program accepts inputs for the function module name & the language pair in. It simply gets the available documentation of the object and then generates the HTML code for Google translation FORM. The HTML Page gets downloaded to ‘C:\Temp’ folder on your PC and subsequently called by the program in your default browser.

REPORT Z_RMTIWARI_ABAP_DOC_TRANSLATOR . ----

ABAP Document Translator - using Google - Date - 18.02.2006

----

Written By: Ram Manohar Tiwari

----

Presented By: http://www.rmtiwari.com

----

This utility will accept ABAP documentation objects and will submit
the text to google in order to translate it from one language to
other.

This utility is useful for translating the function module and other
ABAP Object's documenations from German to English, in case it is
only available in German.

You can also translate the documentation from english to any other
(available) language,in case, for you, English is as good as German.

*----

This utility is developed on MiniSAP .

*----

SELECTION SCREEN

*----

SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001. PARAMETERS : P_ID LIKE DOKHL-ID DEFAULT 'FU' OBLIGATORY, P_LANGU LIKE SY-LANGU DEFAULT 'D' NO-DISPLAY, P_OBJECT LIKE DOKHL-OBJECT OBLIGATORY, P_LANGP TYPE CHAR5 default 'de|en' OBLIGATORY. SELECTION-SCREEN END OF BLOCK b1 .

SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE text-002.

SELECTION-SCREEN BEGIN OF LINE. PARAMETERS: P_OUTDIR LIKE rlgrap-filename obligatory default 'C:\temp'. SELECTION-SCREEN END OF LINE. SELECTION-SCREEN END OF BLOCK B2.

----

Data declaration

----
data : gv_directory LIKE rlgrap-filename, gv_file_name TYPE STRING, gv_html_file_name(100) TYPE C.

data : lt_doc_text type standard table of TLINE with header line.

DATA : BEGIN OF gt_html OCCURS 0, rec(200) TYPE c, END OF gt_html.

DATA : gv_html_wa like line of gt_html.

----
DATA: begin of lt_VALUETAB occurs 0, P_LANGP type char5, DESC type char100, end of lt_VALUETAB .

data : lt_return_tab type standard table of DDSHRETVAL with header line. data : lv_prog type sy-repid, lv_dynnr type sy-dynnr.

AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_LANGP.

CLEAR lt_valuetab. REFRESH lt_valuetab.

lv_prog = sy-repid. lv_dynnr = sy-dynnr.

lt_valuetab-P_LANGP = 'de|en'. lt_valuetab-DESC = 'German to English'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'de|fr'. lt_valuetab-DESC = 'German to French'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|de'. lt_valuetab-DESC = 'English to German'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|es'. lt_valuetab-DESC = 'English to Spanish'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|fr'. lt_valuetab-DESC = 'English to French'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|it'. lt_valuetab-DESC = 'English to Italian'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|pt'. lt_valuetab-DESC = 'English to Portuguese'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|ja'. lt_valuetab-DESC = 'English to Japanese BETA'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|ko'. lt_valuetab-DESC = 'English to Korean BETA'. APPEND lt_valuetab.

lt_valuetab-P_LANGP = 'en|cn'. lt_valuetab-DESC = 'English to Chinese(Simplified) BETA'. APPEND lt_valuetab.

Call the help value screen

CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST' EXPORTING retfield = 'P_LANGP' dynpprog = lv_prog dynpnr = lv_dynnr dynprofield = 'P_LANGP' value_org = 'S' TABLES value_tab = lt_VALUETAB RETURN_TAB = lt_return_tab EXCEPTIONS parameter_error = 1 no_values_found = 2 OTHERS = 3. IF sy-subrc <> 0.

ENDIF.

START-OF-SELECTION.

P_LANGU = P_LANGP(1).

Get the document text

CALL FUNCTION 'DOCU_GET' EXPORTING

EXTEND_EXCEPT = ' '

ID = P_ID LANGU = P_LANGU OBJECT = P_OBJECT

TYP = 'E'
VERSION = 0
VERSION_ACTIVE_OR_LAST = 'L'
PRINT_PARAM_GET = 'X'
IMPORTING
DOKSTATE =
DOKTITLE =
HEAD =
DOKTYP =

TABLES LINE = lt_doc_text EXCEPTIONS NO_DOCU_ON_SCREEN = 1 NO_DOCU_SELF_DEF = 2 NO_DOCU_TEMP = 3 RET_CODE = 4 OTHERS = 5 . IF SY-SUBRC <> 0. MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDIF.

Create the google html form for the document text.

PERFORM convert_doc_to_html TABLES lt_doc_text gt_html.

Concatenate 'Trans_' P_OBJECT '.html' into gv_html_file_name.

PERFORM prepare_file_name USING p_outdir gv_html_file_name CHANGING gv_file_name.

PERFORM download_html_file_on_pc tables gt_html using gv_file_name.

PERFORM show_html_file using gv_file_name.

END-OF-SELECTION.

&----
*& Form prepare_file_name &----

text

----

-->x_directory text
-->x_program_name text
-->y_file_name text

----
FORM prepare_file_name USING x_directory x_file CHANGING y_file_name.

CONCATENATE x_directory '\' x_file into y_file_name.

ENDFORM. " prepare_file_name &----
*& Form download_html_file_on_pc &----

text

----

--> p1 text
<-- p2 text

----
FORM download_html_file_on_pc tables yt_download using x_outfile type string.

Use gui_download if file is located on the local PC.
WS_download only works in foreground

IF sy-batch EQ 'X'. MESSAGE e001(AQ) WITH 'This program cannot be executed in background'.

ERROR: Unable to download locally stored files when running in
background

ELSE.

CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING FILENAME = x_outfile FILETYPE = 'ASC' TABLES DATA_TAB = yt_download EXCEPTIONS FILE_WRITE_ERROR = 1 NO_BATCH = 2 GUI_REFUSE_FILETRANSFER = 3 INVALID_TYPE = 4 NO_AUTHORITY = 5 UNKNOWN_ERROR = 6 HEADER_NOT_ALLOWED = 7 SEPARATOR_NOT_ALLOWED = 8 FILESIZE_NOT_ALLOWED = 9 HEADER_TOO_LONG = 10 DP_ERROR_CREATE = 11 DP_ERROR_SEND = 12 DP_ERROR_WRITE = 13 UNKNOWN_DP_ERROR = 14 ACCESS_DENIED = 15 DP_OUT_OF_MEMORY = 16 DISK_FULL = 17 DP_TIMEOUT = 18 FILE_NOT_FOUND = 19 DATAPROVIDER_EXCEPTION = 20 CONTROL_FLUSH_ERROR = 21 OTHERS = 22.

Status of download

CASE sy-subrc. WHEN 0. MESSAGE I002(AQ) WITH 'HTML page downloaded as ' x_outfile.

WHEN OTHERS.

Upload unsuccessful - error message

MESSAGE ID SY-MSGID TYPE 'E' NUMBER SY-MSGNO WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4. ENDCASE. ENDIF.

ENDFORM. " download_html_file_on_pc &----
*& Form convert_code_to_html &----

text

----

-->P_GT_REP_TABLE text
-->P_GT_HTML text

----
FORM convert_doc_to_html TABLES xt_REP_TABLE structure TLINE yt_HTML.

DEFINE add_html. yt_html = &1. APPEND yt_html.

END-OF-DEFINITION.

Add Header to HTML

add_html '' into lv_langp_html. endif.

Remove the space in < /textarea> - this is for SDN weblog

add_html '< /textarea>'.
add_html lv_langp_html.
add_html ''.

Close HTML Tags

add_html '</BODY>'. add_html '</HTML>'.

ENDFORM. " convert_code_to_html &----
*& Form show_html_file &----

text

----

-->X_FILE_NAME text

----
FORM show_html_file USING X_FILE_NAME.

data : lv_url(200) type c.

lv_url = x_file_name. CALL FUNCTION 'CALL_BROWSER' EXPORTING URL = lv_url.

ENDFORM. " show_html_file

The Result:

For example : You can open a function module say ABAP_DOCU_SHOW using transaction SE37 . Further click on Menu Function .

Since the BADI is implemented for function code 'documentation', the utility will be called and Google translated text from German to English will be shown in your default browser.

Also there seems to be some problem with the google translation and it does not respect end-of-sentence or line-breaks http://www.worldlingo.com/ could have done better . That makes the translated text look like some kind of garbage. Also, there seems to be some encoding related issue. But that should not be very difficult to resolve. </P>

ABAP Utility : Print-Screen to HTML

Ram Manohar Tiwari — Sun, 29 Jan 2006 02:03:08 GMT

The Problem

: I need to develop a tutorial to be published on my personal website. Unfortunately, my personal website being free-hosted, can't afford heavy images generated using print-screen for Z transactions. It should work on MiniSAP - SAP Release 6.10 (Basis/ABA) [ Who cares

about the rest of the world ]

Other Benefits : Unlike print-screen

HTML pages are scrollable and light.
Also there will not be any resolution related problems as in case of images.
Users can cut & paste the data from HTML Screen , if required.
The downloaded SCREEN-HTML can be used for documentation
purpose and for sharing it over the web.
At times SAP Users demand for exact Print of Screens
rather than a List. This utility, being generic, can be
used to enable PRINT facility for simple transactions.

Requirement

: The attempt is to provide "Print-Screen to HTML" functionality for simple SAP Transaction Screens . This function module can be called at 'Print' command for the current screen. It will generate a HTML file to display simple SAP Transaction screens ( Fields with Contents ) as HTML. The functionality should be generic in nature and re-usable for other transactions.

Processing :

The function module Z_RMTIWARI_PRINTSCREEN_TO_HTML is called, in the PAI of the screen to be printed,
at command for 'Print'.

CASE sy-ucomm. *....... WHEN 'PRINT'. data : lv_program type sy-repid, lv_dynnr type sy-dynnr.

lv_program = sy-repid. lv_dynnr = sy-dynnr.

CALL FUNCTION 'Z_RMTIWARI_PRINTSCREEN_TO_HTML' EXPORTING PROGRAM = lv_program DYNPRO = lv_dynnr.

.......

ENDCASE.

This FM 'Z_RMTIWARI_PRINTSCREEN_TO_HTML'
first generates HTML code for a blank
screen-display of current screen. This is achieved by
submitting a program Z_RMTIWARI_PRINTSCREEN_TO_HTML
which in turn calls FM 'RS_SCRP_PRINT_IN_LIST'
for the transaction screen. The program generates a
spool for a simple list of the blank Screen [ Only the field name
and blank input/output fields ].
This list will be read using FM LIST_FROM_MEMORY. Further, it will be converted into HTML.
Also the field-values needs to
be supplemented in the subsequent processing.
FM 'WWW_HTML_FROM_LISTOBJECT' is used to convert List to
HTML and further actual field values, retrieved using
'DYNP_VALUES_READ', are imposed on the generated
HTML and downloaded to the local folder. The final HTML file displays a screen similar to
SAPGui Xn screen including the field values.

Result :

It seems IFRAMEs can't be used here. Also, I tried pasting the html code directly but SDN's weblog is not able to show it properly. So no other go...

Check this link to see the result page:
Result Screen

Function Module :

FUNCTION Z_RMTIWARI_PRINTSCREEN_TO_HTML. *"----

""Local interface: *" IMPORTING *" REFERENCE(PROGRAM) TYPE SY-REPID *" REFERENCE(DYNPRO) TYPE SY-DYNNR *" EXCEPTIONS *" DOWNLOAD_ERROR *"----

Written By : Ram Manohar Tiwari

Problem : I need to develop a tutorial to be published on my
personal website. Unfortunately my personal website
being free-hosted, can't afford heavy images created
using print-screen for Z transactions.

Function : The attempt is to provide
"Print-Screen to HTML" functionality for simple SAP
Transaction Screens .
This function module can be called
at 'Print' command for the current screen.
It will generate a HTML file to display simple SAP
Transaction screens ( Fields with Contents ) as HTML.
The functionality should be generic in nature and
re-usable for other transactions.

Other Benifits : Unlike print-screen the HTML pages are scrollable and
light. Also there will not be any resolution related
problems as in case of images. Further, users can
cut & paste the data from HTML Screen , if required.
The downloaded SCREEN-HTML can be used for documentation
purpose and for sharing it over the web.
At times SAP Users demand for exact Print of Screens
rather than a List. This utility, being generic, can be
used to enable PRINT facility for simple transactions.

Processing : This FM first generates HTML code for a blank
screen-display of current screen. This is achieved by
submitting a program Z_RMTIWARI_PRINTSCREEN_TO_HTML
which in turn calls FM 'RS_SCRP_PRINT_IN_LIST'
for the transaction screen. This program generates a
simple list for the blank Screen [ Only the field name
and blank input/output fields ]. Further this list
requires to be converted into HTML and values needs to
be supplemented in the subsequent processing.
FM 'WWW_HTML_FROM_LISTOBJECT' is used to convert List to
HTML and further actual field values, retrived using
'DYNP_VALUES_READ', are imposed on the generated
HTML. The final HTML file displays a screen similar to
SAPGui Xn screen including the field values.

*"----

DATA: lv_dynpname TYPE TSTC-PGMNA, lv_dynpnumb TYPE TSTC-DYPNO.

DATA: BEGIN OF lt_dynpvaluetab OCCURS 1. INCLUDE STRUCTURE dynpread. DATA: END OF lt_dynpvaluetab.

DATA: lt_dyn_fields TYPE standard table of RSDCF with header line, lt_lines TYPE standard table of TLINE with header line.

DATA: lt_abap_list LIKE abaplist OCCURS 1. DATA: BEGIN OF lt_html_tab OCCURS 0. INCLUDE STRUCTURE w3html. DATA: END OF lt_html_tab. DATA: lv_html_tab_wide(50000) type c.

DATA: BEGIN OF lt_html_tab_str OCCURS 0, line type string. DATA: END OF lt_html_tab_str. DATA: lt_icontab(32) OCCURS 10 WITH HEADER LINE. ----
TYPE-POOLS: sbdst.

DATA: lineno TYPE i, length TYPE i, size TYPE i. DATA: icon_wa TYPE icon, internal TYPE icon-internal, existing TYPE c. DATA: my_bds TYPE REF TO cl_bds_document_set, key TYPE sbdst_object_key, files TYPE sbdst_files, wa TYPE bapifiles. data: filename type string, filefilter type string, path type string, fullpath type string. data: user_action type i. data: cur_guicopdepage(4) type n.

----

Get Data Fields of current Screen.

lv_dynpname = program. lv_dynpnumb = dynpro.

CALL FUNCTION 'DYNPRO_FIELD_GET' EXPORTING DYNPRO = lv_dynpnumb PROGRAM = lv_dynpname TABLES DYNP_FIELDS = lt_dyn_fields LINES = lt_lines EXCEPTIONS DYNPRO_NOT_FOUND = 1 OTHERS = 2. IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

REFRESH lt_dynpvaluetab. LOOP AT lt_dyn_fields. check not lt_dyn_fields-fldname is initial. lt_dynpvaluetab-fieldname = lt_dyn_fields-DYNPRO_FLD. APPEND lt_dynpvaluetab. ENDLOOP.

DATA: lv_dynpname1 TYPE D020S-PROG, lv_dynpnumb1 TYPE D020S-DNUM. . lv_dynpname1 = program. lv_dynpnumb1 = dynpro. .

Read values of data-fields on the current screen.

CALL FUNCTION 'DYNP_VALUES_READ' EXPORTING dyname = lv_dynpname1 dynumb = lv_dynpnumb1 TABLES dynpfields = lt_dynpvaluetab EXCEPTIONS invalid_abapworkarea = 1 invalid_dynprofield = 2 invalid_dynproname = 3 invalid_dynpronummer = 4 invalid_request = 5 no_fielddescription = 6 invalid_parameter = 7 undefind_error = 8 double_conversion = 9 OTHERS = 10. IF sy-subrc = 0.

ENDIF.

Call program and then get the list from memory.
This program generates a simple list for the blank Screen
.
Further values needs to be supplemented in the subsequent
processing.

SUBMIT Z_RMTIWARI_PRINTSCREEN_TO_HTML AND RETURN WITH P_PROG eq program WITH P_DYNNR eq DYNPRO EXPORTING LIST TO MEMORY.

CALL FUNCTION 'LIST_FROM_MEMORY' TABLES LISTOBJECT = lt_abap_list

EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2

. IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

CALL FUNCTION 'WWW_HTML_FROM_LISTOBJECT' EXPORTING

REPORT_NAME =

template_name = 'WEBREPORTING_REPORT' TABLES html = lt_html_tab listobject = lt_abap_list listicons = lt_icontab.

for UNICODE Systems we need a new type of DOWNLOAD: table-lines of
html_table must be downloaded without end-marks or blanks between the
lines (still to be developed!, the same problem as with EBCDIC)

DESCRIBE TABLE lt_html_tab LINES lineno . DESCRIBE FIELD lt_html_tab LENGTH length in byte mode. size = length * lineno.

data : lv_row type sy-tabix, lv_text_pos type sy-fdpos. field-symbols : type any. data : lv_count type i, lv_char type c, lv_replace_str(200) type C, lv_field_length type i, lv_value_length type i.

LOOP AT lt_html_tab. TRANSLATE lt_html_tab using ' *'. CONCATENATE lv_html_tab_wide lt_html_tab into lv_html_tab_wide.

ENDLOOP.

lt_html_tab_wide[] = lt_html_tab[].

TRANSLATE lv_html_tab_wide using '* '.

Step below is to overwrite the blank input / outputs fields
retrived in the last step with actual runtime values of those
fields.

LOOP AT lt_dynpvaluetab. READ TABLE lt_dyn_fields with key DYNPRO_FLD = lt_dynpvaluetab-FIELDNAME. check sy-subrc eq 0.

SEARCH lv_html_tab_wide FOR lt_dyn_fields-stxt1 . check sy-subrc eq 0. lv_row = 1. "sy-tabix. lv_text_pos = sy-fdpos.

READ TABLE lt_html_tab_wide index lv_row.
check sy-subrc eq 0.

search lv_html_tab_wide FOR '_' . "STARTING AT lv_text_pos. check sy-subrc eq 0.

assign (lt_dynpvaluetab-FIELDNAME) to <fs>.
<fs> = lt_dynpvaluetab-FIELDVALUE.

CONDENSE lt_dynpvaluetab-FIELDVALUE. lv_count = sy-fdpos. clear lv_replace_str. DO 50 times. if lv_count eq 50000. exit. endif. lv_char = lv_html_tab_wide+lv_count(1). if lv_char eq '_'. lv_count = lv_count + 1. concatenate '_' lv_replace_str into lv_replace_str . else. EXIT. ENDIF. ENDDO.

IF lt_dynpvaluetab-FIELDVALUE CO ' 0123456789'. lv_field_length = strlen( lv_replace_str ). lv_value_length = strlen( lt_dynpvaluetab-FIELDVALUE ).

if lv_field_length ne lv_value_length. lv_field_length = ( lv_field_length - lv_value_length ). DO lv_field_length times. CONCATENATE '0' lt_dynpvaluetab-FIELDVALUE into lt_dynpvaluetab-FIELDVALUE. ENDDO. endif. endif.

REPLACE lv_replace_str IN lv_html_tab_wide with lt_dynpvaluetab-FIELDVALUE.

REPLACE ALL occurrences OF '_' in lt_html_tab
with ' '.

REPLACE SECTION OFFSET sy-fdpos length 1 OF lt_html_tab

WITH lt_dynpvaluetab-FIELDVALUE.
check sy-subrc eq 0.
MODIFY lt_html_tab_wide index lv_row.

ENDLOOP.

REFRESH lt_html_tab[].

DESCRIBE TABLE lt_html_tab_wide LINES lineno .
DESCRIBE FIELD lt_html_tab_wide LENGTH length in byte mode.
size = length * lineno.

For the time-being limit of downloaded file size is set to 20000.

CALL FUNCTION 'IQAPI_WORD_WRAP' EXPORTING TEXTLINE = lv_html_tab_wide

DELIMITER = ' '

OUTPUTLEN = 255

IMPORTING
OUT_LINE1 =
OUT_LINE2 =
OUT_LINE3 =

TABLES OUT_LINES = lt_html_tab

EXCEPTIONS
OUTPUTLEN_TOO_LARGE = 1
OTHERS = 2

. IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

size = 20000.
data : lv_pos1 type i.
DO 80 times.
lt_html_tab = lv_html_tab_wide+lv_pos1(255).
lv_pos1 = lv_pos1 + 255.
APPEND lt_html_tab.

SEARCH lt_html_tab for '</html>'.
if sy-subrc eq 0.
exit.
endif.
ENDDO.

Save HTML File

concatenate text-ht1 '|' into filefilter. call method CL_GUI_FRONTEND_SERVICES=>FILE_SAVE_DIALOG EXPORTING file_filter = filefilter CHANGING filename = filename path = path fullpath = fullpath user_action = user_action.

if user_action = CL_GUI_FRONTEND_SERVICES=>ACTION_OK. call 'CUR_LCL' id 'GUICP' field cur_guicopdepage. loop at lt_html_tab. call function 'SCP_TRANSLATE_CHARS' EXPORTING inbuff = lt_html_tab outcode = cur_guicopdepage csubst = 'X' substc_space = 'X' IMPORTING outbuff = lt_html_tab EXCEPTIONS invalid_codepage = 1 internal_error = 2 cannot_convert = 3 fields_bad_type = 4 others = 5. if sy-subrc <> 0. message i020(02) raising download_error. endif. modify lt_html_tab. endloop.

CALL FUNCTION 'GUI_DOWNLOAD' EXPORTING filename = fullpath FILETYPE = 'ASC'

bin_filesize = size

TRUNC_TRAILING_BLANKS = 'X' TABLES DATA_TAB = lt_html_tab EXCEPTIONS OTHERS = 99. if sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno RAISING DOWNLOAD_ERROR. endif. endif.

download of SAP icons appearing in the list

LOOP AT lt_icontab.

no icon download if icon already exists in directory

CONCATENATE path lt_icontab '.gif' INTO filename. call method CL_GUI_FRONTEND_SERVICES=>FILE_EXIST EXPORTING file = filename RECEIVING result = existing.

IF existing is initial.

icon not there -> download from BDS

IF my_bds IS INITIAL. CREATE OBJECT my_bds. ENDIF. TRANSLATE lt_icontab TO UPPER CASE. "#EC "SYNTCHAR CONCATENATE '@' lt_icontab+2 '@' INTO internal. SELECT SINGLE * FROM icon INTO icon_wa WHERE internal = internal. key = icon_wa-name . wa-comp_count = 1. wa-directory = path. wa-mimetype = 'IMAGE/GIF'. APPEND wa TO files. CALL METHOD my_bds->get_with_files EXPORTING classname = 'SAP_ICONS' classtype = 'OT' object_key = key CHANGING files = files EXCEPTIONS OTHERS = 1. IF sy-subrc NE 0. MESSAGE i004(02) WITH key 'Problem in getting ICON Files from BDS'. ENDIF. CLEAR files. ENDIF. ENDLOOP.

ENDFUNCTION.

Program :

&----
*& Report Z_RMTIWARI_PRINTSCREEN_TO_HTML * *& * &----
*& Written By : Ram Manohar Tiwari * *& Function : It can print a spool-list for the specified Screen * &----

REPORT Z_RMTIWARI_PRINTSCREEN_TO_HTML . PARAMETERS : P_PROG LIKE d020s-prog OBLIGATORY. PARAMETERS : P_DYNNR(4) TYPE C OBLIGATORY. SET LANGUAGE 'EN'..

CALL FUNCTION 'RS_SCRP_PRINT_IN_LIST' EXPORTING ATTRIBS = ' ' DYNNR = P_DYNNR FIELDS = ' ' FULLSCR = 'X' LOGIC = ' ' PROGNAME = P_PROG

TRANS = ' '
EXCEPTIONS
CANCELLED = 1
NOT_FOUND = 2
OTHERS = 3

. IF SY-SUBRC <> 0.

MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

Conclusion:

As you must have figured it out by now ...it's useless...well almost

<FS_WEBLOG_TITLE>

Ram Manohar Tiwari — Wed, 12 Oct 2005 00:26:55 GMT

Before I start, let me tell you that I am not going to use smilies to make you understand that humour was indeed intended. Please use your senses and place a smiley [ ;-) ] wherever you understood or when it becomes unbearable otherwise.

I noticed that unlike ABAP Forum, where competition is killing people ( or at least crashing systems..and so I guess marketing should be discouraged over there ), Weblogs are in desperate need for some innovative marketing. Ponits for comments or discouraging weblogs like this one ;-)...you decide the marketing stretegy.

Welcome Mr. gv_current_viewer and congratulations for being the 1000th victim sorry I mean 1000th intellectual viewer of this weblog. [ In fact there were a lot many others who could not manage to get counted. ]

You should have already noticed that this weblog is a lot different from others in a sense that it provides a lot more flexibility and features. e.g did you see the title? I thought why I should bother myself so much about the title, thats why I made it a field-symbol. Now you can use your own imaginations and assign the title that you want.
[ Revolutionary concept ..right? Thanks !! ]

What else? This weblog also greets you with your own, most lovable name in the world.
[ Curse SDN if it doesnt .goodness they promised me to populate the gv_current_viewer variable with the current user name, at run time.]

I know, you must have been already impressed with all these features but did you notice the hidden gv_counter that tracks only the intellectual viewers. So are you wondering whether you belong to that class? Guess what?...I know you wont believe it ..But you were counted 
congratulations again!!
[ Dont tell this to anyone. I am writing this line as an update to my weblog.I saw my own weblog so many timesit didnt count me once...some bug, it seems..well it's a beta version....]

You know, answering questions on ABAP forum is a lot easier. [ I mean you dont need to lie too much to sell your wrong answers. But it seems to be tough here.]

Moving further, let me tell you something about the subject of my weblog. Oh come-on ..not everything in this weblog can be left on your imaginations...[find a better use of yours somewhere else]

Well, its about an ABAP program that converts ABAP Report Code ( SAP Ver 4.7 ) into HTML and downloads to your PC. The HTML document downloaded using this utility is readable and also navigation is possible for variables and form-routines.

Hay ..Wait a minute.dont change the channel..

Guys I am working on my new generation Netweaver skills as well but then it will take time And listen to me; I also have a brilliant futuristic idea. Basically its an extension of weather magnets (using BSPs, PHPs,..and all that Ps & Qs ) invented by my fellow webloggers.

Well, this is to implement a disaster control mechanism for SAP systems. It will ensure that at the time of any natural or man-made disaster, in a particular geographical area, all affected SAP systems will receive the Red Alert through the weather magnet. Further, just after receiving any such alerts, within minutes, the SAP system will automatically generate a delta backup and will transmit the backup files to the other end of the worldof course over a secure network..
Immediately after the backup, it will trigger the system shut-down. So you can just concentrate on saving the life of your girlfriend(s) rather than SAP systems.
[ Well..now I have some idea about your preferences.]
I am sure, you will agree to me that once implemented this system will be very useful in the moment of crisis.

So you see, if the quality of my this weblog is slightly(?) on the lower side its just because I am working on something more important.
[ Ok Boss That was all crapactually its already around a month now since I received my weblog authorizations and Ive not posted a single weblog as yet.]

You know what could be the consequences, if I wont post a weblog now..

SDN, might rightly right-off my rights to write a weblog.. right away..

[ WowDid you notice it? I am trying to be a SAP Technical Consultant for the last 7 years.. would have been president somewhere ..guess where? ]

Please don't copy and use the ABAP code given below....
No..no..I am not saying its copyrighted..just that it won't work. Rather use the text version - Scroll right in the frame below and use the text file link.
[Let me know if that works.]

Also please close that lovable yahoo geocities pop-up.
[ or else read that also in case you are in a desperate need to read something better.]
Actually, my personal site is on geocities( cost-cutting) and I am their Brand-Ambassador (in some way ).
[You know, we are good at cost cutting and also on presenting the disadvantages as benefits.]
Ok..I am in no mood to start the outsourcing (offshoring) debate.

Just in case someone objects, this code is already published on SDN under Codes section but then I have to write my first weblog somehow. I am sorry I've nothing else at the moment.
[ However, I swear to *** that I will donate all my SDN points earned due to this weblog for initiatives towards World Peace and... SAP implementations, in case too much peace is boring ]
Does that help?

BTW, I've removed the code IFRAME, as it was creating problems...and if you like you can always search it in Codes section...anyway forget the code...read the weblog ;-)..and also check my other weblog to see the example of downloaded code in HTML. This weblog is for marketing purpose only, so we'll only talk about weblogs, no codes /articles / problems but 100% pure weblog.

I cant believe, you came this far. So here is a surprise gift for the 1000th intellectual weblog viewer:
A fridge-fresh SAP joke, for your eyes ( and senses ) only:
I swear to ***, its based on a real life story.

A SAP Project Manager, from one of my previous organizations [it goes without saying and you know why, don't you?], was looking for a technical consultant having some experience with SAP version 11. And the advertisement was published, as a requirement for SAP Version-11, in the leading newspapers of the country.

BTW, the Request for Proposal, forwarded by the customer, was for .SAP XI
Probably, they think that SAP TechEd is for technical consultants. Renaming it to SAP ManEd-05 might help. Or if you like to be brief ..MAD'05 is not a bad idea.

....Boy you have nothing else to do..Now get on to your work !!

END_OF_WEBLOG

Generic object services (GOS) - in Background

Ram Manohar Tiwari — Mon, 10 Oct 2005 08:43:41 GMT

Just kidding ;-)

I saw a few un-answered questions on SDN on how to attach documents and URLs with the Business Objects, in background and then it should appear in GOS attachment list. So I am trying to understand the basics inside GOS.

[Those un-answered question are years old so I am not sure if GOS is obsolete & now it is only used in Waldorf ;-) ]

However, I did manage to write a program using the inside- logic of GOS, to attach Notes and URLs in background. [ Wow...finally I discovered that the earth is flat & it's standstill ;-)...any doubts.. ]

Anyway ...here we go..

Attaching documents to Business Objects in background / providing a custom GOS like functionality for BSPs:
[ Actually, I pretend that I know BSPs just because I have some experience with JSPs/HTML and..ABAP is...well no... Its not my mother tongue ;-). So I confidently used to pass suggestions about BSPs as long as I don't have to write it by myself. ]

The Problem:
Since GOS can only be used with SAPGui Front-end ( OK..may be with ITS as well) and only in foreground, mass-attachment of documents (in background) cant be handled with GOS. However, the basic applications (Classes & Methods), used in GOS, can be utilized to create a custom program for this purpose.

Use: Since this new program will have the ability to run in background, irrespective of front-end, the same code can also be utilized to provide a GOS like facility in BSPs or while developing an upload program for attaching documents/URLs to Business Objects, in background.

Inside GOS:
Basically, inside the application, main business object and attachment, both are treated as Business Objects and then a link is maintained between both the object instances. The relationship type, while maintaining the link, describes whether the attached object is a URL or a file attachment, note and so on.

However, while the main business object, to which you are trying to attach the document / URL is already known e.g. for Purchase order the Object type ('BUS2012 )is known and instance (?) exists in database but the instance for the attachment has to be created first before the linking.

Attachment can be a URL / a Note / a File and so you need to first upload (data as well in case of file) the attahcment info, and in the process also get a business object instance generated of BO type MESSAGE.

The program
The program-processing will have following steps:

Upload the File to be attached or in case of URL just get the URL name. In case of mass upload, the input can be read from a data-file on application server, having info (e.g. URL / File Path ) against the Business Object key ( e.g. Purchase Order Number ).
Create an instance of BO type MESSAGE using BO Method MESSAGE.Create. In case you are not comfortable with BO macros, simply call the main FM used within. The important part here is to pass the document type e.g. URL, EXT (for external files), and contents of file as well the file type ( e.g. TXT, PDF ) in case of File attachments. Here the document type can be derived from the relationship type of the link.
Now, the attachment is created in database as a MESSAGE and instance is known. Well refer to this as object_b and main Business Object as objet_a.
Now, maintain the link.

Check the attached documents through GOS toolbar Attachment List, using main business objects transaction e.g. ME23N for Purchase Orders. Sample Code

*---------------------------------------------------------------------** Report  Z_RMTIWARI_ATTACH_DOC_TO_BO*---------------------------------------------------------------------** Written By : Ram Manohar Tiwari* Function   : We need to maintain links between Business Object and*              the attachment.Attachment document is basiclally a*              business object of type 'MESSAGE'.In order to maintain*              links, first the attachment will be crated as Business*              Object of type 'MESSAGE' using Message.Create method.*              Need to check if we can also use FM*              'SO_DOC_INSERT_WITH_ORIG_API1' or SO_OBJECT_INSERT rather*              than using Message.Create method.*---------------------------------------------------------------------*REPORT  Z_RMTIWARI_ATTACH_DOC_TO_BO             .* Include for BO macros  INCLUDE : &ltcntn01&gt.* Load class.  CLASS CL_BINARY_RELATION definition load.  CLASS CL_OBL_OBJECT      definition load.PARAMETERS:*  Object_a   P_BOTYPE LIKE obl_s_pbor-typeid DEFAULT 'ZFRIENDS', " e.g. 'BUS2012'   P_BO_ID  LIKE OBL_S_PBOR-INSTID DEFAULT '00007',    " Key e.g. PO No.*  Object_b   P_DOCTY  LIKE obl_s_pbor-typeid DEFAULT 'MESSAGE' NO-DISPLAY,   P_MSGTYP LIKE SOFM-DOCTP        DEFAULT 'URL'     NO-DISPLAY,*  Relationship   P_RELTYP  LIKE mdoblrel-reltype DEFAULT 'URL'.  types: BEGIN OF TY_MESSAGE_KEY,          FOLTP TYPE SO_FOL_TP,          FOLYR TYPE SO_FOL_YR,          FOLNO TYPE SO_FOL_NO,          DOCTP TYPE SO_DOC_TP,          DOCYR TYPE SO_DOC_YR,          DOCNO TYPE SO_DOC_NO,          FORTP TYPE SO_FOR_TP,          FORYR TYPE SO_FOR_YR,          FORNO TYPE SO_FOR_NO,         END OF TY_MESSAGE_KEY.  DATA : LV_MESSAGE_KEY type TY_MESSAGE_KEY.  DATA : LO_MESSAGE type SWC_OBJECT.  DATA : LT_DOC_CONTENT type standard table of SOLI-LINE with headerline.* First derive the Attachment's ( MESSAGE )document type.  P_DOCTY = 'MESSAGE'.  CASE P_RELTYP.*   In case of URls    WHEN 'URL'.       P_MSGTYP = 'URL'.*   In case of Notes / Private Notes    WHEN 'NOTE' OR 'PNOT'.       P_MSGTYP = 'RAW'.    WHEN 'ATTA'.       P_MSGTYP = 'EXT'.*   Not implemented as yet...exit     EXIT.    WHEN OTHERS.*    ....exit     EXIT.    ENDCASE.*----------------------------------------------------------------** Create an initial instance of BO 'MESSAGE' - to call the* instance-independent method 'Create'.  swc_create_object LO_MESSAGE 'MESSAGE' LV_MESSAGE_KEY.* define container to pass the parameter values to the method call* in next step.  swc_container LT_MESSAGE_CONTAINER.* Populate container with parameters for method  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTTITLE' 'Title'.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTLANGU' 'E'.  swc_set_element LT_MESSAGE_CONTAINER 'NO_DIALOG'     'X'.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTNAME' P_DOCTY.  swc_set_element LT_MESSAGE_CONTAINER 'DOCUMENTTYPE'   P_MSGTYP.* 'DocumentContent' is a multi-line element ( itab ).* In case of URLs..it should be concatenated with &KEY& in the begining.  CASE P_MSGTYP.    WHEN 'URL'.      LT_DOC_CONTENT = '&KEY&http://www.rmtiwari.com' .      append LT_DOC_CONTENT.* In case of Notes or Private Notes, get the data from files on appl* server or from wherever(? - remember background).     WHEN 'RAW'.       LT_DOC_CONTENT = 'Hi How r u?' .       append LT_DOC_CONTENT.* In case of File attachments     WHEN 'EXT'.*       Upload the file contents using open dataset in lt_doc_content .*       Some conversion ( Compress ) might be required.*       Not sure at this point  ENDCASE.  swc_set_element LT_MESSAGE_CONTAINER 'DocumentContent' LT_DOC_CONTENT.  swc_call_method LO_MESSAGE 'CREATE' LT_MESSAGE_CONTAINER.* Refresh to get the reference of create 'MESSAGE' object for attachment  swc_refresh_object LO_MESSAGE.* Get Key of new object  swc_get_object_key LO_MESSAGE LV_MESSAGE_KEY.* Now we have attachment as a business object instance. We can now* attach it to our main business object instance.* Create main BO object_a  data: LO_IS_OBJECT_A type SIBFLPORB.  LO_IS_OBJECT_A-INSTID = P_BO_ID.  LO_IS_OBJECT_A-TYPEID = P_BOTYPE.  LO_IS_OBJECT_A-CATID  = 'BO'.* Create attachment BO object_b  data: LO_IS_OBJECT_B type SIBFLPORB.  LO_IS_OBJECT_B-INSTID = LV_MESSAGE_KEY.  LO_IS_OBJECT_B-TYPEID = P_DOCTY.  LO_IS_OBJECT_B-CATID  = 'BO'.*TRY.CALL METHOD CL_BINARY_RELATION=&gtCREATE_LINK  EXPORTING    IS_OBJECT_A            = LO_IS_OBJECT_A*    IP_LOGSYS_A            =    IS_OBJECT_B            = LO_IS_OBJECT_B*    IP_LOGSYS_B            =    IP_RELTYPE             = P_RELTYP*    IP_PROPNAM             =*    I_PROPERTY             =*  IMPORTING*    EP_LINK_ID             =*    EO_PROPERTY            =    .*CATCH CX_OBL_PARAMETER_ERROR .*CATCH CX_OBL_MODEL_ERROR .*CATCH CX_OBL_INTERNAL_ERROR .*ENDTRY.* Check if everything OK...who cares!!  commit work.