[U2] [UV] Question about EQU
I inherited some code and I noticed that the programmer consistently placed his equates outside of the program flow, in other words, the equates would never be executed. Nevertheless, the DO get evaluated. For example: LABEL1: FOR I = 1 TO 10 PRINT 'HELLO WORLD' NEXT RETURN EQU THIS TO THAT, YIN TO YANG LABEL2: I = 1 LOOP I += 1 WHILE I LE 10 REPEAT RETURN See how the EQU would never be executed? Since it works, I assume the tokenizer reads the whole program and picks up the equates, but what I want to know is, is there some reason for doing it this way, perhaps better performance or less memory used? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Question about EQU
Thanks, everyone. Now that I know there is no apparent reason for it, I'm going to do what *I* think is the sensible thing g. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2][UV] Terminal Cursor Control
Feels like I'm at a dead end. Anyone have any ideas? Well... these sequences will move the cursor to a specific column on the current row. The examples exhibit moving the cursor to the left edge of the screen: PRINT CHAR(16):CHAR(0): PRINT @(-70,0): ...or... PRINT CHAR(8): ...goes left one char at a time (non-destructive on my terminals). If using wIntegrate: PRINT CHAR(27):CHAR(1):'Display at 0':CHAR(13): These sequences are non-destructive, so if your goal is to rub-out the char to the left, you'll either have to backup, then erase the current char (PRINT @(-22): might work for that), or back up, print a space, and backup again. Or, maybe someone will chime in with the 'right' way to do a destructive backup. I have a callable routine I could send to you, if you want (need your email). It is a fairly full-featured single line data entry with arrows, backspace, back/forward word, end, beginning etc. It might be overkill for your needs. Also, it has a dozen lines of wIntegrate-specific functionality which would have to be removed/replaced. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Cannot Find A Working Program or Directory
I am unable to find the dot dee thing that is, I can find USER.BP. I cannot find USER.BP.D. I have been on systems where the BP file is a directory, but the BP.O (or BP.D in your case) is a U2 file. Could that be your situation? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Input Mask
Depending on the emulator, you need to be wary of multi-byte keycodes which are used for function keys and such. These multi-byte keycodes will begin with either CHAR(2) or CHAR(27) (for example), but can be followed by what are otherwise printable characters. If you do not filter them, you will get garbage in your input string if a user presses one of those keys. Here is a routine I use (UV with wIntegrate): === KEY.BUFR = '' LOOP INPUTIF JUNK, -1 THEN KEYCODE = SEQ(KEYIN()) * * Check for multi-byte keycodes, such as from function keys, etc. * In wIntegrate, multi-byte keycodes begin with 2 or 27 and can be * anywhere from 2 to 5 bytes long. Enter sub loop to gobble up all * of the bytes. Also, special-case the ENTER key to get an immediate escape. IF KEYCODE EQ 2 OR KEYCODE EQ 10 OR KEYCODE EQ 27 THEN KEYSEQ = KEYCODE LOOP INPUTIF JUNK, -1: ELSE EXIT KEYSEQ := SEQ(KEYIN()) REPEAT * If it is ENTER, then exit. IF KEYSEQ EQ 10 THEN EXIT END ELSE * Determine if this is a printable character, and if so, * add it to the prompt buffer, increment the buffer count * and exit if we have chars. IF BITXOR(128,BITAND(255,KEYCODE + 1)) GT 160 THEN THIS.CHAR = CHAR(KEYCODE) PRINT '*': KEY.BUFR := THIS.CHAR END ELSE * Otherwise, ignore the key, unless it is a BACKSPACE. IF KEYCODE EQ 8 THEN PRINT CHAR(8):' ':CHAR(8): KEY.BUFR = KEY.BUFR[1, LEN(KEY.BUFR) -1] END END END END * Be sure to yield to the system. NAP 16 REPEAT --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] FIND vs LOCATE- speed?
Thanks for all the replies. I decided to test it. On my system (admittedly without exhaustive testing) I found that FIND and LOCATE have very similar performance with FIND being slightly faster than LOCATE and INDEX being slightly faster than FIND. This was against a 75,000 element dynamic array. Your results may vary. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] FIND vs LOCATE- speed?
When using FIND or LOCATE on a dynamic array, is one faster than the other, and is there any reason to sort the array to (hopefully) improve the speed of FIND or LOCATE? I don't need to use LOCATE... BY... SETTING, I'm just doing a raw FIND or LOCATE. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] time()
The TIME() function is supposed to return the number of seconds since midnight, in whole seconds on unix, but on Windows machines it returns a real number implying it is accurate to the nearest .001 second. Of course, it doesn't, but I noticed on my server that it rather reliably returns a number rounded to the nearest .015 or .016, giving about 64 divisions per second. Back in the old days, the PC's time chip had a periodicity of .054 seconds. Does anyone know how Universe manages to tic every 16 milliseconds? It seems somewhat dependant on machine load. With my head buried in programming, I suppose I might have missed common hardware improvements g. My main concern is how reliable is it? In other words, under heavy load can you miss a tic? On the old fashioned hardware driven interrupt model, you would never miss a tic no matter what the load. If it is reliable, it's too bad we can't write interrupt handlers in Universe. That would be cool. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Barcode PCL Commands
Does anyone have, or can you direct me to, a PCL command reference to print barcodes? I need to print them on an HP laser. There is supposed to be a barcode font built into PCL 5 and up, but I could never make it work on our printers. I do have some UV code you can have that will print CODE39 barcodes (only) in about 8 different sizes natively from UV to HP-PCL printers without using soft fonts. It positions the barcodes using row/column addressing WITH the assumption that you are using the 16.66 cpi Lineprinter font. If that meets your need, give me a shout. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Barcode PCL Commands
if you need Code-128, There should be a subroutine where U2 files are stored. It works very niceley. By Dave Church. If you need this, I can forward it to you. It will return the I don't know about the original poster, but I'd like to see that. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Printer page breaks
I like the command crt @(0) So writing to the screen using specific coordinates will disable paging? Interesting. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Printer page breaks
There was a thread just yesterday (or the day before) about this, and it got me thinking... I've inherited code that has THREE different methods of suppressing the 'press a key to continue' after each 24 lines are printed. All three methods seem to work, but I wonder if anyone can tell me if these methods really do the exact same thing: junk = @(0) assign 0 to system(1016) assign 0 to system(2005) TIA, Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] client ip
In Universe, you can get it with SYSTEM(42). Maybe this would work in Unidata? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] @(0,0)
Subject: [U2] @(0,0) I have seem some alternatives to the above that suppress the Enter return to continue Supposedly... ASSIGN 0 TO SYSTEM(2005) ...thant will do it, but I've never tested it because I just use... JUNK = @(0) Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] User exit help?
I've been using this for a long time to get a 1 character input from the user with a simple validation mask: RESPONSE = UPCASE(ICONV(0:@FM:'qQtTcC':@FM:'','U035A')2) Does anyone know another user exit that will do the same thing, but require the user to press ENTER after they enter their response? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Solaris Compatiblity?
Does UniVerse run on Solaris? Yes, quite well. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse + PERL
You can also use Win32::OLE to connect to UV. This script counts the VOC: Wow! This is way cool! Where can I learn more about using Win32::OLE to mine UV files?? Also, does the connection use a license? By which I mean, if all licenses are in use, will the Perl connection fail? We have been running at, or near our user limit for some time now. Great post! Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] File sizing
locked in the group. So you can minimize group lock contention by making the file wide and shallow. So not only is there no gain So that's what a group lock is? If you have more than 1 record locked, it locks the whole group? That seems like an odd idea. What if you have one record locked, then another user locks some other record in that same group, then you go to lock a second record... the system could not very well lock the whole group for you because someone else has a lock already. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] File sizing
Great replies everyone! Thanks very much. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] File sizing
I have Universe 9.6.1.3 running on Win 2K. I have FAST, but I want to experiment in a little manual fine tuning. I think I get the meaning of 'separation', but I have one question: Due to the block size on the drive under Win 2K, is there ever any reason to use a separation of less than 4? Opinions anyone? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Changes to the List
I do not like the 'reply-all' feature either. As developers, I would hope that we would not add a feature to our user interfaces that annoyed all of the users every time they used it, so I don't see why we should tolerate doing it to ourselves. Presumably the list moderator is trying to solve some perceived problem, but I've been on several other high traffic lists and none of them have done this. As far as moving it to a Google list... why would you do this? What problem are you trying to solve? My experience with the free list servers is that it is easy to get unsubscribed without notification if a few list messages bounce to your address. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Resize error
UV version 9.6.1.3 on Windows 2000. When I use RESIZE to resize a file, I frequently get this error: RESIZE: Error on POREQ. File not resized. I generally CLEAR.FILE the file first, having saved off the records elsewhere, but I get the error whether I CLEAR.FILE or not. Incidentally, I NEVER saw this error when the system was running on Solaris. I have determined that this is NOT a permissions issue. Then I thought, well maybe someone has the file open, but even after hours with nobody on I get the same error. If I reboot the machine, I can resize any file until a day or so goes by and the error starts cropping up again. One further factoid- if I DELETE.FILE the file, it will not do it (error) but merrily trashes the DATA portion of the file. Then, I can not CREATE.FILE the file either. This has progressed to the extreme annoyance phase. Anyone know what's going on here? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [wintegrate] Determine presence?
I've inherited a bunch of code that tests for the presence of the client running wIntegrate like this: IF UPCASE(SYSTEM(7)) EQ 'VP60' Is this a reasonable method? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] SYSTEM() for execution level?
Anyone know if there is a SYSTEM() code that will return the execution level of the running process? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] GOSUB variable-name?
For me it is always much easier to develop a complicated functionality in a flexible way in a language that supports OOP then in U2. I'm sure that after you gain more experience with U2, you will find it contains the flexibility to create very complex applications easily. It took me a long time to appreciate U2's capabilities, so I'm sure a beginner would overlook it's beauty. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] GOSUB variable-name?
It is always wrong to specify directly in a calling program which branch the... . . It is also wrong to pass into the called program the information from where it is been called. It's only wrong if it doesn't work, is difficult to maintain or runs slow. Both of these techniques are completely valid and have been used by programmers to develop reusable code before the advent of object orientation (if your language even supports OOP). For example, I have a fairly intense screen and data entry handler that does a lot of different things. It is inefficient for every program to call 20 different subroutines instead of calling one and telling it to give me a field right here and this long, in this color with these function keys enabled that do such and so. So this is wrong? It has saved me huge programming hours over the years. Heck, back when I coded machine language we'd put a bunch of things we got to work right into a module and give it different entry points. I think we called them device drivers back then and it was considered a normal thing to do. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] GOSUB variable-name?
I would like to pass a variable (let's call it SUBNAME) to a subroutine, and this variable would contain the name of an existing label which I will call TEST. The subroutine can then do GOSUB TEST, but GOSUB SUBNAME will not compile. Aside from CALL @VARIABLENAME, is there any way to branch indirectly in universe? This would be really useful for me. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] GOSUB variable-name?
An easy one No. Out of interest, why do you need it? When I create subroutines that are highly generic, I like to make them as black box as possible. This one, as part of it's processing, needs to GOSUB to another routine, the name of which would be passed by the original caller. So when I have boilerplate code (this one does some screen handling that could be used by many, many of my apps), if I can keep from ever changing it after it works, I find I am happier. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Justification for removal of savedlists
I wrote a small routine that will go through Savedlists, One must be wary, as some VARs use SAVEDLISTS for storing permanent data. For example, one of Epicor's applications saves an index of all user-created report definitions in SAVEDLISTS. If you were to delete this file (which I have done), all user-created reports evaporate. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] making a .csv file into an .xls file?
Is there an easy way to automate Excel to load the .csv, then save as .xls? Or, your universe program can output an XML file which you then name to have an .xls extension. Excel will open that natively. In Excel, you can do a FILE | SAVE AS as an XML file to see what Excel is looking for in an XML format. With XML you can do all kinds of Excel things like embedding formulas, specifying fonts, colors, multi-rows within single cells, freezing rows/columns, etc. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Create hashed file in subdirectory?
This is Universe 9.6.1.3 on Windows 2000. I have a type 19 file (in other words, a subdirectory) that looks like this in the VOC: 001.. F 002.. SCRATCH 003.. D_SCRATCH I use this to create temp files and other administrative type files which usually get deleted later. So... this sounds stupid even to me, but how can I create a static hashed file in this subdirectory?? CREATE.FILE does not seem to allow this. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Create hashed file in subdirectory?
You can create part files like this- CREATE.FILE DATA SCRATCH,MYHASHFILE 18,1,1 OK, this does not do exactly what I had in mind, but it DOES work and is totally interesting. When I executed that command, behind the scenes it made a subdirectory under SCRATCH named SCRATCH, and moved all of the existing files into the new subdirectory, so I had .\SCRATCH\SCRATCH, and then it put MYHASHFILE under SCRATCH. This was all transparent to universe, but the DOS app that also accesses that directory suddenly thought that all of it's files were gone! Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] -D command line switch?
Thanks to everyone who responded. It turns out that D is in my VOC like this: VOC D 3 lines long. : P 0001: K KEYWORD, SAME AS 'LPTR' 0002: 33 0003: Bottom at line 3 Don't know if that's standard product or not. Also, there is no -D, but there IS a - which looks like this: 0001: K 0002: 521 ...whatever that means, and there is no other entry with 521 in F2. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] -D command line switch?
UV 9.6.1.3 on Windows NT. I ran into something unexpected while developing a utility today. I frequently use command line arguments which I retrieve inside the program with GET(ARG.). Well, today I wanted to use -D as an argument but discovered that somehow my screen output was suppressed. Anyway, after a bunch of fooling around, I discovered that -D, D, -P and P on the command line will suppress output to the screen, and send it to the default printer instead! Also, GET(ARG.) does not see the argument either. Does anyone know what is going on here? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Week of the year (UV)
If I understand the question properly, I believe this will do it: PRINT INT(OCONV(DATE(),'DJ')/7) + OCONV((OCONV(DATE(),'DJ')/7:'')['.',2,1],S;'1';'0') ...but be aware that even though we think of a year as having 52 weeks, and a week is 7 days, 7 * 52 = 364. As far as I know, a year always has 365 days unless it is a leap year with 366 days. Therefore, the above algorithm will return 53 for the last day of the year, or for the last 2 days if it is a leap year. Also, above algorithm might be totally useless if you are talking about your company's FISCAL year, whatever it is defined to be. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV][OT]Embed command in CSV file? Perl's SpreadSheet::W riteExcel Module
If perl is an option, you may want to look into the spreadsheet module Duh-oh! I didn't think of that. I love Perl... I use it as often as possible, and I'll even call it from UV. I developed an email module to take a UV generated seq file (properly formatted) and use it as an email template, with which it then talks to our internal mail server on port 25 and relays the msg. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV][OT]Embed command in CSV file?
If you create an HTML file and name it with a .xls extension Excel will open it quite happily and adjust columns to fit all by itself. revelationWow! You are right! How cool is that?/revelation That is pretty cool. I noticed that a br in a td results in visually correct data in Excel, but generates an extra row, when what I really want is a taller cell. I'll bet I can find a way to work around that. I found that if you put a- style type='text/css' table {border-collapse: collapse; border: 1px solid #c0c0c0;} td {border: 1px solid #c0c0c0; vertical-align: top;} /style ...in the head of the doc, you will get a pretty good likeness of the normal Excel grid work. Thanks for the great tip. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV][OT]Embed command in CSV file?
Instead of using CSV, you could use SLK Format (Symbolic Link Format). It is slightly more work Ah, I believe I remember this format from the Lotus days. I am interested in this idea. I don't suppose you have a link to any SLK format specifications? Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV][OT]Embed command in CSV file?
However, if your users are on Office 2003, you might be best off creating your document as XML where you will have access to complete Sadly, we are not uniformly on Office 2003, but I like the idea of using XML. I already use HTML extensively in my reports, and I use alot of CSS and Javascript in those reports. For this usage, they specifically want an Excel file. Thank you for the interesting post... it gives me food for thought. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV][OT]Embed command in CSV file?
A little off-topic... From universe, I am creating a sequential file which is formatted as a CSV file, in other words each field is quoted and separated from each other by commas, for example: John,Jacob,Dingleheimer Schmidt The intent is that the resulting file is opened with Excel. You can force any cell into multiple lines by embedding a CHAR(10), for example: WRITESEQ \John,Jacob,Dingleheimer\:CHAR(10):\Schmidt\ TO MY.CSV.FILE THEN NULL ...when viewed in Excel will give you... JohnJacobDingleheimer Schmidt ...which is a great way of expressing multi-values. Finally I arrive at the crux. When you open such a document in Excel, it only displays one line per row even if a cell in that row contains multiple lines. To see all lines you have to select all and hit FORMAT | ROW | AUTOFIT. My users seem to be incapable of dealing with that, so... ...does anyone know if it is possible to embed some kind of command in a CSV file that will get Excel to autofit those rows automatically? Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [wIntegrate][UV] Changing emulation parameters via scrip t?
... 3) Locate the line of code you want to modify and duplicate (i.e. TerminalCommand = \018 ,Script 'wintsys\\wit_scr\\CopyPrt') 4) Comment the first duplicated line... ..snip.. I'm sure that would work. However, most of the time it needs to be like that for things to work properly. I need to change it in a program, and then put it back the way it was. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [wIntegrate][UV] Changing emulation parameters via script?
We are running wIntegrate 5.1.1 as a front end to Universe 9.6.1.3 running on W2K. There are many parameters that can be influenced by client side scripting, but I find myself wanting to change a parameter that is established in all of my user's .WIT file that is loaded at startup. I believe the file used for this is specified in the dialog selected by SETUP | TERMINAL. The specific thing I want to change is the line: TerminalCommand = \018, Capture On LocalPrint, 'Printer',,,CAP_DIRECT This makes it so that when the host sends a CHAR(18), it routes all following output to the user's local printer. For reasons a bit too lengthy to get into, our vendor's application which I can not get inside of, asks the user for a print destination before printing. One user option causes a CHAR(18) to be sent. Several hours of experimentation on my part seem to indicate that it is not possible to intercept the CHAR(18). Neither can I (apparently) influence this parameter with client side scripting. If I issue a script command like terminalcommand = \018, I do not get a script error, but nothing changes either. I want to temporarily turn off the ability to spool locally so my app can set up a fairly complex output stream without capturing the output from some user prompts that happen after the capture starts. And no, it's not possible to get all the user prompts out of the way first because, this is an add-on to our vendor's app and I cannot control the placement of the vendor's generic built-in print destination wizmo. Anybody out there figured how to change things specified in a WIT file from inside a script? TIA, Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Embedding JPG/GIF
Can we embed the scanned signature using mvBASIC? How would we go about it? Any ideas welcome. You could scan the signature, put it in Paint Shop Pro or Photoshop (or whatever) and then save it out as a Portable Bitmap (.pbm) file. At that point it would be easy to write a routine to read the .pbm file and write PCL raster graphics codes out to the printer. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SELECT without
I think its COUNT.SUP That seems to work well on my system. Thank you very much! Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Can we use WIN.PCWRITE to copy binary files??
WIN.PCWRITE script. The script comes with Wintegrate 4.2.1. Problem we are having is that we cannot copy binary files from the AIX side to the Caveat... I am running UV and am using wIntegrate 5.1.1. Having said that, WIN.PCWRITE works well enough for me, but because the script has some hard-coded numbers in it, if you specify a file name longer than 19 characters you will end up missing blocks of data in your file, and the file might even be empty or very short. Actually, that figure of 19 varies slightly depending on what kind of wIntegrate 'conversion' you specify. And by file name, I don't mean the actual name on disk of the file, but the variable name that you pass to WIN.PCOPEN when opening the file. If you write your own routines based on the lower level methods that the WIN.* scripts use, you can increase file transfer rates significantly. You can look at the records in the WIN.PROGS file to see how these routines work, and the Client Scripting Reference is available on-line. I use my own routine now, and am much happier with the performance. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] SELECT without n records selected...
When executing SELECT from a PA, is there some keyword that will suppress the message n records selected to select list 0. Because if there is, I can't find it. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] SELECT without
You mean something other than HUSH ON followed by the select, etc., followed by HUSH OFF? Yes, something other. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] How does UV authenticate to Windows
Well, I still don't have my answer, but the replies have been really interesting! I want to thank everyone for contributing. Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] TRANS vs T-correlative: caching last record
for UniVerse, TRANS() ( aka XLATE() ) will cache a record behind the scenes so that a 2nd I-descriptor that TRANS()s to the same record Please excuse me for butting in. That is very interesting, as I just did some testing that indicates that when TRANS() is used in a basic program, performance (when compared to READing the record) is degraded when a second field in the same record is TRANS'd. This is on UV 9.6.1.3 on W2K. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Help with @RECORD
Thanks for all the posts, everyone. I guess that clears it up. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Help with @RECORD
UV 9.6.1.3 on W2K. What's the right way to use @RECORD? I can do- OPEN '','A-VALID-FILENAME' THEN NULL ...after which @STDFIL is populated with the file handle. Then, I can do- READ @RECORD FROM 'RECORD-ID' THEN NULL ...after which @RECORD is a dynamic array of whatever corresponds to 'RECORD-ID' in 'A-VALID-FILENAME'. But having to directly reference @RECORD seems like it defeats the purpose of a 'default record'. Is there a RIGHT way to populate @RECORD? I've tried a number of ideas that did not work. It would also be cool if you could get TRANS() to populate @RECORD, but it does not seem to. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Sorting UNIQUE
Running UV 9.6.1.3 on Win2K. I was doing a SELECT FILENAME SAVING UNIQUE F45, again rueing how you can not use SSELECT or BY when SAVING UNIQUE... ...when I noticed that the resulting lists appear to be alphanumerically sorted in ascending order anyway!! This makes sense to me because I would think the logic that determines unique-ness would have to sort the data to make that determination. This happens to be exactly what I'm after. But, since I am putting this code into programs, can I count on sorted results at all times? Is it guaranteed? I can't seem to find this in documentation. TIA, Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Clarification on FOR...NEXT loops
advantage over FOR...NEXT, that things have changed (since UV 9.6?) and the system is keeping track of where you are in the array in both cases. This functionality was added to universe at revision 7.3.1 (january of 1993 specifically). I'm running UV 9.6.1.3 on Win2000. My personal experiments indicate that there is indeed a huge speed improvement with REMOVE over FOR/NEXT when processing a dynamic array. If you are concerned then why not test it on your own version to see if it's an issue? When I have a dynamic array with multiple levels of separators, like @FM, @VM and @SM, I find REMOVE inconvenient to use, so I cheat and go with FOR/NEXT. Unless there are serious performance problems. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MvInternet - IBM Licensing Requirement
VOID is not the proper word. However, if you have 100 users hitting your web site all at once, you need 100 licenses not 10 with multiplexing software queuing up the other 90 users. This makes no sense to me. If I have 100 desktops all trying to access my UV app at the same time, but my 10 user license only allows 10 in at a time, are you saying I have to have 100 licenses? Multiplexing and queueing are not the same thing. If I use software to arbitrate 100 queries so that only 10 are ever processed at the same time, how is that different from my desktop example? Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] send data to IP address?
Running UV 9.6.1.3 on Windows 2000. Situation: We have a Zebra/Eltron barcode printer attached to a ZebraLink print server, so it appears as an IP address on our network. I don't really need a driver for this printer because I can easily send raw data to the printer and get it to do what I want. Problem: I'd like to send data to this printer directly from UV Basic. I would rather not set it up as a UV printer because I don't want users to see it and accidentally send data to it. In a CMD window, I was able to NET USE the printer (on a remote machine), and then just copy the data to my local PRN, and it works perfectly. Anybody know if there is a way to make this connection in UV Basic? I tried creating a VOC entry and doing an OPENSEQ on it but it fails. I've tried a few other things as well. TIA, Barry Brevik --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] send data to IP address?
Does UV 9.6 have callhttp? If the print server is a jetdirect workalike you can just open port 9100, send your data and close port 9100 at the Port 9100 does not work on this device, but thank you for that tip... I find it very interesting for other applications. Also, I don't think this UV has callhttp. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] send data to IP address?
Does UV 9.6 have callhttp? If the print server is a jetdirect workalike you can just open port 9100, send your data and close port 9100 at the Actually, now that I have done a port scan on this device, it apparently IS listening on port 9100. However, the same technique that produces output on a networked HP 4200 does not produce any results on the Zebra. I am missing something. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] send data to IP address?
Have you tried the BASIC OPENDEV command? I have now. But no joy. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] send data to IP address?
Don't make it so complicated! Believe me, I'm trying to keep it simple! I was handed a box of software named BarTender and told to install it on all of the clients that would be printing bardcode labels. So I said to myself, 'Self, we must be getting something for our $1400', and sure enough, all of the barcode symbologies are embedded in the printer already. So I'm thinking that this is the way to go, especially since they want to eventually print these off of PDA's. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2]: Epicor
Is anyone on this list an Epicor user ? Here's another one. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Help with HELP
Running UV 9.6.1.3 on NT. Terminal emulation is VP60 using wIntegrate. Does anyone know what term type the HELP command expects to see? I can sorta make out the screen, but the colors are all wierd and none of the navigation keys work at all... in fact any of the page up/down or arrow keys just cause the HELP command to terminate leaving my terminal all wonky. Better yet, maybe there is a setting somewhere to tell HELP to talk VP60 at me? It's been years, and I've never been able to get the HELP thing to work for me, and I'm just thinking that I would really rather have access to the HELP command. Any ideas for me? Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] making 00001 our of 1
I have always used R%5 but I may miss programs that use other techniques to arrive at the same result. Can someone give me examples that they have seen for changing 1 to 1? I don't want to start a religious war, but I think it is completely normal to use: NBR = NBR 5'0'R or NBR = NBR5'0'R Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] GE and LE question
Also, be aware that NUM('') returns 1 (at least on UV 9.6.1.3). I've always found this annoying as '' may not be alpha, but it is certainly not a number either. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV Pre-printed forms
One of my clients would like to replace their pre-printed forms with those generated by the system. Basically the form has been re-created in MS Since no one else mentioned it, what we do is: 1. Create form in Word and save it as a .RTF file. Put 'tags' (just ASCII text like 'FNAME') into the form elements you want to fill with data. Use any font and formatting you like. 2. Put the .RTF file where you can get at it from UV Basic. 3. In your program, open the .RTF template and do a search and replace for your tags. Stream the output to a new sequential file with an .RTF extension. 4. Use DDE or other method to get Word to print the document. Barry --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Got PCL printer?
Due to the system shared printer nature of Universe, it seems unlikely that a Basic program can do any direct I/O with a printer, BUT... I gotta ask if there's any way to tell if a printer channel has a printer attached that supports HP-PCL? I could send an escape sequence, but can I get anything back? Barry Brevik --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Global Catalog Q
When globally cataloging, the catalog name begins with a *, -, $ or ! according to my documentation. Before I create a slew of gaffes, is there any significance to WHICH of those 4 characters a user-created function or subroutine should use? I imagine there are 4 different characters for a reason. Barry Brevik --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Global Catalog Q
Thanks for the replies!! That was all really useful. This is a great mailing list. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] help with function() please
OK, I hate to be the asker of 2 questions in the same day, but... If I create a file named MYFUNC and it looks like this: FUNCTION MYFUNC(A) PRINT 'A = ':A RETURN('return value') ...and I put it in the same file (directory) as the other programs, I can write another program and do: DEFFUN MYFUNC(A) R = MYFUNC('HELLO WORLD') HOWEVER, if I globally catalog the function and call it !MYFUNC and I try to do: DEFFUN !MYFUNC(A) R = !MYFUNC('HELLO WORLD') ... the compiler barfs with '!' unexpected, Was expecting: Variable Name (UNDEFINED) and '!' unexpected, Was expecting: Assignment Operator. However, I can now CALL !MYFUNC('TEST'). What I wanted was a global function, so this is not floating my boat. Anyone know what's going on here? Barry Brevik --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Can I change VOCLIB to DIR type file?
Clif, how many items are typically in your VOCLIB? Just wondering if there's a not recommended past x size consideration to keep in mind? I'm not intending to hijack the thread, but what is the intended purpose of the VOCLIB file? I have one in each Universe account, but in each case it has 0 records. Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Random number (RND()) help
Workaround is something like 32768 * Rnd(32767) + Rnd(32767). Wouldn't that be *unlikely* to generate numbers less than 32767? Or at least they would be statisticlly skewed away from that lower range. Maybe something like (for numbers between 0 and 370500): ITERATIONS = 1 RND.MAX = 370500 RND.MULX = INT(SQRT(RND.MAX)) RND.ADD = RND.MAX - (RND.MULX * RND.MULX) LOW.FACTOR = (RND.MULX + RND.ADD) / RND.MAX IF LOW.FACTOR LT 1 THEN LOW.FACTOR = 1 FOR I = 1 TO ITERATIONS IF LOW.FACTOR THEN RND.NUM = RND(RND.MULX + RND.ADD) LOW.FACTOR -= 1 END ELSE RND.NUM = (RND(RND.MULX) * RND.MULX) + RND.ADD END NEXT --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Exit BASIC program with SELECT list?
Thanks for all the great replies! CHAIN seems to work well for what I'm doing. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Exit BASIC program with SELECT list?
Is it possible to create a SELECT list inside a BASIC program, then make that list be the active SELECT list 0 after the program terminates? In other words, I want to build lists in a program, and when I return to TCL I want to see the prompt and have an active select list. Any ideas? Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] wIntegrate and TERMINFO
I have some (very few) users who are experiencing a dialog that states sending data to printer when a BASIC program sends a CHAR(24) to the terminal. When you dismiss the dialog, the program appears to be hung, although some keystrokes result in a reappearance of the sending data to printer dialog. The BASIC program gets the CHAR(24) value thusly: TERMINF = TERMINFO(0) CURON = TERMINF122; * CHAR(24) on my system. CUROFF = TERMINF124 PRINT CURON: Any ideas of what may be happening to cause wIntegrate to slip into print stuff mode? Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Typo leads to discovery of new feature
I was writing some test code when a slip of the fingers resulted in some wierd syntax, which then proceded to compile, and produced some interesting output. Anybody have any idea what this code thinks it is doing? PRINT 10.2 PRINT 10.'2' PRINT 10.'02' program output: 10.2 10.00 1000 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Emulation screen size Editing
At font size 8 I can get 132 columns on my 19 monitor and it's barely readable. How in the world could anyone read a 165 column display? I'm getting 200 columns x 49 lines using wIntegrate and IBSfont 5x9 on a 17 monitor with 1024x768 reso. It is quite readable, but anything smaller is not. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Emulation screen size Editing
Looks like I'll have to go out and do some font hunting. I've been using Lucida Console. Lucida Console is a great font IMO, I use it in my editor. However, IBSfont sports much smaller sizes. In my case, the font was distributed with wIntegrate as files IBSFONT.FON, IBSFONT2.FON, IBSFONT3.FON and IBSFONT4.FON. Which oddly enough, seem to be available here: http://iris.nyit.edu/~helpdesk/UI/?M=A --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] wIntegrate license?
All of the users that I have who run wIntegrate experience a popup dialog that happens seemingly at random. The dialog says: License Report License has been remotely updated You have to click the OK button to dismiss it. The problem is that I have 12 machines running a kiosk-type application, and when this dialog appears, processing in the wIntegrate window stops. Is there any way to prevent this popup from happening? I don't know if it is related, but our standard startup script has DeviceLicensing=0. Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] Attribute marks in comments?
Is there a standard or convention for representing attribute marks in program comments? In other words, if I want to document the structure of a dynamic array in a comment, are there single characters that I would use instead of @FM, @VM etc? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Attribute marks in comments?
Thank you for all of the replies... it helps. I like to document the structure of dyn arrays in my programs because when I have to maintain other people's code I find that the array's purpose can be arcane, sometimes to the point of extreme confusion. However, using @VM notation in a comment makes it hard to read (for me). Actually, I'm the only one here that comments his code at all g. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV: FMT and FMTS processing of CHAR(247) differs
Problem: FMTS is supposed to FMT each field of a given dynamic array. It appears to be wrong if source data in a field of the array contains CHAR(247). If you look at the DOCs for REMOVE (for example), it indicates that the lowest system delimiter is CHAR(248), and that is true with REMOVE. However, I've noticed that some of the functions like FMTS() and FIELDS() also consider CHAR(247) to be a system delimiter. Experimentation has shown me that CHAR(246) and below are safe to use. I've always wondered about the discrepancy though. Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] Page length setting?
UV 9.6.1.3 on NT. I'm working on a report program where I (want to) control the paging with my own line counter. After I do a PRINTER ON and start PRINTing lines, I noticed that I frequently receive blank pages in my output, as if spurious form feeds are creeping into the print job. I'm wondering if UV is maybe keeping it's own line counter and inserting form feeds on my behalf? If so, how can I shut that off? Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Page length setting?
are you using HEADING logic? No. is the printer set to a default page length? Don't know how to tell. any CHAR(12)'s in the data? Only the ones I put there to get it to FF. Does is consistently formfeed incorrectly? Maybe. It's hard to tell as the data set keeps changing. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Wintegrate
Thus, Accuterm recieves the ESC and then the char(2) and mean that the characters following are an executable I am familiar with char(27), I just wondered what is supposed to happen when it's followed by char(2). IAC, it does not appear to work with Wintegrate. Dang. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [UV] DATA stack active?
UV ver 9.6.1.3 on NT. Is it possible to determine from inside a BASIC program if there is anything on the DATA stack before executing INPUT? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [wIntegrate]
If I may ask what kind of kiosk application. Barcoding. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [wIntegrate]
I am using wIntegrate scripting on a Kiosk application. One of the things I'm doing is removing things like 'File' and 'Edit' from the main menu like this: If IsMenu(MainMenu) then If IsOnMenu(MainMenu,'run') then Menu Detach mainmenu,'run' Endif Endif For some reason, the 'Help' menu refuses to unload this way. What I'd really like to do is remove the main menu entirely, but I can't seem to figure out how to do this. Any tips for me? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/