[U2] Why is this statement failing? (UniVerse)
Ive found a bug that has been in production for many years, but has just started to cause problemsbut I dont know exactly why... DEC.OFFSET = 1 FOR I = 1 TO 20 FOR J = 1 TO 99 K = I R0%2 : '.' : J R0%2 PRX = K IF INT(PRX*DEC.OFFSET)=DEC.OFFSET*PRX THEN PRINT K : ' PASSED' END ELSE PRINT K : ' FAILED' END NEXT J NEXT I Ive fixed it by saying . IF (PRX*DEC.OFFSET)+0 = DEC.OFFSET*PRX THEN But I still cant dont know why it was failingor why this hasnt been a problem in 10 years with over 50,000 transactions a day. The data are strings passed from a client app that usually look like: 80.03 120.25 100.01 12002.4 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Fancy Printer
Well we use Kyocera, which apart from extremely low operating costs gives us 'prescribe', so we can control the printer in clear writing from within basic, no obscure pcl junk to learn. CALL !SET.PTR(UNIT,192,99,3,3,1,'NHEAD, AT GIROPRINT') PRINT ON UNIT !R! FONT 6; INTL 4,1; EXIT; . . normal program flow which does all the printing . if we need graphics or watermarks we can do them with prescribe here too . PRINT ON UNIT !R! RESET; EXIT; Claus Derlien edb-afdelingen direkte : 63 13 86 69 email : [EMAIL PROTECTED] Frie Funktionfrer - faglig organisation og tvfrfaglig a-kasse - www.f-f.dk *** Denne email og alle filer vedlagt som bilag kan indeholde fortroligt materiale, der kun er beregnet for adressaten, og maa ikke udleveres eller kopieres til uvedkommende. Har De ved en fejltagelse modtaget denne email, bedes De venligst omgaaende meddele os dette pr. telefon : 6313 8550. Paa forhaand tak. *** This email and any files transmitted with it may contain confidential information intended for the addressee(s) only. The information is not to be surrendered or copied to unauthorised persons. If you have received this communication in error, please notify us immediately by telephone: +45 6313 8550. Thank you. *** --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Why is this statement failing? (UniVerse)
I believe this is related to the wide zero discussion held recently - something to do with how UV treats strings when used in math functions - yeah I know, we don't have any typing but one of the internals guys could explain this better. Andrew Gissing --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] UD Fedora
Hi ! Has anybody out there has tried UniData 6.01 on Fedora. It installed without problems but we experience problems with UO and UOJ. Whenever we try to connect, we get error 39207 - slave-read error. It occurs with UniObjects and UO for Java. Any hints will be highly appreciated. Lembit Pirn 7+7 Software Tallinn, Estonia [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Why is this statement failing? (UniVerse)
What do you expect this to do ? What do you mean when you say there is a bug? I have tried this on universe, with a few CRT's added, and all looks ok to me. Les. -Original Message- From: Chris van O [mailto:[EMAIL PROTECTED] Sent: 08 October 2004 07:30 To: [EMAIL PROTECTED] Subject: [U2] Why is this statement failing? (UniVerse) Ive found a bug that has been in production for many years, but has just started to cause problemsbut I dont know exactly why... DEC.OFFSET = 1 FOR I = 1 TO 20 FOR J = 1 TO 99 K = I R0%2 : '.' : J R0%2 PRX = K IF INT(PRX*DEC.OFFSET)=DEC.OFFSET*PRX THEN PRINT K : ' PASSED' END ELSE PRINT K : ' FAILED' END NEXT J NEXT I Ive fixed it by saying . IF (PRX*DEC.OFFSET)+0 = DEC.OFFSET*PRX THEN But I still cant dont know why it was failingor why this hasnt been a problem in 10 years with over 50,000 transactions a day. The data are strings passed from a client app that usually look like: 80.03 120.25 100.01 12002.4 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ This e-mail and any attachments are confidential and intended solely for the use of the addressee only. If you have received this message in error, you must not copy, distribute or disclose the contents; please notify the sender immediately and delete the message. This message is attributed to the sender and may not necessarily reflect the view of Travis Perkins plc or its subsidiaries (Travis Perkins). Agreements binding Travis Perkins may not be concluded by means of e-mail communication. E-mail transmissions are not secure and Travis Perkins accepts no responsibility for changes made to this message after it was sent. Whilst steps have been taken to ensure that this message is virus free, Travis Perkins accepts no liability for infection and recommends that you scan this e-mail and any attachments. Part of Travis Perkins plc. Registered Office: Lodge Way House, Lodge Way, Harlestone Road, Northampton, NN5 7UG. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UD Fedora
Not sure if this matters... I had UV PE running under RH8.0 I upgraded to 9.0 then to FC2, it seem to run fine. Wonder if UD needs to first loaded on RH9.0 then upgraded to FC1 or FC2 to work properly? I will be in the process of reinstalling UVPE on my FC2 machine, as I had a driver that didn't survive the upgrade, so I had to fresh install it. Now I will need to re-install UV PEHopefully, it will work fine. George -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Sent: Thursday, October 07, 2004 4:10 AM To: [EMAIL PROTECTED] Subject: [U2] UD Fedora Hi ! Has anybody out there has tried UniData 6.01 on Fedora. It installed without problems but we experience problems with UO and UOJ. Whenever we try to connect, we get error 39207 - slave-read error. It occurs with UniObjects and UO for Java. Any hints will be highly appreciated. Lembit Pirn 7+7 Software Tallinn, Estonia [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: wIntegrate
Less: To install the wIntegrate host programs do the following: 1) open a wIntegrate session and log onto the host computer 2) get to tcl (raw tcl) 3) click on Run Script... 4) select the Host folder where the wIntegrate client is installed 5) select inst_pgm.wis and continue from there. Before doing this I would always create a separate wIntegrate account. Then create the appropriate 'Q' pointer to the WIN.PROGS file, from the production account, and catalog all of the WIN.PROGS. Hope this helps. Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Less, Mirwaan (MIRW) Sent: Thursday, October 07, 2004 4:53 AM To: [EMAIL PROTECTED] Subject: [U2] RE: wIntegrate Hi All We are trying to import data from our host server to a web interface. I read in the wIntegrate documents some part needs to be installed on the server, but no where it actually explains how to do this. Can anyone please advise? We're running Unidata 6.0.3 on Unix AIX 4.3.3. Regards, Mirwaan --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] udtconfig TMP param
That would be great for windows as well. With version 6 we noticed a difference in where the temp variable was being pulled from. If you used to set a system variable you were OK - but that is no longer quite true. This caused us a fair bit of grief trying to get the SB+ network file transfer going as it said it needed the path to the temp directory - but didn't properly explain how it was resolved. To make matters worse depending on what you looked at you could get different values Thanks muchly Colin Alfke (currently working out of L.A.) -Original Message- From: Wally Terhune [mailto:[EMAIL PROTECTED] Sent: Wednesday, October 06, 2004 6:56 PM To: [EMAIL PROTECTED] Subject: Re: [U2] [UD] udtconfig TMP param hmm. I'm thinking I need to resurrect a tech tip I started writing once on UniData's use of TMP and other 'work' files. The TMP environment variable is mostly used. Certainly by udtsort (SSELECT, etc) and BUILD.INDEX. The UniBasic compiler always uses /tmp There are other (small) exceptions - if I recall correctly. Wally Terhune Manager - U2 Advanced Technical Services IBM DB2 Information Management Software Tel: 303.294.4866 Fax: 303.294.4832 [EMAIL PROTECTED] www.ibm.com/software/data/u2/support - Open, Query, Update, Search - Online! --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] UniBasic DeBug - Text After END [Message too long (40000 chars)]
REPOSTED IN MULTIPLE PARTS FOR USER - PART I From: Brutzman, Bill [EMAIL PROTECTED] To: '[EMAIL PROTECTED]' [EMAIL PROTECTED] Subject: UniBasic DeBug - Text After END Date: Thu, 7 Oct 2004 12:09:07 -0400 In trying to smash two separate [working] programs together into a single program [attached], I obtain the pesky UniBasic complier error...Text found after END. Suggestions, hints, or fixes would be appreciated. --Bill * P.NAME = 'PACK.PARTS' * P.REV = '1.0' * P.DESC = 'Packing parts program ' * P.DATE = '' * P.TL = '' $INSERT HOP.COMMON.R2 equate true to 1, false to 0 dim BALANCE.QTY(10) dim CARTONS(10) dim CUST.PART(10) dim CUST.PO.NBR(10) dim DRUMS(10) dim EXACT(10) dim HK.PART(10) dim LBS.BOX(10) dim LOC.NAME(10) dim LOC.QTY(10) dim LOC.NBR(10) dim NET.WGT(10) dim NOTES(10) dim PCS.BOX(10) dim PCS.LB(10) dim QTY.RESTOCKED(10) dim QTY.TAKEN(10) dim R.PACK(10) dim UNIT.MEAS(10) *-- ASSIGN.STD.VARIABLES: prompt '' LON = @(-5) LOF = @(-6) AM = CHAR(254);* Attribute mark VM = CHAR(253);* Value Mark SVM = CHAR(252) ;* Subvalue mark IP = 'IP' ;* Iconv exit for input EP = 'EP' ;* Iconv exit for error messages DM1 = '' ;* Dummary Variable DM2 = '' ;* Dummary Variable DM3 = '' ;* Dummary Variable DM4 = '' ;* Dummary Variable DM5 = '' ;* Dummary Variable DM6 = '' ;* Dummary Variable WHO = '' ;* Initialize to Null TERM.DATA = '';* Initialize to Null L = '';* Initialize to Null C = '';* Initialize to Null CURSOR.TABLE = '' ;* Initialize to Null LL = '' ;* Initialize to Null PRT.DATA = '' ;* Initialize to Null WHO1 = @LOGNAME ;* Account Name WHO3 = @userno ;* Port Number PORT.NBR = WHO3 ;* Port number LOGON.ACCOUNT = WHO1;* Account name TODAY = DATE();* Todays internal date C188 = CHAR(188) ;* Special separator EXTRA.IP = '?NO?' ;* Set extra input * call *IO.OPEN(TERM.DATA,L,C,LL,PRT.DATA,DM1,DM2,DM3) T = TERM.DATA ;* Duplicate terminal CLR = TERM.DATA1;* Clear Entire Screen EOS = TERM.DATA2;* Clear to end of screen EOL = TERM.DATA3;* Clear to end of line BELL= TERM.DATA4;* Ring bell TAB = TERM.DATA5;* Tab L24 = TERM.DATA11,1 ;* 24th Line L23 = TERM.DATA11,2 ;* 23rd Line AUX.ON = TERM.DATA6;* Aux Prt On AUX.PRT = TERM.DATA7;* Aux Print AUX.OFF = TERM.DATA8;* Aux Prt Off FAT = PRT.DATA1 ;* Fat print Code SMS.PRINTER.ON.FLAG = 0 ;* ? ERROR = 0 *-- OPEN.FILES: Total.Boxes = 1 Net.Weight = 0 Lbs.Total = 0 Lbs.Total.F = '' Pcs.Per.Box = 0 Pcs.Per.Box.F = '' Pcs.Total = 0 Supplier.ID = '001329226' open 'ACTION.1'to F.ACTION.1else null open 'CM' to F.CM else null open 'CM.XREF' to F.CM.XREF else null open 'DAILY-SOD' to F.DAILY.SOD else null open 'EXTRA.CHARGE.CODES' to F.ECC else null open 'EXTRA.CHARGE.CODES.XREF' to F.ECC.XREFelse null open 'GL-COA' to F.GL.COA else null open 'GL-COMPANY' to F.GL.COMPANY else null open 'IM' to F.IM else null open 'IM.AUX' to F.IM.AUX else null open 'IM.XREF' to F.IM.XREF else null open 'INVOICE' to F.INVOICE else null open 'IPL' to F.IPL else null open 'IT' to F.IT else null open 'OP' to F.OP else null open 'OP.XREF' to F.OP.XREF else null open 'PACK.SLIPS' to F.PACKSLIPS else null open 'POH' to F.POH else null open 'POD' to F.POD else null open 'PRESS'
[U2] gvim on UD
I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] RE: gvim on UD
This may be common knowledge to most of you, but I just looked at a program that I wrote without gvim and there are no CRs. So the million dollar question is: how do I keep those from existing when editing with gvim/vim? -Original Message- From: Shawn Waldie Sent: Thursday, October 07, 2004 1:23 PM To: '[EMAIL PROTECTED]' Subject: gvim on UD I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] gvim on UD
Shawn, I just started using gVim last week, UV 10.1 on AIX. I have the Windows client side stuff loaded running on my PC, and use FTP to get the source code and write it back to the UV server. Nothing running on the UV side. I do a :edit ftp://server/path/program.name to get the code, and :w or ZZ to write it back, and it all works quite well. When I first started, I used :Nread to get the source code, which introduced a blank line at the top of the file. If that's what you are experiencing, try using :edit instead of :Nread. How do you have your gVim set up? --Ron P. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Thursday, October 07, 2004 2:23 PM To: [EMAIL PROTECTED] Subject: [U2] gvim on UD I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData index sort oddness
I have run tests on my UniData 6.0.9 system on Solaris 2.8. I was testing what affected the sort order of SELECT JOB WITH CONO = 001 from an ascending ID sort before re-indexing (with an additional field) to a descending ID sort after. I tested every combination of the selected field having a format of 3L or 3R, of being defined as single (S) or multi (M) (not MV!) valued, the presence of a long field called DESC or JOB_DESC or not being included, and setting the alternate key length to 8 or 20. The only investigated factor that changed the sort order of the select list was whether the field CONO, which is a virtual attribute that is part of the key, was defined as single valued S or multi-valued M in field 6 of the dictionary. When CONO was single valued the SELECT provided an ascending key sort and when CONO was multi-valued the SELECT provided a descending key sort. I thought that the field had always been defined with M in field 6 as a result of an automated conversion from Pick days to UniData and it certainly provided an ascending sort until I deleted and recreated the indices. Who knows? Karjala [EMAIL PROTECTED] 10/06/2004 5:18:31 PM Oops! ... I will make a more rigorous round of tests tomorrow to try to pin down the change because I cannot yet replicate the changes I observed. The tests will include the presence and absence of the DESC field, and if that makes a difference in a non-SQL environment, adding it with a different name. Karjala ... -Original Message- From: Karjala Koponen [mailto:[EMAIL PROTECTED] ... I recently added an additional alternate index to one of my files. ... The sort order of SELECT JOB WITH CONO = 001 changed from an ascending ID sort before the re-indexing to a descending ID sort after. I did the same things on UniData 5.2 on AIX and UniData 6.0.9 on Solaris 2.8 with the same results. ... Karjala --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: gvim on UD
I don't know what gvim is, but if you're getting compiler errors on blank lines, just change them to *. I'm assuming that you put the blank lines in to make the code more readable? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Thursday, October 07, 2004 12:39 To: [EMAIL PROTECTED] Subject: [U2] RE: gvim on UD This may be common knowledge to most of you, but I just looked at a program that I wrote without gvim and there are no CRs. So the million dollar question is: how do I keep those from existing when editing with gvim/vim? -Original Message- From: Shawn Waldie Sent: Thursday, October 07, 2004 1:23 PM To: '[EMAIL PROTECTED]' Subject: gvim on UD I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: gvim on UD
Hi Allen. Your assumption is correct. Gvim is the gui-vim (I think). I fixed my program by editing it with AE: SB startline finishline CB/^013// The compiler didn't have any more problems. There must be a way to keep vim from entering a CHAR(13) after every line. I just haven't found it yet. -Original Message- From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] Sent: Thursday, October 07, 2004 3:00 PM To: [EMAIL PROTECTED] Subject: RE: [U2] RE: gvim on UD I don't know what gvim is, but if you're getting compiler errors on blank lines, just change them to *. I'm assuming that you put the blank lines in to make the code more readable? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: gvim on UD
Where are you editing the programs with gvim? On a windows box somewhere, or on UNIX? If running on windows, but accessing a unix file, then you may find that gvim has decided to put in a CRLF instead of just a linefeed at the end of each line. gvim is infinitely configurable, and I'm sure there'll be a way to make it behave the way you need it to. Cheers, Ken -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Friday, 8 October 2004 5:39 AM To: [EMAIL PROTECTED] Subject: [U2] RE: gvim on UD This may be common knowledge to most of you, but I just looked at a program that I wrote without gvim and there are no CRs. So the million dollar question is: how do I keep those from existing when editing with gvim/vim? -Original Message- From: Shawn Waldie Sent: Thursday, October 07, 2004 1:23 PM To: '[EMAIL PROTECTED]' Subject: gvim on UD I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniBasic DeBug - Text After END [Message too long (40000 chars)]
When i've that this problem, or it's favourite cousin variable REC not assigned (and you have to go looking for the one spot in the text where you forgot to prefix with CUST or whatever... Copy the program to a temp file. The take small chunks out and recompile. After a number of iterations your error message will dissappear and then the bug should be in the last section of code that you just deleted. If you go down this path, watch out that you take code out in the right order, and in matching IF/THEN or BEGIN CASE/END CASE sections otherwise you'll get more problems. Also take out calls to GOSUBS before removing the subroutines. Hope this helps, Andrew Gissing --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] RE: gvim on UD
With gvim/vim use :se ff=unix to set File Format to Unix use :se ff=DOS to set to Windows/DOS format :se ff will show you the format vim has detected in the file from the crlf or lf only line terminations.. I use this routinely to move files from HP-UX based Universe to Windows. Paul Protzman Kripalu Center --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniBasic DeBug - Text After END [Message too long (40000 chars)]
Brutzman, Bill wrote In trying to smash two separate [working] programs together into a single program [attached], I obtain the pesky UniBasic complier error...Text found after END. Have you tried using the FORMAT or FANCY.FORMAT commands on your program? The reformatted indentation of the statements should make it visible where the logical structure is amiss. Gyle --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Why is this statement failing? (UniVerse)
On Thursday 07 October 2004 6:46 am, Gordon Glorfield wrote: What was the exact error message you were getting? No error message, just results where int(88.04 * 1) did not equal (88.04 * 1) Basicly it looks like this code was meant to accept 88.04, but not 88.042 What else has changed? After a little more investigation, and help from this newsgroup, I think the problem is in the wide0 UniVerse setting. New version? Is this UD or UV? I need more information to be able to offer any advice. This is all on version 10.1.0 and 10.1.2(I believe) of UniVerse. BTW your work-around is not the same as the original. I would expect entirely different results from the two. Yes, you are right... I was hasty. An IBM consultant working on this same project recommended mulitplying these floats by 100, then adding .5, and testing the INT() value after that. What do you think? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
