Re: [U2] Mixed Case UV Basic Programming Standards.
You're probably right about ED. After all, EDLIN is probably still lurking somewhere in the belly of all that Windows flash and dazzle. Lowest common denominator and all that... After 16 years in the MV world, I've never really learned ED, because I was introduced to Pick/D3 and SB+ at the same time. Since I came to this environment after 9 years on a Wang VS with its modeless editor, SE was the most natural thing to use, and I still do, although I now prefer AccuTerm's WED. Norman Morgan nmor...@brake.com http://www.brake.com Children seldom misquote you. In fact, they usually repeat word for word what you shouldn't have said. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Ron Hutchings Sent: Thursday, June 25, 2009 7:45 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Mixed Case UV Basic Programming Standards. Yeah, no one would be silly enough to still be using ED. Just because you can count on it being on every client machine since it is delivered with the standard system. Nobody could possibly be more productive in ED then any of the color sensitive editors that may not lock records while two people are in the same record. From: syme...@gmail.com To: u2-users@listserver.u2ug.org Date: Thu, 25 Jun 2009 10:58:55 +0100 Subject: Re: [U2] Mixed Case UV Basic Programming Standards. An important point there from Brian on editors, yes the editors we use (no one writes code in ed do they?) will colour highlight verbs, literals, comments, variables etc + do case insensitive searches.. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Using ED
I keep going on about WED, but it has several handy tricks up its sleeve. Highlight a block of text, then click a button to indent (or un-indent) the whole block by one tab distance (whatever you defined that to be). Similarly, entire blocks of text can be commented out (or un-commented) with a click. And always handy for a quick sledge-hammer adjustment to data records, there is the ability to insert value and sub-value marks with a mouse click. Note: I am also an UltraEdit fan, using it exclusively instead of Notepad in Windows. You may not need it often, but when you do the hex mode is a lifesaver. Norman Morgan nmor...@brake.com http://www.brake.com Normal is a setting on a washing machine. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Edward Brown Sent: Thursday, June 25, 2009 10:24 AM To: U2 Users List Subject: Re: [U2] Using ED Try ultraedit, it has a column mode that can handle this sort of thing. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Mixed Case UV Basic Programming Standards.
I use all caps except for comments and tags. Comments follow normal proper English capitalization and tags are TitleCase with no spaces. I find that this convention, along with good color choices for the syntax highlighting in AccuTerm's WED editor makes my code easy to read. Norman Morgan nmor...@brake.com http://www.brake.com Elect NO incumbents -- throw ALL the rascals out. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Charles Stevenson Sent: Wednesday, June 24, 2009 1:39 PM To: U2 Users List Subject: [U2] Mixed Case UV Basic Programming Standards. I don't like the way I use mixed case, so it tends to evolve. Not good, because consistency in programming style throughout an application makes for easier maintenance, maintainability is the god of software quality. So I am wondering how others use mixed case. Do you capitalize/lower/mix case for commands? Operators? Variables? Equates? etc. How do you use/not use special characters in variable names? For example: readu OrderMaster from ORDER.MASTER, OrderMasterId locked ... readU OE_rec from OE_f, OE_id locked ... ReadVU OE_Date From ORDER.MASTER, OE$Id, OE$Date Locked ... READU order.master.rec( oe$date ) FROM order.master.file, order.master.id LOCKED ... That sort of thing. I hesitate to even ask this for fear of starting a war. So ground rules for this thread: 1. NOT about MERITS of Uppercase only vs. Mixed Case programming. I am only interested in answers from people who actually use mixed case. 2. NOT about GOTO. Take it outside. 3. This is about PREFERENCE, NOT SUBSTANCE. By substantive I mean rules like: - Only open a file once. - Readu should always have a locked clause. By preference I mean stuff like my example. They are all functionally equivalent. 4. NO ARGUMENTS about whether someone's style is good or bad, or yours is better. Explaining why you do it a certain way is helpful, though. Just remember, when it comes to preferences, no two programmers will agree, yet consistent style, whate'er it be, increases maintainability. Thanks, Chuck Stevenson ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
RE: [U2] UV to SAP migration disaster
We used to experience what we called MBAM, Management By Airline Magazine. Anytime our former CEO took a long trip, he would come back fired up about the latest shiny, glitzy, gee-whiz thing featured in some in-flight or business magazine. Fortunately, he forgot about most of them as soon as he heard what they really cost. Norman Morgan nmor...@brake.com http://www.brake.com Why do they sterilize the needles for lethal injection? -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of John Carter Sent: Tuesday, April 21, 2009 11:29 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] UV to SAP migration disaster Amen to that. Too often ERP decisions are based on perceived 'Status' of the software product by individuals that NEVER use it. It ends up being about keeping up with the 'Jones' when sharing Executive war stories over martinis while figuring out how much their Golden Parachute will provide when they are finally jettisoned. How many of us have dealt with this type of out of touch executive that wants to blame the failed, late, overbudget (or all of the above) implementation of the GEE WIZ software package on the 'Implementation Team' or the 'Unsophisticated Users'? John H Carter III Impact Business Consulting Corporation Office/Fax (858) 676-3406; Cell (760) 497-5545 Unlocking Your Potential -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Jeff Schasny Sent: Tuesday, April 21, 2009 8:51 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UV to SAP migration disaster Unfortunately, its not always about the money. In many cases its about a change of leadership where the new guy on top wants his own personal favorite software. I have been personally involved with at least 2 instances where a new CFO has insisted that the ERP solution with which he/she/it is most familiar was instituted without regard for cost, ROI, or the possibility of increased functionality. In another case a new CIO insisted that a relational database (Informix in this case) was the only way to go and after 5 years and 10+ million dollars they had managed to replace the AR AP modules with no new functionality, more than quadruple the size of the IT department, and completely give up on the idea of replacing the businesses core application (alarm monitoring) because of the propensity for the new systems to crash on a regular basis. I think it would be to our advantage if only businesses were in fact led by rational intelligent people all the time but Enron, Global Crossings, Bear Stearns, etc, etc, etc should be sufficient warning that they are not. Rex Gozar wrote: It's fun to think of UV as the underdog and how the cards are stacked against us. It's fun to be in the I told you so crowd when the competitor fails. [stuff removed] -- -- -- Jeff Schasny - Denver, Co, USA jschasny at gmail dot com -- -- --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] U2 Application / Solutions providers list? PICK / U2 Hits? Any ERP Light applications out there?
If you aren't aware of OHM systems, give them a look. I'm not sure I would call it light but that is for you to decide. http://www.ohmworld.com/ What do you know about the history of this company? Could they be a spinoff from Ohmart, a manufacturing company in Cincinnati? If so, that sure brings back some memories. Back in 1978 I worked for Honeywell Information Systems in Cincy and one of the first accounts I worked at was Ohmart, helping them convert from an NCR Century series to a Honeywell Level-62. I still have nightmares about the Neat/3 to COBOL conversion. Norman Morgan nmor...@brake.com http://www.brake.com Why would I want to be normal? Normal is DULL. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV to SAP migration disaster
What does the acronym PHB stand for? Ask any Dilbert fan! PHB is pointy-haired boss. Norman Morgan nmor...@brake.com http://www.brake.com Lottery: a tax on people who are bad at math. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Strange happening...
We have found out the hard way that an unintentional empty string record ID can also produce some VERY strange record lock situations. It seems like everyone who tries to access the file winds up queued for a record lock on the bad ID. (UD/SB+/Prelude) Norman Morgan nmor...@brake.com http://www.brake.com Laissez les bon temps rouler! I use LOOP READNEXT ID ELSE ID = '' UNTIL ID = '' Do Stuff REPEAT I thought this was a safe way to check for the end of the list. I just used the ID as a flag and I wasn't sure what the value would be at the end of a list. I guess I was assuming that a SELECT list would not contain an ID of ''. Now I am wondering if this is a good idea. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Basic SORT() Function not avail in UniVerse?
Here's a Basic routine I use in UD: SUBROUTINE QUICKSORT(ARRAY) *** Quick Sort the elements of a dynamic array EQU AM TO CHAR(254) VALUES = DCOUNT(ARRAY,AM) IF VALUES = 1 THEN RETURN PIVOT = ARRAY1;** First element HIGHSTRING = ''; ** list of elements pivot LOWSTRING = ''; ** list of elements pivot FOR X = 2 TO VALUES ELEMENT = ARRAYX IF ELEMENT PIVOT THEN HIGHSTRING-1 = ELEMENT END ELSE LOWSTRING-1 = ELEMENT END NEXT X CALL QUICKSORT(LOWSTRING) CALL QUICKSORT(HIGHSTRING) ARRAY = IF LOWSTRING # THEN ARRAY-1 = LOWSTRING IF PIVOT # THEN ARRAY-1 = PIVOT IF HIGHSTRING # THEN ARRAY-1 = HIGHSTRING RETURN === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === You are in a maze of twisty subroutines, all alike! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes Sent: Tuesday, July 22, 2008 9:51 AM To: 'u2-users@listserver.u2ug.org' Subject: [U2] Basic SORT() Function not avail in UniVerse? Hey, I'm needing to SORT a dynamic array and apparently UniVerse doesn't have this Function. Other MV implementations have this, such as D3 - The sort() function sorts an attribute or value mark delimited str.exp in ascending order. [from ePick] There was also a user exit u1072 that did the same thing. Does anyone have a work around or fast path to same thing maybe I'm missing something but can't see this in UV docs. -Baker --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] blank lines in code / mixed case
You can always count on an old brass-pounder to get the job done. 73 de (ex)WA4BCG === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === How does a shelf salesman keep his store from looking empty? === Did you ever see the Jay Leno skit with two green-eyeshade gentlemen sending each other a message via Morse-code verses two of the best college text messagers? Green-eyeshaders won hands down. http://www.youtube.com/watch?v=AhsSgcsTMd4 Sometimes old is good! :-) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
We must remember that programming and computers in general has changed much since the beginning. How many remember punch cards. Can programmers today relate to a time when programmers submitted their code to be placed on punched cards? Sure can. I usually had to do my own keypunching, especially when working late. Wish I had a buck for every time a compile failed because I absent-mindedly stuck the old card back in the deck and threw away the new one. And the fun task of reading core dumps. All I can say is, you have a strange notion of fun. As long as we are waxing nostalgic, how about old-master, new-master update processing on sequential files? Or the ear-splitting sound of old line printers with the cover open? The unique sound of a 1403-N1 printing a barber-pole test pattern? I don't miss the good old days at all. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === When you do a good deed, get a receipt, just in case heaven is like the IRS === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: Switching from D3 to U2
I can't speak authoritatively for Prelude (Activant), but I suspect they more or less followed where SB+ went. They made a tremendous effort to convert their whole application from all legacy code to SB+ about 13 years ago. Perhaps it was general fear for the future of D3, perhaps it was fear that SB+ would cease to be supported on D3, or perhaps since IBM owned the whole mess and they were IBM business partners, they thought it was the prudent thing to do. From our standpoint, we were happy with D3. It did everything we needed and I really liked FlashConnect for web connectivity. But we were about 3 major versions behind on the Prelude application code and wanted some of the newer features. When Prelude said they would not support the newer versions on D3, we were forced to switch. Conversion by coercion. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Orville Wright didn't have a pilot's license. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of MAJ Programming Sent: Tuesday, February 05, 2008 8:14 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] RE: Switching from D3 to U2 Actually, what was the VAR's reason for switching. One of my client's VAR's forced a switch from UV to UD around 9 years ago when they went from a green-screen app to having rewritten their package with SB. Not SB GUI but regular SB. SB GUI came later for those newer clients. Thanks Mark Johnson - Original Message - From: Norman Morgan [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Monday, February 04, 2008 10:13 AM Subject: RE: [U2] RE: Switching from D3 to U2 -Original Message- From: MAJ So what's the number one reason for switching from D3 to U2? Not to create an onslaught of replies, but I've worked on many MV platforms and have my opinions on each. Because our VAR told use they wouldn't support their product on D3 any longer. grin === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Real programmers don't document. Documentation is for simps who can't read the listings or the object deck. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: Switching from D3 to U2
-Original Message- From: MAJ So what's the number one reason for switching from D3 to U2? Not to create an onslaught of replies, but I've worked on many MV platforms and have my opinions on each. Because our VAR told use they wouldn't support their product on D3 any longer. grin === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Real programmers don't document. Documentation is for simps who can't read the listings or the object deck. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unidata Time in Milliseconds?
I think your want SYSTEM(12) in UniBasic which is supposed to return system time in milliseconds === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A journey of 1000 miles begins with a cash advance. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kevin King Sent: Wednesday, January 30, 2008 9:16 AM To: u2-users@listserver.u2ug.org Subject: [U2] Unidata Time in Milliseconds? I got an interesting request today to store time from Unidata in milliseconds. Other than multiplying the TIME() value to convert it to a millisecond resolution, is there any function in Unidata that returns time in milliseconds? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unidata Time in Milliseconds?
SYSTEM(9) is milliseconds since the start of the program -- never used it - so don't know what 'start of program' means! I believe it is elapsed milliseconds since midnight. I constructed a test and displayed SYSTEM(12) compared with TIME() * 1000. They differed only in the least significant 3 digits. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Stress is when you wake up screaming and you realize you haven't fallen asleep yet. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] forms / imaging / doc overlay software
Anyone out there using and / or have a recommendation for a forms imaging / document overlay software package that runs in a Universe / AIX environment. Goal being to use the software rather than buy pre-printed forms. Any ideas would be appreciated. One package I am aware of is Optio. It does forms overlay printing and a lot more...for quite a lot of money. If you are using printers like the newer HP LJ4250's which can take an inexpensive flash memory card, you can store the forms overlays as PCL macros in the printer. Then about 2 or three lines of code added to your forms printing program will merge the form overlay with the content. This has the added benefit of not consuming network bandwidth to transmit the form each time it is printed. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === The pure and simple truth is rarely pure and never simple === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] To Ad or Not to Ad [not-secure]
And a lot of people think software engineers don't have any fun... Everyone laughed when I said I was a software engineer, until I started driving a train on weekends. http://www.littletootrailroad.com === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Gotta run...the cat's caught in the printer...again. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Deep and long indentations vs multiple exit points
I much prefer the multiple exit point method, it makes the code a lot easier to read. I call this Pragmatic Programming. Anytime a standard interferes with the clarity and/or function of the code, it is time to find an alternate way. Only a few things are absolute, like GOTO is a four-letter word. For example, I usually test for positive conditions and put subsequent code under a THEN clause. But if that results in the outer IF statement's closing END being more that two screen pages of code away, I deem it too hard to understand and start testing for negatives with immediate RETURNs. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Pain is your body's way of saying, Hey! Stop that!! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Womack, Adrian Sent: Wednesday, November 28, 2007 5:52 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Deep and long indentations vs multiple exit points Prime examples are when you are looping through a file but only want to process certain records that pass a lot of conditions, it so much easier to test each condition individually and then RETURN immediately. Some people blindly want to stick with a single exit point, but as I see it, an early RETURN is basically an exception which the more advanced languages allow and encourage. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse and Shadow copy on Windows 2003
So, what is the best way to log users off cleanly in mass? You certainly can't depend on users to log off for themselves. Asking, begging, threateningnone of that works. I know for certain if I log in at 03:00, there will be 15 to 20 users still logged in, even though the building has been empty for hours. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Sometimes I wake up grumpy. Other times I let her sleep. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Timothy Snyder Sent: Monday, September 17, 2007 3:09 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniVerse and Shadow copy on Windows 2003 The only way to guarantee business level data integrity in non-transactional applications is to force all users off the system briefly while you do steps 1 - 3. That's a good point. However, it's important to have a controlled way to do so. I've had people think they were safe to just log everybody off. Of course, there's no way to ensure you're not doing *that* in the middle of a transaction. ;-) Much worse, I've even had people with good intentions of getting everybody off of the system so they could have stable backups. How did they do it? With stopud -f or by doing a kill -9 on each user. Either one could create a mess at least as bad as backing up hot, since processes are not terminated cleanly. Actually, the mess could be worse with the unconditional kill methods, since they could result in corruption of the live database files, while backing up hot only impacts the backup copy. And if you do that while running RFS, head for the hills. Tim Snyder Consulting I/T Specialist U2 Lab Services Information Management, IBM Software Group --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [OT] Primos emulator
Dare we say that you are all past your Prime? === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Lower your blood pressure -- slit your wrists. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dawn Wolthuis Sent: Friday, September 14, 2007 7:49 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] [OT] Primos emulator A cherished possession of mine is a 9-track tape of Oracle for Primos. I also have a controller board and a, yes, I have a Pr1me disk pack too. Maybe there's a support group for people who have have kept Pr1me disk packs? --dawn On 9/13/07, Drew Henderson [EMAIL PROTECTED] wrote: I've still got a 300MB disk pack I use for tours (here is where we were in 1981) that came from a 750. Drew Louie Bergsagel wrote: Nice. I kept my PR1MOS books for 27 years, and tossed them out in March. I was able to login and create a directory. What fun! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UD - Open command
I was under the impression that UniData could handle something like: OPEN 'E:\DataShare\Temp' TO TEMP.FV ON ERROR CRT File abort. ELSE STOP 201, 'E:\DataShare\Temp' SELECT TEMP.FV IF SYSTEM(11) THEN LOOP READNEXT ID ELSE EXIT ...do something REPEAT END This worked fine in D3 but it is failing (actually the program just stops) in UniData, even though the directory is local and valid. Am I missing something or am I required to create a DIR pointer to the D:\DataShare\Temp local directory first? When we converted from D3 to UniData, I spent more time on this kind of thing that anything else. I believe you will have to use the OPENSEQ and READSEQ verbs instead. Something like: OPENSEQ 'E:\DataShare\Temp' TO TEMP.FV ELSE STOP 201, 'E:\DataShare\Temp' END.OF.FILE = 0 LOOP READSEQ TEMP.REC FROM TEMP.FV ELSE END.OF.FILE = 1 UNTIL END.OF.FILE DO ...do something REPEAT END === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === The world's most affectionate creature is a muddy dog. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Moving an H80
We just moved our operation across town, a distance of about 15 miles. Primary machine is a P55 RS6000 and standby is an M80. These are pretty tough boxes, apparently. Both had to be lifted down from the old mezzanine office location using a fork truck, then loaded into a standard semi-trailer. The only special handling was some custom blocking to keep them from rolling around inside the trailer. Both fired up immediately upon installation in the new quarters and have run flawlessly for the last two months. Unless you have some very clumsy movers, you should have no problems. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Sometimes I wake up grumpy, other times I let her sleep. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Tuesday, August 21, 2007 8:49 AM To: u2-users@listserver.u2ug.org Subject: [U2] Moving an H80 All, Anyone here have any advise on moving an H80 Enterpise R/S6000 running AIX UniVerse? I've been through the Redbooks and I we know how to lock down the cabinet and we have the power requirements. I'm worried about securing drives and banging loose the surface mounted chips. Any thoughts? -- - Charles Barouch [EMAIL PROTECTED] Consulting --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need a favor
I guess mine is a generator based on a template. Internally it isn't real elegant, just a bunch of IF...THEN code and literal strings, but it does what I need. I did actually start with a functioning program that had some of everything in it which I stripped down to a skeleton, then broke into bits and pieces, adding the logic to reassemble only the needed bits into the output. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Enroute to a decision I usually take the cynic route. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch Sent: Thursday, July 26, 2007 11:24 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] I need a favor Norman, Sounds like you are making an excellent case for Brian's template idea. Brian, I *think* the lowercase issue is all resolved now. -- Charles Barouch [EMAIL PROTECTED] - Consulting (718) 762-3884x1 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData 7.1 vs. MS SQL 2005 performance
Are we willing to spend $15 to $50 a piece for a new U2 book? I don't think they'll have trouble finding willing writers. I certainly would be! I'm old-fashioned enough to prefer real books over electronic media. You can read words on paper anywhere, no batteries required. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A committee is twelve people doing the work of one. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData 7.1 vs. MS SQL 2005 performance
others. And all together, the total volume eventually sold of U2 books will not reach one-sixty-fourth the level of the pending Harry Potter book. Still, I predict that a fair A safe bet, since the initial U.S. printing is 12 million copies. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Two rules for success: 1. Don't tell everything you know. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [AD] [U2] Basic developments reverse engineering tool ?
When in doubt, obfuscate. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Judge: An unemployed lawyer who wears a black dress. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Timothy Snyder Sent: Friday, June 29, 2007 8:21 AM To: u2-users@listserver.u2ug.org Subject: Re: [AD] [U2] Basic developments reverse engineering tool ? One of my clients has procs like this: HRUN BP SOP1500 STON HORDER HCUSTOMER HPRODUCT HVENDOR P whereby the program (BP SOP1500) has the corresponding INPUT statements for the file names and opens them as F1, F2, F3 which is a real bear when reading the code. Wow - that's just plan mean! There may have been a thought that it was a way to avoid hard-coding file names in case they ever changed (though that would be a weak argument), but then they're hard-coded in the PROC, so I can't see any benefit at all, other than obfuscation. The person that created it must have had a future grudge against whoever came along to maintain the code. Take my job from me, did you? I'll teach you a lesson. :-) Tim Snyder Consulting I/T Specialist U2 Lab Services Information Management, IBM Software Group --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [AD] [U2] Basic developments reverse engineering tool ?
Joking aside, that looks almost like something written by someone who was accustomed to writing mainframe COBOL where actual file assignments were made outside the program code in JCL. That doesn't excuse the internal naming style, but the technique harks back to my misspent youth as a COBOL programmer. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Timothy Snyder Sent: Friday, June 29, 2007 8:21 AM To: u2-users@listserver.u2ug.org Subject: Re: [AD] [U2] Basic developments reverse engineering tool ? One of my clients has procs like this: HRUN BP SOP1500 STON HORDER HCUSTOMER HPRODUCT HVENDOR P whereby the program (BP SOP1500) has the corresponding INPUT statements for the file names and opens them as F1, F2, F3 which is a real bear when reading the code. Wow - that's just plan mean! There may have been a thought that it was a way to avoid hard-coding file names in case they ever changed (though that would be a weak argument), but then they're hard-coded in the PROC, so I can't see any benefit at all, other than obfuscation. The person that created it must have had a future grudge against whoever came along to maintain the code. Take my job from me, did you? I'll teach you a lesson. :-) Tim Snyder Consulting I/T Specialist U2 Lab Services Information Management, IBM Software Group --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Trigger help
It's time to wave the white flag and display my ignorance. After all these years of writing MV code, I am attempting to use a trigger routine for the first time. I need to find out what is causing the mysterious disappearance of the contents of certain fields in our PRODUCT master file. It looks like an update trigger would be the best way, but how do I: A) compare the before and after images of the record to catch changes in those fields B) determine what program is doing the felonious update and what user is running it. I can do all of these easily in an SB+ subroutine, but it looks like I need to do it in barefoot UniBasic. Can someone give me some pointers? === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A Basic programmer's girlfriend wears a G$ === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] Union Query
I'm with you, Charles. We face this all the time, since Prelude's ADS splits data into open and history files. Merging lists is all well and good, but I still have to retrieve data from two separate files. I always wind up writing Basic to do it, making independent selects from each file and writing the keys to a work file with a tag indicating where the data resides. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === How do you get a lawyer out of a tree? Cut the rope! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Charles Barouch When I face this, I build a little BASIC program which builds a UNION file which is keyed by file * item and then I do the Query against that file. You could probably build the UNION file from triggers and always keep it current. Here's how it works: If DAILY.FILE has three items: 1, 2, and 3; and MONTHLY.FILE has six items: 21, 22, 23, 24, 25, and 26; then TEMPORAL.UNION file has nine items: DAILY.FILE*1, DAILY.FILE*2, DAILY.FILE*3, MONTHLY.FILE*21, MONTHLY.FILE*22, etc. TEMPORAL.UNION's DICT has items with TRANS conditionally, based on (G0*1). Therefore: SORT TEMPORAL.UNION WITH DATE = 5/1 BY DATE DATE PART.NUMBER DESCRIPTION BIN TOTAL QTY Burwell, Ed wrote: Has anyone developed or know of a way to do the equivalent of a UNION query in UniData? SORT DAILY.FILE AND MONTHLY.FILE WITH DATE = 5/1 BY DATE DATE PART.NUMBER DESCRIPTION BIN TOTAL QTY --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: Spam:Re: [U2] Users of UniVerse
I was thinking someone else hosted it awhile before Mikebut my memory may be having some multiple bit errors! I thought that was called a Backward Link Error === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === One more repo and I'll be debt-free. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: Spam:RE: [U2] U2 / mv.net
Cache isn't exactly putting a new face on an old product. The inverse is probably the truth here. They are putting an old face (PICK Basic) on a new (sort of) product, Cache. I thought Cache was the descendant of MUMPS. If so, it is at least as old as Pick. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A balanced diet is a cookie in each hand. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse I-descriptor Help
-Original Message- I'm trying to avoid having to write a subroutine to, basically, always round up the result of a division between a multi-value field and a single-value one, in an I-descriptor (UV 10.1). My MV field is named CONS, my single value one is names UNITS, the formula is CONS / REUSE(UNITS). The result will obviously be a multi-value. I don't know Universe I-descriptors, but can you say INT((CONS + 0.5) / REUSE(UNITS)) === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === I still say a church steeple with a lightning rod on top shows a lack of confidence. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniVerse I-descriptor Help
i feel it should be INT(CONS/REUSE(UNITS)+ 0.5) You are correct, of course. I rounded in the wrong place. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === The Queue Principle: The longer you wait in line, the greater The likelihood that you are standing in the wrong line. === -Original Message- -Original Message- I'm trying to avoid having to write a subroutine to, basically, always round up the result of a division between a multi-value field and a single-value one, in an I-descriptor (UV 10.1). My MV field is named CONS, my single value one is names UNITS, the formula is CONS / REUSE(UNITS). The result will obviously be a multi-value. I don't know Universe I-descriptors, but can you say INT((CONS + 0.5) / REUSE(UNITS)) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SELECT.LIST, DCOUNT and @VM
I use this technique so often, I wrote a called subroutine to turn a comma-separated list into an ordered dynamic array. It changes commas to @AM, trims each entry and sorts the list before returning it. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tony Gravagno Sent: Saturday, March 17, 2007 4:39 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] SELECT.LIST, DCOUNT and @VM Colin Jennings wrote: Don't know why without looking at the rest of the code, but some people prefer to build a comma-separated list and then change the commas to system delimiters rather than delimit with @VM in the first place. Not wrong, but perhaps a bit unnecessary. Does make the code easier to read I suppose. (I know this is all real fundamental for many people here, but I hope it helps some beginners.) I do that a lot with commas or spaces. Sometimes it's not practical to create a separate item which must be read to provide the static data. When there is a need to build an array (especially those with more than just a few attributes and/or values) it does't make sense to me to have many lines like this: INFO = 'NAME' INFO1,-1 = 'TELEPHONE' INFO1,-1 = 'ADDRESS' when it can be summarized into: INFO = 'NAME TELEPHONE ADDRESS' CONVERT ' ' TO @VM IN INFO Text wrapping in editors makes the info readable, and we don't need to hard-code attributes (see the original post) or values which may require modification later. When the data does not include spaces, I prefer spaces as a delimiter to induce text wrapping in the code, compared to commas which will cause weird breaking depending on which editor is used. The code can also be broken down for printing or Emailing as follows: BLOCK = 'NAME TELEPHONE EMAIL FAX' BLOCK := ' ADDR1 ADDR2 CITY PROVINCE COUNTRY ...' INFO-1 = BLOCK The code posted by the OP has a problem: SELECT.LIST1 = 'NAME, TELEPHONE, ADDRESS' SELECT.LIST2 = 'NAME, TELEPHONE, CITY' SELECT.LIST3 = 'NAME, TELEPHONE, OFFICE' CONVERT ',' TO @VM IN SELECT.LIST SELECT.CNT = DCOUNT( SELECT.LIST1, @VM ) That results in embedded leading spaces in the data. Maybe this was just an example. I use commas OR spaces, rarely both, and then the final dynamic array needs to be TRIMmed. T --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.13/725 - Release Date: 3/17/2007 12:33 PM -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.5.446 / Virus Database: 268.18.13/725 - Release Date: 3/17/2007 12:33 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Error in report generation.
I'm with you on the CAPS issue. I do find the code in caps easier to read. Perhaps I'm just used to it from the first 20 years of my career spent writing COBOL. I think the layout of the code and choice of variable and paragraph names has more to do with readability that whether it is upper or lower case. My own convention is CAPS FOR KEYWORDS AND VARIABLES, MixedCase for paragraph names, and lower case for comment lines. I find that plus using AccuTerm's WED editor with syntax highlighting, makes for very readable code. I was skeptical about the syntax highlighting at first...thought it was frivolous. Now I feel cramped when using an editor that does not have it. I hate line editors...always have, even though I have used them in the past, notably MS-DOS's EDLIN and one that was part of the Honeywell Level-62 IPS software. But I have never used them with MV, as I was introduced to Pick/D3 and SB+ at the same time and have always used SE until I got AccuTerm. I don't even like vi, as I am so used to modeless editors. Seems to me that a fondness for line editors is just a teeny bit masochistic. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Last 2 words of the national anthem - PLAY BALL! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dianne Ackerman Sent: Wednesday, March 14, 2007 8:27 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Error in report generation. I must be backwards because I actually find the second one easier to read and cleaner. And faster to type! Of course, I guess I'm one of the old-timers, having been in multi-value for 25 years now. -Dianne [EMAIL PROTECTED] wrote: Mark I WAS WAITING FOR YOU TO RESPOND THERE! SO YOU PREFER CODE THAT SHOUTS BACK AT YOU? THERE ARE GOOD REASONS WHY THE REST OF THE WORLD HAS SWITCHED TO MIXED CASE CODING - IT IS GENUINELY QUICKER TO SCAN AND READ. FORTUNATELY I'VE ONLY BEEN WITH MULTIVALUE FOR TWENTY YEARS SO I WAS ABLE TO DITCH UPPER CASE AS SOON AS UNIVERSE CAME ALONG. PROVING WHAT YOU SAID IN YOUR EMAIL ABOUT NOT FOLLOWING 'BUT THAT'S HOW I WAS TAUGHT' :) I'm not being frivolous (or personal - you obviously *read* these emails!) here. Whether we like it or not, perception is important. Whilst we are trying to position/encourage UniVerse, UniData et al as modern and up to date systems with a strong history, it makes sense to write in ways that match the expectations of new developers who are brought up with current conventions: that includes mixed case coding, legible styles and formats that can be genuinely expressive - like not using field numbers for example (a REAL bugbear of mine). Not using ED helps, of course. Before anyone jumps in - no I don't advocate rewriting existing code in this way. But quickly scan the following two sections and see which one reads faster. If you've been brought up around Delphi, Java, C#, VB, ASP or any of the 'modern' languages I'm willing to bet the first will be considerably quicker. Loop ReadNext Id From MYLIST Else Fin = @True End Until Fin Do ReadU CustomerRec From CUSTOMERS, Id Then GoSub ProcessRecord End Repeat LOOP READNEXT ID FROM MYLIST ELSE FIN = @TRUE END UNTIL FIN DO READU CUSTOMERREC FROM CUSTOMERS, ID THEN GOSUB PROCESS.RECORD END REPEAT --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] catalog command
-Original Message- Sidebar to ms Anita's questions: We've lived through all of the quirks of the evolution of our beloved MV database and programming language. It's second nature to us. Virtually all of our techniques preceed those developed in other databases and languages. Thus, we endeavor to learn the new stuff after having success with MV. Hers is an opposite case. This begs the question if there is an MV for Dummies or something to give the experienced non-MV professional a quick start onto the obvious (to us) differences between MV and the SQL-like world. (I use SQL as the nominal 'other side of the fence' database). I wish her and anyone else in her situation good luck. Eleven years ago I was in the same spot and there was precious little out there. I did come up with Pick for Professionals by Harvey Rodstein and Advanced Pick by Roger Bourdon. I doubt either one is still in print, but perhaps Amazon can chase down a used copy. I suppose the paucity of third-party materials on MV goes back to the marketing model, i.e. selling only through VARs. If it had ever been marketed directly to end-user shops, it probably wouldn't be the red-headed stepchild most of the industry I.T. considers it to be now. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Why does mineral water that has trickled through mountains For centuries have a 'use by' date? === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [OT] - Texas Sales Tax
Starting in January of next year, we will be collecting sales tax for packages that we ship to Texas and was wondering if someone would be willing to share (off-topic would be fine) on how they figure out the correct tax for each city code. Unfortunately we cannot go by zip code and I was wondering what other people have done. Reason for that, in their PDF, they use the example of Kingwood, Texas (which we have 4 zip codes for) states that the tax collected should go to City of Houston and the Houston MTA, not to Kingwood. Outside of that explaination, I cannot find any other cross reference between the 2, to try to create some logic out of it. The software package we use has what they call tax jurisdictions. This makes the layered sales taxes like Texas easier. Each customer account can have up to 3 tax jurisdictions assigned. For example, one can be for the state portion, one for a county portion, a third for the city portion. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A cynic is a person searching for an honest man with a stolen lantern. === --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Roman Numerals
Must be specific to UV. I can't find it in UD. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === There is no music so sweet as the laughter of a child. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Marc Hilbert Sent: Wednesday, October 18, 2006 3:45 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Roman Numerals What about the NR conversion? - Original Message - From: David A. Green [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Wednesday, October 18, 2006 3:15 PM Subject: [U2] Roman Numerals Does any one have a Digit to Roman Numeral converter they would like to share? Thanks, David A. Green DAG Consulting http://www.dagconsulting.com/ 480-813-1725 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2][UD] UniQuery SELECT WITH Limits
Perhaps you could create a derived dictionary item which calls a random number routine. Then you could do: SSELECT YOUR.FILE BY RND.NBR SAMPLE 250 Limits. The documentation I have for Using UniQuery says that you can only have 120 different with fields in a SELECT statement. I'm trying to select a series of non-contiguous numbers at random intervals to generate a select list. There are 251 of these numbers. Do I have to split the list into three different groups in order to generate three different lists that I can do a SAVE.LIST on? What's the best way to go about getting these select lists? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SOX question (United States only, I believe)
A cracker does it for malicious purposes. And all these years I thought a cracker was a good ol' boy from north Georgia. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MICR fonts with UniData
We do this. Our check stock is regular check safety paper with both top and bottom stubs. The center section has the security patterns, microprinting, etc., along with a color logo. Everything else added by the laser printer when we do the check printing with a UniBasic program. The printer has a MICR font stored in flash memory, along with a form overlay image and uses a MICR toner cartridge. The program lays out the text for the check, shifting in and out of the MICR font as appropriate, then just before adding a form feed, it sends the escape sequences to call the forms overlay which is stored as a PCL macro in the printers flash memory. Here are some code snips from the program: *** Define control info for laser printers ESC = CHAR(27); FORMFEED = CHAR(12) FORM.DEF = ESC:f112Y FORM.CALL = ESC:f3X SET.FONT.COURIER = ESC:(10U:ESC:(s0p10h0s0b4099T SET.FONT.MICR = ESC:(10O:ESC:(s0p8.00h11.0v0s0b70T SET.FONT.LINE.PRT = ESC:(10U:ESC:(s0p16.67h8.5v0s0b0T PRINTER.RESET = ESC:E SET.PRINTER.LANDSCAPE = ESC:l2a0o6d0S SET.PRINTER.PORTRAIT = ESC:(l2a1o0S PRINTER.FORM.SET = SET.PRINTER.LANDSCAPE : SET.FONT.COURIER PRINTER.FORM.SET := ESC:l1e64F:FORMFEED GOSUB PrintTopStub GOSUB PrintCheckBody GOSUB PrintBottomStub GOSUB PostGoodCheck PRINT FORM.DEF: PRINT FORM.CALL: PRINT FORMFEED: PrintCheckBody: *** Codes to position on form ** PRINT ESC:a2585v5328H: PRINT CKNOR%6 PRINT :CKNOR%6: :OCONV(DATE(),D2/)R#8: :VNOL#7 PRINT PRINT PRINT NET = TOT(3) GOSUB BuildWordAmount PRINT SPACE(4):WORD L#80 PRINT; PRINT IF NET+0 = 0 THEN NET = 000 PRINT SPACE(65):OCONV(NET,MD2)R2,*14 PRINT PRINT PRINT SPACE(11):VEND1 L#40 PRINT SPACE(11):VEND2 L#40 IF VEND3 # THEN PRINT SPACE(11):VEND3 L#40 IF VEND4 # THEN PRINT SPACE(11):VEND4 L#40 PRINT SPACE(11):VEND5,1:' ':VEND5,2:' ':VEND5,3 *** Select MICR font Position MICR line to Check # PRINT SET.FONT.MICR: PRINT ESC:a4730v1020H: *** Print Check Number PRINT CHAR(47):CKNOR%6:CHAR(47): : *** Print Routing Number PRINT CHAR(38):ROUTING.NUM:CHAR(38): : *** Print Account Number PRINT ACCOUNT.NUM:CHAR(47): *** Switch back to Courier Font PRINT SET.FONT.COURIER: RETURN === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Why does mineral water that has trickled through mountains for centuries have a 'use by' date? === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker Sent: Monday, June 26, 2006 9:39 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] MICR fonts with UniData I thought you wanted it printed from Unidata? -Original Message- From: John Varney [mailto:[EMAIL PROTECTED] Sent: Monday, June 26, 2006 9:29 AM To: Jerry Banker Subject: RE: [U2] MICR fonts with UniData I wish I could do it that way, but the checks are coming directly from a unix box via a routine that uses PCL5 to format blank stock. As far as I can tell I have to either use a laser printer with the MICR font permanently installed or use an MICR soft type font that is loaded to the printer via PCL5 commands each time a check run is done. I was wondering if anyone else has done anything like this and if they would share HOW they did it. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MICR fonts with UniData
That particular printer uses a DIMM (quite expensive). Newer HP's can take very reasonably priced Compact Flash cards. In either case, use HP's Forms and Fonts Manager to load them. It's a free download on HP's web site, although a little tricky to find. The forms are done by creating the graphics with whatever program you like best (I like Pagemaker), then print to file using a PCL5 printer driver. You can then upload that file as a PCL macro. We use a number of on-the-fly forms: invoices, purchase orders, checks, etc. Only the checks require anything other than plain white paper. MICR toner is more than twice the price of regular, so it's probably best to have a dedicated printer for checks or have some way of insuring that the expensive toner cartridge is swapped for a standard one for normal use. Just don't forget to put the good stuff in for checks or you'll be getting nasty-grams from your bank. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Thank you for pressing the Self-Destruct Button. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Varney Sent: Monday, June 26, 2006 12:28 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] MICR fonts with UniData That's a good start. Thanks! How is the MICR loaded into flash memory? Is it part of a DIMM for the pritner or do you load it like a PCL soft font? Thanks! -Original Message- From: Norman Morgan [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Date: Mon, 26 Jun 2006 10:48:09 -0500 Subject: RE: [U2] MICR fonts with UniData We do this. Our check stock is regular check safety paper with both top and bottom stubs. The center section has the security patterns, microprinting, etc., along with a color logo. Everything else added by the laser printer when we do the check printing with a UniBasic program. The printer has a MICR font stored in flash memory, along with a form overlay image and uses a MICR toner cartridge. The program lays out the text for the check, shifting in and out of the MICR font as appropriate, then just before adding a form feed, it sends the escape sequences to call the forms overlay which is stored as a PCL macro in the printers flash memory. Here are some code snips from the program: *** Define control info for laser printers ESC = CHAR(27); FORMFEED = CHAR(12) FORM.DEF = ESC:f112Y FORM.CALL = ESC:f3X SET.FONT.COURIER = ESC:(10U:ESC:(s0p10h0s0b4099T SET.FONT.MICR = ESC:(10O:ESC:(s0p8.00h11.0v0s0b70T SET.FONT.LINE.PRT = ESC:(10U:ESC:(s0p16.67h8.5v0s0b0T PRINTER.RESET = ESC:E SET.PRINTER.LANDSCAPE = ESC:l2a0o6d0S SET.PRINTER.PORTRAIT = ESC:(l2a1o0S PRINTER.FORM.SET = SET.PRINTER.LANDSCAPE : SET.FONT.COURIER PRINTER.FORM.SET := ESC:l1e64F:FORMFEED GOSUB PrintTopStub GOSUB PrintCheckBody GOSUB PrintBottomStub GOSUB PostGoodCheck PRINT FORM.DEF: PRINT FORM.CALL: PRINT FORMFEED: PrintCheckBody: *** Codes to position on form ** PRINT ESC:a2585v5328H: PRINT CKNOR%6 PRINT :CKNOR%6: :OCONV(DATE(),D2/)R#8: :VNOL#7 PRINT PRINT PRINT NET = TOT(3) GOSUB BuildWordAmount PRINT SPACE(4):WORD L#80 PRINT; PRINT IF NET+0 = 0 THEN NET = 000 PRINT SPACE(65):OCONV(NET,MD2)R2,*14 PRINT PRINT PRINT SPACE(11):VEND1 L#40 PRINT SPACE(11):VEND2 L#40 IF VEND3 # THEN PRINT SPACE(11):VEND3 L#40 IF VEND4 # THEN PRINT SPACE(11):VEND4 L#40 PRINT SPACE(11):VEND5,1:' ':VEND5,2:' ':VEND5,3 *** Select MICR font Position MICR line to Check # PRINT SET.FONT.MICR: PRINT ESC:a4730v1020H: *** Print Check Number PRINT CHAR(47):CKNOR%6:CHAR(47): : *** Print Routing Number PRINT CHAR(38):ROUTING.NUM:CHAR(38): : *** Print Account Number PRINT ACCOUNT.NUM:CHAR(47): *** Switch back to Courier Font PRINT SET.FONT.COURIER: RETURN === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Why does mineral water that has trickled through mountains for centuries have a 'use by' date? === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker Sent: Monday, June 26, 2006 9:39 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] MICR fonts with UniData I thought you wanted it printed from Unidata
RE: [U2] MICR fonts with UniData
As far as I know, the DIMMs are interchangeable between like models. All of ours are HP4000 series, except for a few of the newer 5000 series. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Orville Wright didn't have a pilot's license. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Varney Sent: Monday, June 26, 2006 1:47 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] MICR fonts with UniData I'm looking at that as one option. Do you know if those DIMMs can be used in more than one printer, for instance the laser printer with the DIMM goes down. Can I trnasplant the DIMM into another like printer (HP 8100, 9000, etc) to get checks out the door? -Original Message- From: Bill Haskett [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Date: Mon, 26 Jun 2006 10:51:46 -0700 Subject: RE: [U2] MICR fonts with UniData John: Make you life easier and use a MICR font DIMM chip. They can be purchased from TROY and make programming much easier and are much more reliable. :-) Bill -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of John Varney Sent: Monday, June 26, 2006 4:44 AM To: u2-users@listserver.u2ug.org Subject: [U2] MICR fonts with UniData Has anyone used a MICR soft font with UniData? I have a project to print checks and am wondering how other people hander the MICR font for account / routine numbers. Thanks. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] FOLD can mutilate {Unclassified}
Hollerith. Punch that in your 12-row! I always preferred the big (96-column) cards on IBM System/3 machines. They just fit in a shirt pocket and were great for making notes on the back of. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Assassination is the extreme form of censorship. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Mark Johnson Sent: Tuesday, May 30, 2006 10:26 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] FOLD can mutilate {Unclassified} Trivia Question: What's the name of the pattern (language) used for the traditional 80 column IBM punch cards. My 2 cents. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] check signature
This is another place where we use a form overlay stored as a PCL macro in a flash DIMM in the printer. The check form, including the signature and all of the bank information, except for the MICR line, is part of the form. Also stored in the flash DIMM is a MICR font. The check safety paper is kept locked up when not being used. The only thing pre-printed on the check other than the safety paper features is a color logo. The check printing program prints all of the data, including the MICR line, then calls the form overlay just before a form-feed is sent. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Thursday, March 09, 2006 3:44 PM To: u2-users@listserver.u2ug.org Subject: [U2] check signature I am converting our AP Checks from tractor fed continuous forms to laser print. They currently have a check signing machine that they feed the stack of checks into after they have printed. How do other companies handle check signing? Is there a way to print a digitized signature from the basic program? Any other ideas? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] PCL within a form
I'm not sure about just doing a logo, but we do something similar to print an entire form (which contains a logo). The form is created with whatever layout program you want (like PageMaker), then printed in Windows using a PCL5 print driver, but capturing to a file. The HP Forms Fonts Manager is used to upload the file to a flash DIMM in the printer as a PCL macro. Then it is just a matter of sending a short PCL sequence just before the form-feed for each page. For example, if the form is stored as macro 100, this would be the sequence: CHAR(27):f100y3X The ESC f100Y selects the desired macro, while the ESC f3X merges it into the page. Again, this sequence is sent AFTER all the other information for the page and just before sending a CHAR(12): I am not sure if you can use this technique to store the form in RAM. We have not tried that. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Exercise daily. Eat wisely. Die anyway. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Friday, March 03, 2006 1:28 PM To: u2-users@listserver.u2ug.org Subject: [U2] PCL within a form We have a PCL logo that we'd like to include in an invoice, but when we try sending it, we get a separate page with the logo on it. Here's what we've tried: scanning the logo and then placing it on the 'page' where we want it, then printing it to a PCL file. That is the file we cat to the invoice. It seems that when printing to a PCL file, the top of form and page end are set for us and embedded in the PCL output file. We've seen the ESC:'E' character at both the top and bottom of the PCL file, but removing them doesn't help. Any ideas? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Deciphering Pick UniBasic statement
How about: IF P(2) - AR(12) = 28 THEN CC = CC+1 INS 0 BEFORE AR(14)1,1 DEL AR(14)1,9 END ELSE IF AR(13) = DATE() THEN CC = CC END ELSE INS 1 BEFORE AR(14)1,1 DEL AR(14)1,9 END END === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === 99% of lawyers give the rest a bad name. === Checked by AVG Free Edition. Version: 7.1.371 / Virus Database: 267.13.12/194 - Release Date: 12/7/2005 -- No virus found in this outgoing message. Checked by AVG Free Edition. Version: 7.1.371 / Virus Database: 267.13.12/194 - Release Date: 12/7/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] the 4 letter word
Using GOTO properly is using it in languages that cannot be programmed without GOTO. For example Fortran 4 or original Basic. Using it e.g. in Fortran 77 or in UniBasic would already be not a proper use. The same as playing records on crank record player would be good idea if you have no electric power socket in your house. Hmmm, that means I can sit in my log cabin and write assembler code by candle-light while I listen to my wind-up Victrola! It sometimes feels like I've been writing code since dinosaurs walked the earth, but it has really only been 30 years.And I classed the dreaded G*T* with all those other socially unacceptable short words at least 25 years ago. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === If it wasn't for pick-pockets, I'd have no sex life at all. === P.S. My spell checker likes unbiased as an alternative to UniBasic. I'll have to Amen that! -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.11.9/115 - Release Date: 9/29/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Formatting Data
I had a similar problem a few months ago while converting from D3 to UD. UniBasic lacks the FOLD() function that D3 had. Lots of folks here offered great advice and I put together this subroutine from the best pieces form all of it. SUBROUTINE FOLDER(DATA.IN,COL.WIDTH,DELIM,DATA.OUT) *** break monolithic string on word space nearest desired *** column width and return data with delimiters DATA.IN = TRIM(DATA.IN) DATA.OUT = TEMP = LINE.CNT = 0 NUMWORD = DCOUNT(DATA.IN, ) FOR X = 1 TO NUMWORD WORD = FIELD(DATA.IN, ,X) WORDLEN = LEN(WORD) TEMPLEN = LEN(TEMP) IF (TEMPLEN + WORDLEN + 1) COL.WIDTH THEN LINE.CNT += 1 IF LINE.CNT 1 THEN DATA.OUT := DELIM DATA.OUT := TEMP TEMP = END IF TEMP # THEN TEMP := TEMP := WORD NEXT X IF TEMP # THEN LINE.CNT += 1 IF LINE.CNT 1 THEN DATA.OUT := DELIM DATA.OUT := TEMP TEMP = END RETURN Perhaps you could use this by taking your data, stripping all @TM, @SVM, @VM to leave a big chunk of just text and feed it through the subroutine. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Vegetables are what food eats. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Al DeWitt Sent: Wednesday, August 24, 2005 6:59 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Formatting Data Part of the problem, I believe is that our ECLTYPE and BASICTYPE are P, Pick. Commands are not working the way I expect because I'm approaching this from a UV mindset (I can't help it, it's what I know). I'm being told that NEWLINE = FMT(TRIM(LINE),'55T') would turn 'Fourscore and seven years ago our fathers brought forth on this continent a new nation,' into 'Fourscore and seven years ago our fathers brought [EMAIL PROTECTED] 'on this continent a new nation,' However, the command: NEWLINE = FMT(TRIM(LINE),'55T') does not work. It just gives me the letter T. The command: NEWLINE = FMT(TRIM(LINE),'T#55') sort of works. If LINE = 'Fourscore and seven years ago our fathers brought forth on this continent a new nation,', the FMT command produces 'TFourscore and seven years ago our fathers brought forth' but loses 'on this continent a new nation,' I don't think UniData's Pick flavor is up to the task, but I'm open to any ideas. --Al -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill Sent: Wednesday, August 24, 2005 6:02 PM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] Formatting Data Consider Socratic Programming... that is, break the problem down into elemental pieces. Please consider broadcasting a few lines of the bug-laden code. --Bill --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.14/79 - Release Date: 8/22/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.344 / Virus Database: 267.10.15/81 - Release Date: 8/24/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] True random select lists?
Please contact me off-list. I'm curious about the end use of your random selection of music files. A similar idea has been kicking around in my head for years. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === The crimes we are about to depict have been specially committed for this program. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dave Walker Sent: Tuesday, August 09, 2005 12:51 PM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] True random select lists? I use xmms for playing the music, but until now have used a mysql database to generate the playlists. What I'm actually trying to do is learn how to talk to OpenQM with qmclilib. I've managed to create a python wrapper for the library, and have now built the database using the same program I wrote to learn how to program python. I've just stripped out the mysql bits and put in the OpenQM equivalent. (The database structure has also changed, of course, to take advantage of multivalues!) I'll eventually put a pretty face on the frontend with PyQT, and possibly give it multiple personalities with apache2 and mod_python. But I have to learn to walk before I can run, and an mp3 application is the easiest way I have to generate a fair sized database. I can populate it from the mp3 tags themselves, and do so many fun things with it after it's built! Thanks for the comments, -- Dave Walker 8..7 4(()) -::- -::-8.74 .74(()) ((88.74 ..74 -::- ((88.74 * Peace -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Allen E. Elwood Sent: Tuesday, August 09, 2005 12:11 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] True random select lists? The I-desc is a nice idea, however you're going to get multiple hits on the same song, and don't we all hate that when we hear the same song? The basic idea is very similar to something that I did with the thought of the day. I used to select the entire file put it into an array, and then base the random number based off of the time of the day with a modulo of a prime number close to the total number of records selected and use that to prime RND. Or maybe visa versa. It was a LONG time ago in a universe very very far away ;) This was similar to hashing in pick, and where I got the idea. Using the time, gave as close to a really random number as possible. Since I was only selecting one record a day, I would post a 1 to that record so it would not be selected the next time. When my select didn't return any records I would just clear all the 1's in the file and start over. Worked great! But but but, why not just get the free winamp www.winamp.com and just click on random??? Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dave Walker Sent: Tuesday, August 09, 2005 08:22 To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] True random select lists? Yes, I would like a DIFFERENT 100 every time, otherwise the FIRST would have worked. The first thing I thought of was your basic routine, but I just wondered if I'd overlooked a SELECT option that I wasn't familiar with. I'm wondering which would be more efficient; the basic subroutine or Christophe's suggestion of an I descriptor? Thanks, -- Dave Walker 8..7 4(()) -::- -::-8.74 .74(()) ((88.74 ..74 -::- ((88.74 * Peace -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Martin Phillips Sent: Tuesday, August 09, 2005 10:46 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] True random select lists? Hi Dave, I've built a database of all my mp3s. Now I want to generate a random list of 100 songs. s there a way to do that with a SELECT statement, or must I muck around in basic to do so. This depends what you mean by random. If you are happy to agree that the hashing process is effectively random from an external point of view, simply use SELECT filename FIRST 100 However, you seem to want a different 100 records each time. I cannot see any way to do this aside from using a Basic program. Even then, you will have to start with a list of all the records and then extract 100 items randomly... OPEN 'filename' TO FVAR ELSE STOP SELECT FVAR READLIST LIST THEN N = DCOUNT(LIST, @FM) FOR I = 1 TO 100 X = RND(N) + 1 ID = LISTX DEL LISTX N -= 1 NEXT I END The above
RE: [SPAM] [U2] [AD] Job in California [/AD]
And how many of each does it take to change a light bulb? ;) None. That's a hardware problem. (If you don't want the joke, don't give me the straight line!) === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Part-time musicians are semiconductors. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Friday, August 05, 2005 12:09 PM To: u2-users@listserver.u2ug.org Subject: RE: [SPAM] [U2] [AD] Job in California [/AD] -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ralph Burton Sent: Friday, August 05, 2005 12:48 PM To: u2-users@listserver.u2ug.org Subject: RE: [SPAM] [U2] [AD] Job in California [/AD] Hi George, I often wonder while watching Home and Gardens how people in California afford the houses that are 600,000 plus on a salary of 70-80. It's simple really, you get 5 U2 , 2 Pick, 1 jBase and 1 Revelation programmers to move in together and share the expenses. ;-) Ralph __ Do You Yahoo!? Tired of spam? Yahoo! Mail has the best spam protection around http://mail.yahoo.com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.1/64 - Release Date: 8/4/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.338 / Virus Database: 267.10.1/64 - Release Date: 8/4/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
We had the same issue converting from RealityX to universe. The spooler menu on RX was much more user-friendly and listed such helpful options as pages printed so far for the displayed job. Tell me about it! We came to D3/SB+/AIX 10 years ago from a Wang VS environment. I don't miss writing COBOL, but there never was a more user and operator friendly OS than the Wang VS. You could stop a print job in mid-stream and resume where you left off, even on another printer. That was great if a printer broke down in the middle of a long report. You could also skip back or skip ahead to a specific page or line. The D3/SB+ combo was a big step down in regard to convenient printer control. Now the switch to Unidata/SB+ is an even bigger step backwards. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === If people listened to themselves more often, they would talk less. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] SYSTEM(20)?
The Wang spooler was probably running directly attached printers (via serial or parralell interfaces). This would allow the spooler to know much more about the status of a job than the more modern printers that are network attached (and deal with complete print jobs in one fell swoop). For a network attached printer to offer up the same funtionality, full two way communication of status as it happens would need to occur. While the Wang may have had much better control over the print job, how long did you have to wait for that 500+ page report??? I understand the reasons, but that doesn't mean I don't miss the functionality. We were dealing primarily with a big 1200 lpm band printer. (Dataproducts disguised as Wang). The Wang used a proprietary dual coax wiring scheme. It looked like small welding hose! Archaic to the extreme, but it sure did work well. All the pieces talked to each other constantly, so the host knew the status of everything. Don't misunderstand...I'd never go back, but I sure miss having that level of control over the peripheral hardware. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Miracle Software, Inc. If it works, it's a Miracle! === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Don Kibbey Sent: Thursday, July 14, 2005 10:36 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] SYSTEM(20)? Today we just print the whole thing, take one look at the first page, decide it's all wrong and print it again (and again, and again)... --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 7/14/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.15/49 - Release Date: 7/14/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] SYSTEM(20)?
I may have asked this before, if so, I have forgotten the answer and apologize for wasting your time. We are (still) in the midst of converting from D3/AIX to UniData on AIX. I need to find a workaround for a D3 feature that I have become dependent on. SYSTEM(20) returns the number of the last spooler entry you created. I have a semi-automated system for archiving selected reports to CD at the end of the month that depends on this information. How can I capture this info in my Basic program to be able to write it to a log file. We print reports with either H to HS status (SB+ print controls), depending on whether we even want a paper copy of the report. A little standard routine in each program grabs the SYSTEM(20) value and makes an entry in a log record. Later we enter that info into a program that automates the copying of the PEQS file entries to Unix and editing the printer control characters off both ends of the report file, as well as changing the numeric item name to something meaningful. It all works pretty well, but it is absolutely dependent on grabbing that SYSTEM(20) value. The only alternative is spending hours poking around in held reports in the SB+ print queue to find each report to be archived. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A pun is the lowest form of humor -- when you don't think of it first. === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] OT: AVG
I'll AMEN on all three programs. They are absolute essentials. We started using AVG several years ago when it dramatically demonstrated it's efficiency. I can't remember now if it was the Melissa virus or the LoveBug, but when it first appeared, all the major anti-virus vendors were scrambling to find a way to block it, and their users were getting infected right and left. AVG just quietly stopped it and went on about its business. The updates are automatic and painless. The personal edition is free and the commercial version is very inexpensive. As for AdAware and Spybot SD, you do need them both. Some things will slip by one, different things will slip by the other, but between then you probably have 99.5% coverage. Another good (and free) program in this category is PestPatrol. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Why are there interstate highways in Hawaii? === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of George Gallen Sent: Tuesday, July 12, 2005 9:03 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] OT: AVG I have used AVG on at least 5 machines, XP and W98. Never had a problem, except when they upgraded the software and the older program would no long update (unless I loaded the newest engine). Once the newest engine was loaded, it ran fine. (the personal - no cost program). Three programs I MUST have on all PCs, 1. Spybot SD, 2. Adaware and 3. AVG between the three most problems are either stopped, prevented or eliminated. George --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.323 / Virus Database: 267.8.13/47 - Release Date: 7/12/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Finding last day of month
Won't this method choke if ORIG.MM is 12? === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Unscrewing an Oreo lets all the calories out. === -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Allen Egerton Sent: Thursday, June 02, 2005 12:57 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Finding last day of month From: Marco Manyevere [EMAIL PROTECTED] Hi, Given a date like 20040203, I want to return the last valid date for that month and year (20040229 in this case). What is the shortest code fragment to achieve this? Find the internal date of the first day of the next month, subtract 1, and convert it back to external format. ORIG. = MMDD[1,4] ORIG.MM = MMDD[5,2] ORIG.DD = MMDD[7,2] I.LAST.DAY = (ICONV(ORIG.:(ORIG.MM + 1): 01), D4/) - 1 O.LAST.DAY = OCONV(I.LAST.DAY, D4/ --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.322 / Virus Database: 267.4.1 - Release Date: 6/2/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.322 / Virus Database: 267.4.1 - Release Date: 6/2/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Virtual fields calling Virtual fields
I recently had a client that wanted a report that pulled from an enormous transactional based file. I offered to create an index to improve performance, but they declined saying that there were currently using Excel and manual data entry to create the same report at the end of the month, and that having it run in 15 minutes instead of 10 seconds was acceptable. So I just wrote it with a simple SELECT and it takes 15 minutes and they're happy as heck that it takes 15 minutes instead of the two days it used to take them to do it in Excel. We are in the midst of converting from D3 to UniData on AIX (RS/6000 M80). I just tested an inventory select that takes nearly two hours on D3. It finished in under 8 minutes on UniData. This involves selecting about 30,000 records from a file of nearly 800,000 VERY large records, about 60% of them over 2K, i.e. pointer items on D3. That's a pretty dramatic improvement. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Boyd, Dewey, Cheatham and Howe -- Attorneys at Law === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.8.8 - Release Date: 2/14/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Customer Name Lookup
First, there is a lot of mis-spelling or alternate spelling of similar names. For example, K-mart is spelled K-Mart, K Mart and KMART. This is not a situation of simple word lookups. There needs to be some intuition as well. Sometimes there's THE INDUSTRIAL DISTRIBUTION COMPANY (example) whereby the cust name is made up completely of the throwaway words. Other times there's Children's Wear, Childrens Wear and Childrens Ware. Don't get me started on the other mis-spellings of Accessories, Accesories and, you bet, Accessorys. Soundex is a nice second plan but even that is dependent upon consistent spelling of the words. TH versus HT on Clothing yields different Soundex values. So my question is if anyone has any insight on where to learn more about solving this problem of such variable words. I'm open to any ideas. We use Prelude's ADS software. They build a keyword list for each account which includes the significant words from the name, the city name, the zip code, and the phone number and optional manually entered words. This is an MV field in the record. Then they build a b-tree on this. There is a callable lookup routine that allows you to specify multiple keywords. It returns a select list of matching records. Very slick and very fast, even on large files. Of course, that won't help you with the mis-spellings or being too liberal about defining throwaway words. (THE and COMPANY, sure. But INDUSTRIAL and DISTRIBUTUION?) === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Beauty provoketh thieves sooner than gold. -Shakespeare === One of my clients has roughly 75,000 records in their customer database. Oddly enough, until now there has not been that great of a need for a lookup function. Now they would like a lookup function that may go beyond the usual elements of regular lookups. Thanks in advance Mark Johnson --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- No virus found in this incoming message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 1/17/2005 -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.300 / Virus Database: 265.7.0 - Release Date: 1/17/2005 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] The list format and usefulness
1) stops arguments on the relative benefits of a GOTO over a LOOP for the 53rd time. (30 replies on the last one). I'll agree with you here. 2) stops multiple answers clogging bandwidth of everybody on the list. eg. being told how to MAT var = '' 9 times. Let's think this one through a bit more. How many of those people do you suppose might have been composing replies simultaneously (or close enough for practical purposes)? The quick response of those who follow this group is one of its greatest assets. Many replies with the same suggestions simply validates the advice given. I certainly prefer this to newsgroups that devolve into off-topic flame-wars and sniping at personalities. I am about to drop one newsgroup I was quite interested in for exactly this reason. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === Cold, leftover pizzathe breakfast of champions! === -- No virus found in this outgoing message. Checked by AVG Anti-Virus. Version: 7.0.296 / Virus Database: 265.6.0 - Release Date: 12/17/2004 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] Greetings
Hello, group! I just joined and have been reading the mailing list for a week or so. I am brand new to UniData after using Pick/D3 with SB+ for 9 years (and 20+ years before that writing COBOL). We are Prelude users, but write a good bit of our own code for local add-ons and freestanding applications. Over the last 9 years, I have accumulated about 1000 Basic programs that I must now convert to UD. I have looked for a concise list of differences between D3 Basic and UD Basic, but can't find one. I have run into a few snags so far, things that just won't compile, but I am also concerned about hidden gotchas ... subtle differences in behavior where the syntax appears to be compatible. Can anyone point me toward such a list? Among the things I have encountered so far: 1. No FOLD function in UniBasic 2. variable = @COMMAND instead of TCLREAD variable 3. Reading/writing directly to Unix files: no %OPEN,%READ,%WRITE,%CLOSE, etc. 4. No SP-ASSIGN ? syntax to query the current printer assignment. 5. No ACCESS(10) to use in routines called from a dictionary item to get the current item ID. 6. More reserved words than D3 I am sure there is a lot more that I haven't stumbled across yet. === Norman Morgan [EMAIL PROTECTED] http://www.brake.com === A woman has the last word in any argument. Anything a man says after that is the beginning of a new argument. === --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/