Re: [U2] Logging program execution in Unidata?
Ian Perhaps your answer lies in a combo - rather than looking at the actual code you have, why not focus on what calls it: This will minimise what changes are needed. MENU: you say you don't have code for the menu system - but you do have access to the VOC, so why not do the R pointer thing on the VOC entries of the menu stuff. A little research could get the main 'calling' routine, and maybe something like uniVerse's @PARASENTENCE might tell you what was called. FILES USED: Files can have triggers applied that simply 'touch' a file at o/s level - file being named of file:date:time:seq:action. The resultant ls will tell you what files were read/written and when. TCL: As for the ops staff dropping to TCL, you could write a pseudo TCL that has all the commands, but logs their use. I've seen this done successfully in situations where some staff are limited in what they can do. Most folk don't even realise they're at a pseudo level. CRON: As for the cron items, what about R pointer'ing the PHANTOM verb (dunno if that's possible!) - then you could trap what's being launched each time. Alternatively, stepping outside of the UniData environment you could apply svn to the PH file, which would give you date / time evidence of calls to launch (the advantage is that it has tools designed for analysis) JAVA ETC: Java etc calls can be logged outside of UniData. On 7 January 2014 12:27, McGowan, Ian james.mcgo...@bankofthewest.comwrote: That's a good question - always get to what the user really needs, not what they say they want ;-) I support a vendor supplied application. It runs from the LOGIN paragraph and provides a menu interface. Over the years we have written a lot of supporting code around the vendor app, so now we have (at least) four ways a custom program can be run: 1) We can add user-defined menu items and they get EXECUTE'd from the menu (by code I don't have access to) 2) Our operations people can drop to TCL and run a command directly from there 3) We have an elaborate cron setup that ends up running streams on a variety of schedules 4) We use uniobjects, and different external interfaces making calls into Unidata (mostly subroutine calls from java and .net clients) As a result of an upcoming upgrade (in 1 year), we're likely going to have to touch all of the programs and make some modifications. Ideally we'd cut down the number by disregarding one-off programs that haven't run in ages. We have programs last compiled in 2004, but I know they run many times per day, so time-stamps don't cut it. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] On Behalf Of Charlie Noah Sent: Monday, January 06, 2014 5:31 PM To: U2 Users List Subject: Re: [U2] Logging program execution in Unidata? Ian, You said you didn't have a wrapper program. How do your programs get executed? Charlie On 01-06-2014 7:23 PM, Baakkonen, Rodney A (Rod) 46K wrote: What we did was have a cron run every 10 minutes that executed a Unidata program. The Unidata program did a PCPERFORM sbcsprogs to capture everything that was running out of the global catalog. It parses up the output of sbcsprogs and builds a Unidata file. This file has the program name as the key and the following attributes: DR DoctoR (Display Record) File: CBH.PROGRAM.TRACKING ATB ATB Name Conv Value Item: CLM101 1 Last Update D2/01/06/14 2 First RecordedD2/11/16/00 3 No of Times Captured 4254 End of Defined Attributes If something consistently runs and finshes within 10 minutes, it will never be recorded. You could have the threshold set to whatever you want. But we thought 10 minutes was good enough for our usage. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Monday, January 06, 2014 7:07 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Logging program execution in Unidata? I believe there is something wrong with this suggestions. IIRC you don't get the time and date it was last RUN, only the date it was last Accessed. I suspect this is the touch date, which could mean that just looking at it in a directory scan, touches it. Along with a host of other things that don't actually *run* the code. So it wouldn't answer the Q as to whether it's actively executed. You also get the number of times is has run since being catalogued, which always seemed to be an odd choice for me. It may have been run a thousand times, but not run at all in the past ten years. But if I ruled the world, things would be different. Not better just different. Anyway, let us know how it works for your purpose. -Original Message- From: McGowan, Ian
Re: [U2] Illegal use of the file, select, cursor, BCI, Socket, HTTP, XML, SCTX , MQS, SOAP or database variable.
OPENSEQ TEMP.FILE1 to temp_file1 else READSEQ... WRITESEQ CLOSESEQ... On 7 May 2013 16:37, Sathya sathya8...@gmail.com wrote: Hi all,.. Im getting the below error while running my code,..Can someone please help me with this issue? Illegal use of the file, select, cursor, BCI, Socket, HTTP, XML, SCTX ,MQS, SOAP or database variable. Code snippet : OSOPEN TEMP.FILE1 TO temp_file1 ELSE STOP CAN Not find file READ DATA FROM temp_file1 ELSE STOP Can not find temp filename Where TEMP.FILE1 is something like Filepath/filename.txt. Its a text file in the server and I want to read the contents and do some comparison. TIA, Sathya V. ___ 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] c#/uniobject/chinese/spanish characters
way easier, + CREATE-FILE DICT BLOB + edit voc entry to create a VOC file pointer to a ../udir/blob on line 002 + write said files to file BLOB keeping the record keys in a pick record, + open 'BLOB' as a file, OS thinks it is a Type 1 file, to READU, SELECT, SORT etc + !!!DO NOT!!! READ record (unless you want to trash the file and possibly your whole system!) , but can select, sort, etc on key. + !!!DO NOT!!! ADD DICT ITEMS to access any part of the record, including I type size (eg in line 2) dict items. + If needing to store more detail about each file, eg EXIF, write it into an X coded dict item with the same key as the DATA record (naughty, but possible, and keeps everything in the same file (or at least it looks like it does!). The 'X' code is ignored by the LIST DICT. +++ eg 001 X +++002 1024x728 +++003 Canon PS280 +++...etc... +++ + If needing to store more detail to SORT each file, add it into a composite key (ideal), or worst case, have a separate tag file + + The O/S can auto load the correct external app when 'filename' is 'echo'ed from a BAT / BASH as long as filename has the correct suffix. On 5 April 2013 12:49, doug chanco d...@chancofamily.com wrote: hi all, anyone care to share any suggestions on the best way to create pick records that include chinese/spanish characters via c# and uniobjects or just c# and writing to a unix file? I have some ideas I am mulling around in my head but I thought I'd tap into the vast knowledge base available on here. I am basically looking at creating a pick record (or a unix one) that is a mixture of html and text (in english/chinese and spanish). any thoughts/suggestions are extremely welcomed thanks dougc __**_ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/**mailman/listinfo/u2-usershttp://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] BFORMAT
Seriously though, the original poster's question was whether anyone had the source code for a Format program. On UniVerse you will find the source code for both the FORMAT verb (which calls the FORMAT.BASIC subroutine in files BP and APP.PROGS. The fromnt end for the FORMAT and FANCY.FORMAT verbs are named FORMAT.B (this is where you would change the default parameters for margins, etc.) and the code in APP.PROGS is named FMT.BASIC.B. Yoou can change the source for either (or both) of those items to make them work whatever way you want. Just make sure you understand how to globally catalog them properly, particularly the one in APP.PROGS which must be globally cataloged as -FORMAT.BASIC The built in FORMAT (and FANCY.FORMAT) command from within ED will then work as you want or the version of the verb FORMAT from will work as you want. Allen, this is a technical forum, therefore your propensity to be with me is irrelevant. Thank you for this detail - I didn't know this (grew up in other 'pick' systems - JBase,Revelation,tho sometime in history I worked in UniVerse). ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] BFORMAT
Anyway, this all seems way beyond the scope of the original poster's question. *Original poster* has source code that goes way deep in if/then/else/case so that error messages end up off the page -- reducing the indent to 2, and starting at col 3 makes this better. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] BFORMAT
Use FORMAT command in AE (alternative editor) Example: FORMAT -MARGIN 6 -INDENT 3 Awesome! Thanks, just what I need! ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] BFORMAT
Hi Does anybody have a working copy of BFORMAT - I downloaded it from some useful site a long time back and modded it to work for modern UniVerse, but somewhere along the line (one late night) I have introduced some bugs I don't have time to go fix.. so before I do, maybe someone out there already has a BASIC formatting program that will allow me to only have an indent of 2 spaces instead of the usual 6? Anyone? Thanks Dennis ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Multiple UniData Indexes in same select
Once again (I'm a fan of these) the answer is to create a file of composite keys (FldA * FldB etc) and index that... The bummer is that the xref file will always be out unless one adds a 'trigger' to each 'to be indexed' file Itypes can then be created to XLATE the data from the specific files. The index makes + the select quick, + the returned keys are in sequential FldA main sort, FldB nested, + there is a smaller subset of data to do direct reads to the two (or more files). It's nicer if you create the files with a set prefix to define that all they are is xref files. The SELECTINDEX can be used. !!! Don't create an IType of the composite and index that... seriously bad idea (or an excellent way to get a continually random, lossy select) On 8 November 2012 02:54, Dave Laansma dlaan...@hubbardsupply.com wrote: Excellent news. However, is there a way to utilize two indexes with the SELECTINDEX command in Unibasic? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Speeding sort
however the absolute fastest would be to add an itype to FILE-1 that
accesses FILE-2 SORT_VALUE [you're already prepared to do multiple read on
2 files ]
OTH_FILE_SORT_KEY
001 I
002 TRANS('OTHER_FILE', SOME_KEY, '', 'X') where SOME_KEY is the
value you were saving from your example below and using as key to the
second file
FANCY_ITYPE
001 I
002 OTH_FILE_SORT_KEY : '*' : SOME_KEY
etc
{you could combine these two - separated for clarity}
The index on FILE-1 remains THIS_FILE_FIELD
then
Step 1
-
SELECT FILE WITH *THIS_FILE_FIELD*='VALUE' SAVING
UNIQUE FANCY_ITYPE NO.NULLS
-- gives you a list that is complete (ie doesn't need to access the other
file again)
-- the combo key doesn't detract from the unique because the other-file
accesses are done using SOME_KEY
-- the SAVING is doing the ITYPE work, using a reduced list, thereby saving
more processing
Step 2
-
Your final step is to sort a list -- altho this represents another step, it
does not involve reprocessing a file, and therefore should be very quick.
A sort on the saved list will provide the result you were looking for...
and the field you ultimately want saved { SOME_KEY } is extractable from
FANCY_ITYPE.
Bring on the flames...
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Inverting/Pivoting a table
* OPT 1: a little quicker than nested for..next (depending on how many) xx = dcount(array1,@vm) for x = 1 to xx newarr-1 = array1,x:@vm:array2,x next x OR * OPT 2: the fastest...(cos it maintains a file pos pointer) arr1 = array1 arr2 = array2 more = 1 loop remove val1 from arr1 setting more remove val2 from arr2 setting junk newarr-1 = val1:@vm:val2 while more repeat OR OPT 3: the neatest.. (ie least maintainable) arr1 = array1 arr2 = array2 arr1 = change(arr1,@vm, '+':@vm) : '+' newarr = cats(arr1,arr2) convert '+' to @vm in newarr (use whatever char you wont have in your data) On 10 September 2012 23:39, Dave Laansma dlaan...@hubbardsupply.com wrote: I get flat files that I'd like to 'flip' to accommodate the multi-value database. For example, given this table: 123456vmDAVID JONESvm1234 MAIN ST.vmANYWHEREvmMIvm12345am 654321vmJOHN SMITHvm4321 MAIN ST.vmANYWHEREvmMIvm12345 Is there a function that will change it to: 123456vm654321am DAVID JONESvmJOHN SMITHam 1234 MAIN ST.vm4321 MAIN ST.am ANYWHEREvmANYWHEREam MIvmMIam 12345vm12345 Right now I use these nested loops, which tend to take a while depending on the size of TABLE: NEW.TABLE = FOR A1 = 1 TO DCOUNT(TABLE,@AM) FOR V1 = 1 TO DCOUNT(TABLEA1,@VM) NEW.TABLEV1,A1 = TABLEA1,V1 NEXT V1 NEXT A1 TABLE = NEW.TABLE Sincerely, David Laansma ___ 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] [Windows]
Mighty impressive answer nevertheless... awesome! On 7 September 2012 11:47, Tony Gravagno 3xk547...@sneakemail.com wrote: Here are a number of ways to link a telnet client into UV back to its respective hostname. There's some redundancy here as not all commands work everywhere. OK, so as I understand the challenge, you got the inbound IP using System(42) (which of course should reveal the answer to life, the universe, and everything), and now you want the hostname of that PC. You can try all of the commands below and derive the solution from any command that returns valid data. You can't create a generic solution and guarantee success because the result of each command is dependent on site-specific configurations. [snip] ___ 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] [ud] Sub-second delay?
Well, then you would remember CHAP (where you create a processing priority). One could flag some processes to work as foreground and others, where finish time was not of great concern, to background. One then set CRON items to CHAP up processes overnight, thus getting more done when the load had all gone home. The mixture of CHAP and RQM could make for a user friendly IT dept. On 30 August 2012 00:19, Rutherford, Marc marc.rutherf...@advancedbionics.com wrote: Additionally I would use RQM in batch loops that ran for a huge number of iterations, and where I was not concerned about the final completion time. At the end of each loop I would issue RQM would release any remaining time-slice - I would get my big butt out of the way. This would allow other users (normally the interactive ones) to proceed. It was a good way to 'play nice'. Marc Rutherford Principal Programmer Analyst Advanced Bionics LLC 661) 362 1754 -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] On Behalf Of Charlie Noah Sent: Tuesday, August 28, 2012 7:33 PM To: U2 Users List Subject: Re: [U2] [ud] Sub-second delay? Yes, Dennis, it did. There are long technical explanations of how it worked, but it was indeed a clever, 'techie-appealing' concept. Back in the old Microdata days (yes, I'm that old), you could get in big trouble with the timeslice approach, though. If your timeslice was 50 ms, after that time everything you were doing got saved and the next process in line got the juice. There were certain things that released your timeslice, too, such as IO operations, etc. If you were doing disk access, and what you were working with got paged out of memory, you had to go get it again when your turn came around again. If that took too long, you went through the same thing again, and you might actually sit there all day and get nothing done. No wonder we worried about frame faulting. Ah, those were the days... Thanks for the trip down memory lane! Charlie Tiny Bear's Wild Bird Store Everything For The Backyard Bird Enthusiast, Except For The Birds http://www.TinyBearWildBirdStore.com Toll Free: 1-855-TinyBear (855-846-9232) On 08-28-2012 9:19 PM, dennis bartlett wrote: Who on earth is going to understand what 'release quantum' (RQM) means? Still, it worked.. and such a clever, 'techie-appealing' concept - tho I don't know that it ever did what I was told it did, it sure sounded good! On 28 August 2012 02:51, Wjhonsonwjhon...@aol.com wrote: How interesting. RQM isn't even in the online help for Universe 10, but it does compile. -Original Message- From: David L. Wasylenkod...@pickpro.com To: U2 Users Listu2-users@listserver.u2ug.org Sent: Mon, Aug 27, 2012 9:41 am Subject: Re: [U2] [ud] Sub-second delay? Universe only supports an integer for the SLEEP command... Try this in unidata: 001 CRT TIMEDATE() 002 FOR I=1 TO 5 003 SLEEP 0.5 004 NEXT I 005 CRT TIMEDATE() I've no idea if it's supported... but it's worth a shot to test. ... david ... David L. Wasylenko President, Pick Professionals, Inc w) 314 558 1482 d...@pickpro.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] On Behalf Of lar...@wcs-corp.com Sent: Monday, August 27, 2012 11:30 AM To: U2 Users List Subject: Re: [U2] [ud] Sub-second delay? RQM is still supported by UniData, but it's now merely a synonym for SLEEP. NAP is a UV thing, with millisecond granularity. SLEEP, in both UV and UD, like the *nix sleep command, only counts in whole seconds. Larry Hiscock Western Computer Services RQM was supposed to be merely a command to release quantuum which means to pause until I come back up in the time-slicing round-robin. At some point I wonder if they didn't just replace this with a Sleep 1 but that's not really what it was *supposed* to be. ___ 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 ___ 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 ___ 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
Re: [U2] [ud] Sub-second delay?
Actually the RQM functionality existed at hardware level (a true release quantum timeslice) when Pick ran on the Microdata machines specifically built for Pick. Way back when, Master Dick (and the other fella) wrote 'the ideal operating system' as their thesis. The theory goes that operating systems were inefficient because machines were being built and only when the machine existed an operating system would be invented for it. The hardware side of the Pick Operating System (as opposed to the file structure) was to be specifically designed to implement the structure at raw machine code level. Microdata (or whoever they were prior to that - maybe the ARPA people) then built this machine specifically for Pick. This was even pre-R81. My understanding was that it was at IRQ (interrupt request) level, so that just as a process needing something from an external source (external to the CPU), the processor would set a flag as I'm waiting then release the cpu to other processes (just as they do today). The difference today is that many disparate processes need to occupy memory, and so a paging file/swap space is needed. Back then Pick occupied the CPU the whole time. RQM would emulate this behaviour and also set a I'm waiting flag, thus releasing the cpu to process the next request. This worked in a circular fashion just like an ethernet works today - the focus moves from computer to computer until all have been serviced then returns to the first one. In a Pick CPU each user process had a request (of some maths to be done on something). They would all sit in a bottleneck queue and be processed one after the other (no multithreading). The RQM was a way to hurry up the process to allow important processes (logged in users) to get reasonable response times and yet still be able to run slower routines. Yes, 16 users on a 386. Full MRP system, plus GL and accounts, and MRP/CRP reporting running in the background constantly. All background apps were initiated as phantoms that read flags, when the system set the flag, all phantoms would implement RQMs. Online programs would set the flag as data capturing started, then reset it while the processor thought, etc. On 30 August 2012 05:18, Tony Gravagno 3xk547...@sneakemail.com wrote: The documentation is interesting for at least two reasons. 1) I have an R83 manual in my hands, v5 1990 that has the exact same text as the Microdata text below, except with the words REALITY and Pick interchanged, and one other subtlety: REALITY: RQM statement causes a one-second sleep, terminating the program's current timeslice. R83: RQM statement terminates the program's current time-slice. There's no telling which version came first without going back to R81v1 docs. There's probably no way to tell who got the text from who, or by what license or method. There's also no real way to know which implementation actually did a sleep 1 or whether it really just relinquished the Nms timeslice if there was no 'seconds' argument. That RQM and SLEEP are documented as being equivalent only confuses the matter more in this much ado about nearly nothing but fun discussion. 2) As I understand it, Unidata was conceived in a dream, and any relation to other Pick platforms was purely coincidental - at least as described in early lawsuits defending the originality of the platform. (Or maybe I'm thinking of Universe?) So how could there be an original purpose of a command that was not based on something else? I'm sure that there is some logical reason for this and that we're not looking at a smoking gun from 1991, but the historical significance is intriguing. T From: Bob Wyatt UniBasic User's Guide, Release 2.1, Copyright 1991 by Unidata, Inc. The original purpose of RQM was to release remaining execution time reserved for a program, allowing other programs to use the time. REALITY by Microdata. DATA/BASIC Programming Manual, Series 3.0 - 4.0, Release 4.0, February, 1981 The time-shared environment of the REALITY system allows concurrent execution of several programs, with each program executing for a specific time period (called a timeslice or quantum) and then pausing while other programs continue execution. The RQM statement causes a one-second sleep, terminating the program's current timeslice. The RQM statement may be used in heavy compute loops to allow increased execution speed of other concurrently executing programs by giving up time. It may also be used to cause pauses. ___ 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] [ud] Sub-second delay?
off topic ha ha.. ok, then how about going into debug n below, and using Peek/Poke and good ol' fashion arithmetic to fix GFE's? What fun! (yeah, me old too! A sense of accomplishment redeeming a 10MB file on which life depended!) McDonell Douglas Sequoia, and Allen, ever tried silver nitrating a mirror to 'fix' it? /off topic On 29 August 2012 14:05, Allen Elwood RR aelw...@socal.rr.com wrote: i remember when we had to bake and slice our own bread, now those were the days!!! ;-) ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [ud] Sub-second delay?
Who on earth is going to understand what 'release quantum' (RQM) means? Still, it worked.. and such a clever, 'techie-appealing' concept - tho I don't know that it ever did what I was told it did, it sure sounded good! On 28 August 2012 02:51, Wjhonson wjhon...@aol.com wrote: How interesting. RQM isn't even in the online help for Universe 10, but it does compile. -Original Message- From: David L. Wasylenko d...@pickpro.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Mon, Aug 27, 2012 9:41 am Subject: Re: [U2] [ud] Sub-second delay? Universe only supports an integer for the SLEEP command... Try this in unidata: 001 CRT TIMEDATE() 002 FOR I=1 TO 5 003 SLEEP 0.5 004 NEXT I 005 CRT TIMEDATE() I've no idea if it's supported... but it's worth a shot to test. ... david ... David L. Wasylenko President, Pick Professionals, Inc w) 314 558 1482 d...@pickpro.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] On Behalf Of lar...@wcs-corp.com Sent: Monday, August 27, 2012 11:30 AM To: U2 Users List Subject: Re: [U2] [ud] Sub-second delay? RQM is still supported by UniData, but it's now merely a synonym for SLEEP. NAP is a UV thing, with millisecond granularity. SLEEP, in both UV and UD, like the *nix sleep command, only counts in whole seconds. Larry Hiscock Western Computer Services RQM was supposed to be merely a command to release quantuum which means to pause until I come back up in the time-slicing round-robin. At some point I wonder if they didn't just replace this with a Sleep 1 but that's not really what it was *supposed* to be. ___ 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 ___ 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
[U2] SB.SMART.QUERY
Hi Does anyone know how I can get SB.SMART.QUERY documentation? Alternatively (or maybe in addition) do you know how to call SB.SMART.QUERY to decifer DICT items much like ITYPE(xx) does in BASIC? The IBM release notes talk about SB.SMART.QUERY being IBM's response to people wanting to use SB reporting outside of the SB+ environment - now this is EXACTLY what I need, but I can't figure out how to do it. I've written my own half-blown version, but it would be oh-so-easy to simply use theirs.. Thanks Dennis Bartlett ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Passing dimensioned arrays
If the new size was bigger, it would populate those cells that were sent, ie a (10) array sent would fill cells 1 - 10 of the (12) array Theoretically f the new size was smaller, it would fill the array then put the remaining ones into either the last or the zero cell depending on which flavour, but it would probably just lose the remaining cells. On Jul 26, 2012 8:55 AM, Wjhonson wjhon...@aol.com wrote: ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] trimming a list (a test of your ability)
Hi Steven The REMOVE statement process a multivalued list. The SETTING clause will set the variable to either 3, or 2, or 1, or 0 depending on the value of the delimiter last encountered... 1 for @FM 2 for @VM 3 for @SM 0 for End Of String If the array consists only of @FM, then MORE will be set to 1 for each iteration (since the delimiter it is encountering each time is an @FM) and then, when the last element is read, MORE will be set to ZERO, and the WHILE MORE will fail, thus the loop is exited. If FM.ARRAY is empty, MORE will return as 0 and the loop will exit, but you're right - the WHILE MORE line should be one line higher.. UNIQ.LIST = '' LOOP REMOVE NEXT.ID http://next.id/ FROM FM.ARRAY SETTING MORE WHILE MORE LOCATE(NEXT.ID http://next.id/,UNIQ.LIST,1;POS) ELSE UNIQ.LIST-1 = NEXT.ID http://next.id/ REPEAT the WHILE statement is in effect a while it is not zero and the second it becomes a zero, the loop exits. ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Regarding : Usage of the SEL.CMD
The biggest problem we have experienced as Pickies has been that no-one has ever heard of it. Now, when there is evidence that someone is learning it, the likes of @PaulWilson shout, scream, and throw their toys out the cot... go figure! Whereas Java is an 'open' language with zillions of sites telling one EXACTLY how to code, Pick is as closed as it comes. Info is extremely difficult to come by unless you reach a group like this... and who tells a newbie that UniVerse is Pick? Or jBase or D3 or Revelation or... Yes, I know it is annoying for some having to be reminded we all started somewhere. Yeah, I'm all for helping people know about this thing called Pick.. I've been doing it for over 30 years, like some other folk around here, but I'm still not going to get around to every site to fix their code. It'll be nice to know there's a growing fraternity of newcomers to it.. it might give reason for companies to invest in it, and not see the lack of Pickies as reason to think there is no long term investment value... If you think that another 2000 pick-ites will put you out of a job, you need to lift your eyes to the horizon. There are at least 4400 installed sites of Globus / T24, a banking app this is growing new programmers... and even you will not be able to service the workload... dennis On 9 June 2012 05:48, u2ug simpson-u...@gerzio.ca wrote: ... and then you should be all set to put everyone on this list out of a job ... ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Regarding : Usage of the SEL.CMD
Yes, Will, I know you do -- but only when they know that it is Pick... if they didnt know that they wouldn't have found your site! It's like knowing you have some sort of difference from everyone else but don't know what to ask Uncle Google, then one day someone says to you that you might have Auspergers, and suddenly you have a label to search for... happened to a friend who is so excited she has discovered that she is not alone.. but she first needed the label. On 12 June 2012 09:38, Wjhonson wjhon...@aol.com wrote: and who tells a newbie that UniVerse is Pick? Or jBase or D3 or Revelation or... I do https://sites.google.com/site/pickuniverse/companies-that-use-pick -Original Message- From: dennis bartlett dqbartl...@gmail.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Mon, Jun 11, 2012 4:32 pm Subject: Re: [U2] Regarding : Usage of the SEL.CMD The biggest problem we have experienced as Pickies has been that no-one has ver heard of it. Now, when there is evidence that someone is learning it, he likes of @PaulWilson shout, scream, and throw their toys out the cot... o figure! Whereas Java is an 'open' language with zillions of sites telling one XACTLY how to code, Pick is as closed as it comes. Info is extremely ifficult to come by unless you reach a group like this... and who tells a ewbie that UniVerse is Pick? Or jBase or D3 or Revelation or... Yes, I know it is annoying for some having to be reminded we all started omewhere. eah, I'm all for helping people know about this thing called Pick.. I've een doing it for over 30 years, like some other folk around here, but I'm till not going to get around to every site to fix their code. It'll be ice to know there's a growing fraternity of newcomers to it.. it might ive reason for companies to invest in it, and not see the lack of Pickies s reason to think there is no long term investment value... If you think that another 2000 pick-ites will put you out of a job, you eed to lift your eyes to the horizon. There are at least 4400 installed ites of Globus / T24, a banking app this is growing new programmers... and ven you will not be able to service the workload... dennis n 9 June 2012 05:48, u2ug simpson-u...@gerzio.ca wrote: ... and then you should be all set to put everyone on this list out of a job ... __ 2-Users mailing list 2-us...@listserver.u2ug.org ttp://listserver.u2ug.org/mailman/listinfo/u2-users ___ 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] Regarding : Usage of the SEL.CMD
Whew... great response there! Yeah, Will, I've just come out of the T24/jBase world. Temenos themselves don't encourage programmers at user sites, and in fact have to some degree been successful in prohibiting the use of support houses other than Temenos themselves in the latest incarnations, cleverly done by removing the COMPILE (EB.COMPILE) verb.. Banks don't need Pick programmers. They need T24/Globus experts. The hapless thousands that get the position however discover they have to come to grips with a database/language/entity that has no known definition like that they were taught at Uni. It is this entity that is called jBase, and jBase info is hard to come by. The enterprising few that catch on to the link between jBase and Pick/Universe come to forums like this, and unfortunately often get this sort of non-technical response. In Africa, tho, the banks are still employing programmers, if only to create reports and manage systems. This doesn't stop them from writing code on the side. The profound lack of available staff within Africa makes banks tend to cross train operators with initiative, who make programmers who lack the techie inquisitiveness, but get the job done because they know the system so well. Tony, you'd be amazed at how many 'cross-trained' programmers have no idea (the amateur fingers!). To a large degree the only time this problem raises it's head is when one tries to run a looping fix. Unfortunately this can happen with Temenos support staff too. T24 lacks the sophistication 1st world South Africa requires, so there are one or two banks that have traces of it, mostly by acquisition. Outside of South Africa, the software thrives. It provides enough of a basis for the banks to run, and being Swiss based, encourages Europe-owned banks to buy into it. There are hundreds (thousands?) of banks in the East that run on it. Fact is (and this will probably get another blast - but no offence intended) the US of A isn't the main consumer of IT in the world. Especially IT that specifically lacks sophistication so as to fit into a third world. By the same score I don't think any 1st world person is going to volunteerily go to messy third world countries. Apologies to Paul, and to his company, who have to live with those comments for eternity. On 12 June 2012 09:41, Wjhonson wjhon...@aol.com wrote: But Dennis, do any of these Globus sites actually need Pick programmers? Or do they just submit a ticket to Temenos? And if they do need Pick programmers, how come I never see any ads for banks looking for pick programmers? Or even Globus programmers for that matter ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Regarding: programming Techinques
Satya Google Jonathan E Sisk for a good book on the architecture, (and it's built in BASIC programming SQL language) if that's what you're looking for. There are many variations (Unidata / Universe / D3 Revelation / etc) but the basic database architecture is the same. Pickwiki has source code as well as great articles. T24All has code and processes specific to jBase/Globus, but since jBase is Pick based, similar to Universe) it can help. On 5 June 2012 06:08, Tony Gravagno 3xk547...@sneakemail.com wrote: The difference between logic and syntax is huge. Common reference manuals are intended to provide details for people who already understand the environment. In addition to the guide on techniques referenced below, look for code at http://PickWiki.com. There you'll find a lot of functional code in-context, which might be far more ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] READU vs READ
I think you complicating things ... Troy has it right: Sure files could be resized, and code re-engineered, and all these good thing do help, but I reduced a process scanning 20 million records from 12 days to 2 days just taking out the CRT to screen informing the user of progress (or lack of progress.) on such a large number I'd set the interval to around 2, so that the code as below sits at n,count += 1 if rem(count,2) then CRT n.count:' / ' : tot.count end On 1 May 2012 11:03, Buss, Troy (Contractor, Logitek Systems) troy.b...@nordsonasymtek.com wrote: Good point... For progress indications, I tend to do the following on the mass updates: N.COUNT += 1 IF REM(COUNT, 1000) ELSE CRT +: ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] The CONTINUE statement
Hey fella who said he didn't see a CONTINUE.. isn't the point of a user group to learn new things? I bet there are many things you've never seen - happens to me too. What I love about user groups is that, while there are a hundred good ways to achieve something, there are really clever ways, e.g. x = not(x) for maintaining a toggle, and even better somewhere to ask how to get something done or fixed. Ok.. throwing my cents in too.. CONTINUE for i = 1 to 99 do x if y then continue do z if a then continue do b if c then exit next i is easy reading: it prevents having to put GOTO statements in! Basically put 'continue' says 'goto the next loop' as opposed to 'exit' saying 'skip the rest of the loops. Used together you can control the sequence of events easily - one could write some hectic convoluted code but why? ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] The CONTINUE statement
ha ha, you lot _are_ funny! All programmers are wordsmiths; it's all we do all day, so collecting just the right word is something we have a penchant for... _but_ when I'm following a bug-trail thru UniVerse, via SB+, into a variety of aspx, and vb's along the way, I've certainly not got that perfectly matched needlesharp retort at hand, I merely want to communicate the essence of the thought, however verbose my attempt is. Really, one could stoop to asking 'have you nothing better to do?'. You would LIKE to but you won't... I echo the wtf... If you do want to don't (nobody is forcing you) I'm loving this convo... if there was ever a match on the Wall of Fame for disgusting code it has to be the RETURN TO. I did the 'maintenance programmer' stint for a number of years, where companies paid you 5x more to do the jobs none of their staff could face. So many programs were IF THEN/CASE statements that rambled over 6 screens, with hundreds of badly named gosubs, so that process flow truly sucked, and then, in the midst of such finery, you start unearthing RETURN TO, some of which did so out of a loop, sometimes returning but most often not. Even the Chinese never got noodles to be as tangled as those. On 27 April 2012 11:25, Wjhonson wjhon...@aol.com wrote: If those are the only options, then *Other* Whatever happened to assuming good faith ? -Original Message- From: Bill Haskett wphask...@advantos.net To: Paul Wilson sfr192...@yahoo.com; U2 Users List u2-users@listserver.u2ug.org Sent: Thu, Apr 26, 2012 6:09 pm Subject: Re: [U2] The CONTINUE statement What I'm wondering, and I probably shouldn't, is what this thread, and similar ones, are meant to be; trolling, pontificating, postulating, or just sowing the seeds of discontent? :-) Bill - Original Message - *From:* sfr192...@yahoo.com *To:* U2 Users List u2-users@listserver.u2ug.org *Date:* 4/26/2012 3:24 PM *Subject:* Re: [U2] The CONTINUE statement Some of you are PATHETIC - needing to pat your own back - wtf From: Wjhonsonwjhon...@aol.com To: u2-users@listserver.u2ug.org Sent: Thursday, April 26, 2012 6:19 PM Subject: Re: [U2] The CONTINUE statement You're trying to make me form an argument, and that was not my intention at all. Merely to present two contrasting forms of programming to solicit opinion. I have no argument. (Hell freezes over) -Original Message- From: Bill Brutzmanbi...@hkmetalcraft.com To: U2 Users Listu2-users@listserver.u2ug.org Sent: Thu, Apr 26, 2012 3:17 pm Subject: Re: [U2] The CONTINUE statement Why... even Joey Buttafucco has got better polemics... --Bill -Original Message- rom: u2-users-boun...@listserver.u2ug.org [mailto: u2-users-boun...@listserver.u2ug.org] n Behalf Of Wjhonson ent: Thursday, April 26, 2012 5:59 PM ubject: Re: [U2] The CONTINUE statement he point is versus, compare and contrast, opine, pontificate, soapbox, et etera ___ 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Case Statement with only two cases... or for that matter... one case
@Mecki.. What is your editor of choice, ie can you get it to indent 1 space? I've always been a standard FORMAT in ED fella, but the site I've just joined doesn't want that, code must start right up against the edge, have 2 space indenting.. So hard to not instinctively FORMAT, equally hard to find that missing 'END' when I can't simply format, since the code structure looks so foreign squashed up. Thanks Dennis On Apr 22, 2012 6:50 AM, Mecki Foerthmann mec...@gmx.net wrote: Well, I prefer: IF A = TEST THEN GOSUB DO.SOMETHING ;* Say why END ELSE GOSUB DO.SOMETHING.ELSE ;* The reason END IMO much more readable - because you see immediately that is is a conditional branching. It is also easier maintainable if you want to add some more code later or you need more conditions and want to change branching into case. And of course it will auto-indent correctly in my editor of choice ;-). On 20/04/2012 23:05, Kate Stanton wrote: Rather than: BEGIN CASE CASE A = TEST; GOSUB DO.SOMETHING CASE 1; GOSUB DO.SOMETHING.ELSE END CASE or IF A = TEST THEN GOSUB DO.SOMETHING ELSE GOSUB DO.SOMETHING.ELSE I prefer: IF A = TEST THEN GOSUB DO.SOMETHING ;* Say why ELSE GOSUB DO.SOMETHING.ELSE ;* The reason lining up the GOSUBs under each other, with comment making it clear why. __**_ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/**mailman/listinfo/u2-usershttp://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] Case Statement with only two cases... or for that matter... one case
Well, I wrote a proggie to process source code and break long IF/THEN/ELSE into IF ... THEN END ELSE END and also SEL.VERB = 'SELECT FILE WITH J=1 AND K=2 AND L=3 BY ABC BY DEF BREAK-ON XYZ TO SEL.VERB = '' SEL.VERB := SELECT FILE SEL.VERB := WITH J=1 AND SEL.VERB := K=2 AND SEL.VERB := L=3 SEL.VERB := BY ABC BY DEF SEL.VERB := BREAK-ON XYZ SEL.VERB := etc It does a few other personal likes It's just a matter of choice - having been a maintenance contractor for years I just like code that can easily be read within the 80 x 24 telnet client As for the mixed case thing, that has roared on forever, but it interesting to note that many internal Universe progs are written in mixed case. It all depends on the site, but mixed case requires dragonian standards rules, which are too much of a bother... On 20 April 2012 07:59, Danny Ruckel dan...@southwesttraders.com wrote: I don't agree that readability is improved when you use mixed case in your Case (or case) statement... ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] Is this list alive?
I'm hoping it's alive, I just joined again three days ago.. On Apr 17, 2012 10:38 PM, Brian Leach br...@brianleach.co.uk wrote: It's a long way from LA to Denver.. It's a long time hanging in the sky.. Brian -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wally Terhune Sent: 17 April 2012 13:20 To: U2 Users List Subject: Re: [U2] Is this list alive? Hope not. U2U in Denver isn't until May 8-10. Wally Terhune Technical Support Architect Rocket Software 4600 South Ulster Street, Suite 1100 **Denver, CO 80237 **USA t: +1 720 475 8055 **e: wterh...@rocketsoftware.com **w: u2.rocketsoftware.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Brian Leach Sent: Tuesday, April 17, 2012 5:56 AM To: 'U2 Users List' Subject: [U2] Is this list alive? It's been remarkably quiet - perhaps everyone is in Denver for the U2U? Brian ___ 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 ___ 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] BETWEEN operator
the point is that rather than the cumbersome way we have always written the GE LE statement, there might be a better way... that makes readability better and will take you 3425.6 man hours to implement throughout your system.. however I have no idea what I'm talking about here On 18 April 2012 11:16, Allen Egerton aeger...@pobox.com wrote: So what was/is your point? 'cause I'm like the other Allen, sitting here wondering what it is that you're asking or responding to... On 4/17/2012 9:08 PM, Wjhonson wrote: There is no question. -Original Message- From: Allen Elwood RR aelw...@socal.rr.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Tue, Apr 17, 2012 6:01 pm Subject: Re: [U2] BETWEEN operator did u hit send b4 the question? On 4/17/2012 5:46 PM, Wjhonson wrote: Pick BASIC IF MYVALUE 9 AND MYVALUE 20 THEN... or IF 9 MYVALUE 20 THEN ... or IF BETWEEN(MYVALUE,9,20) THEN ... ___ 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] Does anyone have an MV BASIC cheatsheet?
Ok, so now that the conversation has rotated slowly around a never ending, entirely unconnected point, which I never quite grasped, what exactly would you want written? I don't mind writing a cheat sheet, a PDF book, whatever, and yes, Sir Noah, a collaboration would be fun (which would in itself be the motivation required). Been in Pick, Reality, Revelation, JBase, and others since 1983.. what is it you'd like to know? dennis bartlett On 28 March 2011 14:57, Brian Leach br...@brianleach.co.uk wrote: Hi Tony et al ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] UV BASIC Flowing Charting Tools
I like FusionCharts. Their free download is fantastic - really simple to use. Comes with sample code in a zillion languages. One creates xml files from the data, placing the files in the correct directory (that you can set) and executing the relevant file.. very pretty stuff 2009/5/25 Steve Romanow slestak...@gmail.com Marco Manyevere wrote: Does anyone have a good recommendation for Universe BASIC source code flow charting software to aid with analysis and documentation of existing code? Thanks for any help, Marco. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ not specifically for unibasic, but Dia is nice and free. --- 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] using phrases to enhance user experience
It doesn't look as if phrases are used much - the concept is wonderful for
creating a report generator with drop-down options on screen or even just
making standardised reports much easier to request variants of...
with screen options for example
-
Select File {filenameUK} Select Type of Fields {tax_fields}
Select Type of Sort {by_region}
{filenameUS}
{address_fields} {by_state}
{filenameZA}
{cultural_identity} {by_language}
-
the sentence comes out like
list personnel_US tax_fields by_state using_spanish_headings
which is something your average user can grasp..
-
it is also useful adding well named paragraphs can enhance the user
experience, eg
- to_audit_printer
- into_lab_dir
In this one creates a verb 'send'
send personnel_US tax_fields_US filter_by_country MEXICO sorted_by_state
using_spanish_headings to_MEXICO_office
where
- send --- is a pre-processor to simply strip out the
to_MEXICO_office code execute it first
- personnel_US the local distributed file
- tax_fields_US a phrase containing US related taxfields
- filter_by_country- a phrase with the reqd BY, WITH, WHEN
- MEXICO --- a phrase specifying MEXICO as that country
- sorted_by_state - a phrase to sort by state
- using_spanish_headings - a phrase that contains a title written in
Spanish
- to_MEXICO_office - the name of a paragraph that sets up the MEXICO
office printer for the next report
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] LIST DICT.DICT
it lists the dictionary that is applied to dictionaries, ie
- allows you to change the default fields that show when you list the
DICT of a normal file (you can change the field headings to something that
makes sense in your world),
- change the @ field (the PHrase that lists those fields that show by
default when you just type LIST {dict} filename)
- lets you see the implied fields associated with dictionaries and how
they are created
- change default widths of fields (not often a good idea - better to
create your own)
- all the other @ type variables that no-one ever uses
2009/5/18 Brutzman, Bill bi...@hkmetalcraft.com
While I am glad to find out about LIST DICT.DICT, it is not clear to me
what it is.
Elaboration would be appreciated.
--Bill
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Jo Lester
Sent: Friday, May 15, 2009 6:39 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2]
I lied type
LIST DICT.DICT
only one dot
From: jp.les...@hotmail.com
To: u2-users@listserver.u2ug.org
Subject: RE: [U2]
Date: Fri, 15 May 2009 16:17:48 -0600
In Universe it is LOC, in PICK it was AMC. In Universe you can find
the
field
you want by typing LIST.DICT.DICT at TCL
Subject: RE: [U2]
Date: Fri, 15 May 2009 16:48:02 -0400
From: bi...@hkmetalcraft.com
To: u2-users@listserver.u2ug.org
1. This is not done from an SB+ screen.
2. While there could be multiple hits I would be happy to grab the
first one, better yet, see what all of the multiple hits are. If
there are no hits, it would tell me that I should manually specify
these blank fields in the DICT.
Thanks for responding.
--B
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Israel,
John R.
Sent: Friday, May 15, 2009 4:27 PM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2]
Is this done from a SB+ screen? If so, you should be able to pull
from one of their variables. If not, you would have to do a select
on the DICT to find the one you want. The problem here is what to do
it you get multiple hits or no hits?
John Israel
Sr. Programmer/Analyst
Dayton Superior Corporation
721 Richard St.
Dayton, OH 45342
937-866-0711 x44380
-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Brutzman,
Bill
Sent: Friday, May 15, 2009 4:16 PM
To: u2-users@listserver.u2ug.org
Subject: [U2]
From within UniBasic, I need to determine the name of a DICTionary
field, given the dict field number.
While I have the beginnings of some code, some help is needed.
This.Field.Nbr = R.Change14
This.File = R.Change11
open DICT, This.File to Dict.This.File else null
read R.This from Dict.This.File, WHAT.DO.I.USE.HERE else null
Field.Name = R.ThisThis.Field.Nbr
--Bill
---
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/
_
Hotmail. has ever-growing storage! Don t worry about storage limits.
http://windowslive.com/Tutorial/Hotmail/Storage?ocid=TXT_TAGLM_WL_HM_Tut
orial
_Storage1_052009
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
_
Hotmail. has a new way to see what's up with your friends.
http://windowslive.com/Tutorial/Hotmail/WhatsNew?ocid=TXT_TAGLM_WL_HM_Tu
toria
l_WhatsNew1_052009
---
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] LIST DICT.DICT
I'm sure cds thought he was making sense... perhaps he meant to say that in raw pick (R83 era) the system is a series of DICTS (from a system dict called ACCOUNTS which holds all the account names one can login to), to an account dict which holds all the filenames in an account, to a file dict which holds all the field names in a file). Used to be you could ED DICT VOC (then called the MD, short for Master Dictionary) which got you to the same place as DICT.DICT --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] File Delete Logging UV
If the deleting process was acting on the UFD file, it could quite happily delete the VOC file, and it would appear as if the file had been deleted via the operating system as the usual Universe etc links would still exist. I don't think a VOC trigger would be enacted if the UFD entry was deleted. Does the file simply vanish, ie there is nothing present at O/S level, or is the VOC file simply replaced with a previous version? A write to the UFD file would achieve a replacement, I don't know if the trigger on the VOC file would fire.. and a simple copy statement to UFD would achieve that write.. A possible way would be to poll the UFD file with a process during the day / time period and observe when it occurs. One process where this would be regularly done is in a program running a menu system . Alternatively, if the VOC entry is important, one could write it back into the VOC regularly during the day... just as an interim measure whilst you search the galaxy for what will turn out to be a simple answer ;-) 2008/12/29 Scott Ballinger scott.ballin...@gmail.com Um, is it the VOC file that is disappearing, or an item in the VOC file? /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 On Mon, Dec 29, 2008 at 6:24 AM, Jeff Butera jbut...@hampshire.edu wrote: quote who='Israel, John R.' date='Monday 29 December 2008' Put a DELETE trigger on the VOC file and in the code, specifically test for just the VOC item that keeps getting deleted (i.e. ignore any others). When you get a hit, immediately send your self an E-mail with all the info in question. Remember that triggers must be globally cataloged, but that they can call locally cataloged programs (thus you can have differences between accounts by having the subsequent subroutines different between accounts). I hope this helps. I was thinking the same thing, but this doesn't address the issue if there's an O/S process that's deleting the VOC outside of uv. If the process deleting your VOC is outside of uv, it may be harder to identify. -- Jeff Butera, Ph.D. Administrative Systems Hampshire College jbut...@hampshire.edu 413-559-5556 Where I'm from, we believe all sorts of things that aren't true. We call it 'history'. The Wizard, Wicked --- 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] What's this mean?
Hi I googled your question and found this... hope it helps RE: [U2] [UD] UniOLEDB colin.alfke Tue, 18 Apr 2006 07:24:02 -0700 Bill; Hopefully, you've gotten past this by now - if not: This error usually means that you have the incorrect Data Source in your connection string. This is what is in your UCI.CONFIG file. Note that (like most things in UD) it is case-sensitive. In your case use asidevud. The Path/Location is the account. I usually like to use the full path E:\DataTrust\DtaDemo A common error is the timeout - error code = 81015. You can increase the timeout by changing the values in the unirpcservices file on the server. It defaults to 6 minutes (3600). One error that seems to get me every once in a while is error code = 81002. The first thing I do is check the NT permissions on the file privilege in the account you are trying to connect to. The user needs write access to this file in order to connect. This is all at the windows level. It seems that occasionally VSG will mess with the permissions on this file. We had one client that converted from D3 to UniData and was amazed at how much faster it ran in UD. Good luck Colin Alfke Calgary, Canada and here's a link to the google search http://www.google.co.za/search?num=50hl=enclient=firefox-arls=org.mozilla%3Aen-US%3Aofficialhs=w92q=Died+in+UCI%3A%3ASQLConnect()+with+SQLSTATE+08001%2C+btnG=Searchmeta=aq=foq= 2008/12/29 Kevin King precisonl...@gmail.com Died in UCI::SQLConnect() with SQLSTATE 08001, Native error:0 [IBM][SQL Client][Unidata]Helper --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
Re: [U2] Convert AREV/Paint definition to SB+
The idea between PAINT and SB is similar - contact either Andrew or Carl at www.sprezzatura.com - they'll be able to help you. Tell them Dennis referred you if the want to know. 2008/11/23 Manu Fernandes [EMAIL PROTECTED] Hi, I'm in contact with a site where a package written in AREV is running under Universe/NT. They are using AREV/PAINT tool to draw screen input. AREV/PAINT seems to be near of SB+ concept. Is there someone with experience to port AREV/PAINT definition to SB+ ? Thanks for any advice. Manu Fernandes --- 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] Dynamic Array oddity very useful
Way back I was most impressed by the use of X=NOT(X) as a means of doing a toggle. Now I've found another wonder... Over on the jBase forum someone posted this: A = 'DEF' A2 = 'XYZ' A0 = 'XXX' A0 = 'ZZZ' CRT A When run gives XXX]ZZZ]DEF]XYZ So A0 = X is a way quicker way of writing A = X : @fm : A --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] OPEN fname ... ELSE STOP 3000, fname
We did it on a library system for having multiple language support, that way the user login loaded the ERRMSG file and all errors were in the local taal (language) Since the legacy app is used even today, on both D3 and UV, it still works off an ERRMSG file, only the access method now is via a special subroutine to log the error and abort gracefully.. Speaking of that, the original URICA library system, used extensively in the UK and a couple in SA, was written in PROC... And used this ERRMSG idea in it too -Original Message- On Jul 31, 2008, at 12:20 PM, Stevenson, Charles wrote: I've got old, old code riddled with STOP 3000, filename. ERRMSG 3000 does not exist on UV 10.2.6. Did it ever exist on UV? What version of Pick did this come from. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniData PROC tip: DB command
Kathleen The way PROC works is that it stores data and commands in buffers, one of which is also known as the stack. Execution is the process of moving these between input and output buffers. If you've ever worked with assembler this will make perfect sense to you. The D command displays data in a buffer. Quoted from below: * Proc is to move data between input and output buffers, using arguments passed from the command line, user-prompted input, and stored data and commands to build a TCL statement. To run things you would push commands onto the stack (using H) and then process them (using P). To store further things on the stack before running a command, like answers to questions the command might ask, you would put in a STON command (Stack On) and preload it in the next lines, until it hits a P(rocess command). This stack concept is the same used in BASIC when we want to run a command and feed it pre-arranged answers (using DATA) to questions it might ask. Every data storage and excution place in a PROC is a buffer. Quoted from below: * H command places the literal string in the output buffer * A command copies user input to the output buffer. * P command sends the contents of the output buffer to the TCL processor. http://jdjua.com/sqlpickjbaseuniverse.htm Proc: Consist of TCL Commands : JCL and Shell Programming * PROC processor: * PROCLIB is a file that contains Procs supplied with the system. * LISTPROCS is a system Proc that lists all the Procs in file PROCLIB in dictionary format. * SYSPROG account has additional Procs and programs stored in the SYSPROG-PL (SPL is a synonym for it) file. * Proc (initial capitalization) refers to a procedure * Proc is to move data between input and output buffers, using arguments passed from the command line, user-prompted input, and stored data and commands to build a TCL statement. * TCL or INFO/ACCESS statements called Procs. * Primary input buffer * Secondary input buffer * Primary output buffer o At any given time, one input buffer and one output buffer are active o PROC Buffer. A buffer contains parameters which are delimited by spaces. A buffer pointer points to the current parameter. * Secondary output buffer (also known as the STACK) * TCL Processor * PQ to identify it to the system as a Proc * H command places the literal string in the output buffer * A command copies user input to the output buffer. * P command sends the contents of the output buffer to the TCL processor. * O command displays a string of text on the user's terminal screen. * IP command reads the information entered by the user into the input buffer. It prompts for the input with a colon (:). * GO 10 transfers control to the command line that is labelled 10 * X command terminates the Proc and returns control to the TCL processor * IF command provides for conditional branching. * C must be the first character on a comment line * ()([DICT] filename proc-name): create Proc * IT Command: Tape Input * IH Command: replaces the current parameter in the input buffer with text * +/- Commands: + (add) command adds an integer to the current parameter in the input buffer and the - (subtract) command subtracts an integer from this parameter. * RI Command: Reset Input * F Command Moves the active input buffer pointer forward to the next parameter. * B Command Moves the active input buffer pointer backward one parameter. * S Command The S (set) command moves the active input buffer pointer to a specific parameter. * LIST CUSTOMERS WITH LAST-NAME = JOHNSON LAST-NAME FIRST-NAME STREET CITY STATE : Access Statement: List Customers with Last name as JOHNSON with other fields. * SORT-ITEM MD WITH D/CODE = PQ: INFO/ACCESS command: sorts and displays all items in the Master Dictionary whose first line is PQ. A nice reference manual is ftp://ftp.rainingdata.com/pub/mvBase/2.1/Documentation/ReferenceManual/procp qx.pdf Another place to look is http://www.sierra-bravo.com/multivalue/d3reference/command/proc -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kathleene M Hunter Sent: 31 July 2008 03:40 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] UniData PROC tip: DB command It not a buffer -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Scott Ballinger Sent: Wednesday, July 30, 2008 5:29 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] UniData PROC tip: DB command R83 style for this is: D0 - display all D1 - display buffer 1 D2 - display buffer 2 etc /Scott Ballinger Pareto Corporation Edmonds WA USA 206 713 6006 On Wed, Jul 30, 2008 at 4:46 PM, Wally Terhune [EMAIL PROTECTED] wrote: Kathleene's posting jogged my memory on this... DB (Display Buffers) command works in UniData PROCs.
RE: [U2] RE: English phrases
No, they don't... PA LIST MASTER _ BY ATTR1 _ BREAK.ON ATTR1 _ ATTR2 _ TOTAL ATTR3 _ HEADING this is the best heading you ever saw 'D'PAGE 'PLL' _ ID.SUP _ DET.SUP _ LPTR Works a bomb! (provided of course you have a file called MASTER with dict items ATTR1, ATTR2, ATTR3, AND ATTR3 is numeric ;-) Oh, yeah - put a space before each '_' -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Boyd Parks Sent: 24 July 2008 07:34 PM To: u2-users@listserver.u2ug.org Subject: [U2] RE: English phrases Sorry to bother - I have found that on Universe , all the definitions have to be listed on attribute 2 instead of being in subsequent attributes as we can do on our jBASE system. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Copied an account, now indexes messed up..
I have a working running account... And needed to create a write-off account, so I simply used cp -Rp xxx to copy the one account to the other... Now I have index problems I tried to search U2Ug knowledgebase but all it ever returns is No records found... I know that indexes have path names embedded, and that my copy is messing up the original account's indexes... The thing is I need both accounts to have indexes, and I can't remember how I separate them... And its urgent... Oops! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] re:passing parameters to stored procedures
Did you solve this? What comes to mind is that SQL might be taking the @ sign as a delimiter or some such and stripping the variable before it gets to the proc.. -Original Message- Subject: [U2] re:passing parameters to stored procedures I have created stored procedure to run and I have to pass date parameter to it. I'm getting error message saying ERROR [42000] [Microsoft][ODBC SQL Server Driver][SQL Server]Procedure 'ProcedureName' expects parameter '@FirstDay', which was not supplied. I implicitly assign parameter value and type and checked the name to be identical and there is still an error --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Test mail - getting bounced mail from this address?
Test... Gettting bounces.. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unidata - handler for mistyped commands?
To consolidate your ideas then, you don't want to write a shell, you don't want to change the voc, and you do want it to change? Ha ha Easiest is to write a shell, but along the lines of the spell checker : - use soundex to look for similarities, - file: key= soundex'd names. - file: line 1: all other possible related soundex values - file: record=each line a possible prog - if one prog only, call it. - if multiprogs, offer browse list Any choices must then update the files - with a little learning logic in a short while it should be easy to find any program in the shortest time. Library systems use soundex to do just this, eg when non-English speakers are searching for English books. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jim Anderegg Sent: 01 July 2008 07:22 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Unidata - handler for mistyped commands? Not exactly on topic: Back in the day (that would be the early 90's) I used to work in a SCO unix environment - the command interpreter had a built in spell checker that would offer a suggestion for the command you might have meant whenever you had a typo. Pretty nifty. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Edward Brown Sent: Tuesday, July 01, 2008 5:09 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] Unidata - handler for mistyped commands? Yes, I've already got some VOC entries that are shortcuts to longer named jobs, and we do have a few VOC entries to catch common typos, what I'm wondering is if there is a more generalised way of intercepting unrecognised commands, ideally a way of calling a specific 'handler' program that can see what was typed in and make a decision internally on the best way to handle it. Edward -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kathleene M Hunter Sent: 01 July 2008 07:05 To: u2-users@listserver.u2ug.org Subject: RE: [U2] Unidata - handler for mistyped commands? Create a VOC enter that is the typo that executes the correct process. Example ED VOC EDIT.PROG 01: S 02: ED BP ED VOC EDIT.PROG 01:PA 02:ED BP ED VOC EDIT.PROG 01: PQ 02: HED BP 03: P (note that line 1 may need to be PQN) If you want to have it global catalog a program under a different man then CATALOG programfile newname programname options -Original Message- From: Edward Brown [mailto:[EMAIL PROTECTED] Sent: Friday, June 27, 2008 10:37 AM To: u2-users@listserver.u2ug.org Subject: [U2] Unidata - handler for mistyped commands? Hello, Within Unidata, is there any way to intercept commands typed at the command prompt if they aren't recognised? It's to 'magically' allow slightly mistyped program names to launch that program - some of our routine names are quite long - and also to recognise abbreviated routine names in the nature of Quicksilver for the Mac, if anyone's familiar with that. Now, obviously I could do all this by running an extra shell over the normal command prompt but it would be nicer to have it work at the normal prompt... And I know the abbreviation thing can be done with VOC entries, and I've already got a few set up, but I'm looking for a more generalised solution. Thanks, Edward - -- Please remember to recycle wherever possible. Reduce, reuse, recycle, think do you need to print this e-mail? - -- This e-mail and any attachment(s), is confidential and may be legally privileged. It is intended solely for the addressee. If you are not the addressee, dissemination, copying or use of this e-mail or any of its content is prohibited and may be unlawful. If you are not the intended recipient please inform the sender immediately and destroy the e-mail, any attachment(s) and any copies. All liability for viruses is excluded to the fullest extent permitted by law. It is your responsibility to scan or otherwise check this email and any attachment(s). Unless otherwise stated (i) views expressed in this message are those of the individual sender (ii) no contract may be construed by this e-mail. Emails may be monitored and you are taken to consent to this monitoring. Civica Services Limited, Company No. 02374268; Civica UK Limited, Company No. 01628868 Both companies are registered in England and Wales and each has its registered office at 2 Burston Road, Putney, London, SW15 6AR. - -- --- 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
[U2] Can the catalog space get full?
We're having weird issues here where programs that have worked forever are suddenly being reported as UNABLE TO LOAD XYZ. Indiviually cataloging the programs fixes the problem. I'm not sure each time what the original method of cataloging was so I'm simply doing a local catalog. The problem this way is that I have to wait for something to not be found to fix it. And the way this system is written it won't tell me if it can't run a subroutine, it simply won't run it. One only picks up the data issues later. If possible I would prefer not to have to recompile anything, and I don't know how specifically these things were originally cataloged. Can the catalog space get full? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Calling shell script from virtual field
Please disregard previous ridiculous statement - must have been on another planet or simply didn't read the question properly. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Calling shell script from virtual field
I'm not sure if you can do this directly from a virtual field without going thru a subroutine. Perhaps you could by opening UFD and executing your script in there? -- Jeff Butera, Ph.D. Administrative Systems Hampshire College [EMAIL PROTECTED] 413-559-5556 He works out of his home office doing technical training. I call it gambling. Overheard at grocery store. --- 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. Version: 8.0.100 / Virus Database: 269.24.1/1464 - Release Date: 5/24/2008 8:56 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe Tutorial - Conect php to universe
Hi Pamela! How's argentina..? There's a great article at http://www.pickwiki.com/cgi-bin/wiki.pl?U2pipe (courtesy Rex Gozar) And there are these http://www.ibm.com/developerworks/db2/products/u2/ http://u2blog.org/2008/01/10/php-in-universe/ Install UNIDK on the webserver and put the following code inside a php page. This will initiate the connection to the Unidata server and allow you to talk via uniobjects. ?php $Hostname = 192.168.0.1; $Username = admin; $Password= password; $Accountpath= c:\ibm\mydemoaccount; $UdSession = new COM(UniObjects.unioaifctrl); $UdSession-HostName = $Hostname; $UdSession-AccountPath = $Accountpath; $UdSession-UserName = $Username; $UdSession-Password = $Password; $UdSession-Connect(); ? And then the page I got these references from http://www.nabble.com/accessing-U2-with-PHP-td14766390.html#a14767029 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of pam Sent: 23 May 2008 04:58 PM To: u2-users@listserver.u2ug.org Subject: [U2] Universe Tutorial - Conect php to universe Hi!! I'm starting with universe and I wanna make a web programming with php. I could install the IBM's module but I couldn4t connect yet. I 'm looking for a tutorial to learn universe because i don't know how to create a database or a table on it! And someone knows if exists an orm for universe ? Thanks a lot Pamela --- 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. Version: 8.0.100 / Virus Database: 269.24.0/1462 - Release Date: 5/23/2008 7:20 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] locking code question
BP files only have to be type 1/19 if you want to compile / run from them.
Why not store your code in type {whatever else} files, then get the {revised
home-grown} ED
to copy source out to a GLOBALBP type 1 file
to compile, catalog program
then delete the source.
A trigger on the storage file will handle all auditing, SICA etc.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Clifton Oliver
Sent: 16 May 2008 03:52 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] locking code question
BP files have to be either type 1 or type 19 (directories). Not having a
file header, you can't have a SICA, can you? Same reason you can't have
indexes or transaction logging on them. At least that's my understanding.
I'd love to find out there is a way to do it.
Regards,
Clif
On May 15, 2008, at 4:14 PM, David Jordan wrote:
You could look at SQLising the BP file. Having a SICA, you could
restrict
read and update to all users and have a BASIC program manager with the
AUTHORIZATION command, handle check out, check in, compilation, etc.
This means that programs could only be accessed through the program
manager and not directly.
This would only work on UniVerse as I believe UniData does not have
the AUTHORIZATION Command.
Regards
David Jordan
---
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.
Version: 8.0.100 / Virus Database: 269.23.2/1432 - Release Date: 5/14/2008
7:49 AM
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe Login
Add a LOGIN paragraph to every account PA IF @LOGNAME = 'root' THEN GO ENDIT LOGTO correct_account ENDIT: -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Peter Veenhof Sent: 14 May 2008 05:41 PM To: u2-users@listserver.u2ug.org Subject: [U2] Universe Login Hi All, This is a basic UV question, but for some reason I can't seem to find an answer... I want to have all uses who log into Universe go to one specific account, how do I set this universally? ... Using UV 10.2 on Windows 2003. Thanks Pete --- 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. Version: 8.0.100 / Virus Database: 269.23.2/1432 - Release Date: 5/14/2008 7:49 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] blink questions
Just to show my age, way back in the days of R83, and the Sequoia machines we were able to use debugger to give us a version of peek and poke to reset the forward and backward links manually. Almost like using a hex editor... -Original Message- Subject: RE: [U2] blink questions --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Record Locking Problems
I am certainly NOT trying to change anyone's coding style, I am just curious IMPRESSIVELY POLITICALLY CORRECT ;-) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Universe XML is not to standard
Wouldn't it be easier to use HDR.SUP? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Keith Johnson (DSLWN) Sent: 08 May 2008 01:27 AM To: u2-users@listserver.u2ug.org Subject: [U2] Universe XML is not to standard The software I am supporting has a user screen which builds and saves enquiry statements (English/Access/Recall). I recently created another screen to allow users to use the defined statement/report to output XML to the HOLD file and to transfer the results to their PC. All well and good, but then I found that Excel wouldn't pick up the results properly. The reason for this is that the XML output is not quite to the standard. For example, the command LIST VOC 'VOC' F1 F2 TOXML gives the result -- ?xml version=1.0 encoding=UTF-8? ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- While the command LIST VOC 'VOC' F1 F2 TOXML HEADING WAHOO 'D' gives the result -- WAHOO 08 May 2008 ?xml version=1.0 encoding=UTF-8? ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- It's not absolutely clear from the W3C standard itself, but it is very clear from the examples given with it; that the output must start with the string ?xml . That is to say, although line feeds and spaces are effectively ignored within XML, they are not catered for before the ?xml string. And while the traditional Pick 'thing' is to make-it-work-if-possible, Excel follows the (arguably more standard) convention of holy-heck-that's-not-right-do-nothing What I had to put in place was an extra bit of code to read in the output, delete any lines before the ?xml string, and re-write the output (which, by the way, I'm unsure will work for very, very, very large reports). That's not at all satisfactory in my opinion. I think that the header lines should have been dropped completely, or put in after the ?xml string as a comment something like this: -- ?xml version=1.0 encoding=UTF-8? -- report heading follows WAHOO 08 May 2008 -- ROOT VOC _ID = VOC F1 = F F2 = VOC/ /ROOT -- Does anyone else agree with me? Ought IBM change this? What do you think? Regards, Keith --- 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. Version: 7.5.524 / Virus Database: 269.23.10/1421 - Release Date: 2008/05/07 05:23 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] passing file pointers?
If unassigned(F.PTR) then open 'f' to F.PTR... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Doug Chanco Sent: 02 May 2008 10:21 PM To: u2-users@listserver.u2ug.org Subject: [U2] passing file pointers? Hey all, In universe 10.1 how can I verify that a file pointer passed via a subroutine param is valid? I have a subroutine that is called with several file pointers but it is possible to be called without opening a file and the subroutine would check if the file pointer is empty and if so open the file. The problem is that my check IF F.PTR = '' THEN Is erroring out with a invalid data type error message when the file pointer is passed in (instead of being null). I know that I can make all the calling programs open the needed files BEFORE calling the subroutine BUT if its possible to somehow have the subroutine check and open it if its (empty the file pointer), I would prefer to do that. Thoughts/suggestions welcome Thanks! dougc --- 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. Version: 7.5.524 / Virus Database: 269.23.8/1414 - Release Date: 2008/05/04 12:31 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Press any key to continue...
Well, the actual question asks why it occurs, not really how to fix it, So... In Universe Basic one doesn't have to define the length of an input value, tho' one can, eg INPUT ANS,1 Instead it allows any length of input, so a space bar entry might just be part of a string entered - as one could enter in response to a prompt for Reason for discard something like the item was run over by a rampant forklift and is in a sorry state even if the prompt was masked as a 20 character prompt. You will see that the input contains embedded spaces. If the system were to react to a single space, as if to interpret the space as being SPACE : CR the first space would end input of the string and you would end up with just the One way to beat this, and still allow you to use a single space as an exit character, would be to create a loop that inputs a single character, then tests if that character is a space. If so, exit the loop, if not, append that character to the end of a string, eg InputtedValue = '' Loop Input Val,1: if Val=' ' then exit InputtedValue := Val Repeat On exit via the entry of a single space, the string InputtedValue will contain all the inputted field. Note: the : at the end of the Input Val,1: statement makes the input prompt wait at the end of the string already entered, giving the impression that the program is actually accepting the whole string as a single entry, and not just a character at a time. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Steve Ferries Sent: 29 April 2008 09:46 PM To: u2-users@listserver.u2ug.org Subject: [U2] Press any key to continue... Hi All, We were coding a standard INPUT ANS after asking a user to Press any key to continue --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unable to Compile
This would happen if someone replaced the BASIC command with either a paragraph or cataloged proggie? I've been known to do this in the past - when I wanted to know who had compiled what. If the proggie then failed to compile, there would be nothing to run... The VOC entry for BASIC on this site (just in case - I realise it's a long shot :-) BASIC 0001: V 0002: nbasic 0003: E 0004: SFG 0005: 0006: INFORMATION.FORMAT -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Baruch Salamander Sent: 30 April 2008 03:34 PM To: u2-users@listserver.u2ug.org Subject: [U2] Unable to Compile Greetings, Did anyone ever experience the following on Universe? BASIC BP TEST --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UniSubroutine question with UOJ
It probably runs as a phantom, and therefore follows the same rules. I don't think there is a way to turn that on or off. You could just write to a file, then view the result elsewhere. I created a type 19 file which looks just like a directory to windows / unix apps. In there I create files and give the appropriate file extension so the when clicked open, even to the point of having a U2 program create a 'bat' file run by Windows scheduler.. and we're on a linux machine. If you do want the data to show up in UniData, then write to a file, and let another U2 proggie poll that file, or add a trigger to pick up that something new is there, anything found can be displayed. Hope I didn't miss the point there.. -Original Message- I use the UniSubroutine object of Uinobject For Java to call a subroutine with Unidata. But if I have any CRT or PRINT command inside Unidata Subroutine, it will mess up the UniSubroutine call. Basically, it runs but returns nothing. Anyone know why this happens and how I can prevent this happen? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Uppercase
This system wont allow me to compile code written in any form of lowercase or with blank lines in the source... Does anyone know how to change this? I've found some software which looks really promising called FlashGUI which effectivly creates a windows looking GUI using pickbasic commands (www.infotools.ru) which won't compile on this machine. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MERGE-LIST
Sorry for hopping on this so late in the discussion, but... Value-1 = NewVal is way slower than Value = '' loop Value := @fm : NewVal Repeat If Value[1,[EMAIL PROTECTED] then Value[1,1]='' -Original Message- Agreed - dynamic arrays are very slow --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Keys with @AM in them...
I open the file in a program, then use an internal select and loop readnext Eg Open 'file' to handle else... Select handle Loop readnext key else exit if index(key,@fm,1) then delete handle,key Repeat This simply moves a pointer thru the file and doesn't attempt a value judgement of the data read -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David Wolverton Sent: 07 April 2008 09:16 PM To: u2-users@listserver.u2ug.org Subject: [U2] Keys with @AM in them... How do I fix this? My program wrote items with @AM in the key. (oops) Now, I can 'select' the items, but I cannot get rid of them - they show as non-existent. Is there a way to remove/clean up these records, or will I have to clear the file and copy the good records back in? --- 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. Version: 7.5.519 / Virus Database: 269.22.8/1362 - Release Date: 2008/04/06 11:12 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] COMMON
Following up on the common thread, can one OPENSEQ to a COMMON variable? -Original Message- --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] COMMON
Hi I have a subroutine that WRITESEQ to a record in a type 1 file called INTEGRITY. Is there anyway I can open the file once (in the subroutine) and thereafter use the same file handle (to avoid opening the file each time the subroutine is called) ? All the code on this site opens the file in the calling routine and passes the handle to the subroutine. I want to rather make the subroutine a stand-alone, not requiring more than the subroutine call added to the calling programs. I have a suspicion I can use named common - if so, does this have to be declared in the calling routine (which would negate my purpose!). Any advice? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] filepeek documentation
Hi Enrico Here's some info on filepeek altho a little sketchy http://www.ibm.com/Search/?q=filepeekv=14lang=encc=zz http://osdir.com/ml/db.u2.general/2004-06/msg00334.html http://212.241.202.162/U2UGWiki/moin.cgi/Resize http://www.mail-archive.com/[EMAIL PROTECTED]/msg01352.html --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Indexes
My dumb question for the day (just cant remember how to... and the manual's example is too simplistic...) How do I programmatically get an index value out, eg I have a STOCK file, and a REPAIRS file. Whoever designed this needs their head read, but the repairs file only has the stock code as a reference in the record. I have indexed the repair file on stock code, and need to create a report on the stock file of how many items are under repair. 1. UniverseBASIC code? 2. is this possible from an Itype? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Indexes
Thanks! This is by far the easiest, and it works! -Original Message- [EMAIL PROTECTED] wrote: At the universe tcl: SELECT REPAIR SAVING UNIQUE STOCK.ID --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
You do realise that you are showing U2 to be a sport of the pre-historic? My first experience with computers was paper tape. Version control was performed with a pencil on the leader of the tape. How many remember punch cards. How about a half a day turnaround to see if your program compiled? And the fun task of reading core dumps. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] blank lines in code / mixed case
How come my code won't compile if there are blank lines in it? And yet when I find source on the net it has blank lines in it? and while we're at it, what is the case for / against using lower or upper case code, and what do I need to set to allow this to happen? Thanks --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
Welll I use Notepad++ to edit, on a LIVE system, making every error instantly visible in 11 branches across a 300km range... yes, of course I'm using version control, its called panic 101, aka The Fire Station... Rex Gozar WROTE: You ARE using source code control tools (i.e. not home grown procedures), --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Skype cannot connect
That's really weird coz my skype is set to update on its own, and the version is 3.2.. -Original Message- From: Tony G Yes, but the current release is 3.5. :) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
Well, THANKS for that - because that is precisely what I'm doing right now... looping thru dicts to create attribute equates... Perhaps we should have an area we can post all these utilities so we don't have to reinvent the wheel every time... Anyone? -Original Message- Rex Gozar wrote: I inherited similar bad code. It too used F1, F2... for file variables, hardcoded attribute numbers, etc.. I wrote a utility to generate INCLUDE files for attribute equates. Then I wrote another utility to rename the file variables and change the hardcoded attribute numbers to named constants (equates). --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
You're a genius...!!! Thanks for that - added a blank line and all is happy! dennis David Beaty wrote: Does the BP version of this item have a blank line at the end? We've experience problems with INCLUDES that don't have that. Dennis Bartlett wrote: 0033 WRITESEQ LOG.FILE ON F.FEEDBACK ELSE STOP 'DISK FULL' 0034 RETURN 0035 * --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
Currently the system uses the following coding structure: OPEN 'HPMAST.FILE' TO F1 ELSE STOP OPEN 'HPCONTRACT' TO F2 ELSE STOP OPEN 'HPTRANS.FILE' TO F3 ELSE STOP READ F1R FROM F1, KEY THEN... READ F2R FROM F2, KEY THEN... READ F3R FROM F3, KEY THEN... F1R36,X = F2R13 / F3R82 * F1R8 + F3R43 Just understanding the code takes a lot of backwards and forwards thru code. This wouldn't be so bad if they had at least standardised of F1 always being HPMAST, but they didn't, so the next program does this OPEN 'HPCONTRACT' TO F1 ELSE STOP OPEN 'HPTRANS.FILE' TO F2 ELSE STOP OPEN 'HPMAST.FILE' TO F3 ELSE STOP READ F1R FROM F1, KEY THEN... READ F2R FROM F2, KEY THEN... READ F3R FROM F3, KEY THEN... F1R36,X = F2R13 / F3R82 * F1R8 + F3R43 The formula at the bottom looks identical to the formula above but it's a totally different file / field combo. Multiply this by around 1700 programs and you begin to get a sense of what I face. If a program hits a file or record error it simply stops with no feedback to the user that the update is complete. Data integrity is an illusion. The system has been migrated from Pick, but without all the code being converted. As a result one has to try compile with a PICK compile, and if that fails, try a universe style compile. The dictionaries for the most part contain only F1, F2, F3 with the heading correct some of the time, and fields in use that do not appear in the dictionaries. Thus far I have started changing code to always open HPMAST to F.HPMAST, and to always read HPMAST into HPMAST.R. Code takes on a whole new meaning when you know what file you're working with. An additional swing is that every summary total is always calculated - nothing is stored. This means that every program that ever displays ARREARS for example has the code to calculate arrears in it. That makes 200 separate routines with the exact same code in it, just with differing file variables (ie not a simple swap out). The code needs to be changed, errors need to be trapped, and duplicated code weeded out but the time to rewrite complete code doesn't exist. Using included code allows me (the only full time programmer) to phase in the changes as time permits. The idea is to phase the new code into the system as and when a program is modified. Most programs create qpointers to the various (15) branches, then open the the qpointed files. The method of doing this varies considerably from program to program, with a bewildering array of possible file handles - my plan is to create ideal code for opening, reading, writing files, stored in SNIPPETS. I have started converting the opens to a standard, eg F.HPMAST, and read a standard record, eg HPMAST.R. Keys variables are set to a standard to allow the use of INCLUDES. Standardises READ includes, WRITE includes all preset with error trapping code. The theory behind the includes thing is that one can still produce a full listing of the code to debug if required. One can change just a read and write in a program without having to get involved in other files in the routine (really messy but allows the process to start and proceed on a very part time basis). Recompiling everything is far less tiring than trying to concentrate and not leave out code whilst being moved from fire to fire, besides which having it all in SNIPPETS allows me to get it right in one place and know that correction is being filtered into the whole system by a simple recompile. Adrian Womack wrote: Does anyone else think it's bad practice to have code in INCLUDES? Surely it would be much better to have the INITIATE.FEEDBACK GIVE.FEEDBACK routines written as subroutines, and then simply call them from the appropriate spots. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
Hi Kate, Yes its been solved - the included code needed to have a blank line at the end of it. Simple but not something I might have thought of! Hope it works for you... dennis -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Kate Stanton Sent: 05 March 2008 06:00 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] INCLUDE weirdo Hi Dennis, Have you solved this? When I have run into trouble with INCLUDE, I have copied the code into my program and compiled. The problem then usually becomes obvious. Have you tried this? Cheers, Kate - Original Message - From: Dennis Bartlett [EMAIL PROTECTED] To: u2-users@listserver.u2ug.org Sent: Tuesday, March 04, 2008 8:11 PM Subject: [U2] INCLUDE weirdo I have an INCLUDE statement that brings in code from a snippets file called SNIPPETS. INCLUDE SNIPPETS GIVE.FEEDBACK If I compile the compiler hangs as it hits the include statement. If I then change it to include from BP INCLUDE BP GIVE.FEEDBACK it works fine. What am I doing wrong? --- 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 Free Edition. Version: 7.5.516 / Virus Database: 269.21.4/1310 - Release Date: 2008/03/04 08:35 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
Hey, in a normal world I would agree. No religious war needed... ;-) Thanks for the heads up - its something I'll put a bit more thought into... Its just the magnitude of what I have to achieve that's pushing me this way. I'm currently getting around a hour to work on a particular source code before being given a new urgent task. This way I believe I can make headway. Phase 1 is to take the common ARREARS code out of each program and place it in SNIPPETS with a naming convention that describes where it comes from. eg code taken from HPPOSTCASHDEF in HPBP gets stored in SNIPPETS as ARREARS.CALC.HPBP.HPPOSTCASHDEF.INST1 (each instance of the common code within the program source stored separately) Phase 2: Once all ARREARS calculation code has been extracted from all programs I can normalise the code into the same variables (just for comparison purposes) to work out just how many programs have identical code, and which ones do something different). All those with common code need to have one subroutine created, and the subroutine called from every program referenced in SNIPPETS starting with ARREARS.CALC... -Original Message- Mats wrote I do !Warning this is a classical religious war issue! --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
It is a maintenance nightmare from the 1980s that needs to be corrected. Agreed. I started here on Jan 7th. I've so far been assigned 97 tasks, each in some state of investigation / repair before the next one hits. At this rate, with no hope of time to do a thorough overhaul, I had to find a means of moving forward incrementally, even if just to give me hope that maintenance will become easier. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
And here I am complaining... I documented a library system written entirely in PROC.. boy, I am giving my age away... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: 05 March 2008 07:10 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] INCLUDE weirdo When I see difficult UNIBASIC code, I just remember RPL. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] INCLUDE weirdo
SNIPPETS
0001: F
0002: SNIPPETS
0003: D_SNIPPETS
A type 1 file
GIVE.FEEDBACK
0001 * GIVE.FEEDBACK
0002 * D.Bartlett 03Mar08
0003 * updates the file sent by BLAT by email
0004 *
0005 * expects a variable 'FEEDBACK'
0006 * containing the message to add to the logfile
0007 *
0008 INITIATE.FEEDBACK:
0009 LOG.ERROR = 0
0010 CRLF = CHAR(13):CHAR(10)
0011 LOG.DATE = OCONV(DATE(),'D4/')
0012 LOG.DATE = LOG.DATE[7,4]:LOG.DATE[4,2]:LOG.DATE[1,2]
0013 FEEDBACK = STR('=',40)
0014 FEEDBACK := CRLF:'WELCOME TO FEEDBACK ---':LOG.DATE
0015 FEEDBACK := CRLF
0016 FEEDBACK := CRLF:'The overnight automatic emailer...'
0017 FEEDBACK := CRLF
0018 FEEDBACK := CRLF:'Never again do you have to wonder.. did that
thing run?'
0019 FEEDBACK := CRLF:'FEEDBACK will mail you the results of every
overnight'
0020 FEEDBACK := CRLF:run... now ain't that cool?
0021 FEEDBACK := CRLF
0022 OPENSEQ 'INTEGRITY','FEEDBACK' TO F.FEEDBACK ELSE NULL
0023 WEOFSEQ F.FEEDBACK
0024 WRITESEQ FEEDBACK ON F.FEEDBACK ELSE STOP'DISK FULL'
0025 RETURN
0026 *
0027 GIVE.FEEDBACK:
0028 IF (LOG.ERROR) THEN RETURN
0029 LOG.DATE = OCONV(DATE(),'D4/')
0030 LOG.TIME = OCONV(TIME(),'MTHS')
0031 LOG.DATE =
LOG.DATE[7,4]:LOG.DATE[4,2]:LOG.DATE[1,2]:'::':LOG.TIME
0032 LOG.FILE = LOG.DATE:: :FEEDBACK
0033 WRITESEQ LOG.FILE ON F.FEEDBACK ELSE STOP 'DISK FULL'
0034 RETURN
0035 *
Every program has the following type of error message
OPEN 'VOC' TO VOC ELSE
FEEDBACK = DAILY,SETTLEMENT,CANNOT OPEN VOC,DIDNT RUN
GOSUB GIVE.FEEDBACK
STOP 'VOC FILE'
END
and once a day the FEEDBACK file sent, using BLAT, via email to me every
morning...
feedback.bat
blat p:\INTEGRITY\FEEDBACK -to [EMAIL PROTECTED]
and finally feedback.bat is automated to happen at 6AM every morning.
Voila!
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ray Wurlod
Sent: 04 March 2008 10:21 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] INCLUDE weirdo
Do you have a VOC entry for SNIPPETS ?
Is SNIPPETS a Type 1/19 file?
Is there a record called GIVE.FEEDBACK in SNIPPETS ?
Does the compiler time out after a while (say five minutes) or hang
interminably ?
- Original Message -
From: Dennis Bartlett [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Subject: [U2] INCLUDE weirdo
Date: Tue, 4 Mar 2008 09:11:35 +0200
I have an INCLUDE statement that brings in code from a snippets file
called
SNIPPETS.
INCLUDE SNIPPETS GIVE.FEEDBACK
If I compile the compiler hangs as it hits the include statement.
If I then change it to include from BP
INCLUDE BP GIVE.FEEDBACK
it works fine.
What am I doing wrong?
---
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 Free Edition.
Version: 7.5.516 / Virus Database: 269.21.4/1309 - Release Date: 2008/03/03
06:50 PM
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
[U2] INCLUDE weirdo
I have an INCLUDE statement that brings in code from a snippets file called SNIPPETS. INCLUDE SNIPPETS GIVE.FEEDBACK If I compile the compiler hangs as it hits the include statement. If I then change it to include from BP INCLUDE BP GIVE.FEEDBACK it works fine. What am I doing wrong? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] mvDeveloper
Brian Another thing... I use Replace all the time You have Ctrl-H for Edit/Insert/Hex Value and Ctrl-H for Replace. and pressing Ctrl-H gets me the option to insert a Hex value. Using the menu structure Search / Replace works perfectly. ps: please supply your mail address, perhaps this should be taken offline. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: 28 February 2008 07:38 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Hi Dennis 1. Go into tools|settings and check the paths are correctly pointing to the syntax files. 2. In the same place, check that you have set a default language: that will match the platform you use most commonly. In my case, UniVerse BASIC. 3. mvDeveloper will then use that language definition throughout unless you override it for a specific editor window: so you could have Unidata basic in one tab, UniVerse PROC in another etc. The language definition determines the syntax highlighting, build commands, and some navigation stuff like jumping to labels, loading include files and commenting in/out code. Regards Brian -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: 28 February 2008 15:44 To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Hi Brian How does one get syntax highlighting with the new mvDeveloper? slightly perplexed... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: 28 February 2008 11:12 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Okay, so while we're on the subject, I've just posted an update to my free mvDeveloper windows based editor. This can call handler subroutines on save, build etc to keep a version track. You can download this from www.brianleach.co.uk Regard All Brian --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] AE editor replacement [AD]
Brian What you're saying then is that syntax highlighting doesn't automatically work after a virgin install? The user needs to set each of the paths to pre-existing directories that the install created? Perhaps a good idea would be to make the install update those paths since (as it is creating the Program Files subfolder BLC\mvDeveloper\etc) it already know the paths to the required files. dennis -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: 28 February 2008 07:38 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Hi Dennis 1. Go into tools|settings and check the paths are correctly pointing to the syntax files. 2. In the same place, check that you have set a default language: that will match the platform you use most commonly. In my case, UniVerse BASIC. 3. mvDeveloper will then use that language definition throughout unless you override it for a specific editor window: so you could have Unidata basic in one tab, UniVerse PROC in another etc. The language definition determines the syntax highlighting, build commands, and some navigation stuff like jumping to labels, loading include files and commenting in/out code. Regards Brian -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Dennis Bartlett Sent: 28 February 2008 15:44 To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Hi Brian How does one get syntax highlighting with the new mvDeveloper? slightly perplexed... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: 28 February 2008 11:12 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Okay, so while we're on the subject, I've just posted an update to my free mvDeveloper windows based editor. This can call handler subroutines on save, build etc to keep a version track. You can download this from www.brianleach.co.uk Regard All Brian -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Louie Bergsagel Sent: 27 February 2008 18:45 To: u2-users@listserver.u2ug.org Subject: Re: [U2] AE editor replacement I wish everyone who had a U2 product would put an ad here. How else is anybody to know what is available? (Besides reviewing the 175,000 URLs returned with googling IBM UniVerse.) -- Louie in Seattle --- 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 Free Edition. Version: 7.5.516 / Virus Database: 269.21.1/1302 - Release Date: 2008/02/27 04:34 PM --- 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 Free Edition. Version: 7.5.516 / Virus Database: 269.21.1/1303 - Release Date: 2008/02/28 12:14 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] AE editor replacement [AD]
Hi Brian How does one get syntax highlighting with the new mvDeveloper? slightly perplexed... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach Sent: 28 February 2008 11:12 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] AE editor replacement [AD] Okay, so while we're on the subject, I've just posted an update to my free mvDeveloper windows based editor. This can call handler subroutines on save, build etc to keep a version track. You can download this from www.brianleach.co.uk Regard All Brian -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Louie Bergsagel Sent: 27 February 2008 18:45 To: u2-users@listserver.u2ug.org Subject: Re: [U2] AE editor replacement I wish everyone who had a U2 product would put an ad here. How else is anybody to know what is available? (Besides reviewing the 175,000 URLs returned with googling IBM UniVerse.) -- Louie in Seattle --- 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 Free Edition. Version: 7.5.516 / Virus Database: 269.21.1/1302 - Release Date: 2008/02/27 04:34 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] AE editor replacement
Step 1: Rename voc entry for AE to AE.VERB Step 2: Write a prog to - read source from file, store in BEFORE - execute AE.VERB - read source from file, store in AFTER - compare line by line BEFORE vs AFTER - record changes in an AUDIT file Step 3: Catalog your proggie as AE -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Andy Squires Sent: 27 February 2008 04:20 PM To: u2-users@listserver.u2ug.org Subject: [U2] AE editor replacement All, Is there such an animal as an AE editor replacement which can log changes to the database done through AE? Thanks, Andy | Andy Squires -- Senior Applications Administrator | | Office of Information Technology -- American University | | (202) 885-2785 | --- 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.516 / Virus Database: 269.21.1/1300 - Release Date: 2008/02/26 07:50 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] AE editor replacement
I didn't know triggers worked on Type 1 files... isn't that the place where one one want most auditing of changes made??? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Jeffrey Butera Sent: 27 February 2008 10:01 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] AE editor replacement Is there such an animal as an AE editor replacement which can log changes to the database done through AE? To be clear - I still maintain triggers are superior for this type of work as any security you slap on AE doesn't help you with things like: :DELETE PERSON 1234567 or :MODIFY PERSON FIRST.NAME = Idiot WITH @ID = 1234567 -- Jeff Butera, Ph.D. Administrative Systems Hampshire College [EMAIL PROTECTED] 413-559-5556 Where I'm from, we believe all sorts of things that aren't true. We call it history. The Wizard, Wicked --- 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.516 / Virus Database: 269.21.1/1300 - Release Date: 2008/02/26 07:50 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Type ahead buffer overflow
Can't you simply paste into a text file in a type 1 directory, and then read and process the input? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Tom Dodds Sent: 25 February 2008 07:41 PM To: u2-users@listserver.u2ug.org Subject: [U2] Type ahead buffer overflow Or something like that. We have a client that uses a paste from Windows into an input statement, within a UniBasic program, to enter data. The string get quite large and in the transmission from VMS to Unix AIX 5.2 running UniData 7.10 we are losing data. We have played with the terminal emulator as much as possible, but we still lose data coming from Windows into UniData. We have set the sty to utilize xon/xoff, but still we lose data. Is there a way to increase the type ahead buffer so we won't overrun it. The data string could contain multiple pages. Or does anyone have a solution other then changing terminal emulators, that is out of the question at this installation. Thanks Tom Dodds --- 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.516 / Virus Database: 269.21.0/1296 - Release Date: 2008/02/24 12:19 PM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Type ahead buffer overflow
A! OK, so with your 500 lines of data, is it a single INPUT statement for all 500 lines? Or a loop over INPUT? AND 500 lines of 80 COL wide If so, then the code you're looking for is LOOP INPUT LN, 80 IF TRIM(LN) = '' THEN EXIT GOSUB PROCESS.LINE REPEAT That way the INPUT statement will take 80 chars, and process them, and go back to get the next 80 chars. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] EN4 documentation
Hi The company I've just joined uses EN4 and DEFINE. I know I've seen these before, but I simply cannot remember how EN4 fits together... and I have dropped into a place that believes that every programming task should take 30 minutes or less. There is no-one to ask, and no manuals. Only the existing code, and no time to figure it out (I have printed out EN4B etc, but that's taking time) There has been talk of send me on a DEFINE course, but now 8 weeks later there is no sign of that ever happening (yeah, yeah, I know the drill... the eternal carrot...) So, to the questions: (1) Does anyone know where I can find EN4 documentation? (2) Can anyone explain the similarities between this and DEFINE? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Type ahead buffer overflow
Agreed. You may find tho', that the extra call out to TRIM may cause the
input loop to be too slow to collect all the incoming data. Better to get
the data, then trim as you process it...
Your loop doesn't cater for 80 col lines (or whatever length) and therefore
runs the risk of getting to the same place: the input buffer filling up
prematurely, or an embedded CR being interpreted an an Enter.
By limiting the input to a defined length, the INPUT buffer just handles 80
chars. You may even find, however, that a loop of -1 within a loop of recs
may work better... this captures any char sequences embedded (if any) and
ensures NO overflow, but might be a bit excessive. This is the method used
when getting input from laboratory machines, with NAKs and ACKs, etc.
* just get the data in
next.key = 0
LOOP
chr = 0
LOOP
chr += 1
if chr = {whatever length} THEN EXIT
INPUT X,-1
LINE := X
REPEAT
next.key += 1
WRITE LINE ON FILE, next.key
REPEAT
* now process the input
SSELECT FILE
LOOP
...
REPEAT
As for getting the data across, you could always mail it...!!!
then issue a PINE command line and capture the output.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Tim Stokes
Sent: 26 February 2008 06:26 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Type ahead buffer overflow
That is very similar to the one I use. Here is mine.
REC = ''
LOOP
INPUT XXX
UNTIL XXX = *NED OF TEXT* DO
REC-1 = XXX
REPEAT
If you want to lose blank lines you change REC-1 = XXX to
IF TRIM(XXX) # THEN REC-1 = XXX
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
[U2] Info for BillB (sorry about the use of the list - no other way to tell him)
- Transcript of session follows - [EMAIL PROTECTED]... Deferred: Connection refused by mail.hkmetalcraft.com. Warning: message still undelivered after 4 hours Will keep trying until message is 5 days old --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] [off topic] 32 bit vs 64 bit + JRE
I don't know who else to ask, and uncle googl is not being that helpful... so (1) how do I find out if my server is 32bit SUSE or 64bit SUSE (googl says you can tell at install, but that's a bit late..) (2) I want to download the Java Runtime to install on SUSE 10 - it asks me whether I want 32bit or 64 bit. Why I need to know, is... We are wanting to install Sysaid Help Desk on our server. (www.illient.com) - well worth a look at coz its free and very good. I have only ever installed [anything] on Windoze. Now I get to put this thing on linux. Hoo boy. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Change Prompt
This code works a bomb! Brilliant thank you! The only problem is that now there aren't any when a search (SEARCH) finds anything. Has anybody a solution? (its just blank...) Eg BR201 SEARCH BP STRING:SETTL STRING: 11 record(s) selected to SELECT list #0. There are records selected, but the users are sitting waiting for the -Original Message- IF @ACCOUNT = mc OR @ACCOUNT = da THEN STELPROMPT= @WHO : '' END ELSE STELPROMPT = Press G and hit ENTER to continue END ASSIGN 1 TO SYSTEM(4001) ASSIGN STELPROMPT TO SYSTEM(4002) --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] CSV output
Hi Is there any way to change the prompt to something like BR299? It would really help to know where I am, whilst hopping from branch to branch. Thanks --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Change Prompt
Oops sent the last on the wrong subject... sorry! -Original Message- From: Dennis Bartlett [mailto:[EMAIL PROTECTED] Sent: 14 February 2008 05:20 PM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] CSV output Hi Is there any way to change the prompt to something like BR299? It would really help to know where I am, whilst hopping from branch to branch. Thanks --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Time zone issues?
This has probably already been dealt with before, but I'm getting the mail all out of sync... time zones! ie mail sent in reply to a mail are being sorted before the original mail. Is there any way to beat this? The point in question here Re: [U2] SLEEP 60 slept... sent by Louie Bergsagel at 2:05AM [U2] SLEEP 60 slept... original question was sent at 8.00 Timeserver sync --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Excel downloads
Laure Then it sounds like you could do the option described in these posts For those who are lazy to write fancy routines to create CSV files, I've created two dict items, namely COMMA and QUOTE, as follows: COMMA 001: I 002: , 003: 004: , 005: 1T QUOTE 001: I 002: '' 003: 004: 005:1T To create a CSV file of _ANY_ file data, these dict items either need to be in the DICT of every file, OR once off in the DICT.DICT (I think - correct me anyone?) csv imports don't mind excessive spaces... LIST DFQ COMMA DFQ.ID COMMA ACCOUNT COMMA DATEOP COMMA 21:47:38 07-02-08 DFQUOTE.FILE. , QUOTE NO. , ACCOUNT... , DATEOP , 208-015646-01 , 208-015646-01 , 208-015646 , 04/05/2007 , 205-011887-AH , 205-011887-AH , 205-011887 , 10/11/2000 , 202-012637-AH , 202-012637-AH , 202-012637 , 16/02/2005 , to handle numeric fields simply quote them LIST DFQ COMMA QUOTE DFQ.ID QUOTE COMMA QUOTE ACCOUNT QUOTE 21:50:36 07-02 DFQUOTE.FILE. ,'QUOTE NO.','ACCOUNT... ' '208-015646-01,'208-015646-01','208-015646 ' '205-011887-AH,'205-011887-AH','205-011887 ' '202-012637-AH,'202-012637-AH','202-012637 ' '202-014954-01,'202-014954-01','202-014954 ' And here is where I used it 0001: PA 0002: DISPLAY Saving output as AAQ 0003: SP-ASSIGN HS 0004: SETPTR 0,300,,0,0,3,BRIEF,NFMT, BANNER AAQ 0005: SORT DFQ _ 0006: WITH INVOICE _ 0007: BY ACCOUNT _ 0008: BY DATEOP _ 0009: COMMA DFQ.ID _ 0010: COMMA ACCOUNT _ 0011: COMMA DATEOP _ 0012: COMMA _ 0013: COMMA DFQ.HPHONE _ 0014: COMMA HPM.HOMEPHONE _ 0015: COMMA _ 0016: COMMA DFQ.WPHONE _ 0017: COMMA HPM.WORKPHONE _ 0018: COMMA _ 0019: COMMA DFQ.CELL _ 0020: COMMA HPM.CELLPHONE _ 0021: COMMA _ 0022: COMMA DFQ.SPWORKNO _ 0023: COMMA HPM.SPWORKPHONE _ 0024: COMMA _ 0025: COMMA DFQ.SPCELL _ 0026: COMMA HPM.SPCELLPHONE _ 0027: LPTR NOPAGE HDR.SUP ID.SUP And subsequently modified by Kevin For what it's worth, I do something similar, but I use TAB. My Dict item looks like: 0001: I 0002: 0003: 0004: TAB 0005: 1L 0006: S Line two is actually ^009, but it shows . Excel handles tab delimited well and I never worry about whether the field is numeric. My output line would be: VAL1 TAB VAL2 TAB VAL3 TAB VAL4 Works well for me. --Kevin --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] Too many users
Hi As stated before I'm the proud owner of a UniVerse Admin course certificate, but I cannot remember how to do most of it (spent a few years out the MV arena)... So.. (1) I have too many users + phantoms logging on and we have run out of licences. Is there a utility out there that monitors this? (2) Is there a repository anywhere where I can source the course notes for the Universe internals courses? (3) How do I get UniAdmin to work - it says the RPC is not running - where do I source this, and how do I install it? Thanks dennis --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Web Developer Needed Full Time ***REVISED***
In defence of the original poster, one had to go all the way to the bottom to see the UPenn bit... Job ads need to be clear in the first 20 lines... I simply delete anything that doesn't make sense in one glance. For a JOB I see no point in going to page 2 if it is on the other side of the world... -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Larry Hiscock Sent: 08 February 2008 01:26 AM --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] CSV output
If you are into kewl, crazy short cuts (and other clever devices) For those who are lazy to write fancy routines to create CSV files, I've created two dict items, namely COMMA and QUOTE, as follows: COMMA 001: I 002: , 003: 004: , 005: 1T QUOTE 001: I 002: '' 003: 004: 005:1T To create a CSV file of _ANY_ file data, these dict items either need to be in the DICT of every file, OR once off in the DICT.DICT (I think - correct me anyone?) csv imports don't mind excessive spaces... LIST DFQ COMMA DFQ.ID COMMA ACCOUNT COMMA DATEOP COMMA 21:47:38 07-02-08 DFQUOTE.FILE. , QUOTE NO. , ACCOUNT... , DATEOP , 208-015646-01 , 208-015646-01 , 208-015646 , 04/05/2007 , 205-011887-AH , 205-011887-AH , 205-011887 , 10/11/2000 , 202-012637-AH , 202-012637-AH , 202-012637 , 16/02/2005 , to handle numeric fields simply quote them LIST DFQ COMMA QUOTE DFQ.ID QUOTE COMMA QUOTE ACCOUNT QUOTE 21:50:36 07-02 DFQUOTE.FILE. ,'QUOTE NO.','ACCOUNT... ' '208-015646-01,'208-015646-01','208-015646 ' '205-011887-AH,'205-011887-AH','205-011887 ' '202-012637-AH,'202-012637-AH','202-012637 ' '202-014954-01,'202-014954-01','202-014954 ' And here is where I used it 0001: PA 0002: DISPLAY Saving output as AAQ 0003: SP-ASSIGN HS 0004: SETPTR 0,300,,0,0,3,BRIEF,NFMT, BANNER AAQ 0005: SORT DFQ _ 0006: WITH INVOICE _ 0007: BY ACCOUNT _ 0008: BY DATEOP _ 0009: COMMA DFQ.ID _ 0010: COMMA ACCOUNT _ 0011: COMMA DATEOP _ 0012: COMMA _ 0013: COMMA DFQ.HPHONE _ 0014: COMMA HPM.HOMEPHONE _ 0015: COMMA _ 0016: COMMA DFQ.WPHONE _ 0017: COMMA HPM.WORKPHONE _ 0018: COMMA _ 0019: COMMA DFQ.CELL _ 0020: COMMA HPM.CELLPHONE _ 0021: COMMA _ 0022: COMMA DFQ.SPWORKNO _ 0023: COMMA HPM.SPWORKPHONE _ 0024: COMMA _ 0025: COMMA DFQ.SPCELL _ 0026: COMMA HPM.SPCELLPHONE _ 0027: LPTR NOPAGE HDR.SUP ID.SUP --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
[U2] a data view utility of great use
And since I'm into sharing my dark secrets, here's a very useful util I
wrote a while back (probably from some-one else's inspiration, so don't sue
me...)
GLOBAL catalog it, then at the UV prompt enter
SEE HPMAST
HPMAST.FILE - KEY...: 001-01011 RECORD #1
001: F1.:
002: F2.: 05/02/96
003: SURNAME.UP.: BARTLETT
004: INIT...: DQ
005: Title..: MR
006: First names: } }B
007: D.O.B..:
008: F8.:
009: Employer...:
010: Salary.:0.00
011: F11:
012: F12:
013: F13:
014: Spouse init:
015: Title..:
016: First names:
017: D.O.B..:
018: F18:
019: Spouse emp.:
020: Spouse Sal.:0.00
It will display each record alongside the dict item it found associated (it
does get confused if your site is as well documented as this one..not!), but
still worthwhile seeing data in relation to other data
* SEE
* D.Bartlett 02Dec96
* View contents of files alongside dictionary headings
*
* Mod DQB 18Aug98 Try get the conversions right
* Mod DQB 15Oct98 Clearselect after viewing
* Mod DQB 01Apr98 Added 'N'ext record capability
* Mod DQB 06Dec99 Added 'SEE FILENAME RECORD', ie no need for 'ITEM='
*
GOSUB HOUSEKEEPING
GOSUB PARSE.SENTENCE
GOSUB SHOW.PARAMS
GOSUB PROCESS.DICT
* Now get a list together so we have something to process
BEGIN CASE
CASE LISTNAME NE '' ; EXECUTE 'GET.LIST ':LISTNAME
CASE ITEMNAME NE '' ; FORMLIST ITEMNAME
CASE 1
SELECT HANDLE
END CASE
* then process these records...
LOOP
READNEXT KEY ELSE EXIT
GOSUB PROCESS.DATA
UNTIL DONE = 1
GOSUB PROMPT.USER
IF DONE = 1 THEN EXIT
REPEAT
CLEARSELECT
STOP
*
PROCESS.DATA:
DONE = 0
RECORD.NO += 1
READ RECORD FROM HANDLE, KEY THEN
IF TO.LPTR = 'LPTR' THEN PRINTER ON
GOSUB PRINT.HDR
*Display all the fields...
FOR F = 1 TO FLDS
* Display field number...
PRINT FMT(F,'30R') : ': ':
* then the DICTIONARY name for this field...
PRINT FMT(DICT.FLDSF, '27.L'):': ':
* ...and extract the data...
LINE = RECORDF
* Check if there's a conversion...?
IF DICT.CONVF NE '' THEN GOSUB CONVERT.DATA
* And finally show the (converted) data, stripped out into
* separate lines of 45 chars each...
LOOP
THIS.LN = LINE[1,45]
PRINT THIS.LN : SPACE(46 - LEN(THIS.LN)) :
LINE = TRIM(LINE[46,LEN(LINE)])
IF TO.LPTR NE 'LPTR' THEN GOSUB CHECK.PAGING
UNTIL LINE = ''
PRINT '***: ' : SPACE(29) :
REPEAT
IF TO.LPTR = 'LPTR' THEN PRINT
NEXT F
IF TO.LPTR = 'LPTR' THEN PRINTER OFF
END ELSE
IF ITEMNAME NE '' THEN
PRINT ; PRINT CHAR(7)
PRINT 'Item ':ITEMNAME:
PRINT ' does not exist in ':FILENAME:'!':
INPUT JUNK:
STOP
END
END
RETURN
*
CHECK.PAGING:
LN += 1
IF LN GE LINES.PAGE THEN
INPUT CONT,1
CONT = UPCASE(CONT)
* Mod DQB 01Apr98 Added 'N'ext record capability
BEGIN CASE
CASE CONT = 'Q'
DONE = 1 ; F = FLDS ; EXIT.FLAG = 'QUIT'
CASE CONT = 'N'
F = FLDS ; EXIT.FLAG = 'NEXT'
CASE 1
GOSUB PRINT.HDR
END CASE
END ELSE
PRINT
END
RETURN
*
PRINT.HDR:
* Display the filename, and key...
PRINT @(-1)
PRINT FMT((FILENAME : ' - KEY'),'32.L'):': ':KEY:
IF KEY.CONV NE '' THEN
OUTKEY = '(' :OCONV(KEY,KEY.CONV) : ')'
PRINT FMT(OUTKEY,'20R') :
END
PRINT SPACE(5):'RECORD #':RECORD.NO
PRINT
LN = 2
RETURN
*
CONVERT.DATA:
* If there are MVs / SMs, convert each individually...
MULTI.LINE = 0
BEGIN CASE
CASE INDEX(LINE, @FM, 1) ; MULTI.LINE = 1
CASE INDEX(LINE, @VM, 1) ; MULTI.LINE = 1
CASE INDEX(LINE, @SM, 1) ; MULTI.LINE = 1
END CASE
IF MULTI.LINE = 1 THEN
NEW.LINE = ''
QQ.MORE = 1
LOOP
REMOVE NEXT.VAL FROM LINE SETTING
[U2] NotePad++ User Defined Language
I use NotePad++ as my default code writing tool - it plugs directly into the server via SAMBA and saves code straight into TYPE1 files.. If anyone is interested I have created a universe User defined Language (basically a syntax highlighter). Does anybody use an MV IDE like the sierra bravo one? I'd like feed back... dennis --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
