Creating URL

Question

Hi!
I had to put an URL to an object (a PM equipment). It has to be put with the "Services for object" button (located in the left of the dynpro title). I have to make it like this:
Services for object button - Create - Create external document (URL).
Unfortunately I never did anything like this, so I'm a bit lost, how to start.
I found some FM-s, like SO_OBJECT_INSERT, but don't know, is it enough, what parameters like does it require... And of course where are the links stored in the background? What is the exact way to post an URL like this?
Every help is welcome!
Thank you
Tamá

Answer 1

Hi
To create this link via a program, you need to code
something like this:
* Add a URL link to an existing workitem
PARAMETERS: p_OBJDES like sood1-OBJDES default
'Testing URL',
             WI_ID LIKE SWWWIHEAD-WI_ID DEFAULT
'000000120661',
             L_URL_ID TYPE SO_URL DEFAULT
'http://www.sap.com/' no-display.
DATA FOLDER_ID         TYPE SOFDK.
DATA LT_OBJCONT TYPE STANDARD TABLE OF SOLI.
DATA LS_OBJCONT TYPE SOLI.
DATA L_OBJ_DATA TYPE SOOD1.
DATA L_OBJ_ID   TYPE SOODK.
DATA DOCUMENT_ID       TYPE SOFMK.
DATA LT_OBJHEAD TYPE STANDARD TABLE OF SOLI.
CALL FUNCTION 'SO_FOLDER_ROOT_ID_GET'
   EXPORTING
     REGION    = 'B'
   IMPORTING
     FOLDER_ID = FOLDER_ID
   EXCEPTIONS
     OTHERS    = 1.
WHILE NOT L_URL_ID IS INITIAL.
   CONCATENATE '&KEY&' L_URL_ID(250) INTO LS_OBJCONT.
   APPEND LS_OBJCONT TO LT_OBJCONT.
   SHIFT L_URL_ID LEFT BY 250 PLACES.
ENDWHILE.
L_OBJ_DATA-OBJNAM = 'MESSAGE'.
L_OBJ_DATA-OBJDES = p_OBJDES.
*OBJECT_HD_CHANGE
CALL FUNCTION 'SO_OBJECT_INSERT'
   EXPORTING
     FOLDER_ID             = FOLDER_ID
     OBJECT_TYPE           = 'URL'
     OBJECT_HD_CHANGE      = L_OBJ_DATA
   IMPORTING
     OBJECT_ID             = L_OBJ_ID
   TABLES
     OBJHEAD               = LT_OBJHEAD
     OBJCONT               = LT_OBJCONT
   EXCEPTIONS
     ACTIVE_USER_NOT_EXIST = 35
     FOLDER_NOT_EXIST      = 6
     OBJECT_TYPE_NOT_EXIST = 17
     OWNER_NOT_EXIST       = 22
     PARAMETER_ERROR       = 23
     OTHERS                = 1000.
IF SY-SUBRC = 0.
   DOCUMENT_ID-FOLTP = FOLDER_ID-FOLTP.
   DOCUMENT_ID-FOLYR = FOLDER_ID-FOLYR.
   DOCUMENT_ID-FOLNO = FOLDER_ID-FOLNO.
   DOCUMENT_ID-DOCTP = L_OBJ_ID-OBJTP.
   DOCUMENT_ID-DOCYR = L_OBJ_ID-OBJYR.
   DOCUMENT_ID-DOCNO = L_OBJ_ID-OBJNO.
ELSE.
ENDIF.
CALL FUNCTION 'SWL_WI_NOTE_CREATE'
   EXPORTING
     WI_ID                               = WI_ID
*   WORKITEM                            =
    NOTE                                = DOCUMENT_ID
*   I_SUPPRESS_ENQUEUE                  = ' '
*   DO_COMMIT                           = 'X'
Regards
Pavan