Re: [U2] [UV] CATALOG verb
Interesting idea, Trevor. I do prefer the INFORMATION verbs, probably because I'm more used to them. I'll definitely make a COPYI ! Thanks, Dianne Trevor Ockenden wrote: Dianne wrote... I'm using PICK flavour in UV version 9.6.1.4. I want all programs to be catalogued with the COMPLETE keyword. Is there an option somewhere I can set to force that keyword? I have found the Pick flavour of verbs frustrating so whenever I am in a Pick flavoured account I create several Information flavoured verbs as follows: Create CREATE.FILEI and CATALOGI as follows... Copy these verbs from the NEWACC,INFORMATION file you will find in the UV account or copy the Pick flavoured verbs and change the PICK to INFORMATION in the new VOC entries. Now you can use these new verbs as though they were from a non Pick flavoured account. Cheers Trevor Ockenden OSP PS the above information applies to UV. Similar changes might work for UD but I'm not sure about this. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
[U2] Error 30107 when calling SubRoutines from UniObjects
Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
Quote This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') /Quote Why is DATE() inside single quotes 'DATE()' ? Is that your problem ? Amit -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of peter watson Sent: 19 May 2004 15:12 To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Companies going belly up converting from PICK/MV
All right already. For those of you in national entities currently or formerly ruled by a queen, the use of the Britishized (new word, just made it up) spelling is considered somewhat pretentious here in the colonies. I need coffee now -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Tuesday, May 18, 2004 6:39 PM To: [EMAIL PROTECTED] Subject: RE: [U2] Companies going belly up converting from PICK/MV At 01:04 19/05/04, you wrote: The Alert Centre, Englewood CO USA, 1993 - 1996 The Alert Centre (yes they really spelled it that way) What? Something wrong with correct spelling, now? ~8^)) Maybe he was talking about Centre being spelt the English way instead of the American way Center considering that the company was in the US. Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
You need to set args 1 thru 4 to before the call... (unless I missed that somewhere) -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 10:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
I'm certainly not a VB expert, but I think the failure may have to do with this line: Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) Here is a snippet of code from our application: Public Sub Load_Detail() 'Declarations Dim DetailObj As Object Dim ResultArray As Object Const TOTAL_PARAM = 11 'Main Set ResultArray = CreateObject(UV_DARRAY_OBJECT) Set DetailObj = uvSession.subroutine(VBDISTRIBUTEAR, TOTAL_PARAM) DetailObj.SetArg 0, txtCredId.Text DetailObj.SetArg 1, txtInvoiceNo.Text DetailObj.SetArg 2, cmbRfId.Text If OptWriteOff.Value = True Then DetailObj.SetArg 3, WriteOff Else DetailObj.SetArg 3, Receipt End If DetailObj.SetArg 4, strAcctClient DetailObj.SetArg 5, intAcctDebt DetailObj.Call ResultArray = DetailObj.GetArg(6) 'store array in this field for later use txtDetailAccept.Text = DetailObj.GetArg(6) strDistAmount = DetailObj.GetArg(9) strDetailBalance = DetailObj.GetArg(10) intDetailCount = ResultArray.Count End Sub Dick Kryka Director of Applications CCCS of Greater Denver, Inc. Paragon Financial Services 303-632-2226 [EMAIL PROTECTED] -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 8:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] Companies going belly up converting from PICK/MV
Ross, An additional historical note - Oasis had a booth at some of the Spectrum shows. I do seem to remember that Pick had some influence on their product - perhaps their data retreival language. Eugene - Original Message - From: Ross Ferris [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, May 18, 2004 10:53 PM Subject: RE: [U2] Companies going belly up converting from PICK/MV Back in the days of 8-bit computing, before the rise of MS-DOS, back in the era of CP/M, MP/M and the trash 80, there was an operating system with an embedded database called OASIS, with an enhanced BASIC that was aware of the database . I mention this only as an historical note, as the environment evolved from an all-encompassing operating system to simply a database, called THOROUGHBRED lots of similarities to Pick, right down to efficiency I remember seeing a 64K 4Mhz Z80 Altos system driving 16 terminals. If anyone is interested see www.tbred.com Ross Ferris Stamina Software Visage an Evolution in Software Development -Original Message- From: [EMAIL PROTECTED] [mailto:owner-u2- [EMAIL PROTECTED] On Behalf Of Mark Johnson Sent: Wednesday, 19 May 2004 1:21 PM To: [EMAIL PROTECTED] Subject: Re: [U2] Companies going belly up converting from PICK/MV SNIP [Ross Ferris] The DICE system was not SQL but run under 'Thorobred' which is a 80x24 colorized memory-mapped video system that comes across as windows. It was not GUI either but we MV programmers never got good at memory mapped video. Too bad as it's the basis for overlaying whole or partial screens with relative ease. my 1 cent. --- Outgoing mail is certified Virus Free. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.688 / Virus Database: 449 - Release Date: 18/05/2004 --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: Subject: RE: [U2] Cost of Oracle vs PICK
At one site, I was CIO and we were looking at getting an Oracle system in addition to our Universe system. They had just implemented their new pricing based on number of cpus and power etc. We calculated that it would run 500K. In addition, we were getting a demo of a product. Very nice product but I figured that you could drop Pick in underneath it and it would work just fine. I asked the salesman how much of that $1,850 per user their company got and how much Oracle was really charging. I was told that the software company only got $250 per user - Oracle got the rest. Eugene - Original Message - From: Shawn Waldie [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 8:30 AM Subject: RE: Subject: RE: [U2] Cost of Oracle vs PICK Thanks, James. That's a thorough explanation. I don't know 1st-hand what a copy of Oracle costs (+ user licenses maint.), but from what I've heard, the cost difference alone would make me lean more toward giving Unidata a shot - especially considereing most schools don't have a lot of money to play around with. -Original Message- From: Yeatrakas,James [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 6:36 AM To: [EMAIL PROTECTED] Subject: Subject: RE: [U2] Cost of Oracle vs PICK effort they are expending on this is the kind of response that other companies in the same predicament might consider to stay viable in the 21st century. I believe had they not chosen this path, competitors with less name recognition, but with more 'current' technology would have begun to steal their market. This was borne out by the grumbling at the user group conferences. Now at least, the users are willing to see what they come up with for the future. Though not what you would consider a 'developer' I have enough experience working with SQL to know I much prefer writing code in UniBasic (RevBasic?) then PLSQL or doing interminable joins when I could be building simple Symbolics. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] Cost of Oracle vs PICK
This is a valuable thread, however, it doesn't belong on u2-users. Please continue this thread on u2-community. - Charles Barouch, Moderator --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] Companies going belly up converting from PICK/MV
This is a valuable thread, however, it doesn't belong on u2-users. Please continue this thread on u2-community. - Charles Barouch, Moderator --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
Hi That is what is in the I-Descriptor that makes a call to the subRoutine, I included this line more to state that when the system calls the subRoutine it only uses three Args and when I try to call through uniobjects I HAVE to tell the subroutine method there are 4 params and this is possibly my problem. Pete -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 15:37 To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects Quote This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') /Quote Why is DATE() inside single quotes 'DATE()' ? Is that your problem ? Amit -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of peter watson Sent: 19 May 2004 15:12 To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
Hi I am useing VB.NET and the set keyword has been removed, maybe it is time I tried a version of my code in VB6 to see if it is in fact a .NET with UniObjects problem. -Original Message- From: Kryka, Richard [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 16:12 To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects I'm certainly not a VB expert, but I think the failure may have to do with this line: Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) Here is a snippet of code from our application: Public Sub Load_Detail() 'Declarations Dim DetailObj As Object Dim ResultArray As Object Const TOTAL_PARAM = 11 'Main Set ResultArray = CreateObject(UV_DARRAY_OBJECT) Set DetailObj = uvSession.subroutine(VBDISTRIBUTEAR, TOTAL_PARAM) DetailObj.SetArg 0, txtCredId.Text DetailObj.SetArg 1, txtInvoiceNo.Text DetailObj.SetArg 2, cmbRfId.Text If OptWriteOff.Value = True Then DetailObj.SetArg 3, WriteOff Else DetailObj.SetArg 3, Receipt End If DetailObj.SetArg 4, strAcctClient DetailObj.SetArg 5, intAcctDebt DetailObj.Call ResultArray = DetailObj.GetArg(6) 'store array in this field for later use txtDetailAccept.Text = DetailObj.GetArg(6) strDistAmount = DetailObj.GetArg(9) strDetailBalance = DetailObj.GetArg(10) intDetailCount = ResultArray.Count End Sub Dick Kryka Director of Applications CCCS of Greater Denver, Inc. Paragon Financial Services 303-632-2226 [EMAIL PROTECTED] -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 8:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED]
[U2] Bverify equivalent on Reality flavor UV accounts
Working with a few Reality flavor accounts for a conversion and running into problems with multiple copies of source in different BP files. Does anyone know of any tricks or an equivalent to Reality's BVERIFY? Thanks- Greg --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Error 30107 when calling SubRoutines from UniObjects
You need 1 less arg. 0-3 is 4 args... Subroutine only has 4 args. -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 12:08 PM To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects Just tried that still get same error and I need to pass the last three args or the subroutine will not know what to do and arg 0 is a return arg -Original Message- From: Marc Harbeson [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 16:06 To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects You need to set args 1 thru 4 to before the call... (unless I missed that somewhere) -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 10:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any
RE: [U2] Cost of Oracle vs PICK
I agree that it would be a good thing, but I think the reality is that it is not going to happen . and if it DOES happen, for backwards compatibility they will have to keep things the way they are, and that will let people by-pass your rules do nasty things. I haven't been following this thread very closely, but the part about these services being a good thing caught my attention... hopefully, I haven't repeated what someone else has all ready posted. I am of the understanding that using the built-in security, triggers, stored procedures, etc. of relational databases IS NOT a good thing. Implementing these services in the database kills the scalability of the application. I'm just now starting to dive into J2EE development, so I am by no means an expert on enterprise development. But, my understanding is the primary reason for using an App Server such as WebSphere is to provide an implementation for these services in a way that can be distributed across as many servers as necessary to improve scalability and performance. Tom Firl Columbia Ultimate --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] [UV] CATALOG verb
You may have meant CATALOGI. But if not, you will find you already have a COPYI verb. In fact, the COPY verb is a stored sentence that in a PICK flavor account calls COPYP and calls COPYI in the others. -- Regards, Clif ~~~ W. Clifton Oliver, CCP CLIFTON OLIVER ASSOCIATES Tel: +1 619 460 5678Web: www.oliver.com ~~~ On May 19, 2004, at 8:30, Dianne Ackerman wrote: Interesting idea, Trevor. I do prefer the INFORMATION verbs, probably because I'm more used to them. I'll definitely make a COPYI ! --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] Error 30107 when calling SubRoutines from UniObjects
if SUBR(MVACNOT,@ID,'DATE()','OW') is from an existing I-type then change your argument 3 to DATE() given this syntax they are looking for the string value of DATE() somewhere in the code and not how we normally think of DATE() its worth a try, Rich peter watson wrote: The subroutines are note wrote or owned by us and we are not supposted to create or alter them and they work fine if called by I-descripors therefore I would believe they work. I have just replicated my VB.NET code in VB6 and get the same error therefore I am going to give up and believe that the company who wrote and own the subroutines have wrote them in a way that means they can not be called from UniObjects. -Original Message- From: Ross Craig [mailto:[EMAIL PROTECTED] Sent: 19 May 2004 16:31 To: [EMAIL PROTECTED] Subject: RE: [U2] Error 30107 when calling SubRoutines from UniObjects You should test all of your subroutines by calling them from universe before trying to get them to work in VB. You can use the debugger to step through your code. Create a calling program in universe to pass the subroutine the necessary parameters. Ross Craig Alaska Diesel Electric -Original Message- From: peter watson [mailto:[EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 7:12 AM To: [EMAIL PROTECTED] Subject: [U2] Error 30107 when calling SubRoutines from UniObjects Hi I am having problems with getting a response from any subroutine I get error number 30107 = The subroutine failed to complete successfully I have even tried setting Arg(0) to but nothing seems to work can anyone help me please. here is my code if anyone can tell me why its not working. Public Function doSubRout(ByVal sRoutine As String, Optional ByVal Params As String = ) As String ' if Connection failed exit function If Not Connect() Then MsgBox(No Connection, MsgBoxStyle.Critical) Exit Function End If Dim myErr As New UniErrors ' Exception on UniObjects Error m_uniobject.ExceptionOnError = True ' Create subRoutine Object Dim cu As Object = m_uniobject.Subroutine(MVACNOT, 4) If m_uniobject.Error 0 Then MsgBox(Error: ( m_uniobject.Error ) + myErr.getErrStr(m_uniobject.Error)) End If Try ' Get date in Universe format Dim Tod As New UniDate Dim sDate As String = Tod.GetUniDate(DateAdd(DateInterval.Day, 20, Now)).ToString() 'cu.Resetargs() ' Set subRoutine arguments cu.SetArg(0, ) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(1, ZA4) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(2, sDate) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If cu.SetArg(3, OW) If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If ' call the subRoutine cu.call() If cu.Error 0 Then MsgBox(Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) Else ' Display results MsgBox(Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3)) End If Disconnect() Catch ex As Exception ' Error handling If cu.Error 0 Then MsgBox(ex.Message + vbCrLf + UniVerse : Error: ( cu.Error ) + myErr.getErrStr(cu.Error)) End If Disconnect() System.GC.Collect() Return End Try ' Return Result Return Args: cu.GetArg(0) , cu.GetArg(1) , cu.GetArg(2) , cu.GetArg(3) End Function This is the first line of the subRoutine I need to call SUBROUTINE MVACNOT(RETURN.SUPPLIER,ACCOM.CODE,REPORT.DATE,SEARCH.TYPE) When the system calls this subroutine internally it uses the following SUBR(MVACNOT,@ID,'DATE()','OW') Pete The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may be unlawful. The sender believes that this E-mail and any attachments were free of any virus, worm, Trojan horse, and/or malicious code when sent. This message and its attachments could have been infected during transmission. By reading the message and opening any attachments, the recipient accepts full responsibility for taking protective and remedial action about viruses and other defects. The sender's employer is not liable for any loss or damage arising in any way from this message or its attachments. -VRG3a- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users The information in this electronic mail message is Confidential and may be legally privileged. It is intended solely for the addressees. Access to this internet electronic mail message by anyone else is unauthorized. If you are not the intended recipient, any disclosure, copying, distribution or any action taken or omitted to be taken in reliance on it is prohibited and may
RE: [U2] Bverify equivalent on Reality flavor UV accounts
There's always the brute force method of recompiling each of source files and using an MD5 checksum to compare the generated object code with the active object code .. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Greg L. Bonebrake Sent: Wednesday, May 19, 2004 12:22 PM To: [EMAIL PROTECTED] Subject: [U2] Bverify equivalent on Reality flavor UV accounts Working with a few Reality flavor accounts for a conversion and running into problems with multiple copies of source in different BP files. Does anyone know of any tricks or an equivalent to Reality's BVERIFY? Thanks- Greg --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] [UV] CATALOG verb
If you opt to use the INFORMATION style of cataloging, I would such modifying the paragraph I supplied you to go along with the new verb. The PICK version will only create local catalogs, while the INFORMATION version can create 3 different styles, local, normal, and global. Regards, LeRoy F. Dreyfuss Advanced Technical Services - U2 Technology Analyst IBM U2 Data Management Solutions Tel: 303-672-1254 Fax: 303-294-4832 Mobile: 720-341-4317 External email: [EMAIL PROTECTED] WWW: http://www.ibm.com/software/data/u2/support www.ibm.com/software/data/u2/support - Open, Query, Update, Search - Online! Dianne Ackerman [EMAIL PROTECTED] m To Sent by: [EMAIL PROTECTED] [EMAIL PROTECTED] cc stserver.u2ug.org Subject Re: [U2] [UV] CATALOG verb 05/19/2004 07:30 AM Please respond to u2-users Interesting idea, Trevor. I do prefer the INFORMATION verbs, probably because I'm more used to them. I'll definitely make a COPYI ! Thanks, Dianne Trevor Ockenden wrote: Dianne wrote... I'm using PICK flavour in UV version 9.6.1.4. I want all programs to be catalogued with the COMPLETE keyword. Is there an option somewhere I can set to force that keyword? I have found the Pick flavour of verbs frustrating so whenever I am in a Pick flavoured account I create several Information flavoured verbs as follows: Create CREATE.FILEI and CATALOGI as follows... Copy these verbs from the NEWACC,INFORMATION file you will find in the UV account or copy the Pick flavoured verbs and change the PICK to INFORMATION in the new VOC entries. Now you can use these new verbs as though they were from a non Pick flavoured account. Cheers Trevor Ockenden OSP PS the above information applies to UV. Similar changes might work for UD but I'm not sure about this. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users [demime 1.01d removed an attachment of type image/gif which had a name of graycol.gif] [demime 1.01d removed an attachment of type image/gif which had a name of pic26708.gif] [demime 1.01d removed an attachment of type image/gif which had a name of ecblank.gif] --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] [UV] CATALOG verb
Dianne wrote... Interesting idea, Trevor. I do prefer the INFORMATION verbs, probably because I'm more used to them. I'll definitely make a COPYI ! As you may have discovered by now, COPYI already exists and there is also a COPYP for those that prefer Pick style copies. In fact the Pick style copy (COPYP) has one very useful feature I haven't been able to reproduce using the COPYI verb namely the ability to list a program (or whatever) without the line numbers. The command is: COPYP BP PROGRAM (SN rtn TO: rtn Hope that helps! Cheers Trevor Ockenden OSP - Original Message - From: Dianne Ackerman [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 11:30 PM Subject: Re: [U2] [UV] CATALOG verb Thanks, Dianne Trevor Ockenden wrote: Dianne wrote... I'm using PICK flavour in UV version 9.6.1.4. I want all programs to be catalogued with the COMPLETE keyword. Is there an option somewhere I can set to force that keyword? I have found the Pick flavour of verbs frustrating so whenever I am in a Pick flavoured account I create several Information flavoured verbs as follows: Create CREATE.FILEI and CATALOGI as follows... Copy these verbs from the NEWACC,INFORMATION file you will find in the UV account or copy the Pick flavoured verbs and change the PICK to INFORMATION in the new VOC entries. Now you can use these new verbs as though they were from a non Pick flavoured account. Cheers Trevor Ockenden OSP PS the above information applies to UV. Similar changes might work for UD but I'm not sure about this. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- Outgoing mail is certified Virus Free by AVG 6.0. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.687 / Virus Database: 448 - Release Date: 17/05/2004 --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] Error 30107 when calling SubRoutines from UniObjects
Peter, if you contain your uinobject calls in a class wrapper you can stay with pure vb for application development. With all subroutines you can even get by with only one argument if you delimit your input and output with IM, FM, VM,SVMs and use the split function to extract what you want. As most problems can be solved with the subroutine call, get this right and the rest is a cakewalk eg here is an example of how to extract data from any file by passing through the desired fields, dict items, conversions. . Private Sub StartPMFSearch() On Error GoTo ErrorTrap Dim iCnt As Integer Dim sFlds() As String, sConvs() As String Dim cBusy As cMouseBusy, itmX As ListItem Dim sLastChar As String, sSelect As String Dim sItems() As String, sRecord() As String Dim vListrec As Variant, sErrorMsg As String If chkQuickSearch.Value = vbUnchecked Then ReDim sFlds(31) ReDim sConvs(31) Else ReDim sFlds(1) ReDim sConvs(1) End If Set cBusy = New cMouseBusy cBusy.SetPointer vbHourglass sFlds(0) = 0 sFlds(1) = VB.PRODUCT.NAME If Not mbQuickSearch Then sFlds(2) = VB.DIVISION sFlds(3) = VB.PRODUCT.SUPER.GROUP sFlds(4) = VB.PRODUCT.DIVISION.GROUP.AND.NAME sFlds(5) = 5 sFlds(6) = 8 sFlds(7) = 9: sConvs(7) = MD4 sFlds(8) = 10 sFlds(9) = 11: sConvs(9) = MD4 sFlds(10) = 14 sFlds(11) = 1 sFlds(12) = 15 sFlds(13) = 7 sFlds(14) = 17,1 sFlds(15) = 21: sConvs(15) = D2. sFlds(16) = 14 sFlds(17) = 16 sFlds(18) = 39 sFlds(19) = 12 sFlds(20) = 19 ' superceded sFlds(21) = VB.PRODUCT.LITRES: sConvs(21) = MD2 sFlds(22) = VB.PRODUCT.WEIGHT: sConvs(22) = MD4 sFlds(23) = VB.PRODUCT.VOLUME: sConvs(23) = MD4 sFlds(24) = VB.PRODUCT.NET.WEIGHT: sConvs(24) = MD4 sFlds(25) = VB.PRODUCT.BLOCK.QTY sFlds(26) = VB.PRODUCT.QTY.PER.CARTON sFlds(27) = VB.PRODUCT.QTY.PER.LAYER sFlds(28) = VB.PRODUCT.QTY.PER.PALLET sFlds(29) = VB.PRODUCT.DIMENSIONS sFlds(30) = VB.PRODUCT.DEPOSIT.CODE sFlds(31) = VB.PRODUCT.DEPOSIT.AMOUNT: sConvs(31) = MD2 End If vListrec = STPMF ' file to be selected vListrec = vListrec FM Join(sFlds, VM) ' Fields requested vListrec = vListrec FM Join(sConvs, VM) ' Conversions to be applied sSelect = BY VB.PRODUCT.NAME.U If Len(gsPmFilterSelection) 0 Then sSelect = sSelect gsPmFilterSelection End If vListrec = vListrec FM sSelect' Sort selection criteria vListrec = UJ.DCallSub(*VGETANYFILE, 2, vListrec, sErrorMsg) If UJ.ErrNumber 0 Then MsgBox UJ.ErrDescription Exit Sub End If With lvwSearch(0) .ListItems.Clear sItems() = Split(vListrec, IM) lblFound(1).Caption = UBound(sItems) + 1 For iCnt = 0 To UBound(sItems) sRecord() = Split(sItems(iCnt), FM) Set itmX = .ListItems.Add(, , sRecord(0))' Product Number itmX.SubItems(1) = sRecord(1) ' Product Description If Not mbQuickSearch Then itmX.SubItems(2) = sRecord(2) ' Division itmX.SubItems(3) = sRecord(3) ' Super Group itmX.SubItems(4) = sRecord(4) ' Product Group itmX.SubItems(5) = sRecord(5) ' Stock Unit of Usage (UOM) itmX.SubItems(6) = sRecord(6) ' Purchase Unit of Usage (UOM) itmX.SubItems(7) = sRecord(7) ' Purchase Unit Conversion itmX.SubItems(8) = sRecord(8) ' Selling Unit of Usage (UOM) itmX.SubItems(9) = sRecord(9) ' Selling Unit Conversion itmX.SubItems(10) = sRecord(10) ' Package itmX.SubItems(11) = sRecord(11) ' Cost Code itmX.SubItems(12) = sRecord(12) ' Classification itmX.SubItems(13) = sRecord(13) ' GST/Tax Code itmX.SubItems(14) = sRecord(14) ' Index itmX.SubItems(15) = sRecord(15) ' Obsolete itmX.SubItems(16) = sRecord(16) ' Aust. Product Number itmX.SubItems(17) = sRecord(17) ' Sort Key 1 itmX.SubItems(18) = sRecord(18) ' Sort Key 2 itmX.SubItems(19) = sRecord(19) ' Supplier itmX.SubItems(20) = sRecord(20) ' Superceded By itmX.SubItems(21) = sRecord(21) ' Litres itmX.SubItems(22) = sRecord(22) ' Weight itmX.SubItems(23) = sRecord(23) ' Volume itmX.SubItems(24) = sRecord(24) ' Net Weight itmX.SubItems(25) = sRecord(25) ' Block Quantity itmX.SubItems(26) = sRecord(26) ' Quantity / Carton itmX.SubItems(27) = sRecord(27) ' Quantity / Layer itmX.SubItems(28) = sRecord(28) ' Quantity / Pallet itmX.SubItems(29) = sRecord(29) ' Dimensions itmX.SubItems(30) = sRecord(30) ' Deposit Code (product) itmX.SubItems(31) = sRecord(31) ' Deposit Amount End If Next iCnt If .ListItems.Count 0 Then .SelectedItem.Selected = False End With Exit Sub ErrorTrap: MsgBox Err.Number , Err.Description End Sub With writing data to
RE: [U2] IBM positioning Linux against Microsoft
I agree with Tony on this. IBM has a real chance with UniVerse to take market share from Microsoft in the mid sized, small business database bracket. UniVerse is easier to setup and maintain. With redback it has solid functionality for the web side of things and it will run on anything. Just the ticket for a very cost aware small business that may be building it's LAN out of bits and pieces. I hope IBM goes for it. From: Glenn W. Paschal [EMAIL PROTECTED] Reply-To: [EMAIL PROTECTED] To: [EMAIL PROTECTED] Subject: RE: [U2] IBM positioning Linux against Microsoft Date: Wed, 19 May 2004 07:32:28 -0500 True, but the observation Tony made still stands. I was personally excited when IBM took over UniVerse, thinking that they would put some money behind it, and promote it, at least a little bit. Unless, they bought it just to kill it. --Glenn -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker Sent: Tuesday, May 18, 2004 5:20 PM To: [EMAIL PROTECTED] Subject: Re: [U2] IBM positioning Linux against Microsoft The article seems to be a promotion of PeopleSoft not necessarily IBM. - Original Message - From: Tony Gravagno [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Tuesday, May 18, 2004 3:52 PM Subject: [U2] IBM positioning Linux against Microsoft Ref: http://www.crn.com/sections/BreakingNews/breakingnews.asp?ArticleID=50230 If IBM really wants to target Microsoft, snip Tony Nebula RD --- --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users _ Check out news, entertainment and more @ http://xtra.co.nz/broadband --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] [UV] CATALOG verb
And if you add the T option to the S and N, you don't have to press return the extra time. i.e., COPYP BP PROGRAM (SNT rtn Richard B. Lewis Sr. Software Engineer Dynix [EMAIL PROTECTED] p 801-223-5392 f 801-223-5202 www.dynix.com http://www.dynix.com/ -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Trevor Ockenden Sent: Wednesday, May 19, 2004 4:20 PM To: [EMAIL PROTECTED] Subject: Re: [U2] [UV] CATALOG verb Dianne wrote... Interesting idea, Trevor. I do prefer the INFORMATION verbs, probably because I'm more used to them. I'll definitely make a COPYI ! As you may have discovered by now, COPYI already exists and there is also a COPYP for those that prefer Pick style copies. In fact the Pick style copy (COPYP) has one very useful feature I haven't been able to reproduce using the COPYI verb namely the ability to list a program (or whatever) without the line numbers. The command is: COPYP BP PROGRAM (SN rtn TO: rtn Hope that helps! Cheers Trevor Ockenden OSP - Original Message - From: Dianne Ackerman [EMAIL PROTECTED] To: [EMAIL PROTECTED] Sent: Wednesday, May 19, 2004 11:30 PM Subject: Re: [U2] [UV] CATALOG verb Thanks, Dianne Trevor Ockenden wrote: Dianne wrote... I'm using PICK flavour in UV version 9.6.1.4. I want all programs to be catalogued with the COMPLETE keyword. Is there an option somewhere I can set to force that keyword? I have found the Pick flavour of verbs frustrating so whenever I am in a Pick flavoured account I create several Information flavoured verbs as follows: Create CREATE.FILEI and CATALOGI as follows... Copy these verbs from the NEWACC,INFORMATION file you will find in the UV account or copy the Pick flavoured verbs and change the PICK to INFORMATION in the new VOC entries. Now you can use these new verbs as though they were from a non Pick flavoured account. Cheers Trevor Ockenden OSP PS the above information applies to UV. Similar changes might work for UD but I'm not sure about this. --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- Outgoing mail is certified Virus Free by AVG 6.0. Checked by AVG anti-virus system (http://www.grisoft.com). Version: 6.0.687 / Virus Database: 448 - Release Date: 17/05/2004 --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
RE: [U2] Delete from UV_TABLES + ODBC Massive inefficiency ????
Admins tool and make sure you have the fast connect option checked. This I had fast connect ticked, I also tried with refresh OTL on connect, and both seemed to be about the same. We've not got any reports of slow speed, and it's working, so alls well I guess. Thanks, Andrew Gissing --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
Re: [U2] UV 10.1 on linux rh8.0 tuning
From: Claus Derlien [EMAIL PROTECTED] Hi, We are now one step closer to enter production with our new linux server running rh8.0 on a siemens rx300 with 2 gig ram, today we opened up for a limited number of users, so they can abuse the system the way only a user can :-) Claus, We're running UD so I can't help you on the uv stuff but a couple of general RH points that effect U2 sites... 1. If you are using telnet clients to connect you may need to up the number of telnet connections allowed.. Include the following in /etc/xinetd.d/telnet instances = UNLIMITED Although you can set instances to a sensible value - by default this is 60. 2. Watch your max open files across the system. You can see what this is with cat /proc/sys/fs/file-nr This will give you 3 numbers (e.g.) 1000 150 8192 The 1st and 3rd are the critical - if the 1st gets close to the third you will get file open errors. The 1st is roughly how many files have been opened at any one point and the 3rd is the max allowed for the entire system. You will also get the 3rd number if you do cat /proc/sys/fs/file-max Add a line like fs.file-max = 65536 to /etc/sysctl.conf and then run sysctl -p to update on the fly. Note for tweaking you can just do something like echo 65536 /proc/sys/fs/file-max but this won't survive a reboot. Regards, Adrian -- ___ Sign-up for Ads Free at Mail.com http://promo.mail.com/adsfreejump.htm --- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users
[U2] CallHttp and SSL
--- u2-users mailing list [EMAIL PROTECTED] http://www.u2ug.org/listinfo/u2-users