Export Err

Hi, I am working on IBM AIX machine. I tried to export database. If I log in as a regular user and export database using User mode, no problems. But if I log in as an exporter (have EXP_FULL_DATABASE priv) and try to export database using Entire mode, I guess the export is finished but with the following error msg:
EXP-00008: ORACLE error 3113 encountered
ORA-03113: end-of-file on communication channel
EXP-00000: Export terminated unsuccessfully
Anybody has any ideas?
Thanks in advance!
Yin
null

If it is working on your QLY system, just use the same parameter set as there..
Kind regards,
Mark

Similar Messages

Error during Client Export err:

Dear Experts,
We are on 4.7 EE, Oracle 10.2.0.4 and Windows 2003 (32 Bit with 2GB RAM) (QLY system)and our database size is close to 600 GB.
I have successfully restored my PRD data to QLY and now my QLY is running fine with no hiccups.
I wanted to do the same to my DEV(which was on 9.2.0.5 now upgraded to 10G) but things are not moving good as expected.
I first tried a database backup/restore which was not successful, then i tried a system copy from QLY--> DEV but the system copy failed due to some memory issues. Finally i opted for a client export which also is failing.
All i assume is that the QLY memory is not sufficient for these activities. I have also set the parameter recommendations for 10G based on the SAP Note: 830576.
The following is the error during a client export
=====================================================================================================
2EETW000 sap_dext called with msgnr "2":
2EETW000 -
db call info -
2EETW000 function:   db_setget
2EETW000 fcode:      RT_GET (0)
2EETW000 tabname:    COEP
2EETW000 len:        3
2EETW000 key:
2EETW000 ok fetches: 33871957
2EETW000 last entry: 08710000305427330002010
2EETW000 retcode:    2
2EETW125 SQL error "4030" during "" access: "ORA-04030: out of process memory when trying to allocate 64528 bytes (sort subheap,sort key)"
4 ETW000 ROLLBACK (1852108487).
2EETP200 Export with errors, request will not be imported
1 ETP150 MAIN EXPORT
1 ETP110 end date and time   : "20100512075209"
1 ETP111 exit code           : "12"
=====================================================================================================
When i searched based on the SQL error 4030 i had many replies suggesting to increase my pga and other memory related parameters.
Can anyone suggest me the optimal parameter recommendations based on the size of my RAM(2GB) for my Oracle and SAP please.
We are in the process of increasing it to 4GB very soon.
Awaiting a helpful reply
Thanks in advance
Hunky

If it is working on your QLY system, just use the same parameter set as there..
Kind regards,
Mark

Single record in Export Error log - Essbase Adapter

We are using FDM to load data to Essbase cubes. Currently in the export.err log file, we are getting the kickout details for a single record at a time. Is there any setting that would give us the entire list of kickouts in a sinlge log?
Thanks.

Use a load rule to load a data and you will get a error log listing all errors up to the max errors specified in the Essbase configuration. To use this method from FDM instead of the standard Adapter load check the Enable String Load option in the Adapter configuration settings and specify the name of the Load Rule you wish to use. Personally I would always go for the Load Rule option when loading Essabs from FDM

Err: The private key material is not exportable outside of the HSM

Hi,
I am working on weblogic 8.1 with sp4, Using keytool generated certificates with HardwareSecurityModule (HSM) and enabled ssl in weblogic admin console.
Now while starting the server following error is displayed
<Oct 4, 2005 3:18:44 PM GMT+05:30> <Notice> <Security> <BEA-090082> <Security initializing using security realm myrealm.>
<Oct 4, 2005 3:18:44 PM GMT+05:30> <Notice> <WebLogicServer> <BEA-000327> <Starting WebLogic Admin Server "ncss" for domain "ncqa">
<Oct 4, 2005 3:18:49 PM GMT+05:30> <Notice> <Security> <BEA-090170> <Loading the private key stored under the alias srinualias from the nCipher.SWorld keystore file E:\bea\user_projects\domains\ncqa\srinu.>
<Oct 4, 2005 3:18:51 PM GMT+05:30> <Notice> <Security> <BEA-090171> <Loading the identity certificate stored under the alias srinualias from the nCipher.SWorldkeystore file E:\bea\user_projects\domains\ncqa\srinu.>
com.ncipher.provider.nCSecurityException: The private key material is not exportable outside of the HSM
at com.ncipher.provider.km.KMDSAKey.getParams(KMDSAKey.java:59)
at com.certicom.tls.interfaceimpl.CertificateSupport.CheckIfKeyMatch(Unknown Source)
at com.bea.sslplus.CerticomSSLContext.doKeysMatch(Unknown Source)
at weblogic.security.utils.SSLContextWrapper.doKeysMatch(SSLContextWrapper.java:93)
at weblogic.t3.srvr.SSLListenThread.checkIdentity(SSLListenThread.java:323)
at weblogic.t3.srvr.SSLListenThread.initSSLContext(SSLListenThread.java:169)
at weblogic.t3.srvr.SSLListenThread.<init>(SSLListenThread.java:140)
at weblogic.t3.srvr.SSLListenThread.<init>(SSLListenThread.java:126)
at weblogic.t3.srvr.T3Srvr.initializeListenThreads(T3Srvr.java:1637)
at weblogic.t3.srvr.T3Srvr.resume(T3Srvr.java:1009)
at weblogic.t3.srvr.T3Srvr.run(T3Srvr.java:361)
at weblogic.Server.main(Server.java:32)
<Oct 4, 2005 3:18:52 PM GMT+05:30> <Warning> <Security> <BEA-090552> <The public and private key could not be checked for consistency.>
<Oct 4, 2005 3:18:52 PM GMT+05:30> <Notice> <Security> <BEA-090169> <Loading trusted certificates from the nCipher.SWorld keystore file E:\bea\user_projects\domains\ncqa\srinu.>
<Oct 4, 2005 3:18:53 PM GMT+05:30> <Notice> <WebLogicServer> <BEA-000331> <Started WebLogic Admin Server "ncss" for domain "ncqa" running in Development Mode>
<Oct 4, 2005 3:18:53 PM GMT+05:30> <Notice> <WebLogicServer> <BEA-000360> <Server started in RUNNING mode>
<Oct 4, 2005 3:18:53 PM GMT+05:30> <Notice> <WebLogicServer> <BEA-000355> <Thread "SSLListenThread.Default" listening on port 7002, ip address *.*>
<Oct 4, 2005 3:18:53 PM GMT+05:30> <Notice> <WebLogicServer> <BEA-000355> <Thread "ListenThread.Default" listening on port 7001, ip address *.*>
Please let me know if any clues.
thanks
Ceenu

This is just a warning to let you know that the server was not able to verify whether the private key matches your public key, because it could not get the key from HSM. This is normal. SSL should still work.
Pavel.

Problem Importing Sample Application - Err 7621

Hi,
Experiencing a problem exporting/importing the sample application into the same workspace. This is a new workspace we've created, the second one in the same DB.
Export:
Application: Sample Application
File Format: UNIX
Build Status: Run and Build Application
Import:
File Type: Application/Page Export
File Character Set: Unicode UTF-8
Error:
ERR-7621 Could not determine workspace for application (:) on application accept.
Expecting p_company or wwv_flow_company cookie to contain security group id of application owner.
Env:
User: GREGRO
Workspace LPM_CUSTOM>About
HTML DB
Product Build: 1.6.0.00.87
Schema Compatibility: 2004.07.04
Last DDL Time: 02/21/2005 11:17:04 AM
Host Schema: GREGRO
Application Owner: FLOWS_010600
Workspace ID: 874618965604689
Workspace Name: LPM_CUSTOM
Current User: GREGRO
Language Preference: en
Current Time (on server): 05/13/2005 11:15:18 AM
Database version
Database Banner
Oracle9i Enterprise Edition Release 9.2.0.5.0 - 64bit Production
PL/SQL Release 9.2.0.5.0 - Production
CORE 9.2.0.6.0 Production
TNS for Solaris: Version 9.2.0.5.0 - Production
NLSRTL Version 9.2.0.5.0 - Production
NLS_CHARACTERSET US7ASCII
DAD CHARACTERSET US-ASCII
Any insight to the problem would be appreciated
Cheers Greg

Hi Scott,
Here is the last few lines of the log.
Fri May 13 09:22:11 2005] [error] [client 130.194.145.15] [ecid: 1115940131:130.194.82.14
5:6163:0:22,0] mod_plsql: /pls/CDUT/htmldb/wwv_flow.accept HTTP-404 ORA-00942: table or vi
ew does not exist
[Fri May 13 09:23:04 2005] [error] [client 130.194.145.15] [ecid: 1115940184:130.194.82.14
5:10341:0:578,0] mod_plsql: /pls/CDUT/htmldb/wwv_flow.accept HTTP-404 ORA-00942: table or
view does not exist
[Fri May 13 09:33:37 2005] [error] [client 130.194.146.86] [ecid: 1115940817:130.194.82.14
5:10341:0:596,0] mod_plsql: /pls/CDUT/htmldb/htmldb HTTP-401 ORA-1017
[Fri May 13 09:48:19 2005] [error] [client 130.194.144.30] [ecid: 1115941699:130.194.82.14
5:10341:0:611,0] mod_plsql: /pls/CDUT/htmldb/htmldb HTTP-401 ORA-1017
[Fri May 13 09:51:14 2005] [error] [client 130.194.144.30] [ecid: 1115941874:130.194.82.14
5:10355:0:612,0] File does not exist: /u10/CDUT/htmldb/doc/favicon.ico
[Fri May 13 10:00:02 2005] [error] [client 130.194.144.30] [ecid: 1115942402:130.194.82.14
5:10340:0:633,0] mod_plsql: /pls/CDUT/htmldb/f HTTP-401 ORA-1017
[Fri May 13 10:00:12 2005] [error] [client 130.194.144.30] [ecid: 1115942412:130.194.82.14
5:10342:0:633,0] mod_plsql: /pls/CDUT/htmldb/f HTTP-401 ORA-1017
[Fri May 13 10:01:17 2005] [error] [client 130.194.147.207] [ecid: 1115942471:130.194.82.1
45:10340:0:644,0] mod_plsql: /pls/CDUT/htmldb/wwv_flow.accept HTTP-404 ORA-00942: table or
view does not exist
Tried the different char sets to no avail.
If we run the import script from TOAD directly it works ok.
Cheers Greg

Add/Remove Programs - export to text file?

Hello,
I am wondering if it is possible to export a list of everything in add/remove programs to a text file for inventory purposes.
I have not found any easy method to do this short of copying reg files or installer 3rd party software. Since the idea is to save time neither of those are viable solutions.
Does anyone have any ideas?
-Justin

You could try this vbs script that lists installed programs and add info to a text file.
Michael Petersen
Option Explicit
Dim sTitle
sTitle = "InstalledPrograms.vbs by Bill James"
Dim StrComputer
strComputer = InputBox("Enter I.P. or name of computer to check for " & _
 "installed software (leave blank to check " & _
 "local system)." & vbcrlf & vbcrlf & "Remote " & _
 "checking only from NT type OS to NT type OS " & _
 "with same Admin level UID & PW", sTitle)
If IsEmpty(strComputer) Then WScript.Quit
strComputer = Trim(strComputer)
If strComputer = "" Then strComputer = "."
'Wscript.Echo GetAddRemove(strComputer)
Dim sCompName : sCompName = GetProbedID(StrComputer)
Dim sFileName
sFileName = sCompName & "_" & GetDTFileName() & "_Software.txt"
Dim s : s = GetAddRemove(strComputer)
If WriteFile(s, sFileName) Then
 'optional prompt for display
 If MsgBox("Finished processing. Results saved to " & sFileName & _
 vbcrlf & vbcrlf & "Do you want to view the results now?", _
 4 + 32, sTitle) = 6 Then
 WScript.CreateObject("WScript.Shell").Run sFileName, 9
 End If
End If
Function GetAddRemove(sComp)
 'Function credit to Torgeir Bakken
 Dim cnt, oReg, sBaseKey, iRC, aSubKeys
 Const HKLM = &H80000002 'HKEY_LOCAL_MACHINE
 Set oReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
 sComp & "/root/default:StdRegProv")
 sBaseKey = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\"
 iRC = oReg.EnumKey(HKLM, sBaseKey, aSubKeys)
 Dim sKey, sValue, sTmp, sVersion, sDateValue, sYr, sMth, sDay
 For Each sKey In aSubKeys
 iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, "DisplayName", sValue)
 If iRC <> 0 Then
 oReg.GetStringValue HKLM, sBaseKey & sKey, "QuietDisplayName", sValue
 End If
 If sValue <> "" Then
 iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
 "DisplayVersion", sVersion)
 If sVersion <> "" Then
 sValue = sValue & vbTab & "Ver: " & sVersion
 Else
 sValue = sValue & vbTab
 End If
 iRC = oReg.GetStringValue(HKLM, sBaseKey & sKey, _
 "InstallDate", sDateValue)
 If sDateValue <> "" Then
 sYr = Left(sDateValue, 4)
 sMth = Mid(sDateValue, 5, 2)
 sDay = Right(sDateValue, 2)
 'some Registry entries have improper date format
 On Error Resume Next
 sDateValue = DateSerial(sYr, sMth, sDay)
 On Error GoTo 0
 If sdateValue <> "" Then
 sValue = sValue & vbTab & "Installed: " & sDateValue
 End If
 End If
 sTmp = sTmp & sValue & vbcrlf
 cnt = cnt + 1
 End If
 Next
 sTmp = BubbleSort(sTmp)
 GetAddRemove = "INSTALLED SOFTWARE (" & cnt & ") - " & sCompName & _
 " - " & Now() & vbcrlf & vbcrlf & sTmp
End Function
Function BubbleSort(sTmp)
 'cheapo bubble sort
 Dim aTmp, i, j, temp
 aTmp = Split(sTmp, vbcrlf)
 For i = UBound(aTmp) - 1 To 0 Step -1
 For j = 0 to i - 1
 If LCase(aTmp(j)) > LCase(aTmp(j+1)) Then
 temp = aTmp(j + 1)
 aTmp(j + 1) = aTmp(j)
 aTmp(j) = temp
 End if
 Next
 Next
 BubbleSort = Join(aTmp, vbcrlf)
End Function
Function GetProbedID(sComp)
 Dim objWMIService, colItems, objItem
 Set objWMIService = GetObject("winmgmts:\\" & sComp & "\root\cimv2")
 Set colItems = objWMIService.ExecQuery("Select SystemName from " & _
 "Win32_NetworkAdapter",,48)
 For Each objItem in colItems
 GetProbedID = objItem.SystemName
 Next
End Function
Function GetDTFileName()
 dim sNow, sMth, sDay, sYr, sHr, sMin, sSec
 sNow = Now
 sMth = Right("0" & Month(sNow), 2)
 sDay = Right("0" & Day(sNow), 2)
 sYr = Right("00" & Year(sNow), 4)
 sHr = Right("0" & Hour(sNow), 2)
 sMin = Right("0" & Minute(sNow), 2)
 sSec = Right("0" & Second(sNow), 2)
 GetDTFileName = sMth & sDay & sYr & "_" & sHr & sMin & sSec
End Function
Function WriteFile(sData, sFileName)
 Dim fso, OutFile, bWrite
 bWrite = True
 Set fso = CreateObject("Scripting.FileSystemObject")
 On Error Resume Next
 Set OutFile = fso.OpenTextFile(sFileName, 2, True)
 'Possibly need a prompt to close the file and one recursion attempt.
 If Err = 70 Then
 Wscript.Echo "Could not write to file " & sFileName & ", results " & _
 "not saved." & vbcrlf & vbcrlf & "This is probably " & _
 "because the file is already open."
 bWrite = False
 ElseIf Err Then
 WScript.Echo err & vbcrlf & err.description
 bWrite = False
 End If
 On Error GoTo 0
 If bWrite Then
 OutFile.WriteLine(sData)
 OutFile.Close
 End If
 Set fso = Nothing
 Set OutFile = Nothing
 WriteFile = bWrite
End Function
Deploy deploy deploy

Export report to PDF with RDC, ASP

I use asp on windows 2003 server and Crystal reports XI, service pack 3.When I export a report to a PDF file, it creates a 0kb file. No error messages are received. The directory allows for writing files. I can manually export a file via the viewer. When I try to open this file I get an error that another application is using the file (Crystal?)Code I use:<% reportname = "Radar.rpt" ExportFileName = "Radar.PDF" If Not IsObject (session("oApp")) Then Set session("oApp") = Server.CreateObject("CrystalRuntime.Application.11") End If Path = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-22)) & "Reports\" If IsObject(session("oRpt")) then Set session("oRpt") = nothing End ifOn error resume nextSet session("oRpt") = session("oApp").OpenReport(Path & reportname, 1)session("oRpt").MorePrintEngineErrorMessages = False session("oRpt").EnableParameterPrompting = False 'session("oRpt").DiscardSavedDataWith session("oRpt").Database.Tables(1).ConnectionProperties ' .Item("DSN") = "test" .Item("User ID") = "test" .Item("Password") = "test" End With session("oRpt").ParameterFields(1).AddCurrentValue(Cint(request.Querystring("CustomerID"))) End SelectIf Err.Number <> 0 Then Response.Write "An Error has occured. Please check the ASP page. " Response.Write "Error " & Err.number & " " & Err.description & " " Response.Write "Report: " & ReportName End Ifsession("oRpt").ReadRecords If Err.Number <> 0 Then Response.Write "Error Occurred Reading Records: " & Err.Description Set Session("oRpt") = nothing Set Session("oApp") = nothing Session.Abandon Response.End Else If IsObject(session("oPageEngine")) Then set session("oPageEngine") = nothing End If set session("oPageEngine") = session("oRpt").PageEngine End IfSet CrystalExportOptions = session("oRpt").ExportOptions ExportDirectory = MID(request.ServerVariables("PATH_TRANSLATED"), 1, (LEN(request.ServerVariables("PATH_TRANSLATED"))-22)) & "Docs\" ExportType = "31" CrystalExportOptions.DiskFileName = ExportDirectory & ExportFileName CrystalExportOptions.FormatType = CInt(ExportType) CrystalExportOptions.DestinationType = CInt(1) session("oRpt").Export False %>  

Hi Ludek,
I trid the SP, but doesn't work. I can send the font to you, it is only 50K. If you would like to try I can send it to you, but i am not sure how i can upload the font file. I guess any none Windows standard font will have same issue, i guess.
For now, i am going to give up and use image file instead.
Thanks,
Lan
Do you know if it is well-known issue in CR?
- No I do not.
where i can get any SP of CR for VS2008?
https://smpdl.sap-ag.de/~sapidp/012002523100009351512008E/crbasic2008sp1.exe
Runtimes for SP1:
CRRedist2008_ia64.msi
https://smpdl.sap-ag.de/~sapidp/012002523100006255262008E/CRRedist2008_ia64.zip
CRRedist2008_x64.msi
https://smpdl.sap-ag.de/~sapidp/012002523100006255272008E/CRRedist2008_x64.zip
CRRedist2008_x86.msi
https://smpdl.sap-ag.de/~sapidp/012002523100006255282008E/CRRedist2008_x86.zip
I would not mind testing this, but I need to know if there is a free download of this font available. I Googled the font name, but a quick search did not come up with anything.
Alternatively, you could try CR 2008 (12.x) and see if that will do the trick for you. An Eval of CR 2008 is available here:
http://www.sap.com/solutions/sapbusinessobjects/sme/freetrials/index.epx

Report Print & Export Issue (File Download Box appears)

We send a URL to Crystal Enterprise which runs a script, logs on, finds folder, finds report and displays in the Crystal report viewer. All that works fine....
However, when you select the print icon or the export icon a Windows Internet Explorer box to select page range etc. and then when you say OK, you recieve a File Download Box asking to Open/Save/Cancel one of the following:
Print - Name: CrystalViewer.pdf, and Type of pdf_auto_file
Export - Name: CrystalViewer.rpt, and Type of CrystalReports
I have no IDEA what he is trying to do but he sure ain't printing. I can only assume that I have a missing part that he is trying to download at the time of print/export. Or that there is something set in the script that is killing me...
Sub ViewReport( iStore, id, token)
URI = "./viewer/en/viewreport.csp?id=" & id & "&token=" & token & GetPrompt
 Set viewer = Server.CreateObject( "CrystalReports.CrystalReportViewer" )
 Set rptFactory = iStore.EnterpriseSession.Service("", "PSReportFactory")
 Set rptSource = rptFactory.OpenReportSource(CInt(id))
 ' Set the viewer's properties to prepare it for viewing.
 With viewer
 .ReportSource = rptSource
 .EnterpriseLogon = iStore.EnterpriseSession
 .URI = URI
 .ISOWNPAGE = TRUE
 .ISOWNFORM = TRUE
 .HasPrintButton = TRUE
 .ISDISPLAYPAGE = true
 .isdisplaytoolbar = true
 .isDisplayGroupTree = true
 .GroupTreeWidthUnit = 1
 .GroupTreeWidth = 17
 .HasRefreshButton = true
 .HasExportButton = true
 .ParameterFields = GetParams
 End With
 If Err.Number <> 0 Then
 'There was an error setting up the viewer.
 Response.Write "Unable to create report viewer. " & Err.number
 Else
 'Process the request and launch the viewer.
 viewer.ProcessHttpRequest Request, Response, Session
 'viewer.refresh
 End If
End Sub
Help me???

Please re-post if this is still an issue to the .NET Development - Crystal Reports Forum or purchase a case and have a dedicated support engineer work with you directly

Exporting a crystal report as PDF and Attaching to an email via code - Filename Issuses?

Post Author: alynch
CA Forum: .NET
I need to export a crystal report as a pdf and send it out via email. I have created a subroutine that works but the attached filename come up as "untitled.txt" so the receiving machine believes it is a text file. If I rename it on the recipients machine to a ".pdf" I can open it with acrobat and it looks OK. Does anyone know how to rename the file as a pdf prior to sending it out?
Thank You.
al
I have included a copy of the subroutine:
Dim repdoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
Dim diskOpts As New CrystalDecisions.Shared.DiskFileDestinationOptions()
Dim ExpOpts As CrystalDecisions.Shared.ExportOptions
Dim MailOpts As New CrystalDecisions.Shared.MicrosoftMailDestinationOptions()
repdoc = Me.CrystalReport11
repdoc.Load("C:\Documents and Settings\User\My Documents\Visual Studio 2005\Projects\WindowsApplication3\WindowsApplication3\CrystalReport1.rpt")
ExpOpts = repdoc.ExportOptions
With ExpOpts
.ExportDestinationType = CrystalDecisions.[Shared].ExportDestinationType.MicrosoftMail
.ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat
End With
With MailOpts
.MailMessage = "Message"
.MailToList = "enter email adress here"
.MailSubject = "Attached is a PDF file - .net Export test "
End With
ExpOpts.DestinationOptions = MailOpts
Try
repdoc.Export()
Catch err As Exception
MessageBox.Show(err.ToString())
End Try
End Sub

Post Author: Knight
CA Forum: .NET
I had this same problem today, here's what I used. Its built in 2 parts. Step one loops throught and exports PDF copies of a traking report. Step 2 builds an email list from a SQl query and sends it.STEP ONE:Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 'Declare the some variables Dim row1 As DataRow Dim brokerID As String Dim brokername As String Dim brokerEmail As String Dim shipdate As String Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues() Dim crParameterDiscreteValue As New ParameterDiscreteValue() Dim crParameterFieldDefinitions1 As ParameterFieldDefinitions Dim crParameterFieldDefinition1 As ParameterFieldDefinition Dim crParameterValues1 As New ParameterValues() Dim crParameterDiscreteValue1 As New ParameterDiscreteValue() Dim CrReport As New CrystalReport1() ' Report Name Dim report As ReportDocument = "O:KNIFormats_ReportPrivateSMStageShipmentInfo" Dim CrExportOptions As ExportOptions Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions() Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() Dim SHIPDATE123 As String SHIPDATE123 = _month & "/" & _day & "/" & year Dim db As String db = System.Configuration.ConfigurationSettings.AppSettings("Datalogin") Dim sqlCon As New SqlConnection sqlCon.ConnectionString = db Dim strsql1 As String strsql1 = "SELECT tblSOOrd_Hdr.BrokerCd, tblSO_Ord_Hdr.BrokerName, tblSM_Ship_Hdr.ShipDate " strsql1 &= "FROM tblSO_Ord_Hdr INNER JOIN tblSM_Ship_Hdr ON tblSO_Ord_Hdr.Locale = tblSM_Ship_Hdr.Locale AND tblSO_Ord_Hdr.OrdNo = tblSM_Ship_Hdr.OrdNo AND " strsql1 &= " tblSO_Ord_Hdr.RlsNo = tblSM_Ship_Hdr.RlsNo INNER JOIN tblSys_Cust_Broker ON tblSO_Ord_Hdr.BrokerCd = tblSys_Cust_Broker.BrokerCd " strsql1 &= "GROUP BY tblSO_Ord_Hdr.BrokerCd, tblSM_Ship_Hdr.ShipDate, tblSO_Ord_Hdr.BrokerName " strsql1 &= "HAVING (tblSM_Ship_Hdr.ShipDate = '" & SHIPDATE123 & "') " Dim da1 As New SqlDataAdapter(strsql1, sqlCon) Dim worktbl1 As DataTable worktbl1 = New DataTable("tblEmail") da1.Fill(worktbl1) da1.FillSchema(worktbl1, SchemaType.Source) If worktbl1.Rows.Count > 0 Then For Each row1 In worktbl1.Rows brokerID = CStr(row1("BrokerCd")).Trim brokername = CStr(row1("BrokerName")).Trim shipdate = CStr(row1("ShipDate")).Trim CrReport.Load() crParameterDiscreteValue.Value = shipdate crParameterFieldDefinitions = CrReport.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions.Item("ShipDate") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Clear() crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) crParameterDiscreteValue1.Value = brokerID crParameterFieldDefinitions1 = CrReport.DataDefinition.ParameterFields crParameterFieldDefinition1 = crParameterFieldDefinitions1.Item("Broker") crParameterValues1 = crParameterFieldDefinition1.CurrentValues crParameterValues1.Clear() crParameterValues1.Add(crParameterDiscreteValue1) crParameterFieldDefinition1.ApplyCurrentValues(crParameterValues1) CrDiskFileDestinationOptions.DiskFileName = "c:Test_Folder20" & _year & "-" & _month & "-" & day & "" & brokername & ".pdf" CrFormatTypeOptions.FirstPageNumber = 1 ' Start Page in the Report CrFormatTypeOptions.LastPageNumber = 1000 ' End Page in the Report CrFormatTypeOptions.UsePageRange = True CrExportOptions = CrReport.ExportOptions With CrExportOptions .ExportDestinationType = ExportDestinationType.DiskFile .ExportFormatType = ExportFormatType.PortableDocFormat .DestinationOptions = CrDiskFileDestinationOptions .FormatOptions = CrFormatTypeOptions End With Try CrReport.Export() Catch err As Exception MessageBox.Show("DID NOT EXPORT") End Try Next MessageBox.Show("All PDF's exported succesfully") End If End SubSTEP 2: Private Sub Button3Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click Dim row2 As DataRow Dim SHIPDATE123 As String SHIPDATE123 = _month & "/" & _day & "/" & year Dim db1 As String db1 = System.Configuration.ConfigurationSettings.AppSettings("Datalogin") Dim sqlCon As New SqlConnection sqlCon.ConnectionString = db1 Dim strsql2 As String strsql2 = "SELECT tblSOOrd_Hdr.BrokerCd, tblSys_Cust_Broker.BrokerName, tblSM_Ship_Hdr.ShipDate, tblSys_Cust_Broker.ContactEmail " strsql2 &= "FROM tblSO_Ord_Hdr INNER JOIN tblSM_Ship_Hdr ON tblSO_Ord_Hdr.Locale = tblSM_Ship_Hdr.Locale AND tblSO_Ord_Hdr.OrdNo = tblSM_Ship_Hdr.OrdNo AND " strsql2 &= " tblSO_Ord_Hdr.RlsNo = tblSM_Ship_Hdr.RlsNo INNER JOIN tblSys_Cust_Broker ON tblSO_Ord_Hdr.BrokerCd = tblSys_Cust_Broker.BrokerCd " strsql2 &= "GROUP BY tblSO_Ord_Hdr.BrokerCd, tblSM_Ship_Hdr.ShipDate, tblSys_Cust_Broker.ContactEmail, tblSys_Cust_Broker.BrokerName, tblSys_Cust_Broker.Email_ASN " strsql2 &= "HAVING (tblSM_Ship_Hdr.ShipDate = '" & SHIPDATE123 & "') AND (tblSys_Cust_Broker.Email_ASN = 1) AND (tblSys_Cust_Broker.ContactEmail <> '') " Dim da1 As New SqlDataAdapter(strsql2, sqlCon) Dim worktbl2 As DataTable worktbl2 = New DataTable("tblEmail12") da1.Fill(worktbl2) da1.FillSchema(worktbl2, SchemaType.Source) Dim brokerID As String Dim brokername As String Dim brokerEmail As String Dim shipdate As String If worktbl2.Rows.Count > 0 Then For Each row2 In worktbl2.Rows brokerID = CStr(row2("BrokerCd")).Trim brokername = CStr(row2("BrokerName")).Trim brokerEmail = CStr(row2("ContactEmail")).Trim shipdate = CStr(row2("ShipDate")).Trim Dim mail As New MailMessage Dim att As String att = "c:Test_Folder20" & _year & "-" & _month & "-" & _day & "" & brokername & ".pdf" 'set the addresses mail.From = New MailAddress("[email protected]") mail.To.Add(brokerEmail) mail.Attachments.Add(New Attachment(att)) 'set the content mail.Subject = "Shipment Tracking report from Knox Nursery for " & SHIPDATE123 mail.IsBodyHtml = True mail.Body = "
" mail.Body &= "This shipment update has been requested by:
" 'send the message Dim smtp As New SmtpClient smtp.Send(mail) ' MessageBox.Show("No Records Found", "Failed to send", MessageBoxButtons.OK, MessageBoxIcon.Stop Next Else MessageBox.Show("No broker have opted in", "No Emails Sent", MessageBoxButtons.OK, MessageBoxIcon.Information) End If MessageBox.Show("Emails sent... ", "Emails Sent", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub

A rmi problem about exporting a remote object

here is the code:
public interface Hello extends Remote {
String sayHello() throws RemoteException;
public class HelloImpl extends UnicastRemoteObject
implements Hello {
public HelloImpl() throws RemoteException {
super();
public String sayHello() {
return "Hello World!";
public static void main(String args[]) {
if (System.getSecurityManager() == null) {
     System.setSecurityManager(new RMISecurityManager());
try{
     HelloImpl obj = new HelloImpl();
     Naming.rebind("//192.168.10.2:2001/HelloServer", obj);
     System.out.println("HelloServer bound in registry");
}catch (Exception e) {
     System.out.println("HelloImpl err: " + e.getMessage());
e.printStackTrace();
public class HelloClient{
public static void main(String[] args){
Hello obj = null;
String message="nobody say hello to me";
if (System.getSecurityManager() == null) {
     System.setSecurityManager(new RMISecurityManager());
try {
     obj = (Hello)Naming.lookup("//192.168.10.2:2001/HelloServer");
     message = obj.sayHello();
}catch (Exception e) {
     System.out.println("exception: "+e.getMessage());
     e.printStackTrace();
System.out.println(message);
where 192.168.10.2 is the ip address of my computer.
i'm using an mini-http server provided by sun,that is,ClassFileServer
here is my command lines:
java examples.classServer.ClassFileServer 2003 d:\java\rmi
start rmiregistry 2001
java -Djava.rmi.server.codebase=http://192.168.10.2:2001/
-Djava.security.policy=server.policy HelloImpl
then encountered the exception.
can someone tell me how can i export the HelloImpl and
make it can be invoked by client.
thanks a lot!

thank you for your reply,i tried it again like below:
java examples.classServer.ClassFileServer 2001 d:\java\rmi
start rmiregistry
java -Djava.rmi.server.codebase=http://192.168.10.2:2001/
-Djava.security.policy=server.policy HelloImpl
java HelloClient
but could not work,the exception raised at the client point is like that:
java.rmi.Naming.lookup(unknown source)....
i want to know how could the client know how to contact with
rmiregistry,where the client trying to lookup(//192.168.10.2:2001/HelloServer)
while rmiregistry running on the port 1099.
thank you!

Script to Export Pervious Day Events Logs to CSV

HI,
I am trying to export all the previous day's application event logs to a CSV file. I found the following script on net. But for this script to work I need to enter in the Event ID's I wont to export. Does anyone have any idea how I can change thsi script
to export all event ID's or have another script that can?
'Description : This script queries the event log for...whatever you want it to! Just set the event 'log name and event ID's!
'Initialization Section
Option Explicit
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
Dim objDictionary, objFSO, wshShell, wshNetwork
Dim scriptBaseName, scriptPath, scriptLogPath
Dim ipAddress, macAddress, item, messageType, message
On Error Resume Next
 Set objDictionary = NewDictionary
 Set objFSO = CreateObject("Scripting.FileSystemObject")
 Set wshShell = CreateObject("Wscript.Shell")
 Set wshNetwork = CreateObject("Wscript.Network")
 scriptBaseName = objFSO.GetBaseName(Wscript.ScriptFullName)
 scriptPath = objFSO.GetFile(Wscript.ScriptFullName).ParentFolder.Path
 scriptLogPath = scriptPath & "\" & IsoDateString(Now)
 If Err.Number <> 0 Then
 Wscript.Quit
 End If
On Error Goto 0
'Main Processing Section
On Error Resume Next
 PromptScriptStart
 ProcessScript
 If Err.Number <> 0 Then
 MsgBox BuildError("Processing Script"), vbCritical, scriptBaseName
 Wscript.Quit
 End If
 PromptScriptEnd
On Error Goto 0
'Functions Processing Section
'Name : ProcessScript -> Primary Function that controls all other script processing.
'Parameters : None ->
'Return : None ->
Function ProcessScript
 Dim hostName, logName, startDateTime, endDateTime
 Dim events, eventNumbers, i
 hostName = wshNetwork.ComputerName
 logName = "application"
 eventNumbers = Array("1001","1")
 startDateTime = DateAdd("n", -21600, Now)
 'Query the event log for the eventID's within the specified event log name and date range.
 If Not QueryEventLog(events, hostName, logName, eventNumbers, startDateTime) Then
 Exit Function
 End If
 'Log the scripts results to the scripts
 For i = 0 To UBound(events)
 LogMessage events(i)
 Next
End Function
'Name : QueryEventLog -> Primary Function that controls all other script processing.
'Parameters : results -> Input/Output : Variable assigned to an array of results from querying the event log.
' : hostName -> String containing the hostName of the system to query the event log on.
' : logName -> String containing the name of the Event Log to query on the system.
' : eventNumbers -> Array containing the EventID's (eventCode) to search for within the event log.
' : startDateTime -> Date\Time containing the date to finish searching at.
' : minutes -> Integer containing the number of minutes to subtract from the startDate to begin the search.
'Return : QueryEventLog -> Returns True if the event log was successfully queried otherwise returns False.
Function QueryEventLog(results, hostName, logName, eventNumbers, startDateTime)
 Dim wmiDateTime, wmi, query, eventItems, eventItem
 Dim timeWritten, eventDate, eventTime, description
 Dim eventsDict, eventInfo, errorCount, i
 QueryEventLog = False
 errorCount = 0
 If Not IsArray(eventNumbers) Then
 eventNumbers = Array(eventNumbers)
 End If
 'Construct part of the WMI Query to account for searching multiple eventID's
 query = "Select * from Win32_NTLogEvent Where Logfile = " & SQ(logName) & " And (EventCode = "
 For i = 0 To UBound(eventNumbers)
 query = query & SQ(eventNumbers(i)) & " Or EventCode = "
 Next
 On Error Resume Next
 Set eventsDict = NewDictionary
 If Err.Number <> 0 Then
 LogError "Creating Dictionary Object"
 Exit Function
 End If
 Set wmi = GetObject("winmgmts:{impersonationLevel=impersonate,(Security)}!\\" & hostName & "\root\cimv2")
 If Err.Number <> 0 Then
 LogError "Creating WMI Object to connect to " & DQ(hostName)
 Exit Function
 End If
 'Create the "SWbemDateTime" Object for converting WMI Date formats. Supported in Windows Server 2003 & Windows XP.
 Set wmiDateTime = CreateObject("WbemScripting.SWbemDateTime")
 If Err.Number <> 0 Then
 LogError "Creating " & DQ("WbemScripting.SWbemDateTime") & " object"
 Exit Function
 End If
 'Build the WQL query and execute it.
 wmiDateTime.SetVarDate startDateTime, True
 query = Left(query, InStrRev(query, "'")) & ") And (TimeWritten >= " & SQ(wmiDateTime.Value) & ")"
 Set eventItems = wmi.ExecQuery(query)
 If Err.Number <> 0 Then
 LogError "Executing WMI Query " & DQ(query)
 Exit Function
 End If
 'Convert the property values of Each event found to a comma seperated string and add it to the dictionary.
 For Each eventItem In eventItems
 Do
 timeWritten = ""
 eventDate = ""
 eventTime = ""
 eventInfo = ""
 timeWritten = ConvertWMIDateTime(eventItem.TimeWritten)
 eventDate = FormatDateTime(timeWritten, vbShortDate)
 eventTime = FormatDateTime(timeWritten, vbLongTime)
 eventInfo = eventDate &
 eventInfo = eventInfo & eventTime & ","
 eventInfo = eventInfo & eventItem.SourceName & ","
 eventInfo = eventInfo & eventItem.Type & ","
 eventInfo = eventInfo & eventItem.Category & ","
 eventInfo = eventInfo & eventItem.EventCode & ","
 eventInfo = eventInfo & eventItem.User & ","
 eventInfo = eventInfo & eventItem.ComputerName & ","
 description = eventItem.Message
 'Ensure the event description is not blank.
 If IsNull(description) Then
 description = "The event description cannot be found."
 End If
 description = Replace(description, vbCrLf, " ")
 eventInfo = eventInfo & description
 'Check if any errors occurred enumerating the event Information
 If Err.Number <> 0 Then
 LogError "Enumerating Event Properties from the " & DQ(logName) & " event log on " & DQ(hostName)
 errorCount = errorCount + 1
 Err.Clear
 Exit Do
 End If
 'Remove all Tabs and spaces.
 eventInfo = Trim(Replace(eventInfo, vbTab, " "))
 Do While InStr(1, eventInfo, " ", vbTextCompare) <> 0
 eventInfo = Replace(eventInfo, " ", " ")
 Loop
 'Add the Event Information to the Dictionary object if it doesn't exist.
 If Not eventsDict.Exists(eventInfo) Then
 eventsDict(eventsDict.Count) = eventInfo
 End If
 Loop Until True
 Next
 On Error Goto 0
 If errorCount <> 0 Then
 Exit Function
 End If
 results = eventsDict.Items
 QueryEventLog = True
End Function
'Name : ConvertWMIDateTime -> Converts a WMI Date Time String into a String that can be formatted as a valid Date Time.
'Parameters : wmiDateTimeString -> String containing a WMI Date Time String.
'Return : ConvertWMIDateTime -> Returns a valid Date Time String otherwise returns a Blank String.
Function ConvertWMIDateTime(wmiDateTimeString)
 Dim integerValues, i
 'Ensure the wmiDateTimeString contains a "+" or "-" character. If it doesn't it is not a valid WMI date time so exit.
 If InStr(1, wmiDateTimeString, "+", vbTextCompare) = 0 And _
 InStr(1, wmiDateTimeString, "-", vbTextCompare) = 0 Then
 ConvertWMIDateTime = ""
 Exit Function
 End If
 'Replace any "." or "+" or "-" characters in the wmiDateTimeString and check each character is a valid integer.
 integerValues = Replace(Replace(Replace(wmiDateTimeString, ".", ""), "+", ""), "-", "")
 For i = 1 To Len(integerValues)
 If Not IsNumeric(Mid(integerValues, i, 1)) Then
 ConvertWMIDateTime = ""
 Exit Function
 End If
 Next
 'Convert the WMI Date Time string to a String that can be formatted as a valid Date Time value.
 ConvertWMIDateTime = CDate(Mid(wmiDateTimeString, 5, 2) & "/" & _
 Mid(wmiDateTimeString, 7, 2) & "/" & Left(wmiDateTimeString,
4) & " " & _
 Mid(wmiDateTimeString, 9, 2) & ":" & _
 Mid(wmiDateTimeString, 11, 2) & ":" & _
 Mid(wmiDateTimeString, 13, 2))
End Function
'Name : NewDictionary -> Creates a new dictionary object.
'Parameters : None ->
'Return : NewDictionary -> Returns a dictionary object.
Function NewDictionary
 Dim dict
 Set dict = CreateObject("scripting.Dictionary")
 dict.CompareMode = vbTextCompare
 Set NewDictionary = dict
End Function
'Name : SQ -> Places single quotes around a string
'Parameters : stringValue -> String containing the value to place single quotes around
'Return : SQ -> Returns a single quoted string
Function SQ(ByVal stringValue)
 If VarType(stringValue) = vbString Then
 SQ = "'" & stringValue & "'"
 End If
End Function
'Name : DQ -> Place double quotes around a string and replace double quotes
' : -> within the string with pairs of double quotes.
'Parameters : stringValue -> String value to be double quoted
'Return : DQ -> Double quoted string.
Function DQ (ByVal stringValue)
 If stringValue <> "" Then
 DQ = """" & Replace (stringValue, """", """""") & """"
 Else
 DQ = """"""
 End If
End Function
'Name : IsoDateTimeString -> Generate an ISO date and time string from a date/time value.
'Parameters : dateValue -> Input date/time value.
'Return : IsoDateTimeString -> Date and time parts of the input value in "yyyy-mm-dd hh:mm:ss" format.
Function IsoDateTimeString(dateValue)
 IsoDateTimeString = IsoDateString (dateValue) & " " & IsoTimeString (dateValue)
End Function
'Name : IsoDateString -> Generate an ISO date string from a date/time value.
'Parameters : dateValue -> Input date/time value.
'Return : IsoDateString -> Date part of the input value in "yyyy-mm-dd" format.
Function IsoDateString(dateValue)
 If IsDate(dateValue) Then
 IsoDateString = Right ("000" & Year (dateValue), 4) & "-" & _
 Right ( "0" & Month (dateValue), 2) & "-" & _
 Right ( "0" & Day (dateValue), 2)
 Else
 IsoDateString = "0000-00-00"
 End If
End Function
'Name : IsoTimeString -> Generate an ISO time string from a date/time value.
'Parameters : dateValue -> Input date/time value.
'Return : IsoTimeString -> Time part of the input value in "hh:mm:ss" format.
Function IsoTimeString(dateValue)
 If IsDate(dateValue) Then
 IsoTimeString = Right ("0" & Hour (dateValue), 2) & ":" & _
 Right ("0" & Minute (dateValue), 2) & ":" & _
 Right ("0" & Second (dateValue), 2)
 Else
 IsoTimeString = "00:00:00"
 End If
End Function
'Name : LogMessage -> Writes a message to a log file.
'Parameters : logPath -> String containing the full folder path and file name of the Log file without with file extension.
' : message -> String containing the message to include in the log message.
'Return : None ->
Function LogMessage(message)
 If Not LogToCentralFile(scriptLogPath & ".csv", IsoDateTimeString(Now) & "," & message) Then
 Exit Function
 End If
End Function
'Name : LogError -> Writes an error message to a log file.
'Parameters : logPath -> String containing the full folder path and file name of the Log file without with file extension.
' : message -> String containing a description of the event that caused the error to occur.
'Return : None ->
Function LogError(message)
 If Not LogToCentralFile(scriptLogPath & ".err", IsoDateTimeString(Now) & "," & BuildError(message)) Then
 Exit Function
 End If
End Function
'Name : BuildError -> Builds a string of information relating to the error object.
'Parameters: message -> String containnig the message that relates to the process that caused the error.
'Return : BuildError -> Returns a string relating to error object.
Function BuildError(message)
 BuildError = "Error " & Err.Number & " (Hex " & Hex(Err.Number) & ") " & message & ". " & Err.Description
End Function
'Name : LogToCentralFile -> Attempts to Appends information to a central file.
'Parameters : logSpec -> Folder path, file name and extension of the central log file to append to.
' : message -> String to include in the central log file
'Return : LogToCentralFile -> Returns True if Successfull otherwise False.
Function LogToCentralFile(logSpec, message)
 Dim attempts, objLogFile
 LogToCentralFile = False
 'Attempt to append to the central log file up to 10 times, as it may be locked by some other system.
 attempts = 0
 Do
 On Error Resume Next
 Set objLogFile = objFSO.OpenTextFile(logSpec, ForAppending, True)
 If Err.Number = 0 Then
 objLogFile.WriteLine message
 objLogFile.Close
 LogToCentralFile = True
 Exit Function
 End If
 On Error Goto 0
 Randomize
 Wscript.sleep 1000 + Rnd * 100
 attempts = attempts + 1
 Loop Until attempts >= 10
End Function
'Name : PromptScriptStart -> Prompt when script starts.
'Parameters : None
'Return : None
Function PromptScriptStart
 MsgBox "Now processing the " & DQ(Wscript.ScriptName) & " script.", vbInformation, scriptBaseName
End Function
'Name : PromptScriptEnd -> Prompt when script has completed.
'Parameters : None
'Return : None
Function PromptScriptEnd
 MsgBox "The " & DQ(Wscript.ScriptName) & " script has completed successfully.", vbInformation, scriptBaseName
End Function
Thanks

Here is a script that will copy the previous days events and save them to "C:\". The file name be yesterdays date ex "04-18-2010-Events.csv"
Const strComputer = "."
Dim objFSO, objWMIService, colEvents, objEvent, outFile
Dim dtmStartDate, dtmEndDate, DateToCheck, fileDate
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set dtmStartDate = CreateObject("WbemScripting.SWbemDateTime")
Set dtmEndDate = CreateObject("WbemScripting.SWbemDateTime")
'change the date form "/" to "-" so it can be used in the file name
fileDate = Replace(Date - 1,"/","-")
Set outFile = objFSO.CreateTextFile("C:\" & fileDate & "-Events.csv",True)
DateToCheck = Date - 1
dtmEndDate.SetVarDate Date, True
dtmStartDate.SetVarDate DateToCheck, True
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where TimeWritten >= '" _
& dtmStartDate & "' and TimeWritten < '" & dtmEndDate & "'")
For each objEvent in colEvents
outFile.WriteLine String(100,"-")
outFile.WriteLine "Category = " & objEvent.Category
outFile.WriteLine "ComputerName = " & objEvent.ComputerName
outFile.WriteLine "EventCode = " & objEvent.EventCode
outFile.WriteLine "Message = " & objEvent.Message
outFile.WriteLine "RecordNumber = " & objEvent.RecordNumber
outFile.WriteLine "SourceName = " & objEvent.SourceName
outFile.WriteLine "TimeWritten = " & objEvent.TimeWritten
outFile.WriteLine "Type = " & objEvent.Type
outFile.WriteLine "User = " & objEvent.User
outFile.WriteLine String(100,"-")
Next
outFile.Close
MsgBox "Finished!"
v/r LikeToCode....Mark the best replies as answers.

Error while exporting LSMW Project

Hi friends,
while exporting LSMW project, one error file : "sapfewdll_01_0003_00_2024_1636.err.trc" gets created with the following MSG -
Error(03.10.06 13:40:23.278): Data sent from backend exceeds buffer size!
Please Help
Regards
Sonal

http://www.javamonamour.org/2011/11/updated-version-of-importpy-and.html
click on build.xml and you will see the right jars

How to migrate from ascii to unicode (MaxDB 7.5)? loadercli: ERR -25347

Hi,
I use MaxDB 7.5.00.26. (Ok, I know that I should switch to 7.6, however, it is not possilble for some customer restriction for now, but should be possible quite soon).
We'd like to migrate a db from ascii to unicode. Based on the infos in the thread "Error at copying database using dumps via loadercli: error -25364" I tried the following:
Export sourcedb
1. Export catalog and data
C:\> loadercli -d db_asc -u dba,dba
loadercli> export db catalog outstream file 'C:\tmp1\20080702a_dbAsc.catalog' ddl
OK
loadercli> export db data outstream file 'C:\tmp1\20080702b_dbAsc.data' pages
OK
loadercli> exit
Import targetdb
1. Create a new empty DB with '_UNICODE=yes'
2. Set 'columncompression' to 'no'
C:\> dbmcli -d db_uni -u dba,dba param_directput columncompression no
ERR
-24979,ERR_XPNOTFOUND: parameter not found
Couldn't find this parameter e.g. in dbmgui (parameters general, extended and support)
3. Import catalog and data
C:\> loadercli -d db_uni -u dba,dba
loadercli> import db catalog instream file 'C:\tmp1\20080702a_dbAsc.catalog' ddl
OK
loadercli> import db data instream file 'C:\tmp1\20080702b_dbAsc.data' pages
ERR -25347
Encoding type of source and target database do not match: source = ASCII, target
= UNICODE.
loadercli> exit
What is wrong? Is a migration from ascii to unicode to be done somehow else?
Can I migrate a db from 7.5.00.26 to 7.6.03.15 in the same way or should it be done in another way.
It would be greate if you point me to a post etc. where these two migrations are explained in detail.
Thanks in advance - kind regards
Michael

Hi,
I can neither find "USEUNICODECOLUMNCOMPRESSION" nor "COLUMNCOMPRESSION". Could it be that there do exist from MaxDB version 7.6 on and not in 7.5?
Kind regards,
Michael
The complete parameter list (created by "dbmcli -d db_uni -u dbm,dbm param_directgetall > maxdb_params.txt") is:
OK
KERNELVERSION                         KERNEL    7.5.0    BUILD 026-123-094-430
INSTANCE_TYPE                         OLTP
MCOD                                  NO
RESTART_SHUTDOWN                      MANUAL
_SERVERDB_FOR_SAP                     YES
_UNICODE                              YES
DEFAULT_CODE                          ASCII
DATE_TIME_FORMAT                      INTERNAL
CONTROLUSERID                         DBM
CONTROLPASSWORD
MAXLOGVOLUMES                         2
MAXDATAVOLUMES                        11
LOG_VOLUME_NAME_001                   LOG_001
LOG_VOLUME_TYPE_001                   F
LOG_VOLUME_SIZE_001                   131072
DATA_VOLUME_NAME_0001                 DAT_0001
DATA_VOLUME_TYPE_0001                 F
DATA_VOLUME_SIZE_0001                 262144
DATA_VOLUME_MODE_0001                 NORMAL
DATA_VOLUME_GROUPS                    1
LOG_BACKUP_TO_PIPE                    NO
MAXBACKUPDEVS                         2
BACKUP_BLOCK_CNT                      8
LOG_MIRRORED                          NO
MAXVOLUMES                            14
_MULT_IO_BLOCK_CNT                    4
_DELAY_LOGWRITER                      0
LOG_IO_QUEUE                          50
_RESTART_TIME                         600
MAXCPU                                1
MAXUSERTASKS                          50
_TRANS_RGNS                           8
_TAB_RGNS                             8
_OMS_REGIONS                          0
_OMS_RGNS                             25
OMS_HEAP_LIMIT                        0
OMS_HEAP_COUNT                        1
OMS_HEAP_BLOCKSIZE                    10000
OMS_HEAP_THRESHOLD                    100
OMS_VERS_THRESHOLD                    2097152
HEAP_CHECK_LEVEL                      0
_ROW_RGNS                             8
_MIN_SERVER_DESC                      16
MAXSERVERTASKS                        21
_MAXTRANS                             292
MAXLOCKS                              2920
_LOCK_SUPPLY_BLOCK                    100
DEADLOCK_DETECTION                    4
SESSION_TIMEOUT                       900
OMS_STREAM_TIMEOUT                    30
REQUEST_TIMEOUT                       5000
_USE_ASYNC_IO                         YES
_IOPROCS_PER_DEV                      1
_IOPROCS_FOR_PRIO                     1
_USE_IOPROCS_ONLY                     NO
_IOPROCS_SWITCH                       2
LRU_FOR_SCAN                          NO
_PAGE_SIZE                            8192
_PACKET_SIZE                          36864
_MINREPLY_SIZE                        4096
_MBLOCK_DATA_SIZE                     32768
_MBLOCK_QUAL_SIZE                     16384
_MBLOCK_STACK_SIZE                    16384
_MBLOCK_STRAT_SIZE                    8192
_WORKSTACK_SIZE                       8192
_WORKDATA_SIZE                        8192
_CAT_CACHE_MINSIZE                    262144
CAT_CACHE_SUPPLY                      3264
INIT_ALLOCATORSIZE                    221184
ALLOW_MULTIPLE_SERVERTASK_UKTS        NO
_TASKCLUSTER_01                       tw;al;ut;2000*sv,100*bup;10*ev,10*gc;
_TASKCLUSTER_02                       ti,100*dw;30000*us;
_TASKCLUSTER_03                       compress
_MP_RGN_QUEUE                         YES
_MP_RGN_DIRTY_READ                    NO
_MP_RGN_BUSY_WAIT                     NO
_MP_DISP_LOOPS                        1
_MP_DISP_PRIO                         NO
XP_MP_RGN_LOOP                        0
MP_RGN_LOOP                           0
_MP_RGN_PRIO                          NO
MAXRGN_REQUEST                        300
_PRIO_BASE_U2U                        100
_PRIO_BASE_IOC                        80
_PRIO_BASE_RAV                        80
_PRIO_BASE_REX                        40
_PRIO_BASE_COM                        10
_PRIO_FACTOR                          80
_DELAY_COMMIT                         NO
_SVP_1_CONV_FLUSH                     NO
_MAXGARBAGE_COLL                      0
_MAXTASK_STACK                        1024
MAX_SERVERTASK_STACK                  100
MAX_SPECIALTASK_STACK                 100
_DW_IO_AREA_SIZE                      50
_DW_IO_AREA_FLUSH                     50
FBM_VOLUME_COMPRESSION                50
FBM_VOLUME_BALANCE                    10
_FBM_LOW_IO_RATE                      10
CACHE_SIZE                            10000
_DW_LRU_TAIL_FLUSH                    25
XP_DATA_CACHE_RGNS                    0
_DATA_CACHE_RGNS                      8
XP_CONVERTER_REGIONS                  0
CONVERTER_REGIONS                     8
XP_MAXPAGER                           0
MAXPAGER                              11
SEQUENCE_CACHE                        1
_IDXFILE_LIST_SIZE                    2048
_SERVER_DESC_CACHE                    74
_SERVER_CMD_CACHE                     22
VOLUMENO_BIT_COUNT                    8
OPTIM_MAX_MERGE                       500
OPTIM_INV_ONLY                        YES
OPTIM_CACHE                           NO
OPTIM_JOIN_FETCH                      0
JOIN_SEARCH_LEVEL                     0
JOIN_MAXTAB_LEVEL4                    16
JOIN_MAXTAB_LEVEL9                    5
_READAHEAD_BLOBS                      25
RUNDIRECTORY                          E:\_mp\u_v_dbs\EVERW_T3
_KERNELDIAGFILE                       knldiag
KERNELDIAGSIZE                        800
_EVENTFILE                            knldiag.evt
_EVENTSIZE                            0
_MAXEVENTTASKS                        1
_MAXEVENTS                            100
_KERNELTRACEFILE                      knltrace
TRACE_PAGES_TI                        2
TRACE_PAGES_GC                        0
TRACE_PAGES_LW                        5
TRACE_PAGES_PG                        3
TRACE_PAGES_US                        10
TRACE_PAGES_UT                        5
TRACE_PAGES_SV                        5
TRACE_PAGES_EV                        2
TRACE_PAGES_BUP                       0
KERNELTRACESIZE                       653
EXTERNAL_DUMP_REQUEST                 NO
_AK_DUMP_ALLOWED                      YES
_KERNELDUMPFILE                       knldump
_RTEDUMPFILE                          rtedump
_UTILITY_PROTFILE                     dbm.utl
UTILITY_PROTSIZE                      100
_BACKUP_HISTFILE                      dbm.knl
_BACKUP_MED_DEF                       dbm.mdf
_MAX_MESSAGE_FILES                    0
_EVENT_ALIVE_CYCLE                    0
_SHAREDDYNDATA                        10280
_SHAREDDYNPOOL                        3658
USE_MEM_ENHANCE                       NO
MEM_ENHANCE_LIMIT                     0
__PARAM_CHANGED___                    0
__PARAM_VERIFIED__                    2008-07-02 21:10:19
DIAG_HISTORY_NUM                      2
DIAG_HISTORY_PATH                     E:\_mp\u_v_dbs\EVERW_T3\DIAGHISTORY
_DIAG_SEM                             1
SHOW_MAX_STACK_USE                    NO
LOG_SEGMENT_SIZE                      43690
SUPPRESS_CORE                         YES
FORMATTING_MODE                       PARALLEL
FORMAT_DATAVOLUME                     YES
HIRES_TIMER_TYPE                      CPU
LOAD_BALANCING_CHK                    0
LOAD_BALANCING_DIF                    10
LOAD_BALANCING_EQ                     5
HS_STORAGE_DLL                        libhsscopy
HS_SYNC_INTERVAL                      50
USE_OPEN_DIRECT                       NO
SYMBOL_DEMANGLING                     NO
EXPAND_COM_TRACE                      NO
OPTIMIZE_OPERATOR_JOIN_COSTFUNC      YES
OPTIMIZE_JOIN_PARALLEL_SERVERS        0
OPTIMIZE_JOIN_OPERATOR_SORT           YES
OPTIMIZE_JOIN_OUTER                   YES
JOIN_OPERATOR_IMPLEMENTATION          YES
JOIN_TABLEBUFFER                      128
OPTIMIZE_FETCH_REVERSE                YES
SET_VOLUME_LOCK                       YES
SHAREDSQL                             NO
SHAREDSQL_EXPECTEDSTATEMENTCOUNT      1500
SHAREDSQL_COMMANDCACHESIZE            32768
MEMORY_ALLOCATION_LIMIT               0
USE_SYSTEM_PAGE_CACHE                 YES
USE_COROUTINES                        YES
MIN_RETENTION_TIME                    60
MAX_RETENTION_TIME                    480
MAX_SINGLE_HASHTABLE_SIZE             512
MAX_HASHTABLE_MEMORY                  5120
HASHED_RESULTSET                      NO
HASHED_RESULTSET_CACHESIZE            262144
AUTO_RECREATE_BAD_INDEXES             NO
LOCAL_REDO_LOG_BUFFER_SIZE            0
FORBID_LOAD_BALANCING                 NO

ME22n - doubt in IMPORT/EXPORT in EXIT_SAPMM06E_013 and EXIT_SAPMM06E_012

hi
i need to validate a condition in EXIT_SAPMM06E_013 and accordingly i need to populate the error msg in EXIT_SAPMM06E_012 while saving and stop the PO posting.
in ZXM06U44 in EXIT_SAPMM06E_013 i have written the code
IF sy-mandt = 888.
DATA: gv_check TYPE xfeld.
DATA: itab TYPE STANDARD TABLE OF uekes,
wa TYPE uekes.
IF sy-tcode = 'ME22N' OR
     sy-tcode = 'ME22'.
    LOOP AT xekes.
      IF xekes-ebtyp = 'LA' AND
         xekes-vbeln = space.
        gv_check = 'X'.
        EXIT.
      ENDIF.
    ENDLOOP.
    IF gv_check = 'X'.
      EXPORT gv_check = 'X' TO MEMORY ID 'A123'.
    ENDIF.
ENDIF.
ENDIF.
i am exporting the variable and importing in the below exit.
in ZXM06U43 in exit EXIT_SAPMM06E_012 i have written the code
IF sy-mandt = 888.
DATA: gv_check TYPE xfeld,
IF sy-tcode = 'ME22N' OR
     sy-tcode = 'ME22'.
    IMPORT gv_check FROM MEMORY ID 'A123'.
    IF gv_check = 'X'.
      MESSAGE e000(z1) WITH 'No manual LA Allowed'.
    ENDIF.
ENDIF.
ENDIF.
but the value is not getting imported and actually when i press the save button, the EXIT_SAPMM06E_012 is called first and then goes to EXIT_SAPMM06E_013 and my PO gets saved.
how to solve this issue.
Regards,
Sakthi.

Why do you want to do validation in EXIT_SAPMM06E_013 and err message in EXIT_SAPMM06E_012?
Do an validation in EXIT_SAPMM06E_013 FM itself.
the below statement is wrong
EXPORT gv_check = 'X' TO MEMORY ID 'A123'.
gv_check = 'X'.
EXPORT gv_check TO MEMORY ID 'A123'.
Regards,

How to export the data as integer into excel sheet?

Hi All,
I am working on export to excel functionality and using JEXCEL API to create it. When I export the data to excel sheet, the data are stored in text format in the excel sheet. If I click on summation button on excel sheet, it is not summing up the column values since it is stored as the text format.
I am writing the following code:
for(Iterator iter = columnInfos.keySet().iterator(); iter.hasNext();){
String attributeName = (String)iter.next();
for(int index = 0; index < dataNode.size(); index++){
try{
IWDNodeElement nodeElement = dataNode.getElementAt(index);
String colVal = nodeElement.getAttributeAsTex(attributeName);
Label value = new Label(j, index + 1, colVal);
sheet.addCell(value);
j++;
Here colVal is the variable which holds the data in string format. So I was just trying to convert it into integer format and used Integer.parseInt(colVal).
But Label keyword accepts only the int,int,string arguments.
Is there any other option to change it as integer value while exporting to excel sheet.
Pls suggest.
This is very urgent.
Regards,
Subashini.

Hi Gopal,
Pls refer the following link.
/people/subramanian.venkateswaran2/blog/2006/08/16/exporting-table-data-to-ms-excel-sheetenhanced-web-dynpro-binary-cache
I have used the same coding which is mentioned in this link.
And also I cannot use integer.parseInt(colval) because new Label() will accept only the int,int,string as parameters.
Here goes my to excel method code which exports the data to excel sheet .
private FileInputStream toExcel(IWDNode dataNode, Map columnInfos) {
String fileName = "output.xls";
IWDCachedWebResource cachedExcelResource = null;
int i = 0;
try{
File f = new File("output.xls");
WritableWorkbook workbook = Workbook.createWorkbook(f);
WritableSheet sheet = workbook.createSheet("First Sheet", 0);
for(Iterator coluinfoitr = columnInfos.keySet().iterator(); coluinfoitr.hasNext();){
Label label = new Label(i, 0, (String)columnInfos.get(coluinfoitr.next()));
sheet.addCell(label);
i++;
int j = 0;
for(Iterator iter = columnInfos.keySet().iterator(); iter.hasNext();){
String attributeName = (String)iter.next();
for(int index = 0; index < dataNode.size(); index++){
try{
IWDNodeElement nodeElement = dataNode.getElementAt(index);
String colVal = nodeElement.getAttributeAsText(attributeName);
Label value = new Label(j, index + 1, colVal);
sheet.addCell(value);
catch (Exception e){
wdComponentAPI.getMessageManager().reportException(" Data Retrive Err :" + e.getLocalizedMessage(),false);
j++;
workbook.write();
FileInputStream excelCSVFile = new FileInputStream(f);
cachedExcelResource = getCachedWebResource(excelCSVFile, fileName, WDWebResourceType.getWebResourceType("xls", "application/ms-excel"));
wdContext.currentContextElement().setExcelDownload(cachedExcelResource.getURL());
workbook.close();
It is exporting the data in text format. So I am unable to sum up the column values in the excel sheet.
I need an alternate solution wherein I can export the data in integer format to excel sheet and then sum up the column values by clicking on summation button.
Hope I am clear now.
Pls suggest.
Regards,
Subashini.

Export Err

Similar Messages

Maybe you are looking for