Can't add excel datasource in coldfusion9

Hi,
While trying to add an Excel Database, i got this error:
Unable to update the NT egistry
Variable DrivePath is undefined
We are using:
Windows Server 2008
ColdFusion9
Plesk11.0.9
Could anyone please help on this.
Thanks!
Muhammad Umar Hanif
Systems Engineer
http://hyve.com

yes there is but it takes me to a screen for sites like Gmail and aol.
What if I give up on a new mail box and instead wanted to make folders? Is that an option? But  I can't find instructions in the manual for that either. can anyone be of help.
Thanks, Tom

Similar Messages

  • How can I add excel pictures using activex

    I would like to be able to use activex to insert an image into an excel spreadsheet. I know how to read and write data, but the chart feature is too cunmbersome and when I updated excel to 2007 most of the calls stopped working. I see that there is a pictures property/method that lets me specify an image file, but I don't know which property/method(s) to call it from.

    2007 does take more time to draw the data on the chart. I am not having any problems with errors on the active X for 2007. I is much slower than 2003 I would agree. My IT group moved us to 2007 so I am stuck with it no matter how slow it is. I am trying to figure out how to get the help file back. I had these in 2003 myself. I know it has nothing to do with LabVIEW. It is an add in or some switch that you need to throw in excel to allow for this connection.
    Tim
    Johnson Controls
    Holland Michigan

  • How can I add/retrieve Word/Excell files to iCloud?

    I have an iCloud Account that I haven't used in the past. How can I add/delete/retrieve files such as Word & Excel files?

    To save arbitrary document types in iCloud on MacOS X 10.9.5 have a look at Winston Churchill's User Tip: 
    See this link:  Using iCloud to sync multiple document types.
    This will work between Macs, but not for mobile devices.

  • Can't add datasource for local SQL Server Express

    I can't get new datasource to connect to a local SQL Server Express (2008).
    On SSE, I enabled non-NTLM authentication, created an account specifically for CFServer, and was able to log into SQL Server through Management Studio. But the datasource still won't connect.
    When I enter computerName/SQLServerName for the Server, I get a message saying "...The requested instance is either invalid or not running."
    When I enter just SQLServerName, message says "Error establishing socket. Unknown host: SQLServerName."
    When I enter (local), I get a message saying "Error establishing socket. Unknown host: (local)"
    When I enter 127.0.0.1, message says "Error establishing socket to host and port: 127.0.0.1:1433. Reason: Connection refused: connect"
    I don't know why the first is considered invalid, or why the fourth is refusing connection. Am I forgetting something?

    I found the solution, which doesn't have to do with Coldfusion, but rather with configuring SQL Server for TCP/IP.  In case someone else ever stumbles upon this post with a similar problem, I wrote about it at http://forums.devshed.com/ms-sql-development-95/trying-to-connect-to-sql-server-on-localho st-1433t-958558.html.

  • Can not open Excel 2003 embedded worksheet in Office 2010

    I have seen many similar issues to this but I think I have some unique factors that are making my issue a bit tougher to resolve. I have a user who has a word doc which he opens in Word 2010. This doc has several embedded excel sheets. When he tries to click
    one of these embedded excel sheets to edit he gets an error:  "the program used to create this object is excel the program is not installed on your computer". It will give an option to repair which we have tried but it makes no difference.
    Some things to note that I think makes this case more unique than others I have googled.
    This seems to be the case only with embedded excel 2003 spreedsheets. He can open newer excel 2010 spreedsheets that more more recently added to the file.
    He previously had Office 2013 which we had to uninstall, and put Office 2010 on. This was done because of a piece of software this company uses that was not compatible with office 2013. (Personally I think this may be where the problem is as there seem to
    be remnants of Office 15 in the registry.)
    I have tried the standard fixes of Disabling the Com add-ins, running office repair, and trying to Convert the embedded spreedsheet to an Excel Binary. The convert failed and gave me a generic error about possibly not being allowed to save to the location
    or needing more memory or space but none of these are the case.
    I have not yet tried to uninstall office 2010 and reinstall and I am hoping that I won't have to. This issue just seems odd to me. Other users can edit these embedded spreedsheets fine which is why I think it has something to do with the fact that he downgraded
    from 2013 to 2010.
    Anyone of thoughts, ideas, suggestions? Thanks.

    Hi,
    I noticed that use newer excel 2010
    spreadsheets that more more recently added to the file. Did you try to embed the Excel 2010 file to Word 2010 test? If it works fine, I suppose that it was a compatibility issue.
    Because Excel 2010 had change the file format with Excel 2003.
    I recommend you try to install Office 2010 sp2 and compatibility pack.
    http://blogs.technet.com/b/office_resource_kit/archive/2013/07/31/download-the-new-microsoft-visio-compatibility-pack.aspx
    https://support.microsoft.com/kb/923505/en-us
    And there is a similar issue, we also could install the hotfix to test.
    http://social.technet.microsoft.com/Forums/office/en-US/b0dc1e24-847d-44e9-95c5-f789a0d50047/cannot-edit-embedded-excels-after-closing-document?forum=officesetupdeployprevious
    Regards,
    George Zhao
    TechNet Community Support

  • Some users can't open Excel files. It is trying to open it in Internet Explorer "An error has occurred. Please try again."

    I have some users in my company that can't open Excel files from any document libraries on SharePoint 2010. The receive the error message "An error occurred. Please try again."  We don't currently use the Excel calculations services. When
    a user opens an excel file they are prompted to either Read Only or Edit.
    This affects less than 5 people in a large company.  They have the Full Control permissions and have been able to open the files previously.  There has been no changes made to the server either.  I can't find anything that points to this in the
    event viewer. 
    It doesn't matter if which computer that they try to open this up from either.   All computers are Windows 7 Professional with IE 9 and Office 2010 x64.   
    I can't find anything that points specifically to this exact error. None of the excel files contain pivot tables.    This one has me stumped.

    I would make sure no one has open on machine / locked on machine (Would assume you checked this, but wanted to add)
    Also would have assumed you restarted the machines (:))
    Make sure the file security did not change (check to ensure no one changed the sercuity of the excel)
    Make sure the version of excel is the same (Changing from 2010 back to 2007 affects the file, etc.. on convert) that no one converted and saved thus causing error in file.
    Can they open other excel files?
    It sounds like the excel file it self has changed if you cannot see issue in SharePoint logs.
    If it is all SharePoint excel files - try deleting one persons access and readding them to see if that helps.
    SharePoint has issues ;)

  • How I can delete add-in in windows 8.1 ,I see only enable and disable function but I don't see any add-in delete function

    hi,
    how I can delete  add-in applications in add-in applications section ,  I try to delete one but I don't see any delete function, I see only enable and disable function in the manage add-in applications wizard.
    thanks
    johan
    h.david

    Hi,
    If you want to remove the add-ins of Office 2010 programs, you need to remove it from control panel.
    For example, if you use Excel, please try to follow the link to delete the add-ins:
    http://office.microsoft.com/en-us/excel-help/add-or-remove-add-ins-HP010342658.aspx
    If I misunderstand something, please let me know.
    Regards,
    George Zhao
    TechNet Community Support

  • Can I create a result set filter on a SSRS Report similar to what you can do in Excel?

    Asking this question in a different way...I have my SSRS Result set. Now the Business User wants to filter down a 15-page report to what they want to specifically see....Sooo my result set has a list of claims. And now the Business User just wants to see
    the list of claims by a certain Provider, which is also in the report. So I don't want to put that "filter" on the front-end...within the Stored Procedure that is producing the report because they want to see everything. Is there a way to make SSRS
    intelligent enough to parameterize the back-end result set? Or do I need to do it the old fashioned way by allowing for an optional parameter, let them run their report, define the available values by a query similar to the stored procedure filtering, and
    let them drill down that way?
    I have tried playing around with Dataset filters and a parameter using the existing result set and existing Dataset, but I just cannot seem to get this to work the way I envision. If this entails creating a Function or Procedure within the SSRS, bring it
    on...I'm willing to learn. And I do have some VBA experience...so I'm not intimidated.
    Again...I apologize for the similar type question, but I felt the need to be a little more clear.
    Thanks for your review and am hopeful for a reply.
    PSULionRP
     

    I GOT IT!!!
    Followed the following...
    Here's what I've put into my SSRS Knowledgebase...
    Filters/Parameters on the Report Result Set
    Request from the Business User to add "parameters" to the Report Result Set. Kind of like auto filtering you can do in Excel
    Within the Report Design within Microsoft Visual Studio…
    — Insert a new Dataset which is merely carving out the SQL from the working Report Stored Procedure and customizing the SQL for the DISTINCT values that you want
    — Insert a NEW Parameter based on the carved out SQL
    General → Allow blank value
                      Allow multiple values
    Available Values → Get values from a query
    Specify the previously created Dataset
    Default Values → Get values from a query
    Specify the previously created Dataset
    — Insert a Filter back on the original Dataset that is used to create the Report
    Expression → Choose the Report Detail Item column name
    Operator → In
    Value → Physically type in the Parameter Name created previously
    Works EXACTLY as I had envisioned. Prompts for the From Date and Thru Date, runs the report, dynamically builds the "optional" parameters/filters,
    and then allows the Busimess User to speify or drill down into the result set based on the dynamically built parameter drop-down list.

  • How can I add text to a pdf

    How can I add additonal text to a saved pdf?

    Hi remax13
    You Need Adobe Acrobat to Add Text to your PDf files. Two Ways to do this.
    1. Convert your PDf to Native file like word, Excel
    2. Make Changes in the output file
    3. Convert it back to PDF
    Or
    See the below link to use the Add Text and Edit Text Tool in Acrobat.
    http://help.adobe.com/en_US/acrobat/X/pro/using/WS2DE764BD-5706-4e3a-9360-5F2F968223AC.w.h tml

  • How can I add a logo to every frame of a movie?

    I want to have branding throughout my video. Can I add a logo? How?

    Hi Shelley (and other interested users),
    Try this excellent tutorial by Karsten Schluter:
    http://sites.google.com/site/karstenschluter/im08_logobug
    John

  • Add Excel-attachment in Mail

    Hi,
    I have done a script within Automator that does take filtered information in one Excel-file and copy it to another and close it. I choose a name for it and saves it. Could I get it to automatically attach this file inside a mail document in Mail.app and let me send it manually?
    I also would like it to automatically uncheck 1904 Date option inside Excel prefs.

    If you know the name of the workbook, then add this applescript to the workflow, while the file is still open.on run {input, parameters}
    tell application "Microsoft Excel"
    set the date 1904 of workbook "Sheet1" to not the date 1904 of workbook "Sheet1"
    send mail workbook "Sheet1"
    end tell
    return input
    end runSubstitute the name of the workbook for Sheet1
    I couldn't get any of the excel actions to pass the name into the Applescript action.
    As for emailing, I can't get Excel to pass any of it's action results onto anything but it's own actions. They don't seem to be very well written. Normally, you'd just add a "New Mail Message" action after something and the output from the previous action would be the content for the new mail message.
    Due to Microsoft's shortcomings, there doesn't seem to be a way to do that without using the "send mail" function in Excel's Applescript dictionary.
    If you need to do more Applescripting of Excel (or Office), see the [VBA to Applescript Transition Guide|http://www.mactech.com/vba-transition-guide>. It is geared towards converting from VBA to Applescript, but it has many examples of how to automate various tasks.
    Message was edited by: Barney-15E

  • Can't send Excel 2007 File via Send To Email Option after Acrobat Install

    Normally, you can send an Excel 2007 file via email to someone by going to the Send option on the Excel file menu and choosing "Email." This will email an actual copy of the Excel 2007 file. However, since installing Adobe Acrobat  9 pro on my computer, this option, as well as the option to send to XPS are gone -- the only email option I have on that menu is to convert the file to a PDF and email it.
    It seems to me that Acrobat should ADD options to menus but not remove any! Does anyone know how I can get those missing options (especially the one to email the actual file itself) back? I've tried Googling up a solution, but to no avail so far.
    Thanks, in advance, for any help!
    Laura

    Thanks for taking the time to respond, Aditya!
    I saw that MS support article when I was trying to solve this issue on my own, but the solutions it proposes won't work for me -- I can't set Outlook as my email client (this is a work computer and we use Lotus Notes) and I can't muck around in the registry (again, this is a work computer). I know I can attach the Excel via the attach command in the email client, but the main thing is I don't understand why Acrobat has removed that option from the Excel menu. Also, it removed the Send to XPS option (which I don't really care about, but it bothers me because it shouldn't be deleting anything)!
    I even tried adding the Email command to the Quick Access Toolbar in Excel -- it let me add the button, but, when I click it, absolutely nothing happens.

  • How can I append excel file rather than replace it?

    Hi,
    I have the attached VI set to write data to Excel, One case structure sends the data to cell B6, the other sends the data to cell B7. The problem is, the data is deleted from one cell when new data is added to another.
    I think I want to be able to append the data without deleting other cells. Any ideas?
    Thank you
    Todd
    Attachments:
    Flow meter write to Excel question.vi ‏180 KB

    Toddzilla,
    There are a couple different ways to append to excel files.  A couple links that might get you going are:
    Can I Add New Data to an Existing Excel File Without Erasing Old Data?
    Append Data to an Excel Document Every Iteration Using Report Generation Toolkit
    Are you trying to write over cells B6 or B7, or are you trying to append within the cell itself?  
    Hopefully this can get you on the right track.  When I append to files I tend to insert rows or append to the end of the file.
    Scott A
    SSP Product Manager
    National Instruments

  • Can I add new compounding field in 0RT_VEND ?

    Due to 0RT_VENDP_TEXT datasource has 3 keys (Language key, Vendor, Vendor Sub-Range) but 0RT_VENDP has 2 keys (Language key, Vendor Sub-Range) that maybe duplicate when 2 vendor have same Vendor Sub-Range code
    Sample#1
    Language key, Vendor, Vendor Sub-Range, Description
    EN, 100, 20, Office product
    EN, 200, 20, Office product
    Sample#2
    Language key, Vendor, Vendor Sub-Range, Description
    EN, 100, 20, Office product
    EN, 200, 20, Furniture product
    My Question:
    1. Can I add new compounding field in 0RT_VEND ? Best Solution ?
    2. Each Vendor Sub-Range Code must same description ?? I don't know about Vendor Sub-Range concept
    Help me please
    Thank you very much

    Hi AJ,
    Usually the  vendor subrange (IS-R) should not have the double descriptions. Please check the Vendor subrange  information below.
    vendor subrange (IS-R):
    A subdivision of the full range of products offered by a vendor (e.g. the Henkel company has the subranges "adhesives" and "washing powder").
    Individual conditions apply for each individual subrange. If a vendor has subranges, each item offered by the vendor must be assigned to the appropriate subrange to enable the system to correctly determine the conditions for the subrange.
    Regards,
    Siva

  • How can we add attachment in the PO using BAPI

    How can we add attachment in the PO? I am using the BAPI_PO_CREATE1 function module to create the PO. I am getting a file from legacy system, this I need to add as an attachment into the particular PO through programming.
    Note: After creation of PO the attachment should be available in ME23n transaction.

    REPORT  ZBAPI_PO_CRATE.
    data : PO_HEADER like BAPIEKKOC.
    data : PO_HEADER_ADD_DATA like BAPIEKKOA.
    data : PO_ITEMS like BAPIEKPOC occurs 0 with header
    line.
    data : PO_ITEM_SCHEDULES like BAPIEKET occurs 0 with
    header line.
    data : RETURN like BAPIRETURN occurs 0 with header
    line.
    DATA : BEGIN OF TAB OCCURS 0,
           PO_NUMBER like BAPIEKKOC-PO_NUMBER,
           DOC_DATE(10),
           DOC_TYPE like BAPIEKKOC-DOC_TYPE,
           CO_CODE like BAPIEKKOC-CO_CODE,
           PURCH_ORG like BAPIEKKOC-PURCH_ORG,
           PUR_GROUP like BAPIEKKOC-PUR_GROUP,
           VENDOR like BAPIEKKOC-VENDOR,
           PMNTTRMS like BAPIEKKOA-PMNTTRMS,
           INCOTERMS1 like BAPIEKKOA-INCOTERMS1,
           INCOTERMS2 like BAPIEKKOA-INCOTERMS2,
           PO_ITEM like  BAPIEKPOC-PO_ITEM,
           MATERIAL like BAPIEKPOC-MATERIAL,
           PUR_MAT like BAPIEKPOC-PUR_MAT,
           ITEM_CAT like BAPIEKPOC-ITEM_CAT,
           PLANT like BAPIEKPOC-PLANT,
           NET_PRICE like BAPIEKPOC-NET_PRICE,
           TAX_CODE like BAPIEKPOC-TAX_CODE,
           DELIV_DATE(10),
           QUANTITY like BAPIEKET-QUANTITY,
         end of tab.
    data: itab1 like alsmex_tabline occurs 0 with header
    line.
    DATA: gd_currentrow type i.
    data : PURCHASEORDER like ekko-ebeln.
    Data: tot_rec type i,     "Total Records
         gd_update type i,   "Main Table Increement
    Counter
         gd_lines type i,    "Success Table increement
    Counter
         w_textout like t100-text. "VARIABLE TO GET ERROR
    LOG
    data : begin of it_success occurs 0,
            PURCHASEORDER LIKE ekko-ebeln,  "PROJECT
          end of it_success.
    data : begin of it_error occurs 0,
            pono like  ekko-ebeln,
            err_msg(73) TYPE c,    "TO RETREIVE ERROR
    MESSAGES
         end of it_error.
    data : pono like  ekko-ebeln.
    selection-screen begin of block b1 with frame.
    skip 3.
    parameter:p_infile like rlgrap-filename obligatory.
    skip 3.
    selection-screen end  of block b1.
    AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_infile.
      PERFORM value_help.
    start-of-selection.
      call function 'ALSM_EXCEL_TO_INTERNAL_TABLE'
        EXPORTING
          filename                = p_infile
          i_begin_col             = '1'
          i_begin_row             = '2' "Do not require
    headings
          i_end_col               = '22'
          i_end_row               = '10000'
        TABLES
          intern                  = itab1
        EXCEPTIONS
          inconsistent_parameters = 1
          upload_ole              = 2
          others                  = 3.
      if sy-subrc <> 0.
        message e010(zz) with text-001. "Problem uploading
    Excel Spreadsheet
      endif.
    *perform open_group.
      sort itab1 by row col.
    * Get first row retrieved
      read table itab1 index 1.
    * Set first row retrieved to current row
      gd_currentrow = itab1-row.
      loop at itab1.
    * Reset values for next row
        if itab1-row ne gd_currentrow.
          append tab .
          clear tab.
          gd_currentrow = itab1-row.
        endif.
        case itab1-col.
          when '0001'. "PGNAM
            TAB-PO_NUMBER = itab1-value.
          when '0002'. "RONAM
            TAB-DOC_DATE = itab1-value.
          when '0003'. "JVLEVEL
            TAB-DOC_TYPE = itab1-value.
          when '0004'. "FTTYPE
            TAB-CO_CODE = itab1-value.
          when '0005'. "LANG
            TAB-PURCH_ORG =  itab1-value.
          when '0006'. "LTEXT
            TAB-PUR_GROUP = itab1-value.
          when '0007'. "LTEXT
            TAB-VENDOR = itab1-value.
          when '0008'. "LTEXT
            TAB-PMNTTRMS = itab1-value.
          when '0009'. "LTEXT
            TAB-INCOTERMS1 = itab1-value.
          when '0010'. "FTTYPE
            TAB-INCOTERMS2 = itab1-value.
          when '0011'. "FTTYPE
            TAB-PO_ITEM = itab1-value.
          when '0012'. "FTTYPE
            TAB-MATERIAL = itab1-value.
          when '0013'. "FTTYPE
            TAB-PUR_MAT = itab1-value.
          when '0014'. "FTTYPE
            TAB-ITEM_CAT = itab1-value.
          when '0015'. "FTTYPE
            shift itab1-value left deleting leading space.
            TAB-PLANT = itab1-value.
          when '0016'. "FTTYPE
            TAB-NET_PRICE = itab1-value.
          when '0017'. "FTTYPE
            TAB-TAX_CODE = itab1-value.
          when '0018'. "FTTYPE
            TAB-DELIV_DATE = itab1-value.
          when '0019'. "FTTYPE
            TAB-QUANTITY = itab1-value.
        endcase.
      endloop.
      append tab.
      clear tab.
      sort tab by PO_NUMBER.
      DELETE TAB WHERE PO_NUMBER = SPACE.
      loop at tab.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = tab-material
          IMPORTING
            OUTPUT = tab-material.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = tab-PUR_MAT
          IMPORTING
            OUTPUT = tab-PUR_MAT.
        CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
          EXPORTING
            INPUT  = tab-vendor
          IMPORTING
            OUTPUT = tab-vendor.
        concatenate tab-doc_DATE+4(4) tab-doc_DATE+2(2)
    tab-doc_DATE+0(2)
    into tab-doc_DATE.
        concatenate tab-DELIV_DATE+4(4)
    tab-DELIV_DATE+2(2)
    tab-DELIV_DATE+0(2) into tab-DELIV_DATE.
        pono = tab-PO_NUMBER.
        if tab-po_number = pono.
          PO_HEADER-DOC_DATE = tab-DOC_DATE.
          PO_HEADER-DOC_TYPE = tab-DOC_TYPE.
          PO_HEADER-CO_CODE  = tab-CO_CODE.
          PO_HEADER-PURCH_ORG = tab-PURCH_ORG.
          PO_HEADER-PUR_GROUP = tab-PUR_GROUP.
          PO_HEADER-VENDOR = tab-VENDOR.
          PO_HEADER-PO_NUMBER = tab-PO_NUMBER.
          PO_HEADER_ADD_DATA-PMNTTRMS = tab-PMNTTRMS.
          PO_HEADER_ADD_DATA-INCOTERMS1 = tab-INCOTERMS1.
          PO_HEADER_ADD_DATA-INCOTERMS2 = tab-INCOTERMS2.
          PO_ITEMS-PO_ITEM = tab-PO_ITEM.
          PO_ITEMS-MATERIAL = tab-MATERIAL.
          PO_ITEMS-PUR_MAT = tab-PUR_MAT.
          PO_ITEMS-ITEM_CAT = tab-ITEM_CAT.
          PO_ITEMS-PLANT = tab-PLANT.
          PO_ITEMS-NET_PRICE = tab-NET_PRICE.
          PO_ITEMS-TAX_CODE = tab-TAX_CODE.
          append po_items.
          PO_ITEM_SCHEDULES-PO_ITEM = tab-PO_ITEM.
          PO_ITEM_SCHEDULES-DELIV_DATE = tab-DELIV_DATE.
          PO_ITEM_SCHEDULES-QUANTITY =  tab-QUANTITY.
          append PO_ITEM_SCHEDULES.
        endif.
        at end of PO_NUMBER.
          CALL FUNCTION 'BAPI_PO_CREATE'
            EXPORTING
              PO_HEADER                        = PO_HEADER
             PO_HEADER_ADD_DATA               =
    PO_HEADER_ADD_DATA
    *           HEADER_ADD_DATA_RELEVANT         =
    *           PO_ADDRESS                       =
    *           SKIP_ITEMS_WITH_ERROR            = 'X'
    *           ITEM_ADD_DATA_RELEVANT           =
    *           HEADER_TECH_FIELDS               =
           IMPORTING
             PURCHASEORDER                    =
    PURCHASEORDER
            TABLES
              PO_ITEMS                         = PO_ITEMS
    *           PO_ITEM_ADD_DATA                 =
              PO_ITEM_SCHEDULES                =
    PO_ITEM_SCHEDULES
    *           PO_ITEM_ACCOUNT_ASSIGNMENT       =
    *           PO_ITEM_TEXT                     =
             RETURN                            = RETURN
    *           PO_LIMITS                        =
    *           PO_CONTRACT_LIMITS               =
    *           PO_SERVICES                      =
    *           PO_SRV_ACCASS_VALUES             =
    *           PO_SERVICES_TEXT                 =
    *           PO_BUSINESS_PARTNER              =
    *           EXTENSIONIN                      =
    *           POADDRDELIVERY                   =
          if PURCHASEORDER <> space.
            commit work.
            ADD 1 TO gd_update.
            it_success-PURCHASEORDER = PURCHASEORDER.
            append it_success.
    clear:PO_HEADER,PO_HEADER_ADD_DATA,PURCHASEORDER.
            refresh : PO_ITEMS,PO_ITEM_SCHEDULES,RETURN.
          ELSE.
            loop at return.
              it_error-pono = tab-PO_NUMBER.
              it_error-err_msg = return-MESSAGE .
              Append it_error.
            ENDLOOP.
    clear:PO_HEADER,PO_HEADER_ADD_DATA,PURCHASEORDER.
            refresh : PO_ITEMS,PO_ITEM_SCHEDULES,RETURN.
          endif.
        endat.
      endloop.
      DESCRIBE TABLE it_success LINES gd_lines.
      IF gd_lines GT 0.
    *     Display result report column headings
        PERFORM display_column_headings.
    *     Display result report
        PERFORM DISPLAY_SUCESS.
      ENDIF.
    * IF SUCESS FAILS Display Error Report
      DESCRIBE TABLE it_error LINES gd_lines.
      IF gd_lines GT 0.
        PERFORM errorheadings.
        PERFORM errorreport.
      ENDIF.
    *&      Form  display_column_headings
    *       text
    FORM display_column_headings.
      WRITE:2 ' Success Report '(014) COLOR COL_POSITIVE.
      SKIP.
      WRITE:2 'The following records inserted
    successfully:'(013).
      WRITE:/ sy-uline(15).
      FORMAT COLOR COL_HEADING.
      WRITE:/      sy-vline,
               (10) 'Purchase order'(004), sy-vline.
      WRITE:/ sy-uline(15).
    ENDFORM.                    "display_column_headings
    *Subroutine to display SUCESS REPORT
    FORM DISPLAY_SUCESS.
      FORMAT COLOR COL_NORMAL.
      LOOP AT it_success.
        WRITE:/      sy-vline,
            (10)  it_success-PURCHASEORDER, sy-vline.
        CLEAR it_success.
      ENDLOOP.
      WRITE:/ sy-uline(15).
      REFRESH: it_success.
      FORMAT COLOR COL_BACKGROUND.
    ENDFORM.                               "
    DISPLAY_REPORT
    *&      Form  errorreport
    *       text
    FORM errorreport.
      LOOP AT it_error.
        WRITE:/      sy-vline,
                (10) it_error-pono, sy-vline,
                 (40) it_error-err_msg, sy-vline.
      ENDLOOP.
      WRITE:/ sy-uline(104).
      REFRESH: it_error.
    endform.                    "errorreport
    *&      Form  ERRORHEADINGS
    *       text
    FORM ERRORHEADINGS.
      SKIP.
      WRITE:2 ' Error Report '(007) COLOR COL_NEGATIVE.
      SKIP.
      WRITE:2 'The following records failed during
    update:'(008).
      WRITE:/ sy-uline(104).
      FORMAT COLOR COL_HEADING.
      WRITE:/      sy-vline,
              (10) 'ERROR.'(009), sy-vline.
      WRITE:/ sy-uline(104).
      FORMAT COLOR COL_NORMAL.
    ENDFORM.                    "ERRORHEADINGS
    **&      Form  value_help
    **       text
    **  -->  p1        text
    **  <--  p2        text
    FORM value_help .
      CALL FUNCTION 'DSVAS_DOC_WS_FILENAME_GET_50'
        EXPORTING
          DEF_FILENAME     = ' '
          DEF_PATH         = ' '
          MASK             = ',*.*,*.*.'
          MODE             = 'O'
          TITLE            = ' '
        IMPORTING
          FILENAME         = p_infile
        EXCEPTIONS
          INV_WINSYS       = 1
          NO_BATCH         = 2
          SELECTION_CANCEL = 3
          SELECTION_ERROR  = 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.
    endform.                    "value_help

Maybe you are looking for