How to get XML files out of activity diagrams of UML

Using Rational Rose I have developed a model now I want a way to get XML file for each activity diagram of the model built. This XML file will be the input file for Project Cleveland which instantiates the services according to the documentation in this XMl file

In the Photos mode go to the View menu and uncheck Event Titles. That will leave you with only thumbnails displayed in the Photos view. However, if you close from that mode and reopen the opening time will be slower since iPhoto has to read and render all of the thumbnails. It can get rather long.
TIP: For insurance against the iPhoto database corruption that many users have experienced I recommend making a backup copy of the Library6.iPhoto (iPhoto.Library for iPhoto 5 and earlier) database file and keep it current. If problems crop up where iPhoto suddenly can't see any photos or thinks there are no photos in the library, replacing the working Library6.iPhoto file with the backup will often get the library back. By keeping it current I mean backup after each import and/or any serious editing or work on books, slideshows, calendars, cards, etc. That insures that if a problem pops up and you do need to replace the database file, you'll retain all those efforts. It doesn't take long to make the backup and it's good insurance.
I've created an Automator workflow application (requires Tiger or later), iPhoto dB File Backup, that will copy the selected Library6.iPhoto file from your iPhoto Library folder to the Pictures folder, replacing any previous version of it. It's compatible with iPhoto 6 and 7 libraries and Tiger and Leopard. iPhoto does not have to be closed to run the application, just idle. You can download it at Toad's Cellar. Be sure to read the Read Me pdf file.≤br>
Note: There now an Automator backup application for iPhoto 5 that will work with Tiger or Leopard.

Similar Messages

How to get XML file using servlets that XI sent to my J2EE appl?

Hi All!
I have a scenario like XI sends xml file to j2ee application. In my J2EE application my servlet receives this xml. Will the xml file be in my HTTPServletRequest object? if so how to get that file from Request object.
Please help me its urgent, Any code help is highly appreciated.
My xml file will be like this:
<ns0:Http_Message_Type_Demo
xmlns:ns0="http://abcdemo.com">
<Name>ABC</Name>
<RollNo>123</RollNo>
<Address>a-4</Address>
</ns0:Http_Message_Type_Demo>
somebody should help me!please
Thanks

Hi,
You can use HTTPServletRequest object to get the XML payload.
BufferedReader reader = request.getReader(); //gets XML payload
String line = reader.readLine(); // to read the XML payload line by line
(request is the HTTPServletRequest object)
Regards,
Uma

Hi How to get XML file from servlet that XI sent to my J2EE appl?

Hi All!
I have a scenario like XI sends xml file to j2ee application. In my J2EE application my servlet receives this xml. Will the xml file be in my HTTPServletRequest object? if so how to get that file from Request object.
Please help me its urgent, Any code help is highly appreciated.
My xml file will be like this:
<ns0:Http_Message_Type_Demo
xmlns:ns0="http://abcdemo.com">
<Name>ABC</Name>
<RollNo>123</RollNo>
<Address>a-4</Address>
</ns0:Http_Message_Type_Demo>
somebody should help me!please
Thanks

Hi,
You can use HTTPServletRequest object to get the XML payload.
BufferedReader reader = request.getReader(); //gets XML payload
String line = reader.readLine(); // to read the XML payload line by line
(request is the HTTPServletRequest object)
Regards,
Uma

How to generate XML file out of ....

I want to know, how to obtain a XML file as a output (in java), where in, the input is an object that contains number of enties in it.
I found MXXMLParser doing something similar to, what I am interrested in. But it requires an comma seperated file as input.
Please help me on this ASAP.
Regards

Did you check JAXB?

How to get XML file located in SAP directory for SAP XI

In my system, there is a function to create IDOC and store as a xml file in directory of SAP for example u201C/inf/ERQ/XML/u2019 .I want to use this XML file as a input for SAP XI to map and generate output as an IDOC. However, I donu2019t know how to setup integration directory for this scenario. Iu2019m not sure how to access directory in SAP using SAP XI. Any help would be grateful. Thank you.
Thank you expert,
@tom

Hi
Check this PDF
http://www.sap-press.com/downloads/h982_sample_chapter.pdf
search with "Mapping program in SAP XI" in the above link
http://www.sap-press.de/download/dateien/1191/sappress_exchange_infrastructure.pdf
Regards
Pavan

Import customs code list I0136 - how to get .xml file

The code list I0136 from ATLAS is in format .tsv.
It's possible to import the code list in transaction /SAPSLL/CUSCS_VMAINT, but you have to have a .xml file.
Does anyone know where to get the customs code list I0136 in .xml or to convert .tsv into .xml without a special program?

Hi Renate,
where do you get this file in .tsv format from?
I guess from a data provider?
First thing I would do is to ask the data provider to send the file in another GTS compatible format.
If you have no influence on the file format which is beeing delivered to you I would just convert those files.
Easiest tool to convert those files with might be Excel since almost everyone is using it.
You can import the .tsv into excel and save it as a .xml file afterwards.
If you have trouble importing the file just check google (open .tsv Excel).
You might have to tune several options during the import process but once you know the steps it should be easy for you to handle.
Best Regards
Gregor

How to get XML form.

Hi All,
Can anybody suggest me how to get XML file of System form.
Means i want XML file of Sales order. Where i get it ?
Thanks,

Hi Harish,
Lets try this code.It will solve ur problem.
Public Class SystemForm
      Private WithEvents SBO_Application As SAPbouiCOM.Application
    Private oOrderForm As SAPbouiCOM.Form
    Private oNewItem As SAPbouiCOM.Item
    Private oItem As SAPbouiCOM.Item
    Private oFolderItem As SAPbouiCOM.Folder
    Private oOptionBtn As SAPbouiCOM.OptionBtn
    Private oCheckBox As SAPbouiCOM.CheckBox
    Private i As Integer
    Private Sub SetApplication()
        Dim SboGuiApi As SAPbouiCOM.SboGuiApi
        Dim sConnectionString As String
        SboGuiApi = New SAPbouiCOM.SboGuiApi()
        sConnectionString = Command
        SboGuiApi.Connect(sConnectionString)
        SBO_Application = SboGuiApi.GetApplication()
    End Sub
    Private Sub AddItemsToOrderForm()
        oOrderForm.DataSources.UserDataSources.Add("OpBtnDS", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS1", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS2", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
        oOrderForm.DataSources.UserDataSources.Add("CheckDS3", SAPbouiCOM.BoDataType.dt_SHORT_TEXT, 1)
oItem = oOrderForm.Items.Item("126")
For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("CheckBox" & i, SAPbouiCOM.BoFormItemTypes.it_CHECK_BOX)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 19
            oNewItem.Height = 19
            oNewItem.FromPane = 5
            oNewItem.ToPane = 5
            oCheckBox = oNewItem.Specific
            oCheckBox.Caption = "Check Box" & i            '
            oCheckBox.DataBind.SetBound(True, "", "CheckDS" & i)
        Next i
        oItem = oOrderForm.Items.Item("44")
        For i = 1 To 3
            oNewItem = oOrderForm.Items.Add("OpBtn" & i, SAPbouiCOM.BoFormItemTypes.it_OPTION_BUTTON)
            oNewItem.Left = oItem.Left
            oNewItem.Width = 100
            oNewItem.Top = oItem.Top + (i - 1) * 19
            oNewItem.Height = 19
            oNewItem.FromPane = 5
            oNewItem.ToPane = 5
            oOptionBtn = oNewItem.Specific
            oOptionBtn.Caption = "Option Button" & i
            If i > 1 Then
                oOptionBtn.GroupWith("OpBtn" & i - 1)
            End If
            oOptionBtn.DataBind.SetBound(True, "", "OpBtnDS")
        Next i
    End Sub
    Public Sub New()
        MyBase.New()
        SetApplication()
       End Sub
Private Sub SBO_Application_ItemEvent(ByVal FormUID As String, ByRef pVal As SAPbouiCOM.ItemEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.ItemEvent
If ((pVal.FormType = 139 And pVal.EventType <> SAPbouiCOM.BoEventTypes.et_FORM_UNLOAD) And (pVal.Before_Action = True)) Then
oOrderForm = SBO_Application.Forms.GetFormByTypeAndCount(pVal.FormType, pVal.FormTypeCount)
If ((pVal.EventType = SAPbouiCOM.BoEventTypes.et_FORM_LOAD) And (pVal.Before_Action = True)) Then
oNewItem = oOrderForm.Items.Add("UserFolder", SAPbouiCOM.BoFormItemTypes.it_FOLDER)
                oItem = oOrderForm.Items.Item("138")
                oNewItem.Top = oItem.Top
                oNewItem.Height = oItem.Height
                oNewItem.Width = oItem.Width
                oNewItem.Left = oItem.Left + oItem.Width
                oFolderItem = oNewItem.Specific
                oFolderItem.Caption = "User Folder"
                oFolderItem.GroupWith("138")
                AddItemsToOrderForm()
                oOrderForm.PaneLevel = 1
            End If
If pVal.ItemUID = "UserFolder" And pVal.EventType = SAPbouiCOM.BoEventTypes.et_ITEM_PRESSED And pVal.Before_Action = True Then
                oOrderForm.PaneLevel = 5
            End If
        End If
    End Sub
    Private Sub SBO_Application_AppEvent(ByVal EventType As SAPbouiCOM.BoAppEventTypes)
        Select Case EventType
            Case SAPbouiCOM.BoAppEventTypes.aet_ShutDown
                SBO_Application.MessageBox("A Shut Down Event has been caught" & _
                    vbNewLine & "Terminating 'Order Form Manipulation' Add On...")
                End
       End Select
    End Sub
End Class
Regards
Mohana

How to read .xml file from embedded .swf(flash output) in captivate

I have been trying to read .xml file from the .swf (Flash output) that is embedded within the captivate file but no luck yet . Please if anyone got any clue on how get this thing done using Action script 3.0 then let me know. I am using Adobe Captivate 5.5 at present and Flash CS 5.5.
I am well aware about how to read .xml file through action script 3.0 in flash but when insert the same flash in captivate and publish nothing comes in captivate output. I would higly appreciate if anyone could help me out with that.
Here is is graphical demonstration of my query :
Message was edited by: captainmkv

Hi Captainmkv,
Does the information in this post cover what you're trying to do: http://forums.adobe.com/message/5081928#5081928
Tristan,

How to get the file size (in bytes) for all files in a directory?

How to get the file size (in bytes) for all files in a directory?
The following code does not work. isFile() does NOT recognize files as files but only as directories. Why?
Furthermore the size is not retrieved correctly.
How do I have to code it otherwise? Is there a way of not converting f-to-string-to-File again but iterate over all file objects instead?
Thank you
Peter
java.io.File f = new java.io.File("D:/todo/");
files = f.list();
for (int i = 0; i < files.length; i++) {
System.out.println("fn=" + files);
if (new File(files[i]).isFile())
     System.out.println("file[" + i + "]=" + files[i] + " size=" + (new File(files[i])).length() ); }

pstein wrote:
...The following code does not work. Work?! It does not even compile! Please consider posting code in the form of an SSCCE in future.
Here is an SSCCE.
import java.io.File;
class ListFiles {
    public static void main(String[] args) {
        java.io.File f = new java.io.File("/media/disk");
        // provides only the file names, not the path/name!
        //String[] files = f.list();
        File[] files = f.listFiles();
        for (int i = 0; i < files.length; i++) {
            System.out.println("fn=" + files);
if (files[i].isFile()) {
System.out.println(
"file[" +
i +
"]=" +
files[i] +
" size=" +
(files[i]).length() );
}Edit 1:
Also, in future, when posting code, code snippets, HTML/XML or input/output, please use the code tags to retain the indentation and formatting.   To do that, select the code and click the CODE button seen on the Plain Text tab of the message posting form. It took me longer to clean up that code and turn it into an SSCCE, than it took to +solve the problem.+
Edited by: AndrewThompson64 on Jul 21, 2009 8:47 AM

How to refresh XML file from my client machine

Hai All
I have temp.XML and temp.XSL template in our server machine.
when i give a print from client machine first time it gives the record,and next time it did not get refresh.Always it shows the previous records in the browser.But when i go into the server machine and click on temp.xml,it shows the current record(correct records)
How to refresh XML file from my client machine?
Regards
Dhina

You never delete a Time Machine backup by dragging it to the Trash. You are supposed to use the TM application to manage the backups. What you will need to do now is to simply erase the drive using Disk Utility.

How to convert XML file to an internal table ?

Hi All,
I want to do a batch input program. The source data would be given as an excel file . I would like to know how to convert XML file to internal table properly. Please help me out..
Thanking you in advance ..
Shankara Narayanan T.V

Hi Shankar,
use 'ALSM_EXCEL_TO_INTERNAL_TABLE' FM.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
         EXPORTING
              filename                = p_file1
              i_begin_col             = '1'
              i_begin_row             = '5'
              i_end_col               = '40'
              i_end_row               = '16'
         TABLES
              intern                  = it_intern
         EXCEPTIONS
              inconsistent_parameters = 1
              upload_ole              = 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.
LOOP AT it_intern.
      AT NEW row.
        CLEAR it_intern.
      ENDAT.
        CASE lv_flag.
    Production Version
          WHEN 1.
            it_master-matnr      =   it_intern-value.
          WHEN 2.
            it_master-werks      = it_intern-value.
          WHEN 3.
            it_master-verid      = it_intern-value.
          WHEN 4.
            it_master-text1      = it_intern-value.
          WHEN 5.
            it_master-fdate     = it_intern-value.
      AT END OF row.
        APPEND it_master.
      ENDAT.
    ENDLOOP.
-Anu
Message was edited by:
        Anupama Reddy

How to use XML file as a source in BODS?

How to use XML file as a source in BODS?
Could anyone please help me out for this?

exmpale XML file :
<?xml version="1.0" encoding="utf-8"?>
<MM_RECON_REPORT>
<RPT_DATE>str1234</RPT_DATE>
<RPT_ROW>
    <SRC_EXT_REC_COUNT>123.45</SRC_EXT_REC_COUNT>
    <PRE_TRANS_REC_COUNT>123.45</PRE_TRANS_REC_COUNT>
    <POST_TRANS_REC_COUNT>123.45</POST_TRANS_REC_COUNT>
    <PASS_BAPI_REC_COUNT>123.45</PASS_BAPI_REC_COUNT>
    <TOT_SAP_RETURN>123.45</TOT_SAP_RETURN>
    <TOT_SAP_SUCC_REC_COUNT>123.45</TOT_SAP_SUCC_REC_COUNT>
    <PARTIAL_SUCC_REC_COUNT>123.45</PARTIAL_SUCC_REC_COUNT>
    <TOT_SAP_ERR_REC_COUNT>123.45</TOT_SAP_ERR_REC_COUNT>
    <MM_SUCC_REC_COUNT>123.45</MM_SUCC_REC_COUNT>
    <MM_ERR_REC_COUNT>123.45</MM_ERR_REC_COUNT>
    <CLS_SUCC_REC_COUNT>123.45</CLS_SUCC_REC_COUNT>
    <CLS_ERR_REC_COUNT>123.45</CLS_ERR_REC_COUNT>
    <CP_SUCC_REC_COUNT>123.45</CP_SUCC_REC_COUNT>
    <CP_ERR_REC_COUNT>123.45</CP_ERR_REC_COUNT>
    <VMS_SUCC_REC_COUNT>123.45</VMS_SUCC_REC_COUNT>
    <VMS_ERR_REC_COUNT>123.45</VMS_ERR_REC_COUNT>
    <SOURCE_TYPE>str1234</SOURCE_TYPE>
    <RUN_ID>123.45</RUN_ID>
    <RUN_SEQ>123.45</RUN_SEQ>
    <RUN_DATE>2012-12-13</RUN_DATE>
</RPT_ROW>
</MM_RECON_REPORT>
example XSD file :
<?xml version="1.0" encoding="UTF-8"?>
<xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<xsd:annotation>
    <xsd:documentation xml:lang="en">
    XML Schema generated by Data Services
    </xsd:documentation>
</xsd:annotation>
<xsd:simpleType name="DIType-decimal-28-0">
<xsd:restriction base="xsd:decimal">
    <xsd:totalDigits value="28"/>
    <xsd:fractionDigits value="0"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="DIType-varchar-200">
<xsd:restriction base="xsd:string">
<xsd:maxLength value="200"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="DIType-varchar-10">
<xsd:restriction base="xsd:string">
    <xsd:maxLength value="10"/>
</xsd:restriction>
</xsd:simpleType>
<xsd:simpleType name="DATE">
<xsd:restriction base="xsd:date">
</xsd:restriction>
</xsd:simpleType>
<xsd:element name="MM_RECON_REPORT" >
    <xsd:complexType>
      <xsd:sequence>
        <xsd:element ref="RPT_DATE" minOccurs="0" maxOccurs="1"/>
        <xsd:element ref="RPT_ROW" minOccurs="0" maxOccurs="unbounded"/>
      </xsd:sequence>
    </xsd:complexType>
</xsd:element>
<xsd:element name="RPT_DATE" type = "DIType-varchar-200"/>
<xsd:element name="RPT_ROW" >
    <xsd:complexType>
      <xsd:sequence>
        <xsd:element ref="SRC_EXT_REC_COUNT" />
        <xsd:element ref="PRE_TRANS_REC_COUNT" />
        <xsd:element ref="POST_TRANS_REC_COUNT" />
        <xsd:element ref="PASS_BAPI_REC_COUNT" />
        <xsd:element ref="TOT_SAP_RETURN" />
        <xsd:element ref="TOT_SAP_SUCC_REC_COUNT" />
        <xsd:element ref="PARTIAL_SUCC_REC_COUNT" />
        <xsd:element ref="TOT_SAP_ERR_REC_COUNT" />
        <xsd:element ref="MM_SUCC_REC_COUNT" />
        <xsd:element ref="MM_ERR_REC_COUNT" />
        <xsd:element ref="CLS_SUCC_REC_COUNT" />
        <xsd:element ref="CLS_ERR_REC_COUNT" />
        <xsd:element ref="CP_SUCC_REC_COUNT" />
        <xsd:element ref="CP_ERR_REC_COUNT" />
        <xsd:element ref="VMS_SUCC_REC_COUNT" />
        <xsd:element ref="VMS_ERR_REC_COUNT" />
        <xsd:element ref="SOURCE_TYPE" />
        <xsd:element ref="RUN_ID" />
        <xsd:element ref="RUN_SEQ" />
        <xsd:element ref="RUN_DATE" />
      </xsd:sequence>
    </xsd:complexType>
</xsd:element>
<xsd:element name="SRC_EXT_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="PRE_TRANS_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="POST_TRANS_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="PASS_BAPI_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="TOT_SAP_RETURN" type = "DIType-decimal-28-0"/>
<xsd:element name="TOT_SAP_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="PARTIAL_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="TOT_SAP_ERR_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="MM_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="MM_ERR_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="CLS_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="CLS_ERR_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="CP_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="CP_ERR_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="VMS_SUCC_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="VMS_ERR_REC_COUNT" type = "DIType-decimal-28-0"/>
<xsd:element name="SOURCE_TYPE" type = "DIType-varchar-10"/>
<xsd:element name="RUN_ID" type = "DIType-decimal-28-0"/>
<xsd:element name="RUN_SEQ" type = "DIType-decimal-28-0"/>
<xsd:element name="RUN_DATE" type = "xsd:date"/>
</xsd:schema>
compare the xml vs xsd for better understanding

HOw to update XML file residing in DAM by component JSP in run-time?

i have made a component which reads xml file residing in DAM.
Content Author can fill some values in dialog of this component, as soon as author provide the values,i have to update these values in XML file and component reloadsby reading the updated xml file.
i am trying to achieve this by making object of XML file and giving it's path., but i ma unable to access the XML file.
Can anyone help me out to how to update XML file by component JSP in run-time?

Now the changed data must be exported back into the XML file, meaning that the content of certain elements must be updated. How can this be done with XSLT?
XSLT approach: check these online tutorial
http://www.xml.com/pub/a/2000/08/02/xslt/index.html
http://www.xml.com/pub/a/2000/06/07/transforming/index.html
ABAP approach:
for example you have the xml (original) in a string called say xml_out .
data: l_xml type ref to cl_xml_document ,
        node type ref to if_ixml_node .
create object l_xml.
call method l_xml->parse_string
exporting
    stream = xml_out.
node = l_xml->find_node(
    name   = 'IDENTITY'
   ROOT   = ROOT
l_xml->set_attribute(
    name    = 'Name'
    value   = 'Charles'
    node    = node
(the above example reads the element IDENTITY and sets attribute name/value to the same)
like wise you can add new elements starting from IDENTITY using various methods available in class CL_XML_DOCUMENT
so how do I access the XML file in order to update it?
you have already read this XML into a ABAP variable right?
Sorry couldnt understand your whole process, why do you need to read local XML file?
Raja

How to read xml file as shown below.

Hello,
I am using flash builder 4 and currently working on implementing AIR application.
I need to read xml file data.
Normal xml files are easy to read and i am much more aware of it.
But can any one have idea how to read XML file which is given below.
<node>
<key>ID</key>
<integer>1</integer>
<key>Name</key>
<string>Dhwani</string>
<key>Postno</key>
<integer>20</integer>
<key>deskname</key>
<string>flex</string>
<key>empid</key>
<integer>25</integer>
<key>projectname</key>
<string>abc</string>
</node>
Here i have xml file in form of key value pair. <key> node shows name of the key and after that <integer> or <string> node are the value for that specific key.
if i select node.key then it shows me all the keys. and from that i cant make out what is the value for key ID.
Is there any way to take first node and then second. i mean first i ll take value of key and store it into some arraycollection. and then value will be stored.
Any help is appreciated.. Looking for positive reply.
Thanks
Dhwani

There are different methods to access XML data which have pro's and cons. Let us know more about what you want to do and we can help you.

How to Download XML File to internal table

Hi Friends,
This is my urgent requirement. How to download XML File to Internal table.
regards
pauldharma

Hai,
Please check this Link
http://www.sap-img.com/abap/upload-direct-excel.htm
PARAMETERS: filename LIKE rlgrap-filename MEMORY ID M01,
            begcol TYPE i DEFAULT 1 NO-DISPLAY,
            begrow TYPE i DEFAULT 1 NO-DISPLAY,
            endcol TYPE i DEFAULT 100 NO-DISPLAY,
            endrow TYPE i DEFAULT 32000 NO-DISPLAY.
* Tick don't append header
PARAMETERS: kzheader AS CHECKBOX.
DATA: BEGIN OF intern OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern.
DATA: BEGIN OF intern1 OCCURS 0.
        INCLUDE STRUCTURE alsmex_tabline.
DATA: END OF intern1.
DATA: BEGIN OF t_col OCCURS 0,
       col LIKE alsmex_tabline-col,
       size TYPE i.
DATA: END OF t_col.
DATA: zwlen TYPE i,
      zwlines TYPE i.
DATA: BEGIN OF fieldnames OCCURS 3,
        title(60),
        table(6),
        field(10),
        kz(1),
      END OF fieldnames.
* No of columns
DATA: BEGIN OF data_tab OCCURS 0,
       value_0001(50),
       value_0002(50),
       value_0003(50),
       value_0004(50),
       value_0005(50),
       value_0006(50),
       value_0007(50),
       value_0008(50),
       value_0009(50),
       value_0010(50),
       value_0011(50),
       value_0012(50),
       value_0013(50),
       value_0014(50),
       value_0015(50),
       value_0016(50),
       value_0017(50),
       value_0018(50),
       value_0019(50),
       value_0020(50),
       value_0021(50),
       value_0022(50),
       value_0023(50),
       value_0024(50),
       value_0025(50),
       value_0026(50),
       value_0027(50),
       value_0028(50),
       value_0029(50),
       value_0030(50),
       value_0031(50),
       value_0032(50),
       value_0033(50),
       value_0034(50),
       value_0035(50),
       value_0036(50),
       value_0037(50),
       value_0038(50),
       value_0039(50),
       value_0040(50),
       value_0041(50),
       value_0042(50),
       value_0043(50),
       value_0044(50),
       value_0045(50),
       value_0046(50),
       value_0047(50),
       value_0048(50),
       value_0049(50),
       value_0050(50),
       value_0051(50),
       value_0052(50),
       value_0053(50),
       value_0054(50),
       value_0055(50),
       value_0056(50),
       value_0057(50),
       value_0058(50),
       value_0059(50),
       value_0060(50),
       value_0061(50),
       value_0062(50),
       value_0063(50),
       value_0064(50),
       value_0065(50),
       value_0066(50),
       value_0067(50),
       value_0068(50),
       value_0069(50),
       value_0070(50),
       value_0071(50),
       value_0072(50),
       value_0073(50),
       value_0074(50),
       value_0075(50),
       value_0076(50),
       value_0077(50),
       value_0078(50),
       value_0079(50),
       value_0080(50),
       value_0081(50),
       value_0082(50),
       value_0083(50),
       value_0084(50),
       value_0085(50),
       value_0086(50),
       value_0087(50),
       value_0088(50),
       value_0089(50),
       value_0090(50),
       value_0091(50),
       value_0092(50),
       value_0093(50),
       value_0094(50),
       value_0095(50),
       value_0096(50),
       value_0097(50),
       value_0098(50),
       value_0099(50),
       value_0100(50).
DATA: END OF data_tab.
DATA: tind(4) TYPE n.
DATA: zwfeld(19).
FIELD-SYMBOLS: <fs1>.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR filename.
CALL FUNCTION 'KD_GET_FILENAME_ON_F4'
       EXPORTING
            mask      = '*.xls'
            static    = 'X'
       CHANGING
            file_name = filename.
START-OF-SELECTION.
CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE'
       EXPORTING
            filename                = filename
            i_begin_col             = begcol
            i_begin_row             = begrow
            i_end_col               = endcol
            i_end_row               = endrow
       TABLES
            intern                  = intern
       EXCEPTIONS
            inconsistent_parameters = 1
            upload_ole              = 2
            OTHERS                  = 3.
IF sy-subrc <> 0.
    WRITE:/ 'Upload Error ', SY-SUBRC.
ENDIF.
END-OF-SELECTION.
LOOP AT intern.
    intern1 = intern.
    CLEAR intern1-row.
    APPEND intern1.
ENDLOOP.
SORT intern1 BY col.
LOOP AT intern1.
    AT NEW col.
      t_col-col = intern1-col.
      APPEND t_col.
    ENDAT.
    zwlen = strlen( intern1-value ).
    READ TABLE t_col WITH KEY col = intern1-col.
    IF sy-subrc EQ 0.
      IF zwlen > t_col-size.
        t_col-size = zwlen.
*                          Internal Table, Current Row Index
        MODIFY t_col INDEX sy-tabix.
      ENDIF.
    ENDIF.
ENDLOOP.
DESCRIBE TABLE t_col LINES zwlines.
SORT intern BY row col.
IF kzheader = 'X'.
    LOOP AT intern.
      fieldnames-title = intern-value.
      APPEND fieldnames.
      AT END OF row.
        EXIT.
      ENDAT.
    ENDLOOP.
ELSE.
    DO zwlines TIMES.
      WRITE sy-index TO fieldnames-title.
      APPEND fieldnames.
    ENDDO.
ENDIF.
SORT intern BY row col.
LOOP AT intern.
    IF kzheader = 'X'
    AND intern-row = 1.
      CONTINUE.
    ENDIF.
    tind = intern-col.
    CONCATENATE 'DATA_TAB-VALUE_' tind INTO zwfeld.
    ASSIGN (zwfeld) TO <fs1>.
    <fs1> = intern-value.
    AT END OF row.
      APPEND data_tab.
      CLEAR data_tab.
    ENDAT.
ENDLOOP.
CALL FUNCTION 'DISPLAY_BASIC_LIST'
       EXPORTING
            file_name     = filename
       TABLES
            data_tab      = data_tab
            fieldname_tab = fieldnames.
*-- End of Program
http://sap.ittoolbox.com/groups/technical-functional/sap-dev/excel-file-download-to-an-internal-table-in-sap-crm-1719453#
tables: zinv_release,
zpo_release.
** decleration of data
DATA: BEGIN OF my_tab OCCURS 0.
INCLUDE STRUCTURE zinv_release.
DATA: END OF my_tab.
*DATA: hex_tab TYPE x VALUE '09'.
DATA: rec(200)."'/usr/test.dat'.
DATA:
zhours(20) TYPE c,
MINS(20) type c. "decimals.
data: coma.
coma = ','.
SELECTION-SCREEN BEGIN OF BLOCK txt
WITH FRAME TITLE text-001.
PARAMETERS: dsn(60) DEFAULT '\\sapdev01\prod\'.
SELECTION-SCREEN END
OF BLOCK txt.
*using a dataset to get text
OPEN DATASET dsn FOR INPUT IN TEXT MODE.
IF sy-subrc = 0.
DO.
READ DATASET dsn INTO rec.
IF sy-subrc <> 0.
EXIT.
ENDIF.
split rec at coma into
zpo_release-REL_GRP
zpo_release-REL_CODE
zpo_release-RESPREL
zpo_release-ALTREL
zpo_release-MANAGER
ZHOURS
MINS
zpo_release-FROMTIME
zpo_release-TOTIME
zpo_release-EXCLWKENDS.
move zpo_release-REL_GRP to my_tab-REL_GRP.
move zpo_release-REL_CODE to my_tab-REL_CODE.
move zpo_release-RESPREL to my_tab-RESPREL.
move zpo_release-ALTREL to my_tab-ALTREL.
move zpo_release-MANAGER to my_tab-MANAGER.
move ZHOURS to my_tab-ZHOURS.
move MINS to my_tab-mins.
move zpo_release-FROMTIME to my_tab-fromtime.
move zpo_release-TOTIME to my_tab-totime.
move zpo_release-EXCLWKENDS to my_tab-exclwkends.
APPEND my_tab.
ENDDO.
INSERT zpo_release FROM TABLE my_tab ACCEPTING DUPLICATE KEYS.
** DELETE zmm_ppa_cc FROM TABLE tab.
** INSERT zzzak_emp FROM TABLE my_tab ACCEPTING DUPLICATE KEYS.
IF sy-subrc = 0.
MESSAGE i000(zv) WITH 'File Successful stored in DB.' '' '' ''.
** ELSE.
MESSAGE i000(zv) WITH 'File already stored in DB.' '' '' ''.
endif.
ENDIF.
reward if helpful
raam

How to get XML files out of activity diagrams of UML

Similar Messages

Maybe you are looking for