Re: [U2] Non-SQL re-entrant query calls are not allowed??? (UV 10.0.2 )
George, See my answer to Bjorn Behr when he asked the same question in April 2009. [Begin] This is the error you get when the I-Descriptor calls a subroutine that does a SELECT. See this reply from Glenn Herbert to the same problem in March 2004. Yeah. It's actually a bug in the program/itype unloading code that won't allow you to do this. I ran upon this in May 2003 and, subsequently, put in a fix within the DataStage engine so that it works. Should be an easy fix once its understood. Guess they've not got around to fixing it yet. Dependant on the select in the subroutine it can usually be worked around by using UniBasic commands like SELECTINDEX. [End] Cheers, Andy From: George Gallen ggal...@wyanokegroup.com To: U2 Users u2-users@listserver.u2ug.org Sent: Thursday, 7 November 2013, 19:05 Subject: [U2] Non-SQL re-entrant query calls are not allowed??? (UV 10.0.2 ) OK. I Setup a Subroutine that if I call from an IDESC Gives me the following error: Non-SQL re-entrant query calls are not allowed' Am I to take this as, you can't do a SELECT on a file, from an IDESC Subroutine? However, If I call it from another basic program, it works just fine. The program runs the following code: CMD=SELECT FRED-XREF-FILE WITH FILENAME = ':FILENAME:' TO 5 PRINT CMD EXECUTE CMD RTNLIST CAPTURING JUNK PRINT JUNK PRINT @SELECTED: SELECTED SIDNO= LOOP READNEXT ID FROM 5 ELSE EXIT PRINT ID SIDNO=FIELD(ID,_,2) REPEAT * And the IDESC: 0001: I 0002: SUBR('*CRM.RETURN.PROFESSION','MASTER.HEMONC',@ID) 0003: 0004: PROFESSION 0005: 30L 0006: S It's the SELECT that fails - but only when run from the IDESC Example: 0001: FILE=MASTER.HEMONC 0002: ID=123456 0003: CALL *CRM.RETURN.PROFESSION(PROFESSION,FILE,ID) 0004: PRINT PROFESSION George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.comhttp://www.wyanokegroup.com/ ___ 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] Web Services at Universe 11.n
Richard, You don't say what version of Universe you are on but if it is 10.n then the default http version is 1.0 most web services I have accessed need version 1.1 so you will need to use :- STATUS = setHTTPDefault(VERSION, 1.1) At 11.n it looks like the default version has been changed to 1.1 HTH, Andy From: Richard Lewis rbl...@gmail.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 30 October 2013, 22:42 Subject: Re: [U2] Web Services at Universe 11.n Yes, as I said, I've tested with curl and it works perfectly. The problem I have is not being able to clearly/cleanly see the raw text being sent by the uv functions, in order to determine the difference in what curl sends (success) and what the uv functions send (failure). There may be certain idiosyncratic parsing involved in the service I am trying to consume, but I have no control over that. With curl I can see the entire conversation if the logging is set correctly. With the uv functions, even with the highest logging level, it doesn't appear that the logging is actually that complete and exact. I have never had the impression that it was. I would love to be able to do it all in uv, but I only have control over half of the conversation, and with the uv functions, I seem to have a bit less than half. Richard On Wed, Oct 30, 2013 at 2:12 PM, Symeon Breen syme...@gmail.com wrote: That means you where probably missing a header. http is just a text conversation, if the same headers are passed as passed with curl it will work. You can test using curl, or even better with telnet. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Richard Lewis Sent: 30 October 2013 20:03 To: U2 Users List Subject: Re: [U2] Web Services at Universe 11.n I've recently been tasked with accessing a webservice, and couldn't get a valid response from the webservice. It kept not recognizing the headers that were sent, and with the maximum logging set on the uv side, it looked like everything was being sent just fine, but the webservice still failed it. I switched to using curl, and it all worked perfectly. Richard Lewis On Wed, Oct 30, 2013 at 1:00 PM, Oaks, Harold harold.o...@clark.wa.govwrote: I've been telling my boss that if we upgraded to Universe 11.23, we can implement web services. (We're currently on 10.2) But, finally looking in detail at the appropriate manual (Universe Web Services Developer) it seems that one can publish a web service easily enough so that Universe data can be gotten, but I don't see that the other side is implemented, where one accesses an external web service and brings back data into Universe. Am I missing the something? What are any of you using to fully implement web services with an underlying Universe environment? Thanks- Harold Oaks Sr. Analyst/Programmer Clark County, WA This e-mail and related attachments and any response may be subject to public disclosure under state law. ___ 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
Re: [U2] blink error?
Jake, You do not say what release of UV you are running but as of 9.5.1C you really should be using fixtool. See extracts from whitepaper below 1) Description fixtool is the replacement for UVFIXFILE (uvfixfile from the OS shell) and was introduced at 9.5.1C to support both 32-bit and 64-bit files. Initially it had a limited command line interface as it was intended to be used from the UVAdmin GUI client. When 9.6 was introduced, fixtool was enhanced with a few command line arguments to provide logging of the groups it traced, but could not be limited to a certain number of groups. By 9.6.2.x, it was further enhanced to permit group range traces, which no longer required exclusive access to the file. 11) Final details fixtool was originally designed to by used with the UniVerse administration client, then UVAdmin (pre-release 10) and now UniAdmin (release 10 and higher). It was designed as the replacement to UVFIXFILE, which is has not been enhanced since UniVerse release 9.5.27. Of the two file repair tools it is the only one designed to work with both 23-bit and 64-bit files. It was not documented in any UniVerse publication except in the UniVerse Troubleshooting guide and this white paper. The administration clients do not call it with any arguments other than specifying –file and –fix8. Enhancements to UniAdmin to include more options from fixtool similar to the command line are planned for UniVerse 10.1. fixtool works only on 32-bit and 64-bit UniVerse files, and supports file types 2 – 18 and 30. fixtool requires UniVerse to be running. At releases earlier than 10.0, it may only run on the release for which it was built as the signature in the program is compared to the disk shared memory signature. As of release 10.1, fixtool from any 10.0.x release will work within 10.0.x. For example, a build of fixtool at 10.0.4 for Windows will work at 10.0.0 for Windows. This is a very powerful tool and should be used in preference to uvfixfile. I have never found a file it couldn't fix/help fix. It is in the bin directory of the main uv account and should be run as root/administrator. HTH, Andy From: Holt, Jake jh...@samsill.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 18 April 2013, 18:23 Subject: Re: [U2] blink error? Sorry, I hate to keep bombing this with questions especially since this might be a totally unanswerable question, but generally is fixing the file a long process? It's a 268mb file and it's been running for 38 minutes. Is that typical? Just making sure it's not something that should have taken 38 seconds and there is something else getting in the way. Been sitting here since I started it: UVFIXFILE SHIPMENTS FIX Beginning TRACE of SHIPMENTS/SHIPMENTS. ERROR: Processing Primary group 3786, Overflow group 134428. Invalid group buffer chain at address 0x1068e000. Bad link to overflow buffer 134428. Attempting to unlink buffer at 0x1068e000. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Israel, John R. Sent: Thursday, April 18, 2013 11:26 AM To: U2 Users List Subject: Re: [U2] blink error? I have not seen that in a long time. Used to occasionally get it in UniVerse on an AIX box. I think it stands for backward link (blink). Simply listing or selecting the file will fail when it hits the offending data. If you can detect the key that is failing, the simple solution used to be to try to copy the record to a temp file, delete the original record (which fixes the link), then copy it back. If that fails, you will likely need to run the fix file utility. Again, I have not seen this in 10 years or so, so my memory may be a little off. Good luck! JRI -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Holt, Jake Sent: Thursday, April 18, 2013 12:20 PM To: U2 Users List Subject: [U2] blink error? Never seen this error message before, no sure on the severity but I hope it's easy to fix: File 'E:\dbms\LIVE\DATAFLO/SHIPMENTS/SHIPMENTS': Computed blink of 0x765800 does not match expected blink of 0x765000! Detected within group starting at address 0x1068E000! Any input as to what I need to do to resolve it? Thanks, Jake Holt l samsill l Information Technology Director (817) 536 - 1906 x 217 l jh...@samsill.com www.samsill.com ___ 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] Trim trailing attributes off records
The manual states :- Description Use the MATWRITE statement to write data from the elements of a dimensioned array to a record in a UniVerse file. The elements of array replace any data stored in the record. MATWRITE strips any trailing empty fields from the record. I've run the following code in every flavor account on UV 10.3 CT BP TEST.MATWRITE TEST.MATWRITE 0001 DIM REC(3) 0002 OPEN '','VOC' TO VOC THEN 0003 MATREAD REC FROM VOC,'MW' THEN 0004 MATWRITE REC TO VOC,'MW' 0005 END 0006 END 0007 END And get the following results Before CT VOC MW MW 0001 FIELD 1 0002 0003 FIELD 3 0004 0005 0006 0007 0008 0009 0010 RUN BP TEST.MATWRITE After CT VOC MW MW 0001 FIELD 1 0002 0003 FIELD 3 From: Wjhonson wjhon...@aol.com To: u2-users@listserver.u2ug.org Sent: Wednesday, 16 May 2012, 2:51 Subject: Re: [U2] Trim trailing attributes off records Sure but then *that* will not trim the trailing attributes. If you dim it to hold every element, and then write it back you just get the exact same problem with which you started. Extra empty attributes. The solution you already had, to matread it, blank rec(0), then matwrite it That works. -Original Message- From: Wols Lists antli...@youngman.org.uk To: u2-users u2-users@listserver.u2ug.org Sent: Tue, May 15, 2012 5:59 pm Subject: Re: [U2] Trim trailing attributes off records On 15/05/12 20:50, Wjhonson wrote: Information Flavor No spaces in the fields, nothing in them at all, just a line of attribute arks with nothing in between. Your trick below *does* work by the way, and it's essentially what I did. I just set Rec(0) to nothing before the MATWRITE and that did it. But I was also surprised that Andy's trick of just matreading and then atwriting didn't work. You have to set Rec(0) to nothing in between I've just realised WHY that probably is ... Rec(0) is full of FMs ... If you dimension your array to hold every element of the record without* overflow, it'll work fine. I bet the MATWRITE tests if (0) is mpty, and if it's got overflow in it ... Cheers, ol -Original Message- From: Wols Lists antli...@youngman.org.uk To: u2-users u2-users@listserver.u2ug.org Sent: Tue, May 15, 2012 12:40 pm Subject: Re: [U2] Trim trailing attributes off records On 11/05/12 17:36, Wjhonson wrote: I thought that too. Tried that one. What it actually does is store all the trailing attributes in the header nd hen append them back to the record when it writes it out. Universe 10.3 hat flavour? That ALWAYS worked for me on PI. Let's say your dict declares up to, say, field 20 and you know there shouldn't* be anything beyond it. Sounds actually, like you are in PI mode so ... eclare your MAT as 20 long :-) dd a line before the write which says IF CONVERT( REC(0), @FM: , ) EQ THEN REC(0) = ELSE PRINT Record :ID: contains extra data! So basically, you're dumping what you don't want into element 0. The onvert checks that it really is nothing before zeroing it. I'm guessing it's not working for you because somehow there are actually paces in those fields you think are blank (ED gets rid of trailing paces ...) You can pull the same stunt for PICK mode, just remember the extra ntries will end up in the last element of the array. Cheers, ol -Original Message- From: andy baum andyb...@yahoo.co.uk To: U2 Users List u2-users@listserver.u2ug.org Sent: Fri, May 11, 2012 6:30 am Subject: Re: [U2] Trim trailing attributes off records How about :- OPEN 'FILENAME' TO FILEVAR ELSE STOPM 'Cannot open FILENAME' END IM REC(500) ELECT FILEVAR LOOP WHILE READNEXT ID MATREADU REC FROM FILEVAR,ID THEN MATWRITE REC TO FILEVAR,ID END REPEAT ND ATWRITE trims trailing blank attributes as it writes the data away heers, Andy From: Wjhonson wjhon...@aol.com o: u2-users@listserver.u2ug.org ent: Thursday, 10 May 2012, 23:13 ubject: [U2] Trim trailing attributes off records iven that you have a file with thousands of records, each with dozens of railing attributes which are empty. How can you pick up the file and drop it back down with all those empties rimmed off? __ __ 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] Trim trailing attributes off records
How about :- OPEN 'FILENAME' TO FILEVAR ELSE STOPM 'Cannot open FILENAME' END DIM REC(500) SELECT FILEVAR LOOP WHILE READNEXT ID MATREADU REC FROM FILEVAR,ID THEN MATWRITE REC TO FILEVAR,ID END REPEAT END MATWRITE trims trailing blank attributes as it writes the data away Cheers, Andy From: Wjhonson wjhon...@aol.com To: u2-users@listserver.u2ug.org Sent: Thursday, 10 May 2012, 23:13 Subject: [U2] Trim trailing attributes off records Given that you have a file with thousands of records, each with dozens of trailing attributes which are empty. How can you pick up the file and drop it back down with all those empties trimmed off? ___ 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] Remove items from lsit in DICT
Jake, Try TRANS(FILE,F1,1,X);IFS(NES(@,REUSE('B')),@,REUSE(''));TRIM(@,@SM) Cheers, Andy From: Holt, Jake jh...@samsill.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Friday, 6 April 2012, 14:48 Subject: Re: [U2] Remove items from lsit in DICT I need to do it from a dictionary item: 1: I 2: Trans(FILE,F1,1,X);remove the Bs from @1 Basically I am trying to remove our house rep account from the list of rep numbers when I trans them to the sales order file. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mecki Foerthmann Sent: Friday, April 06, 2012 4:05 AM To: U2 Users List Subject: Re: [U2] Remove items from lsit in DICT You could try selecting BY-EXP dictname # B On 05/04/2012 23:05, Holt, Jake wrote: This is probably really simple, but I can't seem to find a way without writing a sub. Is there an easy way to simply remove items from a MV field in a dictionary? For instance if I have a MV with A, A,A,B,B,B,B,C,C,C and wanted to just remove the Bs. Thanks, Jake Holt | samsill | Information Technology Director (p) 817-536-1906 x 217 | 5740 Hartman Road Fort Worth TX 76119 jh...@samsill.commailto:jh...@samsill.com | www.samsill.com | www.bindersforlife.com ___ 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] How to UPCASE in a Paragraph?
LIST FILENAME WITH @ID = EVAL UPCASE('I2,Name') Works for me. Andy From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 28 March 2012, 21:09 Subject: Re: [U2] How to UPCASE in a Paragraph? That doesn't work - I tried that. It converts it to: LIST FILENAME WITH @ID = EVAL OCONV(inputtext,MCU) Which doesn't return any results -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Wednesday, March 28, 2012 3:58 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] How to UPCASE in a Paragraph? LIST FILENAME WITH @ID = EVAL 'OCONV(A,I2,RECID,MCU)' -Original Message- From: George Gallen ggal...@wyanokegroup.com To: U2 Users u2-users@listserver.u2ug.org Sent: Wed, Mar 28, 2012 12:47 pm Subject: [U2] How to UPCASE in a Paragraph? I want to do something like: LIST FILENAME WITH @ID = 'I2,RECID' Is there anyway to upcase the results of I2,RECID ? UV 10 __ 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 ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] How to UPCASE in a Paragraph?
When UV displays the sentence it is running, all quote characters are displayed as even \. I've tried this on various release from 9.5 to 11.3 and various flavors (PICK, IDEAL and INFORMATION). It seems to work in all, only caveats are in PICK flavor the outer quotes cannot be '. INFORMATION accounts do not seem to like \ as a quote character. Andy From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 28 March 2012, 22:02 Subject: Re: [U2] How to UPCASE in a Paragraph? I Did , Same Thing. I think the problem is my system is converting the ' - I'll try the \ next (hopefully, that's not just a databasic thing) -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Wednesday, March 28, 2012 5:00 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] How to UPCASE in a Paragraph? Try it from TCL George first -Original Message- From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, Mar 28, 2012 1:49 pm Subject: Re: [U2] How to UPCASE in a Paragraph? AlsoInformation flavor My system converts the ' - before it tries to execute it. UV10.0.2 ___ 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] End of Month date routine
Scratch that, should read things more carefully, obviously 2 hours sleep is not enough. Cheers, Andy From: andy baum andyb...@yahoo.co.uk To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 8 December 2011, 7:52 Subject: Re: [U2] End of Month date routine Stuart, You are getting the performance from the case statement by having case mod(YEAR,4) ; LEAP.YEAR = @false first, unfortunately when using case, the order is important and this needs to go just before the case @true. In your example case mod(YEAR,400); LEAP.YEAR = @false will never be happen as it will already have been picked up by the previous case Cheers, Andy From: Boydell, Stuart stuart.boyd...@spotless.com.au To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 8 December 2011, 6:44 Subject: Re: [U2] End of Month date routine On UV the vlist would indicate yes (the complete expression is processed) . LEAP.YEAR = NOT(MOD(YEAR,4)) AND (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) 00062 : 0F6 mod YEAR 4 = $R1 0006A : 10E not $R1 = $R2 00070 : 0F6 mod YEAR 400 = $R3 00078 : 10E not $R3 = $R4 0007E : 0F6 mod YEAR 100 = $R5 00086 : 122 or $R4 $R5 = $R6 0008E : 008 and $R2 $R6 = LEAP.YEAR 00096 : 190 stop I get minuscually better results using a case statement: YEAR = oconv(THE.DATE, 'dy') begin case case mod(YEAR,4) ; LEAP.YEAR = @false case mod(YEAR,100); LEAP.YEAR = @true case mod(YEAR,400); LEAP.YEAR = @false case @true ; LEAP.YEAR = @true end case -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, 8 December 2011 15:02 To: andyb...@yahoo.co.uk; u2-users@listserver.u2ug.org Subject: Re: [U2] End of Month date routine Why couldn't you say LEAP.YEAR = NOT(MOD(YEAR,4)) AND (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) Would the system process the whole line even on an initial finding of False ? -Original Message- From: andy baum andyb...@yahoo.co.uk To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, Dec 7, 2011 7:25 pm Subject: Re: [U2] End of Month date routine Seem to have lost a bit of last reply which should have read Ran Dan's test code on latest Windows PE version of Universe and got :- 9.788 1.558 1.474 3.412 Tried NOT(MOD(YEAR,400)) OR(NOT(MOD(YEAR,4)) AND MOD(YEAR,100))) which took 2.181 seconds but the fastest I could get was LEAP.YEAR = NOT(MOD(YEAR,4)) IF LEAP.YEAR THEN LEAP.YEAR = (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) END which took 1.423 seconds Got the same trend, although different timings on our Solaris 10 box running Universe 10.3.6 Cheers, Andy From: Daniel McGrath dmcgr...@rocketsoftware.com To: dgr...@dagconsulting.com dgr...@dagconsulting.com; U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 7 December 2011, 18:57 Subject: Re: [U2] End of Month date routine I added the code to PasteBin so as to not flood here: http://pastebin.com/JMyqhFud I did a few more than 100K and I cut the OCONV step out from all of them. I took the liberty to adjust Will's version to return correct results. The results I got, in order, was: 16.872 2.804 2.384 5.561 So, if you have a need to account for your milliseconds, the slightly optimized Wikipedia algorithm seems to be the fastest. Interested to see if there are any better? (Or if I made any mistakes...) Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green Sent: Wednesday, December 07, 2011 10:48 AM To: 'U2 Users List' Subject: Re: [U2] End of Month date routine Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ 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-users
Re: [U2] End of Month date routine
Ran Dan's test code on latest Windows PE version of Universe and got :- 9.788 1.558 1.474 3.412 Tried NOT(MOD(YEAR,400)) OR(NOT(MOD(YEAR,4)) ANDMOD(YEAR,100))) which took 1.423 seconds Got the same trend, although different timings on our Solaris 10 box running Universe 10.3.6 Cheers, Andy From: Daniel McGrath dmcgr...@rocketsoftware.com To: dgr...@dagconsulting.com dgr...@dagconsulting.com; U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 7 December 2011, 18:57 Subject: Re: [U2] End of Month date routine I added the code to PasteBin so as to not flood here: http://pastebin.com/JMyqhFud I did a few more than 100K and I cut the OCONV step out from all of them. I took the liberty to adjust Will's version to return correct results. The results I got, in order, was: 16.872 2.804 2.384 5.561 So, if you have a need to account for your milliseconds, the slightly optimized Wikipedia algorithm seems to be the fastest. Interested to see if there are any better? (Or if I made any mistakes...) Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green Sent: Wednesday, December 07, 2011 10:48 AM To: 'U2 Users List' Subject: Re: [U2] End of Month date routine Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ 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 LEAP.YEAR = ( which took 2.181 seconds but the fastest I could get at the moment is LEAP.YEAR = NOT(MOD(YEAR,4))IFLEAP.YEAR THEN LEAP.YEAR = (NOT(MOD(YEAR,400)) ORMOD(YEAR,100))END ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] End of Month date routine
Seem to have lost a bit of last reply which should have read Ran Dan's test code on latest Windows PE version of Universe and got :- 9.788 1.558 1.474 3.412 Tried NOT(MOD(YEAR,400)) OR(NOT(MOD(YEAR,4)) AND MOD(YEAR,100))) which took 2.181 seconds but the fastest I could get was LEAP.YEAR = NOT(MOD(YEAR,4)) IF LEAP.YEAR THEN LEAP.YEAR = (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) END which took 1.423 seconds Got the same trend, although different timings on our Solaris 10 box running Universe 10.3.6 Cheers, Andy From: Daniel McGrath dmcgr...@rocketsoftware.com To: dgr...@dagconsulting.com dgr...@dagconsulting.com; U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 7 December 2011, 18:57 Subject: Re: [U2] End of Month date routine I added the code to PasteBin so as to not flood here: http://pastebin.com/JMyqhFud I did a few more than 100K and I cut the OCONV step out from all of them. I took the liberty to adjust Will's version to return correct results. The results I got, in order, was: 16.872 2.804 2.384 5.561 So, if you have a need to account for your milliseconds, the slightly optimized Wikipedia algorithm seems to be the fastest. Interested to see if there are any better? (Or if I made any mistakes...) Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green Sent: Wednesday, December 07, 2011 10:48 AM To: 'U2 Users List' Subject: Re: [U2] End of Month date routine Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ 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] End of Month date routine
This is even worse on Universe, I passed YEAR into the Function/Subroutine so didn't have the OCONV but the results I got were Function 13.008 seconds Subroutine 12.889 seconds Insert 1.455 seconds Cheers, Andy From: David A. Green dgr...@dagconsulting.com To: 'Daniel McGrath' dmcgr...@rocketsoftware.com; 'U2 Users List' u2-users@listserver.u2ug.org Sent: Wednesday, 7 December 2011, 20:23 Subject: Re: [U2] End of Month date routine Okay I took the fastest routine and made it into an $INSERT piece of code: YEAR = OCONV(THE.DATE, DY) IF MOD(YEAR,4) THEN LEAP.YEAR = 0 END ELSE IF MOD(YEAR, 100) THEN LEAP.YEAR = 1 END ELSE IF MOD(YEAR, 400) THEN LEAP.YEAR = 0 ELSE LEAP.YEAR = 1 END END Then created a Function like: FUNCTION LEAP.YEAR.FUN( THE.DATE ) $INSERT LEAP.YEAR.INS RETURN LEAP.YEAR And a Subroutine like: SUBROUTINE LEAP.YEAR.SUB( LEAP.YEAR, THE.DATE ) $INSERT LEAP.YEAR.INS RETURN Then modified Daniel's test program like: DEFFUN LEAP.YEAR.FUN( THE.DATE ) EQU LC TO 1000 * ST = TIME() FOR THE.DATE = 1 TO LC LEAP.YEAR = LEAP.YEAR.FUN( THE.DATE ) NEXT THE.DATE TS = TIME() CRT TS - ST * * ST = TIME() FOR THE.DATE = 1 TO LC CALL LEAP.YEAR.SUB( LEAP.YEAR, THE.DATE ) NEXT THE.DATE TS = TIME() CRT TS - ST * ST = TIME() FOR THE.DATE = 1 TO LC $INSERT LEAP.YEAR.INS NEXT THE.DATE TS = TIME() CRT TS - ST * END The speed results: Function 24 seconds Subroutine 21 seconds Insert 11 seconds Not surprising results given what we know about these three methods. Although the function method did get better since the last time I've test it. UD 6.1 Other systems will vary. But this is a good example of working together to enhance the U2 products, now we all have the same Leap Year calculation and those that were using the MOD(YEAR, 4) method should now use this method everywhere as to avoid data corruption. David A. Green (480) 813-1725 DAG Consulting -Original Message- From: Daniel McGrath [mailto:dmcgr...@rocketsoftware.com] Sent: Wednesday, December 07, 2011 11:57 AM To: dgr...@dagconsulting.com; U2 Users List Subject: RE: [U2] End of Month date routine I added the code to PasteBin so as to not flood here: http://pastebin.com/JMyqhFud I did a few more than 100K and I cut the OCONV step out from all of them. I took the liberty to adjust Will's version to return correct results. The results I got, in order, was: 16.872 2.804 2.384 5.561 So, if you have a need to account for your milliseconds, the slightly optimized Wikipedia algorithm seems to be the fastest. Interested to see if there are any better? (Or if I made any mistakes...) Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green Sent: Wednesday, December 07, 2011 10:48 AM To: 'U2 Users List' Subject: Re: [U2] End of Month date routine Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ 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] End of Month date routine
Stuart, You are getting the performance from the case statement by having case mod(YEAR,4) ; LEAP.YEAR = @false first, unfortunately when using case, the order is important and this needs to go just before the case @true. In your example case mod(YEAR,400); LEAP.YEAR = @false will never be happen as it will already have been picked up by the previous case Cheers, Andy From: Boydell, Stuart stuart.boyd...@spotless.com.au To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 8 December 2011, 6:44 Subject: Re: [U2] End of Month date routine On UV the vlist would indicate yes (the complete expression is processed) . LEAP.YEAR = NOT(MOD(YEAR,4)) AND (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) 00062 : 0F6 mod YEAR 4 = $R1 0006A : 10E not $R1 = $R2 00070 : 0F6 mod YEAR 400 = $R3 00078 : 10E not $R3 = $R4 0007E : 0F6 mod YEAR 100 = $R5 00086 : 122 or $R4 $R5 = $R6 0008E : 008 and $R2 $R6 = LEAP.YEAR 00096 : 190 stop I get minuscually better results using a case statement: YEAR = oconv(THE.DATE, 'dy') begin case case mod(YEAR,4) ; LEAP.YEAR = @false case mod(YEAR,100); LEAP.YEAR = @true case mod(YEAR,400); LEAP.YEAR = @false case @true ; LEAP.YEAR = @true end case -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson Sent: Thursday, 8 December 2011 15:02 To: andyb...@yahoo.co.uk; u2-users@listserver.u2ug.org Subject: Re: [U2] End of Month date routine Why couldn't you say LEAP.YEAR = NOT(MOD(YEAR,4)) AND (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) Would the system process the whole line even on an initial finding of False ? -Original Message- From: andy baum andyb...@yahoo.co.uk To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, Dec 7, 2011 7:25 pm Subject: Re: [U2] End of Month date routine Seem to have lost a bit of last reply which should have read Ran Dan's test code on latest Windows PE version of Universe and got :- 9.788 1.558 1.474 3.412 Tried NOT(MOD(YEAR,400)) OR(NOT(MOD(YEAR,4)) AND MOD(YEAR,100))) which took 2.181 seconds but the fastest I could get was LEAP.YEAR = NOT(MOD(YEAR,4)) IF LEAP.YEAR THEN LEAP.YEAR = (NOT(MOD(YEAR,400)) OR MOD(YEAR,100)) END which took 1.423 seconds Got the same trend, although different timings on our Solaris 10 box running Universe 10.3.6 Cheers, Andy From: Daniel McGrath dmcgr...@rocketsoftware.com To: dgr...@dagconsulting.com dgr...@dagconsulting.com; U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 7 December 2011, 18:57 Subject: Re: [U2] End of Month date routine I added the code to PasteBin so as to not flood here: http://pastebin.com/JMyqhFud I did a few more than 100K and I cut the OCONV step out from all of them. I took the liberty to adjust Will's version to return correct results. The results I got, in order, was: 16.872 2.804 2.384 5.561 So, if you have a need to account for your milliseconds, the slightly optimized Wikipedia algorithm seems to be the fastest. Interested to see if there are any better? (Or if I made any mistakes...) Regards, Dan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green Sent: Wednesday, December 07, 2011 10:48 AM To: 'U2 Users List' Subject: Re: [U2] End of Month date routine Who wants to take each of the Leap Year calculations and put them into different subroutines and loop 100K times and see which one is faster using profiling? David A. Green (480) 813-1725 DAG Consulting ___ 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-users
Re: [U2] [UV] Adding a multi-value using SQL UPDATE
Perry, You need to do this by using the Dynamic Normalisation and INSERT. INSERT INTO FILE_MVFIELD (@ID, MVFIELD) VALUES ('KEY', 'THE.NEW.VALUE') More details can be found in the SQL User Guide Chapter 5. HTH, Andy From: Perry Taylor perry.tay...@zirmed.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Tuesday, 13 September 2011, 14:26 Subject: Re: [U2] [UV] Adding a multi-vaue using SQL UPDATE Hrm... no bites?? Perry -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Perry Taylor Sent: Thursday, September 08, 2011 10:11 AM To: U2 Users List Subject: [U2] [UV] Adding a multi-vaue using SQL UPDATE I have a need to add an additional value to a multi-valued field on a bunch of records. I was hoping I could do this using SQL UPDATE but it appears you have to explicitly list all the muli-values... UPDATE FILE SET MVFIELD = 'FIRST', 'SECOND', 'THIRD', 'THE.NEW.VALUE'; Anyone know of way to append a new value using UPDATE? Thanks. Perry Perry Taylor Senior MV Architect ZirMed 888 West Market Street, Suite 400 Louisville, KY 40202 www.zirmed.comhttp://www.zirmed.com/ CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. ZirMed, Inc. has strict policies regarding the content of e-mail communications, specifically Protected Health Information, any communications containing such material will be returned to the originating party with such advisement noted. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. ___ 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] Simple Masking of Password Input (Universe Basic)
Another version using !GET.KEY that just beeps if invalid characters are entered. Should be OK in most instances although !GET.KEY is not as good as the PI/Open implementation and does have some foibles, $INCLUDE UNIVERSE.INCLUDE GTI.FNKEYS.IH PASSWD = '' LOOP CALL !GET.KEY(CHR, CODE) UNTIL CODE = FK$FIN DO BEGIN CASE CASE CODE = 0 CRT *: PASSWD := CHR CASE CODE = FK$BSP AND PASSWD # '' CRT CHR:' ':CHR: PASSWD = PASSWD[1,LEN(PASSWD)-1] CASE 1 CRT @SYS.BELL: END CASE REPEAT CRT CRT PASSWD Cheers, Andy From: Bob Wyatt bwyatt_...@comcast.net To: 'U2 Users List' u2-users@listserver.u2ug.org Sent: Wednesday, 17 August 2011, 3:59 Subject: Re: [U2] Simple Masking of Password Input (Universe Basic) There was nothing in the request about validating the keys entered... So even if a backspace is pressed, throw the *... If there is a desire to test the validity of the character entered (it is within the allowed character range of this password - I.E., alpha-numeric or standard special characters [presumably]), I would probably use the !GET.KEY subroutine and presumably test the key entered against whichever is shorter - valid or invalid keys. If an errant character type is detected, advise the operator accordingly, wipe out the password, and make the operator retype from the beginning. This is not a test of the nth character entered compared to the nth character of the password - just whether the key pressed is valid; if it is valid, output the *. The documentation is a little lacking, but I believe that !GET.KEY does not do any of the limited character handling that KEYIN() will do. However, speedy does not come to mind when I think of everything entailed in doing this; the longer the password required, the less speedy it shall be. -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of andy baum Sent: Tuesday, August 16, 2011 7:09 PM To: U2 Users List Subject: Re: [U2] Simple Masking of Password Input (Universe Basic) Slight amendment in case your positioned in middle of screen. PASSWD = '' LOOP CHR = KEYIN() UNTIL CHR = CHAR(13) DO BEGIN CASE CASE CHR # CHAR(8) CRT *: PASSWD := CHR CASE PASSWD # '' CRT CHAR(8):' ':CHAR(8): PASSWD = PASSWD[1,LEN(PASSWD)-1] END CASE REPEAT CRT CRT PASSWD Cheers, Andy From: nschroth ngschr...@yahoo.com To: u2-users@listserver.u2ug.org Sent: Tuesday, 16 August 2011, 19:51 Subject: [U2] Simple Masking of Password Input (Universe Basic) Does anyone have a simple routine for entering a password and only displaying an asterisk for the character entered? -- View this message in context: http://old.nabble.com/Simple-Masking-of-Password-Input-%28Universe-Basic%29- tp32274238p32274238.html Sent from the U2 - Users mailing list archive at Nabble.com. ___ 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] Simple Masking of Password Input (Universe Basic)
How about PASSWD = '' LOOP CHR = KEYIN() UNTIL CHR = CHAR(13) DO IF CHR # CHAR(8) THEN CRT *: PASSWD := CHR END ELSE CRT CHAR(8):' ':CHAR(8): PASSWD = PASSWD[1,LEN(PASSWD)-1] END REPEAT CRT CRT PASSWD END HTH, Andy From: nschroth ngschr...@yahoo.com To: u2-users@listserver.u2ug.org Sent: Tuesday, 16 August 2011, 19:51 Subject: [U2] Simple Masking of Password Input (Universe Basic) Does anyone have a simple routine for entering a password and only displaying an asterisk for the character entered? -- View this message in context: http://old.nabble.com/Simple-Masking-of-Password-Input-%28Universe-Basic%29-tp32274238p32274238.html Sent from the U2 - Users mailing list archive at Nabble.com. ___ 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] Simple Masking of Password Input (Universe Basic)
Slight amendment in case your positioned in middle of screen. PASSWD = '' LOOP CHR = KEYIN() UNTIL CHR = CHAR(13) DO BEGIN CASE CASE CHR # CHAR(8) CRT *: PASSWD := CHR CASE PASSWD # '' CRT CHAR(8):' ':CHAR(8): PASSWD = PASSWD[1,LEN(PASSWD)-1] END CASE REPEAT CRT CRT PASSWD Cheers, Andy From: nschroth ngschr...@yahoo.com To: u2-users@listserver.u2ug.org Sent: Tuesday, 16 August 2011, 19:51 Subject: [U2] Simple Masking of Password Input (Universe Basic) Does anyone have a simple routine for entering a password and only displaying an asterisk for the character entered? -- View this message in context: http://old.nabble.com/Simple-Masking-of-Password-Input-%28Universe-Basic%29-tp32274238p32274238.html Sent from the U2 - Users mailing list archive at Nabble.com. ___ 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] Doing Multiple Selects in BASIC and combining the lists
John, I'm guessing you're using a PICK account, to use numbered select lists in these accounts you must have $OPTIONS -S in the code. Also multiple TCL commands can be combined together just as in a PA VOC type avoiding the need for multiple EXECUTE's so the code could look something like this:- $OPTIONS -S PARAGRAPH = \SELECT FILE1 WITH VALUE = 'A' TO 1 COUNT.SUP\ PARAGRAPH-1 = \SELECT FILE2 WITH VALUE = 'A' TO 2 COUNT.SUP\ PARAGRAPH-1 = \MERGE.LIST 1 UNION 2 COUNT.SUP\ PERFORM PARAGRAPH PERFORM is more efficient than EXECUTE and the COUNT.SUP suppresses the nn records selected message. You should also be aware that MERGE.LIST does a left justified sort on the records and removes any duplicates. HTH, Andy From: John Thompson jthompson...@gmail.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wednesday, 27 July 2011, 19:16 Subject: Re: [U2] Doing Multiple Selects in BASIC and combining the lists Ok, got stuck again... How would your example play out in BASIC? Its just a bunch of archive info in a file that only has a couple of indexes, but, I would like to look at the active file as well... EXECUTE \SELECT FILE1 WITH VALUE = 'A' TO 1\ EXECUTE \SELECT FILE2 WITH VALUE = 'A' TO 2\ EXECUTE \MERGE.LIST 1 UNION 2 TO 0\ I get an error claiming select list 1 is not active this way. I need the selects to be separate and not stack. I know how to stack them with PASSLIST and RTNLIST... I'm just fuzzy on how to do them separately and then combine them? Would I need to save them and use LIST.UNION? Or just do the two READNEXTS? (I'm trying to avoid because the READNEXT loop is kind of big) Any help is appreciated. On Wed, Jul 27, 2011 at 1:22 PM, Buffington, Wyatt wgbuffing...@hydro.mb.ca wrote: In a nutshell SELECT FILE WITH VALUE = 'A' TO 1 SELECT FILE WITH VALUE = 'B' TO 2 MERGE.LIST 1 UNION 2 TO 0 SORT FILE VALUE -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John Thompson Sent: Wednesday, July 27, 2011 12:16 PM To: U2 Users List Subject: [U2] Doing Multiple Selects in BASIC and combining the lists This may be an easy one, or a hard one, however, I realized I don't recall ever having to do this until today, or I could just be tired... How can you do a SELECT from two different files in a BASIC program and then combine the lists of ID's so that you can do a READNEXT on it? I ask this because I believe by default that Universe does not store the select lists as dynamic arrays. For example: EXECUTE \SELECT FILE1 WITH AMOUNT = 112.50\ RTNLIST FILE1_LIST EXECUTE \SELECT FILE2 WITH AMOUNT = 112.50\ RTNLIST FILE2_LIST ...Code to combine FILE1_LIST and FILE2_LIST into FINAL_LIST... REANEXT ID FROM FINAL_LIST THEN do something NEXT ID I am using Universe 10.3.x on AIX 5.3. I'm in a PICK flavor account. -- John Thompson ___ 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 -- John Thompson ___ 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] Universe 11.1.2 list line limit
Jack, Just wrote a little program to create a list with 10,000,000 lines of 10 bytes each and then used ED to access it, with the following results. ED SAVEDLISTS BIG 1000 lines long. : 0001: 0002055482 : SIZE Size of BIG is 1000 lines and 10999 bytes (characters). This is UV 10.2.2 running on Solaris 10. Not had any trouble with any command (GET.LIST, EDIT.LIST etc.). Can you open the files with vi? If not then the issue would appear to be with AIX, if you can then it looks like an issue with the AIX build of UV. Cheers, Andy From: jig iako...@gmail.com To: u2-users@listserver.u2ug.org Sent: Monday, 6 June 2011, 14:02 Subject: Re: [U2] Universe 11.1.2 list line limit Thank you Jordan, You're right about OPENSEQ and READSEQ. However it depends on what you want to do with these long lists. What we do is either merge the lists or find the difference or find the union. And the way we have done it in the past is extremely efficient. For instance if we want to find the difference between two lists we run LIST.DIFF etc. However in order to do that the system sometimes has to read both lists. With normal lists up to 1 million elements it takes 1 or 2 seconds, but with larger lists it just falls over. To do the same using READSEQ it would take much longer than 1 or 2 secs and we only have a couple of secs to play with. In the old PICK we used to do it with User exits (Assembler code). But the LIST.DIFF, LIST.INTER etc are just as efficient when they work. The issue is not the how to do it but the why it fails so abruptly and what are the limits ? Also is there a uvconfig variable that affects or can improve such a thing ? These are my specific questions. thanks for your suggestion anyway. jack David Jordan wrote: Hi Jack I would use the OPENSEQ and READSEQ to deal with such files. The problem with ED and READ apart from loading the whole record into memory is that to go to attribute 1M it goes to the start and then counts a million field marks. Then you want to read 1,000,001 it goes back to the beginning and reads 1,000,001 field marks it is extremely slow and unworkable. READSEQ, WRITESEQ leaves a pointer from the last attribute position. You have to process these files sequential but it would read 40MB in nanoseconds, far more efficient. Regards David Jordan -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of jig Sent: Monday, 6 June 2011 8:15 PM To: u2-users@listserver.u2ug.org Subject: Re: [U2] Universe 11.1.2 list line limit OK sorry Kate, I should have given a little more information. On our system (AIX v5.3) we recently upgraded to 11.1.2 of UV from v10.3, and we deal a lot with lists. Large lists with hundreds of thousands or even millions of lines (elements). These are just lists of keys to records in files. One in particular is a fixed length seven byte key (alphanumeric). However the largest file has 3.5 million records in it. This means that our lists can get to over 3 million lines ( this is about 40MB of a single file in a Unix directory). On version 10.3 when a basic program or the ED editor was used to read one of these lists (with anything over 2 million lines of keys in it) it would just core dump and not be able to read it. The same thing occurred whether one had the list in the SAVEDLISTS file or anywhere else. To get around this problem we wrote software to split these large lists. However that was cumbersome and not always worked to specification. With UV 11.1.2 (and because according to Rocket they did a lot of work to improve memory management) we thought we'd be better off, handling some of these large lists. However it seems we were wrong. A Basic routine cannot read a list that is over 4 million records in it. It just falls over and the process dies. The AE editor is a little more graceful with some information before it also dies trying to open any large list of keys. I know there are ways around this issue, but we expected a lot better performance from the new version. I dont have the exact error at the moment, because I am not at work, but I can add it here if requested. One can always try it themselves to see the error, because it happens every time. I am sure most companies do not work with such large lists, but even so, core dumping instead of a gracious exit is not good enough. This is the first thing we learned when we started out as programmers decades ago. regards jack Kate Stanton wrote: What limit? I do not understand. TIA., Kate On 6 June 2011 19:32, jig iako...@gmail.com wrote: Wondering if anyone is aware of the line limit in a saved list for the latest UV version? Has it improved since we went to 64-bit? -- View this message in context:
Re: [U2] Multi char delimiter in DICT item
Or you can use :- MATCHFIELD(F1,\0X'PRN='0X''0X\,3) To directly extract the value. This works in Universe but not sure if Unidata supports the third (\) quote symbol. If not then you can use :- MATCHFIELD(F1,0X'PRN=:'':'0X':'':'0X,3) Which is not quite as readable. Cheers, Andy From: Bob Woodward bob_woodw...@k2sports.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 19 May 2011, 20:30 Subject: Re: [U2] Multi char delimiter in DICT item WINNER We can even remove the fourth statement since the third statement puts the first quoted value at the front of @3 so... F1 ; INDEX(F1,PRN=,1) ; @1[@2,LEN(@1)] ; FIELD(@3,'',2) Will work perfectly! Thank you very much! -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George Gallen Sent: Thursday, May 19, 2011 12:22 PM To: U2 Users List Subject: Re: [U2] Multi char delimiter in DICT item what about F1 ; INDEX(F1,PRN=,1) ; @1[@2,LEN(@1)] ; FIELD(@3,=,2) ; FIELD(@4,'',2) George -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] On Behalf Of Bob Woodward Sent: Thursday, May 19, 2011 2:59 PM To: U2 Users List Subject: Re: [U2] Multi char delimiter in DICT item That won't get me any closer. Reason is that we have differing numbers of options possible. I really need to somehow identify where PRN (or /PRN or PRN= or ...) is. Once I have that, I can use FIELD on the double quotes to get what I want. Double slashes won't work, either, as FIELD still just takes the first slash character and uses it. Here's a sample of the data line I'm working with but, again, the number of options and option commands can change. Only /PRN= is going to be guaranteed to be unique to that data position. (The sample may wrap but it's a single line.) 001: %BTW% /RUN /f=C:\BarTender\Template\Comply-FTL.btw /d=\\ganymede\DCDOWN\5214411.dat /p /PRN=BoxLabel3 /x Thanks, BobW -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George Gallen Sent: Thursday, May 19, 2011 11:46 AM To: U2 Users List Subject: Re: [U2] Multi char delimiter in DICT item hmmm. looks like I need glasses...didn't see you already answered it. Is there an = sign in any of the label data? FIELD(@1,=,2) ; FIELD(@2,''2) Don't look for PRN= , just = George -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] On Behalf Of George Gallen Sent: Thursday, May 19, 2011 2:30 PM To: U2 Users List Subject: Re: [U2] Multi char delimiter in DICT item Does CHANGE work with Unidata? CHANGE(F1,PRN,CHAR(251)) ; FIELD(@1,CHAR(251),2) ; FIELD(@2,'',2) George -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- boun...@listserver.u2ug.org] On Behalf Of Bob Woodward Sent: Thursday, May 19, 2011 2:11 PM To: U2 Users List Subject: [U2] Multi char delimiter in DICT item Hi folks, I'm in Unidata 6.1 and I'm trying to find a way to use a multi character value as a delimiter for a parsing function in an I-desc dict item. I'm working with Bartender label data records and I'm trying to parse the first line on the /PRN= value, without the quote marks. FIELD only lets me use a single character. What I have so far in the DICT item is: 001: I 002: F1;FIELD(@1,'PRN=',2);FIELD(@2,'',2) 003: 004: PRN 005: 15L 006: S This works great until a capital P is in the label name before the PRN. Field is taking the first character and ignoring the RN=. I do NOT want to make a subroutine if I can avoid it. I've tried using CHANGE to swap out PRN= with a single character but apparently that's not an allowed command in the DICT items. Thanks for any help you can offer. BobW ___ 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
Re: [U2] File Copy CowBoy - uvfixfile
Bill, uvfixfile has not been developed for some time now and the preferred tool is fixtool Options are :- -level #- Diagnosic level between 1 and 10 (default 2) -fix - Fix the file -dumppath x - Where x is the path for the dumpping files -nodump - Do not dump errored records as default -file x - Where x is the file to use -filepath x - Where x is the path for the file -help - Display this help message -logging- Turns logging on -logpath x - Where x is the path for the logging files -start # - Start diagnosic group, default is 0 -stop # - Stop diagnosic group, default is end of file Cheers, Andy - Original Message From: Bill Brutzman bi...@hkmetalcraft.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, 8 December, 2010 20:29:27 Subject: Re: [U2] File Copy CowBoy - uvfixfile What is the command-line syntax for uvfixfile? # ./bin/uvfixfile /u2/SANDBOX/IPL.X No filename specified. # ./bin/uvfixfile /u2/SANDBOX/IPL.X No filename specified. --Bill -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:21 PM To: U2 Users List Subject: Re: [U2] File Copy CowBoy With FileZilla I am doing a Binary Transfer type. --Bill -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:18 PM To: U2 Users List Subject: Re: [U2] File Copy CowBoy FORMAT.CONV IPL.X Processing 'IPL.X'. Fatal error processing file IPL.X, file has been damaged -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:08 PM To: U2 Users List Subject: [U2] File Copy CowBoy I am trying to compare this month with last month's inventory. Copying files back from Windows to HP-Ux yields the following error message. Help would be appreciated. --Bill LIST IPL.X WARNING: Internal file corruption detected during file open! File must be repaired, possible truncation. hsize: 2048 bsize: 2048 fsize: 2019911 WARNING: Internal file corruption detected during file open! File must be repaired, possible truncation. hsize: 2048 bsize: 2048 fsize: 2019911 Unable to open IPL.X file. ___ 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
Re: [U2] File Copy CowBoy - uvfixfile
Bill, When you say you tried it did you try 'fixtool' as opposed to 'uvfixfile', see extract from a whitepaper below:- 1) Description fixtool is the replacement for UVFIXFILE (uvfixfile from the OS shell) and was introduced at 9.5.1C to support both 32-bit and 64-bit files. Initially it had a limited command line interface as it was intended to be used from the UVAdmin GUI client. fixtool uses some common libraries with the client-server process called File Tool from UVAdmin or UniAdmin. When 9.6 was introduced, fixtool was enhanced with a few command line arguments to provide logging of the groups it traced, but could not be limited to a certain number of groups. By 9.6.2.x, it was further enhanced to permit group range traces, which no longer required exclusive access to the file. At the release of UniVerse 10.0.14, fixtool was enhanced with new rules and algorithms to provide better protection against data loss and improved backward link recovery. The result was a more robust tool that can now re-link secondary buffers to primary buffers and also the freechain list. I used to have very little success with uvfixfile whereas I cannot think of a time that fixtool has not fixed a file. Cheers, Andy - Original Message From: Bill Brutzman bi...@hkmetalcraft.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, 8 December, 2010 21:47:49 Subject: Re: [U2] File Copy CowBoy - uvfixfile Andy... Thanks... I tried it... unfortunately uvfixfile did not fix the file. I suppose that I will try another file... --Bill -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of andy baum Sent: Wednesday, December 08, 2010 3:40 PM To: U2 Users List Subject: Re: [U2] File Copy CowBoy - uvfixfile Bill, uvfixfile has not been developed for some time now and the preferred tool is fixtool Options are :- -level #- Diagnosic level between 1 and 10 (default 2) -fix - Fix the file -dumppath x - Where x is the path for the dumpping files -nodump - Do not dump errored records as default -file x - Where x is the file to use -filepath x - Where x is the path for the file -help - Display this help message -logging- Turns logging on -logpath x - Where x is the path for the logging files -start # - Start diagnosic group, default is 0 -stop # - Stop diagnosic group, default is end of file Cheers, Andy - Original Message From: Bill Brutzman bi...@hkmetalcraft.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Wed, 8 December, 2010 20:29:27 Subject: Re: [U2] File Copy CowBoy - uvfixfile What is the command-line syntax for uvfixfile? # ./bin/uvfixfile /u2/SANDBOX/IPL.X No filename specified. # ./bin/uvfixfile /u2/SANDBOX/IPL.X No filename specified. --Bill -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:21 PM To: U2 Users List Subject: Re: [U2] File Copy CowBoy With FileZilla I am doing a Binary Transfer type. --Bill -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:18 PM To: U2 Users List Subject: Re: [U2] File Copy CowBoy FORMAT.CONV IPL.X Processing 'IPL.X'. Fatal error processing file IPL.X, file has been damaged -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman Sent: Wednesday, December 08, 2010 2:08 PM To: U2 Users List Subject: [U2] File Copy CowBoy I am trying to compare this month with last month's inventory. Copying files back from Windows to HP-Ux yields the following error message. Help would be appreciated. --Bill LIST IPL.X WARNING: Internal file corruption detected during file open! File must be repaired, possible truncation. hsize: 2048 bsize: 2048 fsize: 2019911 WARNING: Internal file corruption detected during file open! File must be repaired, possible truncation. hsize: 2048 bsize: 2048 fsize: 2019911 Unable to open IPL.X file. ___ 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
Re: [U2] Unidata UNAssigned() vs Assigned()
Tony, This is not in the latest 7.2 manuals and when I try the following program using 7.2.3 PE CRT NOT(ASSIGNED(A)) A = 1 CRT NOT(ASSIGNED(A)) END then I get the following. : :BASIC BP TEST.ASSIGNED Compiling Unibasic: BP\TEST.ASSIGNED in mode 'u'. warning: ASSIGNED may be one dimension matrix. compilation finished :RUN BP TEST.ASSIGNED In BP\_TEST.ASSIGNED at line 1 WARNING: UNINITIALIZED VARIABLE USED! Zero Assume d! In BP\_TEST.ASSIGNED at line 1 WARNING: UNINITIALIZED VARIABLE USED! Zero Assume d! 1 1 Are you sure you haven't got a function along the lines of: FUNCTION ASSIGNED(VAR) RETURN NOT(UNASSIGNED(VAR)) END This will of course require a DEFFUN statement but this could be in some INCLUDE file. Andy - Original Message From: Tony Gravagno 3xk547...@sneakemail.com To: u2-users@listserver.u2ug.org Sent: Wed, 14 July, 2010 20:50:29 Subject: [U2] Unidata UNAssigned() vs Assigned() This is dumb, sorry. In my cross-platform code I have a check to see if the platform is Unidata, and if so, I say: IF UNASSIGNED(VAR) THEN ... for all other MV platforms I use: IF NOT(ASSIGNED(VAR)) THEN ... I just noticed that in some code I wrote two years ago that I had removed the DBMS check and all platforms are using IF NOT(ASSIGNED()). Unfortunately (slapping myself) there's no comment in the code to support why that change was made. Did they introduce support for ASSIGNED() in some v7.2 release of Unidata - or maybe that was just a bad change? I don't see this in any release notes. I'd just like to know if/when it was introduced so that I know where I should (not) use ASSIGNED() in new development. For this product (NebulaXLite that creates Excel workbooks) I'm inclined to continue to use UNAssigned since I don't want to have to check which release of Unidata someone might be using. Thanks. Tony Gravagno Nebula Research and Development TG@ remove.pleaseNebula-RnD.com Nebula RD sells mv.NET and other Pick/MultiValue products worldwide, and provides related development services remove.pleaseNebula-RnD.com/blog (Latest blogs on Web Services with MV) Visit PickWiki.com! Contribute! http://Twitter.com/TonyGravagno ___ 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] Remote VOC issue
Susan, At TCL in the remote account type LONGNAMES ON or edit the VOC entries for CREATE.FILE, DELETE.FILE and CNAME to add a V to field 4 and put the word LONGNAMES in field 5 therefore in a PICK flavor account they look like: 0001: V 0002: create.file 0003: E 0004: VF 0005: LONGNAMES 0006: PICK.FORMAT 0001: V 0002: delete.file 0003: E 0004: SV 0005: LONGNAMES 0001: V 0002: cname 0003: E 0004: V 0005: LONGNAMES If you type LONGNAMES ON NEWACC in the main UV account then any new accounts created will automatically be set to use LONGNAMES. HTH, Andy - Original Message From: Susan Joslyn sjos...@sjplus.com To: u2-users@listserver.u2ug.org Sent: Tue, 8 June, 2010 17:27:11 Subject: [U2] Remote VOC issue Hi Group, Anyone know how to make set the remote voc to LONGNAMES ON so that if the verb CREATE.FILE is in the remote voc, a file with a long name is created? Susan ___ 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] Basic Developers Toolkit - how to create a program?
Chris, In the U2 Resource pane (top left by default) open the account and then database files, go to the source code file e.g. BP, right click and the top option is New Basic Program. Choosing this lets you enter a name and a template to use. HTH, Andy - Original Message From: Chris Austin cjausti...@hotmail.com To: u2-users@listserver.u2ug.org Sent: Wed, 14 April, 2010 18:03:28 Subject: [U2] Basic Developers Toolkit - how to create a program? I installed the new UniVerse (10.3.3) and have installed the Basic Developers Toolkit from the UniVerse CD and I'm able to compile and run programs that have already been cataloged. For the life of me I cannot figure out how to simply create a new UniVerse BASIC program and catalog it from within the toolkit. Does anyone know how to do this? Chris _ Hotmail has tools for the New Busy. Search, chat and e-mail from your inbox. http://www.windowslive.com/campaign/thenewbusy?ocid=PID28326::T:WLMTAGL:ON:WL:en-US:WM_HMP:042010_1 ___ 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] Indexed file info
John, You should look at the INDICES function it can be called either with just a file variable or with a file variable and index name. The first form returns a dynamic array of indices on the file and the second gives pretty much all the info you need on the individual index. HTH, Andy ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] A readnext within a VOC?
George, This was possible in PI/Open using PA GET-LIST LISTNAME LOOP IF L, ID = THEN GO NEXT RUN LIB PROGRAMNAME DATA ID REPEAT NEXT: Unfortunately this never made it in to Universe, don't know about Unidata. I reported this when I beta tested the PI/Open to Universe migration stuff,I think they 'fixed it' by documenting somewhere that it doesn't work. Cheers, Andy - Original Message From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thu, 10 December, 2009 19:03:08 Subject: [U2] A readnext within a VOC? I'd like to setup a VOC to select a list, then run a program for each entry in the list (like below...) PA GET-LIST LISTNAME LOOP READNEXT ID ELSE EXIT DATA ID RUN LIB PROGRAMNAME REPEAT I Thought there was a way to do this...but just can't remember how. In the meantime, I pass the list to another program (on another channel) which reads each item and EXECUTEs the PROGRAMNAME George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com ___ 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] A readnext within a VOC?
Neil, The specific request was to be able to process each item in a select list from within a Paragraph which is what the 'L' option of inline prompting did in PI/Open, unfortunately this has not been implemented in Universe. Cheers, Andy - Original Message From: Neil Richards n...@switp.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thu, 10 December, 2009 21:13:08 Subject: Re: [U2] A readnext within a VOC? This capability is in UV 10.2 This example represents a paragraph as it appears in a VOC file: 001 PA 002 RUN BP DUE.LIST 003 DATA ENTER DATE 004 DATA YES 005 RUN BP VENDORS 006 DATA ENTER MONTH From: u2-users-boun...@listserver.u2ug.org [u2-users-boun...@listserver.u2ug.org] On Behalf Of andy baum [andyb...@yahoo.co.uk] Sent: Thursday, December 10, 2009 1:06 PM To: U2 Users List Subject: Re: [U2] A readnext within a VOC? George, This was possible in PI/Open using PA GET-LIST LISTNAME LOOP IF L, ID = THEN GO NEXT RUN LIB PROGRAMNAME DATA ID REPEAT NEXT: Unfortunately this never made it in to Universe, don't know about Unidata. I reported this when I beta tested the PI/Open to Universe migration stuff,I think they 'fixed it' by documenting somewhere that it doesn't work. Cheers, Andy - Original Message From: George Gallen ggal...@wyanokegroup.commailto:ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.orgmailto:u2-users@listserver.u2ug.org Sent: Thu, 10 December, 2009 19:03:08 Subject: [U2] A readnext within a VOC? I'd like to setup a VOC to select a list, then run a program for each entry in the list (like below...) PA GET-LIST LISTNAME LOOP READNEXT ID ELSE EXIT DATA ID RUN LIB PROGRAMNAME REPEAT I Thought there was a way to do this...but just can't remember how. In the meantime, I pass the list to another program (on another channel) which reads each item and EXECUTEs the PROGRAMNAME George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.commailto:ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com ___ U2-Users mailing list U2-Users@listserver.u2ug.orgmailto:U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.orgmailto:U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users Total Control Panel Loginhttps://asp-6.reflexion.net/login?domain=switp.com To: n...@switp.comhttps://asp-6.reflexion.net/address-properties?aID=46755898 From: u2-users-boun...@listserver.u2ug.orghttps://asp-6.reflexion.net/address-properties?aID=60327323 Removehttps://asp-6.reflexion.net/FooterAction?ver=1un-wl-sender-address=1rID=46755898aID=60327323 this sender from my allow list You received this message because the sender is on your allow list. ___ 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] errlog question
Doug, 12729 is the process id, the - indicates it is a background job. HTH, Andy - Original Message From: Doug Chanco dcha...@sportsendeavors.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Sun, 29 November, 2009 23:59:02 Subject: [U2] errlog question Can anyone shed any light on what the below message means? Sun Nov 29 18:08:54 -12729 yavegrt Program CONVERT.BASENUM.SKU.INFO.SORT: Line 221, Message[040037] Sun Nov 29 18:13:12 -8275 carbas 11949-KARS is not present on file. Sun Nov 29 18:13:56 -4529 brewbr 1962583 is not present on file. I am mostly curious about : the negative number (-12729 ) and the Message[040037] The first one is obviously a problem in one of our programs (not sure what the message[] means) but the second one is a bit confusing and I am hoping the negative numbers might mean something useful thanks dougc ___ 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] errlog question
Doug, Should have mentioned that 040037 means Variable unassigned. Andy - Original Message From: Doug Chanco dcha...@sportsendeavors.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Sun, 29 November, 2009 23:59:02 Subject: [U2] errlog question Can anyone shed any light on what the below message means? Sun Nov 29 18:08:54 -12729 yavegrt Program CONVERT.BASENUM.SKU.INFO.SORT: Line 221, Message[040037] Sun Nov 29 18:13:12 -8275 carbas 11949-KARS is not present on file. Sun Nov 29 18:13:56 -4529 brewbr 1962583 is not present on file. I am mostly curious about : the negative number (-12729 ) and the Message[040037] The first one is obviously a problem in one of our programs (not sure what the message[] means) but the second one is a bit confusing and I am hoping the negative numbers might mean something useful thanks dougc ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users ___ U2-Users mailing list U2-Users@listserver.u2ug.org http://listserver.u2ug.org/mailman/listinfo/u2-users
Re: [U2] [UV] UV/NET - DataStage
Perry, Have you checked the well known port number has been added to the services file it should look something like this :- unirpc 31438/tcp#Universe RPC This needs to be added on all machines that you wish to connect. The file is in /etc on *nix and C:\WINDOWS\system32\drivers\etc on Windows, 31438 is the default on Universe but can be any port number that is not in use. It must be the same on all machines you wish to connect. HTH Andy - Original Message From: Perry Taylor perry.tay...@zirmed.com To: U2-Users List u2-users@listserver.u2ug.org Sent: Wed, 28 October, 2009 19:20:17 Subject: [U2] [UV] UV/NET - DataStage We're trying to do an evaluation of DataStage running on Windows accessing our UniVerse server running on Linux. I have activated a license for UV/NET on the UniVerse server. We have been unable to import the UniVerse files in DS where we get the following error... DSR.MetaGeta(GET.FILES): OPEN of DSR.MetaGeta.m2388 took ELSE clause, STATUS()=-1 I'm suspecting a UV/NET issue. I tried setting up a remote file in the DSEngine account and I get the following.. CT VOC JJ JJ 0001 F 0002 QAUV2!/home/trax/VOC SELECT JJ dsrpc: The TCP/IP connection was refused. dsrpc: The dsrpcd is probably not running. Unable to open JJ file. I checked and the dsrpcd service is running on the DS server. Any ideas? Thanks. Perry Taylor Zirmed, Inc. CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for the sole use of the intended recipient(s) and may contain confidential and privileged information. Any unauthorized review, use, disclosure or distribution is prohibited. ZirMed, Inc. has strict policies regarding the content of e-mail communications, specifically Protected Health Information, any communications containing such material will be returned to the originating party with such advisement noted. If you are not the intended recipient, please contact the sender by reply e-mail and destroy all copies of the original message. ___ 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: Executing small part of subroutine code once from dictionary call
Bill, Does Unidata have the @NI variable this will be set to 1 for the first record of any new LIST or SELECT so you should be able to change IF comDbiUserArray = NULL$ OR comDbiUserArray = 0 THEN To IF comDbiUserArray = NULL$ OR comDbiUserArray = 0 OR @NI = 1 THEN HTH Andy - Original Message From: Bill Haskett wphask...@advantos.net To: U2 Mail List U2-users@listserver.u2ug.org Sent: Thursday, 20 August, 2009 22:28:44 Subject: [U2] UD: Executing small part of subroutine code once from dictionary call I have a UD dictionary that calls a subroutine. The subroutine selects a small file and saves the data into a reformatted array, which is returned as a passed variable. I want to only execute this select code once in the subroutine then continue with the reset of the subroutines business rule(s) for subsequent items processed. When I create a named common variable for the built data array the array is set once and when I alter the data in the selected file (small) it never is updated when I run a subsequent selects or sorts. UniData doesn't seem to be able to inform me when the first item is processed, in order to initialize, read, and build the configuration array. How is this done? E.g. I want to know what accounts a user has access to (we run an ASP with 50-100 accounts on it and our users file is global). The dictionary builds an array of users on our system as follows: 001 mv'd list of user names 002 mv'd list of upper-cased user names 003 mv'd list of account paths each user has access to A user can have access to multiple account paths. When I do the following (in PICK mode): :sort SECUSERS BY USERID ID-SUPP USERID ACCTUSER AUTHACCTS ...I get the following list of users and account paths they have access to: UserId. C.. AuthAccts. PUBLICUSER 1 E:\UDAccounts\AsiPublic E:\DataTrust\Dev E:\DataTrust\Demo DOTNETUSER 1 E:\DataTrust\Demo E:\Advantos\Intel E:\DataTrust\Dev MYUSER 1 E:\DataTrust\Dev E:\DataTrust\Demo E:\Advantos\Intel The dictionary of AUTHACCTS looks like: Top of AUTHACCTS in DICT SECUSERS, 6 lines, 113 characters. *--: P 001: I The authorized accounts this user has access to (a DBIUSERS value) 002: SUBR( D.AUTHACCTS, @ID ) 003: 004: AuthAccts 005: 30L 006: M Bottom. *--: ...and the subroutine looks like: * ** Initialize common program variables $INCLUDE DTABP,INCLUDES SET.COMMON * ** Initialize local common COMMON /dbUserc/ comDbiUserArray * ** Initialize null because we're calling from a dictionary and SET.INIT ** hasn't run yet (besides NULL$ isn't named common). NULL$ = '' * ** Initialize return value OutValue = NULL$ * ** Make sure we're dealing with a user record key IF UserID = NULL$ THEN GOTO END.OF.PROGRAM * ** Get the list of DB users IF comDbiUserArray = NULL$ OR comDbiUserArray = 0 THEN CALL GET.DBIUSERS ( DbiUserArray ) comDbiUserArray = DbiUserArray END * **---** ** ** ** R U N P R O G R A M ** ** ** **---** * ** Assign the names Id intialize variable to pass back UCDbiUserList = comDbiUserArray2 DbiUserPaths = comDbiUserArray3 UserID= OCONV(UserID, 'MCU') LOCATE(UserID, UCDbiUserList, 1; Pos) THEN OutValue = RAISE(DbiUserPaths1,Pos) END The problem is once I run the query the contents of the array comDbiUserArray will never change until I log off. How can I force the array to be initialized without logging off? Any help would be appreciated. Thanks, Bill Haskett Advantos Systems, Inc. ___ U2-Users mailing list u2-us...@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] Help with encryption
Using OCONV(RESULT,'MX0C') seems to work OK on Windows but I'm sure I had problems with this on UV 10.2 on hp-ux. However, ICONV(RESULT,'MY') worked on both. Cheers, Andy - Original Message From: m3p jr...@go.com To: u2-users@listserver.u2ug.org Sent: Tuesday, 11 August, 2009 20:36:25 Subject: Re: [U2] Help with encryption Hello all, The code below: RESULT = '' STATUS = DIGEST('MD5','THIS IS A TEST',1,RESULT) PRINT 'STATUS = ' : STATUS PRINT 'RESULT = ' : OCONV(RESULT,'MX') works fine, except... I keep getting binary data displayed, despite the OCONV(RESULT,'MX') Anyone have an idea how to turn the RESULT into a string of Hex characters? Replies are much appreciated, thanks. IT-Laure Hansen wrote: Does anyone know how to cause MD5 hashing in Universe? UV 10.2.3 on Win2003 server. I am hoping for a Basic command that I can run on a desired piece of data. Reading documentation so far hasn't helped, am I wanting to do something that is not available to me? Thanks in advance! Laure Hansen, City of Redwood City - Information Technology 1017 Middlefield Road - Redwood City, CA 94063 Office 650-780-7087 - Cell 650-207-3235 - Fax 650-556-9204 lhan...@redwoodcity.orgmailto:lhan...@redwoodcity.org P Please think green before printing this e-mail Subscribe to receive Redwood City E-News, news releases, or other documents via email: Click here to register/subscribehttp://www.redwoodcity.org/eGov/login.aspx?ref=/egov/index .aspx --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ -- View this message in context: http://www.nabble.com/Help-with-encryption-tp23508833p24924344.html Sent from the U2 - Users mailing list archive at Nabble.com. ___ 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] Universe Retrieve
Henry, Yes, I did some more testing myself last night, should have replied sooner. I built a file with a million records and repeated the test, I also created an I-Descriptor on the dictionary and got the following results :- COUNT TESTFILE WITH F1 = v Elapsed 2.828 CPU 2.171 COUNT TESTFILE WITH F1 = EVAL 'V' Elapsed 8.953 CPU 6.625 COUNT TESTFILE WITH F1 = VEE.ITYPE Elapsed 8.766 CPU 6.500 Which seems to confirm what you are saying Cheers, Andy - Original Message From: Henry Unger hun...@hitech.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Friday, 17 July, 2009 0:32:03 Subject: Re: [U2] Universe Retrieve Good point, Andy. I had considered that, but guessed that it would not be a significant factor. Just in case, I created a file with a million records, and reran the tests. Here are the results: COUNT TESTFILE WITH F1 = 'V' Elapsed 7.4796 COUNT TESTFILE WITH F1 = EVAL 'V' Elapsed 23.2558 Seems pretty consistent with the earlier tests. Best regards, Henry Henry P.. Unger Hitech Systems, Inc. http://www.hitech.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of andy baum Sent: Thursday, July 16, 2009 2:52 PM To: U2 Users List Subject: Re: [U2] Universe Retrieve Henry, EVAL compiles the expression and writes the result into the dictionary, runs the query and then deletes the dictionary item. For your test to be valid you would need to ignore the overheads of the compile, write to and delete from dictionary which in your example are significant compared to the number of records counted. You could probably get more accurate results by choosing an example that runs against a file with millions of records. Cheers, Andy - Original Message From: Henry Unger hun...@hitech.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 16 July, 2009 18:36:27 Subject: Re: [U2] Universe Retrieve Hi Martin, I was under the impression that an EVAL calls the same compiler that an I-type does, and that any expression optimization would be done therein. Expanding beyond that, it would be interesting if the I-type compiler was able to detect that a particular expression does result in a constant value and flag the object code as not requiring repeated evaluation by the query processor. Here are some empirical results using UniVerse 10.2.7: TIMEIT 50 COUNT VOC WITH F1 = 'V' COUNT VOC WITH F1 = 'V' Elapsed 1.3006 TIMEIT 50 COUNT VOC WITH F1 = EVAL 'V' COUNT VOC WITH F1 = EVAL 'V' Elapsed 5.135 This suggests that the query processor does not detect that the result of the evaluation is a constant and optimize its execution. Best regards, Henry TIMEIT: sent = @SENTENCE rest = trimf(field(sent, ' ', 2, len(sent))) word = field(rest, ' ', 1) if word matches 0N then n = int(word) sent = trimf(field(rest, ' ', 2, len(rest))) end else n = 1 sent = rest end print sent t0 = time() for i = 1 to n execute sent capturing output next t1 = time() print 'Elapsed ' : t1 - t0 end Henry P. Unger Hitech Systems, Inc. http://www.hitech.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Martin Phillips Sent: Thursday, July 16, 2009 9:30 AM To: U2 Users List Subject: Re: [U2] Universe Retrieve Hi Henry, You can see the object code that is produced using VLIST and examine it for optimizations. The particular optimsiation that Barry is looking for would not show in the object code. For a truly constant I-type expression, the query procesor could evaluate it just once and store the result instead of doing it on every use. Although not common, such I-types do exist. Martin Phillips Ladybridge Systems Ltd 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB +44-(0)1604-709200 ___ 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
Re: [U2] Universe Retrieve
Henry, EVAL compiles the expression and writes the result into the dictionary, runs the query and then deletes the dictionary item. For your test to be valid you would need to ignore the overheads of the compile, write to and delete from dictionary which in your example are significant compared to the number of records counted. You could probably get more accurate results by choosing an example that runs against a file with millions of records. Cheers, Andy - Original Message From: Henry Unger hun...@hitech.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Thursday, 16 July, 2009 18:36:27 Subject: Re: [U2] Universe Retrieve Hi Martin, I was under the impression that an EVAL calls the same compiler that an I-type does, and that any expression optimization would be done therein. Expanding beyond that, it would be interesting if the I-type compiler was able to detect that a particular expression does result in a constant value and flag the object code as not requiring repeated evaluation by the query processor. Here are some empirical results using UniVerse 10.2.7: TIMEIT 50 COUNT VOC WITH F1 = 'V' COUNT VOC WITH F1 = 'V' Elapsed 1.3006 TIMEIT 50 COUNT VOC WITH F1 = EVAL 'V' COUNT VOC WITH F1 = EVAL 'V' Elapsed 5.135 This suggests that the query processor does not detect that the result of the evaluation is a constant and optimize its execution. Best regards, Henry TIMEIT: sent = @SENTENCE rest = trimf(field(sent, ' ', 2, len(sent))) word = field(rest, ' ', 1) if word matches 0N then n = int(word) sent = trimf(field(rest, ' ', 2, len(rest))) end else n = 1 sent = rest end print sent t0 = time() for i = 1 to n execute sent capturing output next t1 = time() print 'Elapsed ' : t1 - t0 end Henry P. Unger Hitech Systems, Inc. http://www.hitech.com -Original Message- From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Martin Phillips Sent: Thursday, July 16, 2009 9:30 AM To: U2 Users List Subject: Re: [U2] Universe Retrieve Hi Henry, You can see the object code that is produced using VLIST and examine it for optimizations. The particular optimsiation that Barry is looking for would not show in the object code. For a truly constant I-type expression, the query procesor could evaluate it just once and store the result instead of doing it on every use. Although not common, such I-types do exist. Martin Phillips Ladybridge Systems Ltd 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB +44-(0)1604-709200 ___ 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] UV and triggers
The subroutine needs to be globally cataloged and therefore its name will begin with an asterisk. CATALOG filename *BTPEMAILTRIGGER CREATE TRIGGER EMAILUPDT AFTER INSERT OR UPDATE OR DELETE ON NABTP FOR EACH ROW CALLING '*BTPEMAILTRIGGER' ; If you are running in a PICK flavour account then copy the CATALOG verb from the UV account and call it ICATALOG and use this in place of CATALOG in the above command. Cheers, Andy - Original Message From: George Gallen ggal...@wyanokegroup.com To: U2 Users List u2-users@listserver.u2ug.org Sent: Friday, 10 July, 2009 20:19:35 Subject: [U2] UV and triggers I need to setup a trigger on a Universe file to track changes to one item. The book is quite confusing on setting up triggers... I understand how to compile the program (and read in the appropriate data). I just can't figure out how to get the trigger on the file to work I tried CREATE TRIGGER EMAILUPDT AFTER INSERT OR UPDATE OR DELETE ON NABTP FOR EACH ROW CALLING 'BTPEMAILTRIGGER' ; (also tried unquoted) which responds with statement triggers are not supported. I'm on Universe 10.0.2 INFORMATION FLAVOR. RELLEVEL 001 X 002 10.0.2 003 INFORMATION 004 INFORMATION.FORMAT 005 10.0.2 George Gallen Senior Programmer/Analyst Accounting/Data Division, EDI Administrator ggal...@wyanokegroup.com ph:856.848.9005 Ext 220 The Wyanoke Group http://www.wyanokegroup.com ___ 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] I-Descriptor Help
Bjorn, This is the error you get when the I-Descriptor calls a subroutine that does a SELECT. See this reply from Glenn Herbert to the same problem in March 2004. Yeah. It's actually a bug in the program/itype unloading code that won't allow you to do this. I ran upon this in May 2003 and, subsequently, put in a fix within the DataStage engine so that it works. Should be an easy fix once its understood. Guess they've not got around to fixing it yet. Dependant on the select in the subroutine it can usually be worked around by using UniBasic commands like SELECTINDEX. Cheers, Andy -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Bjorn Behr Sent: 29 April 2009 08:05 To: u2-users@listserver.u2ug.org Subject: [U2] I-Descriptor Help Morning All I wonder if somebody can please assist me here. What I need to do is SELECT the 1st Record saved from a file (AUDIT.HIST) for a specific RECORD_ID. The RECORD_ID Field is an indexed field on AUDIT_HIST. I am trying to do this via a I-Descriptor calling a BP and it is returning an error Error: Non-SQL re-entrant query calls are not allowed. Select Statement within BP: SELECT AUDIT.HIST WITH RECORD_ID = '1537044' BY RECORD_ID Any idea how I go about doing this? System Info Universe 10.1.24 (PICK) System Builder 5.3 Regards Bjvrn Behr SUMMIT CORE Developer Tel No: +27 12 673 3251 Fax No: +27 12 673 4681 E-Mail: be...@frstia.co.zamailto:be...@frstia.co.za The information in or attached to this e-mail message is confidential and may be subject to legal privilege and client confidentiality. If you are not the intended recipient of this e-mail or the authorised representative of the recipient then please notify the sender of this e-mail immediately by return e-mail and delete this message from your system. You may not print, store, forward or copy this message or any part thereof or disclose or cause information in this message to be disclosed to any other person. FRSTIA cannot be held liable for any harm or loss resulting from malicious software code or viruses in this message or attachments, including data corruption resulting there from. Employees or representatives of FRSTIA are not permitted to send unsolicited messages (spam) and FRSTIA cannot be held liable for their sending of such mail. If you regard this message as spam, please inform us immediately by sending an email to i...@frstia.co.za. If this message contains offensive, derogatory or defamatory statements or materials, it means the message has been sent outside the sender's scope of employment with FRSTIA and only the sender can be held liable in his/her personal capacity. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - ** The contents of this e-mail and any attachments transmitted with it are intended to be confidential to the intended recipient; and may be privileged or otherwise protected from disclosure. If you are not an intended recipient of this e-mail, do not duplicate or redistribute it by any means. Please delete it and any attachments and notify the sender that you have received it in error. This e-mail is sent by a William Hill PLC group company. The William Hill group companies include, among others, William Hill PLC (registered number 4212563), William Hill Organization Limited (registered number 278208), William Hill Credit Limited (registered number 413846), WHG (International) Limited (registered number 99191) and WHG Trading Limited (registered number 101439). Each of William Hill PLC, William Hill Organization Limited and William Hill Credit Limited is registered in England and Wales and has its registered office at Greenside House, 50 Station Road, Wood Green, London N22 7TP. Each of WHG (International) Limited and WHG Trading Limited is registered in Gibraltar and has its registered office at 57/63 Line Wall Road, Gibraltar. Unless specifically indicated otherwise, the contents of this e-mail are subject to contract; and are not an official statement, and do not necessarily represent the views, of William Hill PLC, its subsidiaries or affiliated companies. Please note that neither William Hill PLC, nor its subsidiaries and affiliated companies can accept any responsibility for any viruses contained within this e-mail and it is your responsibility to scan any emails and their attachments. William Hill PLC, its subsidiaries and affiliated companies may monitor e-mail traffic data and also the content of e-mails for effective operation of the e-mail system, or for security, purposes. * --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I-Descriptor Help
Bjorn, Glad this worked a better way would probably be to use BSCAN :- BSCAN IND.ID, IND.REC FROM FIRST.TEST,REC.ID USING 'RECORD_ID' RESET ELSE FIRST.ID = IND.REC1 END If your key is exactly as you have described then you may also hit some problems with sorting as any time before 2:46:40am has less than 5 digits. Also when creating compound keys I like to use a separator such as '*' or '|' this has some advantages when using SQL to access the data. You may want to consider a key such as RECORD_ID:'*':SYSTEM(99). SYSTEM(99) gives GMT time in seconds since midnight 01-01-1970, this can avoid issues with clocks changing due to daylight saving time. The downside is it is only in whole seconds so if you are updating more than one record per second for a given RECORD_ID this won't work. Cheers, Andy -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Bjorn Behr Sent: 29 April 2009 10:56 To: u2-users@listserver.u2ug.org Subject: RE: [U2] I-Descriptor Help Thanks all for your assistance. I managed to get it to work using Andy's suggestion of a Unibasic SELECTINDEX Statement -: SELECTINDEX RECORD_ID, @ID FROM AUDIT.HIST :- And then just looping through to find the earliest record. Your assistance was much appreciated Bjorn PS: David. IF you know a better way, please feel free to advise. -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Bjorn Behr Sent: 29 April 2009 11:28 AM To: u2-users@listserver.u2ug.org Subject: RE: [U2] I-Descriptor Help David You are correct with what I require. I am trying to get it to work using an I-Type because - It is on the QUOTES File, referencing the AUDIT.HIST File which has a relationship of one to many. - It is required to be on a field on the Quotes File as it is used to extract data for the MIS system for reporting. - If you can suggest another way, I am more than open to suggestions. Thanks Bjorn -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Hona, David Sent: 29 April 2009 11:00 AM To: 'u2-users@listserver.u2ug.org' Subject: RE: [U2] I-Descriptor Help Bjorn Executing queries via an I-type simply doesn't work or if it does - you'll get strange results. Your requirements are a little unclear...but I am guessing here that you're wanting to select the first timestamped record by the specified unique RECORD_ID? Do you have I-types for the Date and Time elements of the @ID - if so, you could: SELECT AUDIT_HIST WITH RECORD_ID = '1234' BY DATE BY TIME FIRST 1 Or something similar - any particular reason you need to have an I-type? Regards David -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Bjorn Behr Sent: Wednesday, 29 April 2009 6:05 PM To: u2-users@listserver.u2ug.org Subject: RE: [U2] I-Descriptor Help Kishor Sorry, should not be BY RECORD_ID, should be BY @ID The key is RECORD_ID:DATE:TIME, RECORD_ID is in Field 1 in the record and refers the the @ID of another file There can be many RECORDS in the AUDIT.HIST File with the same RECORD_ID, but there DATE and/or TIME will differ. Regards Bjvrn Behr SUMMIT CORE Developer Tel No: +27 12 673 3251 Fax No: +27 12 673 4681 E-Mail: be...@frstia.co.za -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of kis...@parmars.com Sent: 29 April 2009 09:46 AM To: u2-users@listserver.u2ug.org Subject: Re: [U2] I-Descriptor Help Hi Bjorn, Why are you using the BY RECORD_ID clause when you are selecting on RECORD_ID = '1537044' ? Should this be @ID for the first record on the AUDIT_HIST file? Regards, Kishor ** IMPORTANT MESSAGE * This e-mail message is intended only for the addressee(s) and contains information which may be confidential. If you are not the intended recipient please advise the sender by return email, do not use or disclose the contents, and delete the message and any attachments from your system. Unless specifically indicated, this email does not constitute formal advice or commitment by the sender or the Commonwealth Bank of Australia (ABN 48 123 123 124) or its subsidiaries. We can be contacted through our web site: commbank.com.au. If you no longer wish to receive commercial electronic messages from us, please reply to this e-mail by typing Unsubscribe in the subject line. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ The information in or attached to this e-mail message is confidential and may be subject to legal privilege and client confidentiality. If you are not the intended recipient of this e-mail or the authorised
RE: [U2] RE: UV - Error when using WHEN [not-secure]
Use LIKE ...'4A'... to prevent pattern matching -Original Message- From: owner-u2-us...@listserver.u2ug.org [mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Hennessey, Mark F. Sent: 03 February 2009 21:03 To: u2-users@listserver.u2ug.org Subject: [U2] RE: UV - Error when using WHEN [not-secure] Apologies - no one has gotten a package from me... important or otherwise! Apparently something in my e-mail triggered our security appliance to lock the message. Sorry! From: Hennessey, Mark F. Sent: Tuesday, February 03, 2009 3:59 PM To: u2-users@listserver.u2ug.org Subject: UV - Error when using WHEN Solaris 10, UV 10.2.2, Information flavor. We are seeing some very odd behavior when trying to use SORT / WHEN on a multi-subvalued field. And by odd behavior I mean totally incorrect output... File Type: Dynamic File Makeup: The file contains associated multivalues and subvalues. Issue: When using the when clause with subvalued Field 7 like '...4a... (DISB LINE column), the only records displayed have PDSB in field 7 no records with 4A are displayed. Here's part of what an unconditional SORT looks like... Notice that OC34.UD.07 (DISB LINE) has values like 'PDSB', 4A. etc. SORT OC34UD.WORK.SP16504 OC34UD.01 OC34UD.02 OC34UD.03 OC34UD.04 OC34UD.06 OC34 UD.07 09:27:25 02-03-09 PAGE 1 LINE. PYEAMT ADD.RPTD.AMT SUB. DISB OC34UD.KEYCDSTO 2a-2h2a-2hLN 2a-2hAMT DISB LINE 14464*19030799*27 10.81REP 10.81 10.81 PDSB 14683*20382253*13 509.00VRC509.00 509.00 PDSB 14811*21191410*115.00VRC 5.005.00 PDSB 14840*21417980*1 22 21.00REP 21.00 21.00 PDSB 14859*21512820*11 142.04VRC142.04 142.04 PDSB 14863*21553328*11 20.00VRC 20.00 20.00 PDSB 14865*700369*1 1 900.00VRC900.00 900.00 PDSB 14869*21548157*17 76.14VRC 76.14 76.14 PDSB 14871*21578431*173.89VRC 3.893.89 PDSB 14877*21601594*17 76.14VRC 76.14 76.14 PDSB 14879*21653295*21 61.002E 61.00 4A 14879*21654502*11 78.002E 26.00 7dF 52.00 4A 14879*21654965*11 232.002E 232.00 4A 14884*21649378*11 379.172E 379.17 4A 14886*21700617*11 432.002E 432.00 4A Now when we try to limit output to just 4A: SORT OC34UD.WORK.SP16504 WHEN OC34UD.07 LIKE ...4A... OC34UD.01 OC34UD.02 OC3 4UD.03 OC34UD.04 OC34UD.05 OC34UD.06 OC34UD.07 09:58:32 02-03-09 PAGE 1 LINE.LINE. PYE AMT ADD. RPTD. AMT SUB. SUBTD DISB OC34UD.KEY CDS TO 2a-2h 2a-2h LN 2a-2h 2a-2h AMT DISB LINE 14464*19030799*2 7 10.81 REP 10.81 2F10.81 PDSB 14683*20382253*1 3509.00 VRC 509.00 2B 509.00 PDSB 14811*21191410*1 1 5.00 VRC5.00 2H 5.00 PDSB 14840*21417980*1 22 21.00 REP 21.00 2C21.00 PDSB 14859*21512820*1 1142.04 VRC 142.04 2F 142.04 PDSB Any ideas/thoughts are welcome... Thanks! Mark --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - ** The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England.
RE: [U2] Speeding up processing through large dynamic table
Look at MATPARSE A11 = DCOUNT(IN.TAB,@AM) DIM RECS(A11) MATPARSE RECS FROM IN.TAB, @AM FOR A1 = 1 TO A11 CUST.NUM = RECS(A1)1,1 CUST.DESC = RECS(A1)1,2 NEXT A1 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of David Laansma Sent: 17 November 2008 18:10 To: u2-users@listserver.u2ug.org Subject: [U2] Speeding up processing through large dynamic table Is there a way to speed up spinning through a very large dynamic table? Here is a sample of my program: A11 = DCOUNT(IN.TAB,@AM) FOR A1 = 1 TO A11 IN.LINE = IN.TABA1 SWAP @VM WITH @AM IN IN.LINE CUST.NUM = IN.LINE1 CUST.DESC = IN.LINE2 NEXT A1 A11 is 85,000+ and as this loop goes on, this thing get really slow. Any tips on speeding this up? --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - ** The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. * --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Selection help
Stuart, You can do:- SELECT LOOKUP.TABLE XYZ SAVING CODE MERGE.LIST 0 UNION 0 MERGE.LIST is very fast even on large lists, removes duplicates and the resultant list is sorted. HTH Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Boydell, Stuart Sent: 23 January 2008 06:57 To: u2-users@listserver.u2ug.org Subject: [U2] [UV] Selection help I have a table which contains an MV list of codes. What I want to do is get a unique list of codes in the table for a lookup list... Table XYZ @ID = XYZ LINE = 1]2]3]4]5]6]7... CODE = AAA]BBB]BBB]CCC]AAA]AAA]BBB... The list I'd like returned is: AAA]BBB]CCC... The semantic I think I'd like is: SELECT LOOKUP.TABLE XYZ SAVING UNIQUE CODE However, this doesn't work. Is there a simple select statement to do this I'm overlooking? Cheers, Stuart ** This email message and any files transmitted with it are confidential and intended solely for the use of addressed recipient(s). If you have received this communication in error, please reply to this e-mail to notify the sender of its incorrect delivery and then delete it and your reply. It is your responsibility to check this email and any attachments for viruses and defects before opening or sending them on. Spotless collects information about you to provide and market our services. For information about use, disclosure and access, see our privacy policy at http://www.spotless.com.au Please consider our environment before printing this email. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Selection help
Stuart, Could also use :- SELECT DISTINCT CODE TO SLIST 0 FROM LOOKUP.TABLE_CODE; providing CODE is defined as multi-valued hth Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Boydell, Stuart Sent: 23 January 2008 06:57 To: u2-users@listserver.u2ug.org Subject: [U2] [UV] Selection help I have a table which contains an MV list of codes. What I want to do is get a unique list of codes in the table for a lookup list... Table XYZ @ID = XYZ LINE = 1]2]3]4]5]6]7... CODE = AAA]BBB]BBB]CCC]AAA]AAA]BBB... The list I'd like returned is: AAA]BBB]CCC... The semantic I think I'd like is: SELECT LOOKUP.TABLE XYZ SAVING UNIQUE CODE However, this doesn't work. Is there a simple select statement to do this I'm overlooking? Cheers, Stuart ** This email message and any files transmitted with it are confidential and intended solely for the use of addressed recipient(s). If you have received this communication in error, please reply to this e-mail to notify the sender of its incorrect delivery and then delete it and your reply. It is your responsibility to check this email and any attachments for viruses and defects before opening or sending them on. Spotless collects information about you to provide and market our services. For information about use, disclosure and access, see our privacy policy at http://www.spotless.com.au Please consider our environment before printing this email. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Need to partially hide a file
Augusto, Can you change your application to use OPENPATH rather than OPEN. This does not require a VOC entry just a path. Cheers, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Augusto Alonso Sent: 28 November 2007 18:46 To: u2-users@listserver.u2ug.org Subject: [U2] Need to partially hide a file Hi all. Can someone tell me if it is possible? I'll explain the scenario: We need to hide some private data (customer personal data) in order to fit with our Private Data Protection Law. But only for some users, the others, they need to have full access. Our app is complex enough to modify the source code. So, our ideal sollution would be making a dynamic File Entry VOC, that will look like this: For Non-privileged users: CT VOC PRIVATEFILE PRIVATEFILE 0001 F 0002 PRIVATEFILE 0003 D_PRIVATEFILE And for privileged users: CT VOC PRIVATEFILE PRIVATEFILE 0001 F 0002 C:\private\PRIVATEFILE 0003 D_PRIVATEFILE so that, the rights could be defined at O.S. level, and the app will allways open a file (the private one or the public one) The problem is that I can't figure out how can I do a VOC entry dependig on the particular user. Or even, if it is possible... TIA. Regards, Augusto Alonso [EMAIL PROTECTED] www.quiter.com --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unable to Create A Pipe
Bill, I think this is something to do with Multi-Threaded sorts you need to disable it in uvconfig. I understand all issues with this are sorted at about 10.1.24 Cheers, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brutzman, Bill Sent: 24 October 2007 22:53 To: 'u2-users@listserver.u2ug.org' Subject: [U2] Unable to Create A Pipe Insight on this run-time error would be appreciated... Unable to create a pipe.[EEXIST] File exists We are running UniVerse v10 on HP-Ux --Bill --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] CUSTOM.GTI.DEFS
Adrian, Take a look at VT220.IKBIND in SYS.TERMINALS, fields 22 to 103 are the keystrokes produced by a standard VT220 terminal. It's not clear from your email what you are trying to do but this file is only used in conjunction with !EDIT.INPUT to cause it to beep rather than exiting when certain keys are pressed (it's not as good as the PI/Open version). HTH, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Adrian Overs Sent: 11 April 2007 13:04 To: u2-users@listserver.u2ug.org Subject: [U2] CUSTOM.GTI.DEFS In Appendix F (BASIC Subroutines) of the online PDF manual page F-10 Mention is made of a CUSTOM.GTI.DEFS file. This page tells me Each terminal keystroke definition record contains a maximum of 82 fields (attributes) which directly correspond to the keystroke code listed in the GTI.FNKEYS.IH include file. My questoin is - Does anyone know what values go in these attributes. We are running UniVerse 10.1.3 for Windows using PIOPEN flavour. We are using vt220 emulation in Dynamic Connect This is how the KETEDIT fields are defined in the terminfo record for vt220 205 KEYEDIT.FUNCTION - 206 KEYEDIT.ESCAPE - 207 KEYEDIT.EXIT - 49,48,59,49,51, 208 KEYEDIT.BACKSPACE - 56, 209 KEYEDIT.MOVE.BACKWARD - 210 KEYEDIT.MOVE.FORWARD - 211 KEYEDIT.INSERT.CHARACTER - 212 KEYEDIT.INSERT.MODE.BEGIN - 213 KEYEDIT.INSERT.MODE.END - 214 KEYEDIT.INSERT.MODE.TOGGLE - 215 KEYEDIT.DELETE.CHARACTER - 216 KEYEDIT.ERASE.END.OF.FIELD - 217 KEYEDIT.ERASE.FIELD Adrian Overs Citysoft Pty Ltd Mobile : 0411 358 354 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I need info on trapping the 'page up' key within a Universe Basic program ... Can anyone point me in the right direction ?
Bob, Have you looked at !GET.KEY? Also for more functioality look at !PACK.FNKEYS and !EDIT.INPUT, not quite as good as they were in PI/Open but they work. Cheers, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Bob Utech Sent: 22 March 2007 12:43 To: u2-users@listserver.u2ug.org Subject: [U2] I need info on trapping the 'page up' key within a Universe Basic program ... Can anyone point me in the right direction ? Bob Utech, I.S. Coordinator Information Services Department (218) 879-3321 ext. 175 Visit RAM on the Web at www.rammutual.com This email and any files transmitted with it are confidential and intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error, please notify the system manager and delete this email from your system. If you are not the named addressee you should not disseminate, distribute or copy this email. If you are not the intended recipient you are notified that disclosing, copying, distributing or taking any action in reliance on the contents of this information is strictly prohibited. Warning: Although the company has taken reasonable precautions to ensure no viruses are present in this email, the company cannot accept responsibility for any loss or damage arising from the use of this email or attachments --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV/Redback] Daylight Saving
Adrian, In $RBHOME/rgw/conf there is a file called rgwresp.ini one of the sections in there is [Default.Environment] you need to set TZ to the appropriate timezone setting. HTH Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Womack, Adrian Sent: 05 December 2006 07:57 To: u2-users@listserver.u2ug.org Subject: [U2] [UV/Redback] Daylight Saving I'm in Perth WA, and we're on Daylight Saving for the fist time in years (as of 2am Dec 2nd). This has caused all kinds of problems, as it was a last minute decision by the government and we had hardly any time to get the various config files setup correctly. We're running UniVerse 10.0.19 (PI/Open flavour) in HPUX. We updated the appropriate config files and rebooted the Unix boxes last week. Unix Universe both clicked over successfully to use the WDT (Wester Daylight time) timezone instead of WST (Western Standard Time). And both Unix Universe are returning the correct time. BUT, our single redback process, which calls Universe routines to update files with some data derived from TIME(), is still returning the WDT time (i.e. 1 hour earlier). We've restarted redback (using restartrgw, I've also tried stoprgw followed by startrgw), and this made no difference. Anyone have any ideas? Thanks, AdrianW DISCLAIMER: Disclaimer. This e-mail is private and confidential. If you are not the intended recipient, please advise us by return e-mail immediately, and delete the e-mail and any attachments without using or disclosing the contents in any way. The views expressed in this e-mail are those of the author, and do not represent those of this company unless this is clearly indicated. You should scan this e-mail and any attachments for viruses. This company accepts no liability for any direct or indirect damage or loss resulting from the use of any attachments to this e-mail. --- u2-users mailing list [EMAIL PROTECTED] - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] Unable to create pipe
Jerry, We had the same issues on hp-ux, try turning off multi-threaded sorts by setting UVTSORT in uvconfig to 0 (you'll need to do a uvregen and stop and start UV after this). Cheers, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of jpb Sent: 05 December 2006 15:42 To: u2-users@listserver.u2ug.org Subject: [U2] [UV] Unable to create pipe Last night and about once a month we get the following error in the UV errlog: Mon Dec 4 17:31:20 17 username Unable to create a pipe. When this happens the person doing the processing continues to get the error until they log out the log in. Then what we do is reboot the system and it goes away for awhile. Any idea what this error means and is there something we can do to prevent it from happening? Jerry Running Universe 10.1.12 on Red Hat Enterprise Linux AS release 3 (Taroon Update 5) Kernel 2.4.21-32.EL on an x86_64 --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ - * The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mai Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE:Merging Unique
P.S. We actually use this as a quick way of removing duplicates from a list, i.e. MERGE.LIST 0 UNION 0, as it's very quick. Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Coelho, Gregory Sent: 26 February 2006 00:55 To: u2-users@listserver.u2ug.org Subject: [U2] RE:Merging Unique Hey, I want 1st say thanks for all the help in the past - it is certainly a factor in why I still have a job! Can anyone let me know how I can merge using Union and be guaranteed that I have not pulled in any duplicate elements? I know I can SAVING UNIQUE when constructing a SAVE.LIST to ensure no duplicate ID's. Can I do something similar when merging? Thanks, Greg --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ** The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE:Merging Unique
Greg, MERGE.LIST removes all duplicates and sorts the keys, it's a feature of how it is implemented. Cheers, Andy -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Coelho, Gregory Sent: 26 February 2006 00:55 To: u2-users@listserver.u2ug.org Subject: [U2] RE:Merging Unique Hey, I want 1st say thanks for all the help in the past - it is certainly a factor in why I still have a job! Can anyone let me know how I can merge using Union and be guaranteed that I have not pulled in any duplicate elements? I know I can SAVING UNIQUE when constructing a SAVE.LIST to ensure no duplicate ID's. Can I do something similar when merging? Thanks, Greg --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/ ** The contents of this e-mail are subject to contract in all cases and William Hill PLC, its subsidiaries or affiliates make no contractual commitment save where confirmed by hard copy. The contents of this e-mail do not necessarily represent the views of William Hill PLC, its subsidiaries or affiliates. We accept no liability, including liability for negligence, in respect of any statement in this e-mail. This e-mail and any files transmitted with it are confidential, may be subject to legal privilege and intended solely for the use of the individual or entity to which they are addressed. If you are not the intended recipient, you are hereby notified that any use or dissemination of this communication is strictly prohibited. If you have received this e-mail in error, please notify us immediately, then delete this e-mail. Please note that William Hill can accept no responsibility for viruses and it is your responsibility to scan any emails and their attachments. This message was from William Hill PLC whose registered office is Greenside House, 50 Station Road, Wood Green, London N22 7TP. Company Registration Number: 4212563 England. ** --- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/