RE: [U2] Enforcing uniqueness of two fields per record?
Hi Wendy, hmm.. I think I understand. You could READU the PERSON file with just the datafield as the ID to 'lock' that UserID, then proceed with the rest of the logic as is. You don't even need to WRITE the UserID as a record to the PERSON file, just use it as a precursor to the rest of your logic which I assume has a field*field locking scheme already in place. This way if another user tried the UserID a millisecond after the first user, you could send a 'please wait' message, until the UserID was RELEASE'd by the first process. Then use an index to tell the second guy he was out of luck and to try another user name. Sounds like it should work hth! Allen E. Elwood Senior Programmer Analyst Sysmark Information Systems, Inc. Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Wendy Smoak Sent: Friday, October 08, 2004 13:12 To: [EMAIL PROTECTED] Subject: RE: [U2] Enforcing uniqueness of two fields per record? > Richard A. Wilson wrote: > cant you just index both fields and use your check index logic That's what I do now, but there's no guarantee of uniqueness. The key is guaranteed unique-- you just can't write two records with the same key. But AFAIK nothing is going to stop me writing two records with a data field set to the same value. I think I have concurrency issues-- if two users try for the same UserID at the same time, they could both "think" they've got it. (Same code running twice, one just after the other.) That's why I'm thinking to use a database trigger to move that final check as close to the write as possible. -- Wendy Smoak --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: gvim on UD
We had this problem (in reverse) when converting a database from a unix system to NT. I had forgotten all about it (working almost exclusively with NT/win2000 systems for the past 9 years or so). -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Jefferson, Jim Sent: Friday, October 08, 2004 09:49 To: [EMAIL PROTECTED] Subject: RE: [U2] RE: gvim on UD This may not apply, but my recollection is that unless you specify a "binary" transfer type when ftp'ing your ftp client and server should properly negotiate the to (and vice versa) swaps. If you're specifying binary, this conversion does not take place which would leave you with the extraneous CR's in your file. Jim -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Shawn Waldie Sent: Friday, October 08, 2004 10:53 AM To: [EMAIL PROTECTED] Subject:RE: [U2] RE: gvim on UD With gvim, I'm editing on my windows pc; then I ftp the source over to the unix host. I'll give Paul's suggestion a shot. -Original Message- From: Ken Wallis [mailto:[EMAIL PROTECTED] Sent: Thursday, October 07, 2004 5:20 PM To: [EMAIL PROTECTED] Subject: RE: [U2] RE: gvim on UD Where are you editing the programs with gvim? On a windows box somewhere, or on UNIX? If running on windows, but accessing a unix file, then you may find that gvim has decided to put in a CRLF instead of just a linefeed at the end of each line. gvim is infinitely configurable, and I'm sure there'll be a way to make it behave the way you need it to. Cheers, Ken --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: gvim on UD
I don't know what gvim is, but if you're getting compiler errors on blank lines, just change them to *. I'm assuming that you put the blank lines in to make the code more readable? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Thursday, October 07, 2004 12:39 To: [EMAIL PROTECTED] Subject: [U2] RE: gvim on UD This may be common knowledge to most of you, but I just looked at a program that I wrote without gvim and there are no CRs. So the million dollar question is: how do I keep those from existing when editing with gvim/vim? -Original Message- From: Shawn Waldie Sent: Thursday, October 07, 2004 1:23 PM To: '[EMAIL PROTECTED]' Subject: gvim on UD I modified a program using gvim (for the first time) this morning, but the compiler returns several errors, the first of which is due to a line with nothing but a CR. I obviously need to tweak something. Has anyone out here encountered this? * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Fancy Printer
We used Printek printers at my old place of employment. We ended up buying three of them as they work very well. Unless someone staples forms together to "save" a couple of forms, in which case the print head will break and cost $400 bucks to replace because they don't cover stupidity in the warrantee. I set up the non-greenbar forms so they would switch to the desired form, do the print, and then switch back to greenbar when done. This way, only the special forms programs needed to be changed, and everything was totally automatic. Very nice. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson Sent: Tuesday, October 05, 2004 22:57 To: [EMAIL PROTECTED] Subject: [U2] Fancy Printer Two printer questions: First, any recommendations on a multiple paper printer. For example, the first page would be tray 1 with a letterhead, Page 2 would be a form using tray 2 and pages 3,4,5 etc would be tray 3 having white paper. Have a working knowledge of HP PCL (5/6) I just don't know which printer could handle this kind of output. If the printer could staple the pages together, it would be that much better. I've seen copy machines with this kind of magic. I'm just looking for some direction in choosing a printer. Second, sort of for D3. Are there any repetitive printer strings that could be send to the printer that precedes the actual output for each hold file. I'm dancing with a few clients having medium HP printers and the same report comes out landscape or portrait depending on the previous output (pick or word documents etc). I would like to either precede the output with an ESC E to clear to the defaults or actually force the default continuously. Presently I'm managing each report program by hand but there should be a more global solution. These are Laserjet Series 6's. I don't have this problem on HP 2000 series. Thanks in advance. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Emulation screen size & Editing
Looks like I'll have to go out and do some font hunting. I've been using Lucida Console. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Barry Brevik Sent: Monday, October 04, 2004 09:01 To: '[EMAIL PROTECTED]' Subject: RE: [U2] Emulation screen size & Editing >At font size 8 I can get 132 columns on my 19" monitor and it's barely >readable. How in the world could anyone read a 165 column display? I'm getting 200 columns x 49 lines using wIntegrate and IBSfont 5x9 on a 17" monitor with 1024x768 reso. It is quite readable, but anything smaller is not. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Emulation screen size & Editing
???!! At font size 8 I can get 132 columns on my 19" monitor and it's barely readable. How in the world could anyone read a 165 column display? (35" monitor?) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Stuart Boydell Sent: Sunday, October 03, 2004 00:44 To: [EMAIL PROTECTED] Subject: RE: [U2] Emulation screen size & Editing Netterm: 165 cols x 65 rows, colour vt220 emulation with SB+. EditPlus 2: for all editing (including compiling UV basic on unix & windows). > -Original Message- > With Accuterm and a 19 inch monitor, I run WED with a font size > of 10 and I > get 118 wide by 57 long! All very legible. :-) A full screen windows > interface, with all the standard short cuts, took me a whole half > an hour to > master all the features. > ** 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 email in error please notify the Spotless IS Support Centre (61 3 9269 7555) immediately who will advise further action. This footnote also confirms that this email message has been scanned for the presence of computer viruses. ** --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV: Array index out of bounds
With Accuterm and a 19 inch monitor, I run WED with a font size of 10 and I get 118 wide by 57 long! All very legible. :-) A full screen windows interface, with all the standard short cuts, took me a whole half an hour to master all the features. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Karl L Pearson Sent: Friday, October 01, 2004 08:47 To: u2-users Subject: Re: [U2] UV: Array index out of bounds As an administrator, I do all my programming in ED or vi. I even write HTML with vi (vi=vim/gvim in all cases). I grew up on ED and don't mind using it. Of course, I never run an 80x24 screen anymore. I'm in 80x60 so a 'P' gives me a large window of code. Working in something one is used to makes work faster. Of course, that begs the question which is something about stopping to sharpen the saw... Karl On Thu, 2004-09-30 at 17:45, Sean W Ferguson wrote: > Wait, people actually do all their programming with ED? > > Karl L Pearson wrote: > > >So does this mean the UV ED verb is broken? I'd rather us VIM anyway, > >but this isn't an option for our programmers. They are PICK-only guys > >who have never even seen vi, let alone used it. > > > >Karl > > > >On Thu, 2004-09-30 at 10:54, Mike Dallaire wrote: > > > > > >>Karl, > >>We have seen this error on a few occassions. In our case, it is normally > >>from a FOR/NEXT loop or an IF statement being to large. We just break it > >>apart and everything returns to normal. > >>HTH, > >>Mike Dallaire > >>Mortgage Builder Software Inc. > >>(248) 208-3223 ext. 103 > >>[EMAIL PROTECTED] > >>www.mortgagebuilder.com > >> > >> > >> > >>-Original Message- > >>From: [EMAIL PROTECTED] > >>[mailto:[EMAIL PROTECTED] Behalf Of Karl L Pearson > >>Sent: Thursday, September 30, 2004 11:11 AM > >>To: u2-users > >>Subject: [U2] UV: Array index out of bounds > >> > >> > >>The error message in ~/uv/errlog is: > >>Thu Sep 30 08:42:58 66 root Program "ED": pc = 4d28, Message[040005] > >> > >>SYS.MESSAGE 040005<1> = Array index out of bounds > >> > >>This has happened twice. Once yesterday and once today. I wouldn't have > >>noticed if it hadn't happened to me one of those times. > >> > >>I was editing a program and the session died with the above error > >>message printed to my screen which I read briefly before the ON.EXIT > >>stuff erased it. > >> > >>Anyone seen this before? > >> > >>We are on AIX 4.3.3 and UV 10.0.14. > >> > >>Thanks > >> > >>-- > >>Karl L. Pearson > >>Director of IT, > >>ATS Industrial Supply > >>Direct: 801-978-4429 > >>Toll-free: 888-972-3182 x29 > >>Fax: 801-972-3888 > >>http://www.atsindustrial.com > >>[EMAIL PROTECTED] > >>--- > >>u2-users mailing list > >>[EMAIL PROTECTED] > >>To unsubscribe please visit http://listserver.u2ug.org/ > >>--- > >>u2-users mailing list > >>[EMAIL PROTECTED] > >>To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ -- Karl L. Pearson Director of IT, ATS Industrial Supply Direct: 801-978-4429 Toll-free: 888-972-3182 x29 Fax: 801-972-3888 http://www.atsindustrial.com [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] vi editor question - using DUP
So far, I've received about 40 copies of this message from Rod and John. Anyone else getting this insane deal, or has my ISP (Time Warner) gone completely insane? Perhaps putting DUP in the subject line wasn't such a great idea?? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of John Godzina Sent: Wednesday, September 29, 2004 12:45 To: [EMAIL PROTECTED] Subject: Re: [U2] vi editor question - using DUP In command mode yyp will copy the current line and paste it below. 5yy will copy 5 lines (line cursor is on and 4 following lines). Move to where you want and p will paste it there. 3yy will copy three lines, move to where you want and 7p will paste those 3 lines 7 times. There's also visual mode (block, line) where you can copy/paste/delete/change lots of things. Try :help visual or just :help and look at the section on 'Making big changes' (usr_10.txt file, iirc). In an xterm you can also cut n paste w/ the mouse, but sometimes (esp without :set paste can mess with tab stops. Here's a interesting thing I use a bit: line 1 IF (FOO=BAR) THEN line 2 DO SOMETHING HERE line 3 AND HERE line 4 END line 5 MORE CODE ... go to the first column of line 1 in command mode. Enter block-wise visual mode (Cntrl-v). Move cursor down to 1st column of line 5. Press Shift-I. Then hit TAB, then ESC, and ESC again. What this does is move lines 1-5 one tab stop to the right (yes, there are other ways to do this). Also look at :help v This is the tip of the tip of the iceburg. John On Wed, 29 Sep 2004, May, Brad wrote: > The other day, while coding (in Unidata) I was attempting to initialize > a new variable I decided to name DUP.COUNTER. > > However, after just typing the letters DUP, I accidentally hit the enter > key and was surprised to see that the previous line above repeated. I > have been exclusively using LOAD to copy or repeat lines of code in a > program until I noticed the dup thing. What is the best way to copy, > repeat a line or duplicate blocks of code in vi editor? Is there > documentation somewhere on any editing commands available within vi > editor? > > > > I know there are other editors and am wondering if it would behoove me > to check into some rather than sticking with vi editor. > > > > Thanks for any info! > > > > Brad May > > Thiel College, Greenville, PA > > ### > > This message has been scanned by > F-Secure Anti-Virus for Microsoft Exchange. > For more information, connect to > http://www.f-secure.com/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] I descriptor and subroutine
Hey,
Not a clue. However, in a program you could :
PRINT 'Enter file name to count records: ':;INPUT FNAME
PERFORM 'SELECT ':FNAME
REC.COUNT = @SYSTEM.RETURN.CODE
PRINT 'File : ':FNAME:' has ':REC.COUNT:' records '
PERFORM 'CLEARSELECT'
STOP
Or, maybe if your subroutine called another regular subroutine instead of
one associated with a dict item?
hth,
Allen E. Elwood
Senior Programmer Analyst
Direct (818) 361-5251
Fax(818) 361-5251
Cell(818) 359-8162
Home (818) 361-7217
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Stu Glancy
Sent: Tuesday, September 28, 2004 13:25
To: [EMAIL PROTECTED]
Subject: [U2] I descriptor and subroutine
U2 Users Group, International wrote:
Forums U2 Users Group, International
Community :: Chatter ::.. I descriptor and subroutine
rotto wrote at Sep 28, 2004 - 05:34 PM
-
Hey,
I'm running a sub from an I-descriptor in uv. I want to count the number of
records in a table, but you cannot do a SELECT or COUNT in a sub running
from i-descriptor.
Is there any other way to get the number of records in such a sub or in a
i-descriptor?
Thanks
Rehan
-
My VOC record COUNT.REC will count records in a file from an I-Descriptor:
0001: I
0002: SUBR("SUB.COUNT.REC",@ID)
0003:
0004: COUNT
0005: 30L
0006: S
0001: SUBROUTINE SUB.COUNT.REC(RESULT,FILENAME)
0002: OPEN FILENAME TO FILE THEN
0003: SELECTN FILE TO 2
0004: DONE = 0
0005: CNTR = 0
0006: LOOP
0007: READNEXT K FROM 2 ELSE DONE = 1
0008: UNTIL DONE
0009: CNTR += 1
0010: REPEAT
0011: RESULT = CNTR
0012: END ELSE
0013: RESULT = 'OPEN ERROR'
0014: END
0015: CLOSE FILE
0016: RETURN
Bottom at line 16.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] hello ?
Ok, that's it. I'm getting out the Marshall amp and Strat and wale away at Obscured from vision by the clouds.. Born on the spring equinox, it's my fate :-D -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Michael S. O'Rear Sent: Thursday, September 23, 2004 07:31 To: [EMAIL PROTECTED] Subject: RE: [U2] hello ? Not just Floyd fans but DRUID floyd fans to boot! -Original Message- From: Peter Gonzalez <[EMAIL PROTECTED]> Sent: Sep 23, 2004 9:55 AM To: [EMAIL PROTECTED] Subject: RE: [U2] hello ? a FLOYD fan! Now i know I'm in the right place. At 06:06 AM 9/23/2004 -0600, you wrote: >Careful with that axe, Eugene! > > > -Original Message- > > From: [EMAIL PROTECTED] [mailto:owner-u2- > > [EMAIL PROTECTED] On Behalf Of Stuart Boydell > > Sent: Wednesday, September 22, 2004 9:11 PM > > To: [EMAIL PROTECTED] > > Subject: RE: [U2] hello ? > > > > > Yes us pagans are dancing in the moonlight and had to address the > > > 4 element > > > forces at noon... ;-) call to the East, South, North & West.. > > > > Ah, NOW I understand how this thread is related to MV... you were gathered > > in a cave and grooving with a Pict.* >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ Peter Gonzalez Senior Programmer Analyst M & M Aerospace Hardware, Inc., a B/E Aerospace Company 1 NW 15 Terrace Miami, Florida 33172 Phone: 305.925.2714 Fax: 305.925.2610 www.mmaero.com --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] hello ?
Hi LeRoi, G what a hoosier I am, eh? ;-) I can't believe I didn't think of Canada! DUHHHhh... In my defense, the "Santa Anna" (devil) winds are blowing out here in the San Fernando valley just north of Los Angeles and our humidity level went from around 70% to around 20% this week resulting in a MASSIVE reduction of my mental facilities due to sinus pain. Always takes a couple of days to adjust Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of LeRoi Keiller Sent: Wednesday, September 22, 2004 13:25 To: [EMAIL PROTECTED] Subject: RE: [U2] hello ? Hey, Allen Are you trying to be funny? -> "email in .ca?" -> You Americans always like to make the jokes with the Canadians, eh? :o) (.ca = Canada) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Allen E. Elwood (CA) Sent: Thursday, 23 September 2004 4:20 To: [EMAIL PROTECTED] Subject: RE: [U2] hello ? Importance: Low End of the summer here in the states. A lot of people are taking vacation before the warm weather is gone. Where are you? (email ending in .ca ?) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of gerry Sent: Wednesday, September 22, 2004 10:10 To: [EMAIL PROTECTED] Subject: Re: [U2] hello ? the list is very dead today - is some holiday somewhere ? - Original Message - From: "Paul Trebbien" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, September 22, 2004 12:04 pm Subject: RE: [U2] hello ? > I'm here > > > Paul Trebbien > > Kore Technologies, Senior Support Tech. > > "Solutions that work. People who care." > > V 858.678.0030 F 858.300.2600 W www.koretech.com > > > > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of gerry > Sent: Wednesday, September 22, 2004 8:04 AM > To: [EMAIL PROTECTED] > Subject: [U2] hello ? > > > where'd everybody go ? > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] hello ?
End of the summer here in the states. A lot of people are taking vacation before the warm weather is gone. Where are you? (email ending in .ca ?) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of gerry Sent: Wednesday, September 22, 2004 10:10 To: [EMAIL PROTECTED] Subject: Re: [U2] hello ? the list is very dead today - is some holiday somewhere ? - Original Message - From: "Paul Trebbien" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Wednesday, September 22, 2004 12:04 pm Subject: RE: [U2] hello ? > I'm here > > > Paul Trebbien > > Kore Technologies, Senior Support Tech. > > "Solutions that work. People who care." > > V 858.678.0030 F 858.300.2600 W www.koretech.com > > > > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of gerry > Sent: Wednesday, September 22, 2004 8:04 AM > To: [EMAIL PROTECTED] > Subject: [U2] hello ? > > > where'd everybody go ? > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] hello ?
We're hiding -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of gerry Sent: Wednesday, September 22, 2004 08:04 To: [EMAIL PROTECTED] Subject: [U2] hello ? where'd everybody go ? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] - I-Desc IF, THEN, ELSE or SUBR -IFS
Hi Karl,
Not sure about standard subr's, but if you wanted to write your own SUBR it
is do-able. It's really not all that hard. In U2 the syntax is:
On the Dict item in attr 2 you have:
SUBR("SUB.PROGRAM.NAME", Dict_Item_Name1, Dict_Item_Name2, ..,
Dict_Item_Name999)
and in the SUBR header you have:
SUBROUTINE SUB.PROGRAM.NAME (VALUE.TO.RETURN, Dict_Item_Name1,
Dict_Item_Name2, .., Dict_Item_Name999)
[do you dcount off of one of the dict names you passed]
[set up your loop]
[stuff data into VALUE.TO.RETURN]
RETURN
I don't even used the standard CATS and SPLICES and stuff 'cause by the time
I figure it out, I could have already written three custom subrsthe
odd thing is that the param list differs from any other subroutines as in
the dict you put the program name to call in the first position, and in the
actual subroutine in the first position, you put the datum to return.
hth!
Allen E. Elwood
Senior Programmer Analyst
Direct (818) 361-5251
Fax(818) 361-5251
Cell(818) 359-8162
Home (818) 361-7217
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Karl L Pearson
Sent: Tuesday, September 21, 2004 13:44
To: u2-users
Subject: Re: [U2] [UD] - I-Desc IF, THEN, ELSE or SUBR -IFS
Okay then... That works for me, too, but in my case, I just get the
LAST, or highest numbered item. That's because our F6 only contains n+1
for line items on an invoice.
Is there syntax in an I-Desc that would equal:
FOR X = F6 to 1 step -1
???
Thanks,
Karl
On Tue, 2004-09-21 at 14:17, Hruby, Paul wrote:
> Thanks Bryan, Glenn, Ian and others.
>
> I had since come up with the same conclusion using the following which
seems
> to work well:
>
> SUBR("-IFS",KEYTWO NE "",SUBR("-CATS",REUSE(@ID:"*"),KEYTWO),"")
>
> It may be an over kill, but it does the job. After I sent off the help
> request, I had tried a few things with REUSE() that didn't work well until
I
> used -CATS also (duh!).
>
> Oh well, it's nice to have such a great resource available like the
members
> at u2-users.
>
> Again, thanks to all who have helped. Receiving the list via digest mode
it
> hard to see replies right away.
>
> Paul
>
> --
>
> Date: Tue, 21 Sep 2004 14:25:53 -0400
> From: Glenn Herbert <[EMAIL PROTECTED]>
> Subject: Re: [U2] [UD] - I-Desc IF, THEN, ELSE or SUBR -IFS
>
> Field 2 should be:
>
> CATS(REUSE(@ID),CATS(REUSE("*"),FILETWO))
>
>
>
> Try
>
> SUBR("-CATS",REUSE(@ID:"*"),KEYTWO)
>
> Since the ID is not multivalued, you have to provide a hint to say you
want
> to repeat it for each multivalue.
>
> Hth,
> Ian
> ---
> u2-users mailing list
> [EMAIL PROTECTED]
> To unsubscribe please visit http://listserver.u2ug.org/
--
Karl L. Pearson
Director of IT,
ATS Industrial Supply
Direct: 801-978-4429
Toll-free: 888-972-3182 x29
Fax: 801-972-3888
http://www.atsindustrial.com
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] - I-Desc IF, THEN, ELSE or SUBR -IFS
Looks like you need REUSE(@ID) in your subr
HTH, *=aee=*
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Hruby, Paul
Sent: Tuesday, September 21, 2004 11:04
To: '[EMAIL PROTECTED]'
Subject: [U2] [UD] - I-Desc IF, THEN, ELSE or SUBR -IFS
Greetings,
I'm not quite sure what I'm doing wrong, but here is a background of what
I'd like to accomplish. Hopefully, I have provided the right/enough
information. Also, I receive the list in digest mode, so any dialog would
be delayed.
FileOne has a Muli-value Attribute<1> that contains a list of items.
FILEONE
ID= 12345
KEYTWO= 001^002^003
FileTwo's ID is comprised of FileOne's ID and FileOne Attribute<1>
(KEYTWO)example:
FILETWO
ID= 12345*001
ID= 12345*002
ID= 12345*003
What I'm trying to do is build an I-Desc that will allow me to list out
FileOne and with FileTwo's ID. Example:
LIST FILEONE FILETWO.KEY
FILEONE FILETWO.KEY
12345 12345*001
12345*002
12345*003
Here is what I've tried so far.
I-Desc
FILETWO.KEY
001:I
002:IF KEYTWO EQ "" THEN "" ELSE @ID:"*":KEYTWO
006:M
Results of LIST FILEONE FILETWO.KEY
@ID FILETWO.KEY
12345 12345*001
002
003
Using SUBR
FILETWO.KEY
001:I
002:SUBR("-IFS",KEYTWO="","",@ID:"*":KEYTWO)
006:M
Results of LIST FILEONE FILETWO.KEY using SUBR -IFS
@ID FILETWO.KEY
12345 12345*001
002
003
>From what I see, using either IF THEN ELSE or SUBR -IFS, the outcome is the
same. Can someone point me in a different direction? I thought the -IFS
routine would give me the results I desired above.
Thanks in advance
Paul
P. Hruby
Police Database Coordinator
Scottsdale Police Dept.
[EMAIL PROTECTED]
*** Information sent from & received by this email address may be considered
public information ***
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] spammed
I type at about 120wpm, and my 10 key is about 14000kph. In the time it took for me to write this message, I could have probably identified and deleted about 25 spams. I don't really think it is a big deal at this point in time. :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Larry Hiscock Sent: Tuesday, September 21, 2004 09:49 To: [EMAIL PROTECTED] Subject: RE: [U2] spammed > you post your address yourself everytime you post to this list just > like the one i am replying to - take a look at the From: header. Sorry folks, but this is a limitation of Majordomo/Sendmail. We can't change the "From:" header, it's actually part of the RFC. After all the mail isn't "from" Majordomo or the list, it's only relayed from there. Larry Hiscock Moderator --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2][UD] Create file/record if it does not exist
Open the file both ways. Then you can do a READ REC FROM FILEHANDLE, ID ELSE WRITE "" ON FILEHANDLE, ID END OPENSEQ.. HTH, *=aee=* -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Chauhan, Savita Sent: Monday, September 20, 2004 14:37 To: [EMAIL PROTECTED] Subject: RE: [U2][UD] Create file/record if it does not exist This is how I open my file. X.EXT.FILE = '_HOLD_/XHR.PLINK.BENDED.EXTRACT' OPENSEQ X.EXT.FILE TO f.xhr.plink.bended.extract ELSE ERR.MSG = "Error Opening XHR.PLINK.BENDED.EXTRACT. Error code ":STATUS() CRT ERR.MSG RETURN END This code aborts with a status() of 0 if the file/record doesn't exist under the _HOLD_ dicrecotry. The successful read is 0 too. So I don't know how to check the existence or non-existence of this file/record. Please help. Thanks. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Monday, September 20, 2004 2:16 PM To: [EMAIL PROTECTED] Subject: RE: [U2][UD] Create file/record if it does not exist Have you tried using the ELSE clause with the OPENSEQ? That's how I usually do it. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Chauhan, Savita Sent: Monday, September 20, 2004 1:44 PM To: [EMAIL PROTECTED] Subject: [U2][UD] Create file/record if it does not exist Hi, Is there a UniBasic command which will let me do the following: -- Open a seq file. If it does not exist then create one and open it. --- The seq file that I want to create/open is in the _HOLD_ directory, so its kinda record in the _HOLD_ file. I thot of working with the STATUS code returned by OPENSEQ. But, it returns a 0 if the record does not exist and the same 0 if it's a successful open!! How do I check the existence of this record/file? Thanks. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] spammed
And just got one to my email address that I use for this list from "[EMAIL PROTECTED]" with the subject "Re:Is that your password". Deleted without opening. Wasted bandwidth...however Time Warner is coming out tomorrow to upgrade my cable connection to 3mbps. So who cares about a couple of spams :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of gerry Sent: Monday, September 20, 2004 12:37 To: [EMAIL PROTECTED] Subject: Re: [U2] spammed that's the one - Original Message ----- From: "Allen E. Elwood (CA)" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Monday, September 20, 2004 12:43 pm Subject: RE: [U2] spammed > NET*SKY.*P and Net*sky.*P I got this morning on the address I use for this > list. (asterisks added to avoid getting filtered away into the bit bucket) > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of gerry > Sent: Monday, September 20, 2004 08:13 > To: [EMAIL PROTECTED] > Subject: [U2] spammed > > > i just received a viral mail delivery notification notice sent to my email > address that is used solely for the u2 list and absolutely nothing else. > anyone else get this ? > > gerry > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] spammed
NET*SKY.*P and Net*sky.*P I got this morning on the address I use for this list. (asterisks added to avoid getting filtered away into the bit bucket) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of gerry Sent: Monday, September 20, 2004 08:13 To: [EMAIL PROTECTED] Subject: [U2] spammed i just received a viral mail delivery notification notice sent to my email address that is used solely for the u2 list and absolutely nothing else. anyone else get this ? gerry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] mvBase spooler
Thanks for the tip Tony. I really didn't have any idea of where else to ask, so I asked here. I worked with Microdata Pick from 88 to 92, but since then U2. I have one client that I'm working for now on Raining Data. Weird how 'primitive' it is. Like opening a time capsule.my problem ended up being that the system was expecting PAGE instead of using CHAR(12). It did a page eject on the CHAR(12) but when the internal line counter hit 60 without a PAGE command, it would do another page eject to "help" me.or drive me insane, take your pick ;-) At least it works now, and I still have over 10 days before the deadline. Color me HAPPY! Now, if you have any ROI Systems questions, just email me directly. I know that code like the back of my hand. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Tony Gravagno Sent: Saturday, September 18, 2004 13:45 To: [EMAIL PROTECTED] Subject: RE: [U2] mvBase spooler Allen E. Elwood (CA) wrote: > Does anybody know in a Raining data mvBase system, *is* there a file > for the spooled jobs, and if so, what the name might be? I really > truly hate SP-EDIT and have a spooler that I wrote for Unidata that I > would like to port over. Seeing this thread growing I'll stick my nose in: Questions about Raining Data products are more appropriate here: http://forums.rainingdata.com/ Sure, you'll probably find more former users of their products here than you will find current users of their products there, (ouch) but I don't think people here want to discuss syntax of systems they don't work with. This thread has spawned some useful notes from Mark and Bill but this is a U2 forum afterall. If the question is "what's the MVBASE/D3 equivalent of the Unidata X command?" then sure, no one there would know what you're talking about, so this is the best place. Regards, Tony [EMAIL PROTECTED] (Former RD product manager, still a big fan) --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Comparison Unidata and Universe
Kevin King Wrote: >If the S/A is >paranoid and won't open up ftp access, and there are no other good >transfer tools available, it's easier to open up AE and make a couple >of minor changes Yes, that's when I use my full page editor written in U2. All the comforts of a windows based editor, but without the file-transfer hassles (permission OR slow modems). Plus I can modify it at whim to create short cuts that would be impossible any other way for special projects that have a lot of repetitious activity. If I have a fast connection and permission, then I used WED which comes with Accuterm. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] universe platform change unix to w32
At ROI Systems we had a huge unix machine running U2 and never a memory leak. When I was enslaved, er employed at a company running U2 under WinNT we never had a memory leak and it ran for years without a reboot. On the other hand, I've heard of people that needed to reboot their U2 systems very often using both Unix and NT. Number of users did not seem to be a factor - some fairly small unix installs had this problem. The most common factor to these leaks that I've seen is loading up *anything* besides U2 and the applications on the U2 server. We even had virus scan running on a different machine and just had the server's drives mapped so VS could see it. Sorry I can't comment on UV though, never used it. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews Sent: Saturday, September 18, 2004 00:45 To: [EMAIL PROTECTED] Subject: RE: [U2] universe platform change unix to w32 IMHO stay on aix. In my experience Universe is a much better product on Unix. We have to reboot once a fortnight because of memory leaks and processes that won't go away. Also the manuals and technotes are always written from a Unix point of view. I think for the smaller systems, say under 150 users, then Windows is fine. But for true 24/7 availability with thousands of users you really need Unix. Universe is a superb product but IMO it gets dragged down by Windows. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of hubi ming Sent: 17 September 2004 21:21 To: [EMAIL PROTECTED] Subject: [U2] universe platform change unix to w32 dear u2 gurus, it's my first stay in this group. hope i'm not out of topic. i have a few hunderds universe accounts 10.0.7 which are running on a aix 5.2 box. my questions a) the aix/rs6000 platform proved to be very stable with universe. can i expect the same relability on w2k3 servers ? b) how do i have to convert the accounts from unix to windows (ntfs). any commands, utilities, tools etc ? thanx alot hubert ming iggi lucerne --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ The information contained in this email is strictly confidential and for the use of the addressee only, unless otherwise indicated. If you are not the intended recipient, please do not read, copy, use or disclose to others this message or any attachment. Please also notify the sender by replying to this email or by telephone +44 (0)20 7896 0011 and then delete the email and any copies of it. Opinions, conclusions (etc.) that do not relate to the official business of this company shall be understood as neither given nor endorsed by it. IG Markets Limited and IG Index Plc are authorised and regulated by the Financial Services Authority and, in Australia, by the Australian Securities and Investments Commission. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] mvBase spooler
Hi Mark, I can twiddle bits with the best of them, but I have to have a target. LIST PEQS just returns [10] FILE NAME MISSING Sigh.. After using Unidata in different flavors/incarnations since 1992 working with a native pick system is certainly a challenge. I'll look up the doc's on the -F option and see if that will help me see things better. The main problem I'm having is that my print job which is one of those PAGE x OF xx PAGES where you stick all the header and detail lines into a print buffer as you count the total number of pages, is doing a page break every 24 lines and the frustration of dealing with SP-EDIT is certainly not helping. Got an end of the month deadline and my program goes nutso. Whoopee! Now, really, this is so simple. I think the O/S is "helping" me by adding in extra page breaks. I've checked TERM and printer output is set to 132,60. I think I'll just run around the house pulling my hair out for a while, and then maybe set in the corner and go quietly insane ;-) PrintTheInvoice: EXECUTE "TERM" ; *test stmt INPUT DUH.ME ; *test stmt PRINTER ON PRINT.COUNT = DCOUNT(PB,@AM) FOR AEE = 1 TO PRINT.COUNT LNO = PB<1> DEL PB<1> IF LNO[1,3] = '*#*' THEN LNO.LN = LEN(LNO) - 3 LNO= LNO[4,LNO.LN] PRINT LNO:PAGE.COUNT END ELSE PRINT LNO END NEXT AEE PRINTER OFF RETURN -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson Sent: Saturday, September 18, 2004 06:27 To: [EMAIL PROTECTED] Subject: Re: [U2] mvBase spooler I work with U2 and non U2 MV's (MVBase, D3, MCD, most natives) and SP-EDIT is a pain. It's so old school it's a shame D3/MVBase still use it in its Jurrasic Pick incarnation. Don't get me started on all the combinations of options to handle any problems. One of the manuals even refers to it as Spooler Warfare. I have a utility that converts any SP-EDIT hold file to a file-level item for easy editing. It uses the SP-EDIT spool=F option. Some systems create multiple records and others assemble them into one. These file-level items are RUNOFF records. Thus to re-print the hold file with any changes your system must have RUNOFF. If not, you can remove the embedded simple RUNOFF commands (lines that start with a ) and just convert them to form-feeds. I think _HOLD_ matches lines to the SETPTR settings and may not have char(12)'s. The filename that you *are* looking for is called PEQS and while you can type LISTPEQS the data isn't really usable data. That's why they have LISTPEQS. I also have a utility that emulates the SP-JOBS of Microdata which I believe is the best spooler manager. It only replicates the SP-JOBS of hold-file management and not SP-STATUS of device management. That is a real different thing on native versus network versions of D3/MvBase. Hopefully this helps. Mark Johnson - Original Message - From: "Allen E. Elwood (CA)" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Friday, September 17, 2004 7:43 PM Subject: [U2] mvBase spooler > Does anybody know in a Raining data mvBase system, *is* there a file for the > spooled jobs, and if so, what the name might be? I really truly hate > SP-EDIT and have a spooler that I wrote for Unidata that I would like to > port over. > > > Allen E. Elwood > Senior Programmer Analyst > Direct (818) 361-5251 > Fax(818) 361-5251 > Cell(818) 359-8162 > Home (818) 361-7217 > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] mvBase spooler
Does anybody know in a Raining data mvBase system, *is* there a file for the spooled jobs, and if so, what the name might be? I really truly hate SP-EDIT and have a spooler that I wrote for Unidata that I would like to port over. Allen E. Elwood Senior Programmer Analyst Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] UV: Indexing I-Descriptors
Don't know about UV but in U2 you need to put quotes around the file name
Like so:
0002 TRANS("BOHDR",(ORDER.NUMBER),"5","X")
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Karl L Pearson
Sent: Friday, September 17, 2004 08:50
To: u2-users
Subject: [U2] UV: Indexing I-Descriptors
I just had an experience (UV 10.0.14, AIX 4.3.3) of indexing an
I-Descripted DICT item and than having a very important routine fall
down.
Selecting against the TYPE I-Desc fails after being indexed and doesn't
before.
I seem to remember a bug in this but hoped the bug had been solved...
Here's the I-Desc:
0001 I
0002 TRANS(BOHDR,(ORDER.NUMBER),'5','X')
0003
0004 ORD?TYP
0005 2R
0006 S
<0007... DELETED>
Another thought: Is there a problem right justifying? Should it be left
(counter-intuitive from my perspective)?
--
Karl L. Pearson
Director of IT,
ATS Industrial Supply
Direct: 801-978-4429
Toll-free: 888-972-3182 x29
Fax: 801-972-3888
http://www.atsindustrial.com
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] attachments
Hi Mark, I swear, every single message I have has an attachment on it. I've been to busy to try to see if it's something on my end or what, but maybe this evening when I have time I can see what the deal is... And stop ing ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Marc Harbeson Sent: Thursday, September 16, 2004 13:06 To: [EMAIL PROTECTED] Subject: RE: [U2] attachments What attachments? -Original Message----- From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] Sent: Thursday, September 16, 2004 2:17 PM To: [EMAIL PROTECTED] Subject: [U2] attachments This morning I started getting attachment along with the u2 user mail. Is everyone else getting these, or am I the only lucky one? ;-) I haven't opened any - just doesn't seem a wise choice. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] attachments
This morning I started getting attachment along with the u2 user mail. Is everyone else getting these, or am I the only lucky one? ;-) I haven't opened any - just doesn't seem a wise choice. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Alas .NET
I finally upgraded to w2000 and the speed is much better, and I don't have stupid problems with VPN and I could go on and on about all the stuff that works better, but that would be boring. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brutzman, Bill Sent: Wednesday, September 15, 2004 06:37 To: '[EMAIL PROTECTED]' Cc: Hopp, Raymond Subject: [U2] Alas .NET How bitter that Microsoft requires Win2k or better on the client side. I was hoping that Win98 would live for a few more years. I wish that my facts were wrong... --Bill --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] major (?) @var security hole
Actually CONTINUE and EXIT solve all the uber-nesting problems. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews Sent: Sunday, September 12, 2004 13:11 To: [EMAIL PROTECTED] Subject: RE: [U2] major (?) @var security hole Lol, nothing wrong with Goto, in a language that can't raise events it's one of the ways of handling errors neatly without excessive nesting or flag setting. IAM is very useful in an environment when you have multiple development streams running on the same server. I've used it extensively in the past. Now we have the luxury of several development and test servers. From: [EMAIL PROTECTED] on behalf of gerry Sent: Sun 12/09/2004 18:32 To: [EMAIL PROTECTED] Subject: Re: [U2] major (?) @var security hole imo, IAM ranks right up there with GOTO just for my info ( sorry for my ignorance on this one ) , - what is the point in this type of cataloging ? - how would such a subroutine ever be called other than from within a an account named 'vendor' ? - does the calling code also EXECUTE "IAM vendor" before CALLing the catalogued routine ? - if this is simply a namespace issue, why not call the routine vendorSUBR42 ? as for not a bug ... - why document these as read-only variables ? - why generate a compiler error ? gerry - Original Message - From: "Ray Wurlod" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Saturday, September 11, 2004 06:08 pm Subject: Re: [U2] major (?) @var security hole > It's not really a bug - they even supply a command (IAM) for changing the logical account name. This is used by some software vendors who use the (Prime-style) CATALOG verb and get their routines prefixed with the vendor name. For example: > IAM vendor > CATALOG BP SUBR42 > *vendor*SUBR42 cataloged. > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ The information contained in this email is strictly confidential and for the use of the addressee only, unless otherwise indicated. If you are not the intended recipient, please do not read, copy, use or disclose to others this message or any attachment. Please also notify the sender by replying to this email or by telephone +44 (0)20 7896 0011 and then delete the email and any copies of it. Opinions, conclusions (etc.) that do not relate to the official business of this company shall be understood as neither given nor endorsed by it. IG Markets Limited and IG Index Plc are authorised and regulated by the Financial Services Authority and, in Australia, by the Australian Securities and Investments Commission. [demime 1.01d removed an attachment of type application/ms-tnef which had a name of winmail.dat] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] major (?) @var security hole
LOL, that's funny. That reminds me. One day I was waiting for my Big Mac, and I looked across the street and said to myself, "Maybe I'll eat at Taco Dot Bell tomorrow"sigh...to much programming. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of John Reid Sent: Friday, September 10, 2004 13:11 To: '[EMAIL PROTECTED]' Subject: RE: [U2] major (?) @var security hole Is @NOTHING sacred? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of u2ug Sent: Friday, September 10, 2004 3:34 PM To: [EMAIL PROTECTED] Subject: [U2] major (?) @var security hole this may be common knowledge , but I stumbled across this yesterday at a client's site and was very surprised / alarmed. if you rely on system variables, @LOGNAME , @WHO in particular, for any kind of security / access control , you may be interested to know that these 'static'/'read only' variables can very easily be modified to contain any values you like - including other user ids and account names. BP TEST 001: *** 002: * verify current values 003: *** 004: crt "Before : ":@WHO,@LOGNAME 005: 006: *** 007: * direct modification of system variables 008: * - bombs in compile [EMAIL PROTECTED] (Read-Only) unexpected ...] 009* * - this is good ! 010: *** 011: * @LOGNAME="xx" 012: * @WHO="yy" 013: 014: *** 015: * indirect modification of system variables 016: *** 017: call SUB(@WHO,@LOGNAME) 018: 019: *** 020: * verify current values 021: *** 022: crt "After : ": @WHO,@LOGNAME 023: 024: end BP SUB 001: subroutine SUB(arg1,arg2) 002: arg1="xx" 003: arg2="yy" 004: end >WHO 1234 TESTACCOUNT From TESTUSERID >RUN BP TEST Before : TESTACCOUNTTESTUSERID After : xxyy >WHO 1234 xx From yy notice - not only are these @vars modified within the program but the new values are persisted into the prompt environment as well !!! anyone else see this as a !!>!!>!!> bug ? gerry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ This e-mail, including attachments, may include confidential and/or proprietary information, and may be used only by the person or entity to which it is addressed. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by replying to this message and delete this e-mail immediately. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] major (?) @var security hole
Hi Gerry Wow! Looks like a bug to me. Submit it to IBM! However, having said that only programmer's would be able to do this, and if you have a sneaky programmer there are many ways they could reek havoc even without this bug. Sneaky programmers are almost always eventually discovered in balancing the books and loose their reputation; And with programmers, loss of reputation = loss of career. Most programmers good enough to be sneaky, know this, so I wouldn't worry *that* much. Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of u2ug Sent: Friday, September 10, 2004 12:34 To: [EMAIL PROTECTED] Subject: [U2] major (?) @var security hole this may be common knowledge , but I stumbled across this yesterday at a client's site and was very surprised / alarmed. if you rely on system variables, @LOGNAME , @WHO in particular, for any kind of security / access control , you may be interested to know that these 'static'/'read only' variables can very easily be modified to contain any values you like - including other user ids and account names. BP TEST 001: *** 002: * verify current values 003: *** 004: crt "Before : ":@WHO,@LOGNAME 005: 006: *** 007: * direct modification of system variables 008: * - bombs in compile [EMAIL PROTECTED] (Read-Only) unexpected ...] 009* * - this is good ! 010: *** 011: * @LOGNAME="xx" 012: * @WHO="yy" 013: 014: *** 015: * indirect modification of system variables 016: *** 017: call SUB(@WHO,@LOGNAME) 018: 019: *** 020: * verify current values 021: *** 022: crt "After : ": @WHO,@LOGNAME 023: 024: end BP SUB 001: subroutine SUB(arg1,arg2) 002: arg1="xx" 003: arg2="yy" 004: end >WHO 1234 TESTACCOUNT From TESTUSERID >RUN BP TEST Before : TESTACCOUNTTESTUSERID After : xxyy >WHO 1234 xx From yy notice - not only are these @vars modified within the program but the new values are persisted into the prompt environment as well !!! anyone else see this as a !!>!!>!!> bug ? gerry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Can't find a character in my source code
Hi Shawn, Accusoft has a WED editor that runs in a window on your PC and it has the ability to search for whole word only. It's an excellent product, I highly recommend it. It's like using NOTEPAD as an editor, except it's got A BUNCH of features that make it the best editor I've ever used!!! Plus I have Accuterm set for 132 column and 56 lines so in addition to having this nifty search capabilities under WED), it also gives you a HUGE view of code plus I can have an entire page of output that would normally need to be printed out to view. http://www.asent.com/ I am not affiliated with this company in any way shape of form, so this is not an add, it's a recommendation for a product that I just simply couldn't live without!!! *=aee=* -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Friday, September 10, 2004 10:46 To: [EMAIL PROTECTED] Subject: [U2] Can't find a character in my source code The program will successfully compile, but it gives me a warning stating that "Variable 'X' never assigned a value"; but I don't see it. With AE, I would like to use 'L' to find it, so was wondering if I can enforce a pattern with it, i.e. 'X' and only 'X'. TIA * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Job Posting in Austin Texas
Woof! $40 and hour *and* they want the consultant to camp there for 4 months *and* they want an expert? Good Luck indeed! Try $125 to $175 an hour for off-site dev. That's the going rate for all the professionals I know. This isn't even in the ball park for someone that has to pay their own health insurance and both sides of the income taxes, as I do. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ray Gilliam Sent: Thursday, September 09, 2004 06:04 To: '[EMAIL PROTECTED]' Subject: [U2] Job Posting in Austin Texas I got this yesterday and wanted to pass it along. As much as I would love to move back to Austin, I am not looking for contract work. Feel free to let Chrissy know you heard about this from me. I heard a little about this company, nothing bad. About two or three years ago they were looking for a PICK developer I looked into but they wanted someone with a very deep knowledge of PICK. Good luck! If not, we have a contract with a client in the Austin, TX area that I thought you might be interested in. The client in looking for a PICK Programmer for a 3-4 month contract on-site. They are a third part healthcare benefits administrator, the following software experience is a Plus for the position: FACTS, Liberty ODBC, Info-Access. $40/hr on a 1099. Or, if you're looking for regular full time, please also give me a call. We currently do not have any full time positions in Texas, but I would be happy to contact you in the future when something comes up. Chrissy Logsdon Assistant to Chuck Okeson [EMAIL PROTECTED] www.SoftwareSearch.com Software Search 2163 Northlake Pkwy - Suite 100 Tucker, GA 30084 Toll free: 800-949-5423 x 204 Local Atlanta, GA: 770-934-5138 x 204 -- Ray Gilliam Programmer Analyst Information Services Dallas Housing Authority Phone: 214.951.8401 Fax: 214.224.4934 "It is said that if you know both the enemy and yourself, you will fight a hundred battles without danger of defeat; if you are ignorant of the enemy but only know yourself, your chances of winning and losing are equal..." SUN TZU ON THE ART OF WAR <> [demime 1.01d removed an attachment of type application/octet-stream which had a name of Ray Gilliam.vcf] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Part file algorithms - am I correct?
MOD gives a remainder
SEQ returns the ASCII value of the character
So if the ID was "Bombastic", it would return Remainder of 66/5 = 1 + 1 = 2.
(The letter B is ASCII 066)
Basically, it is using a modulo of 5 to hash the ID's.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of LeRoi Keiller
Sent: Tuesday, September 07, 2004 13:40
To: [EMAIL PROTECTED]
Subject: RE: [U2] Part file algorithms - am I correct?
Thanks guys.
Ray, I've checked our 10-part DEFINE.DF statement - you are correct; it
actually assigns each part from part 1, not from 0 (so I can only assume the
+1 in the algorithm does this, ie @ID...+1):
DEFINE.DF MYDATA ADDING DATA_0 1 DATA_1 2 ...etc... INTERNAL
"@ID[LEN(@ID),1]+1"
Are you able to tell me a little more about MOD and SEQ, or describe what
the algorithm does? (Just briefly.)
1+MOD(SEQ(@ID[1]),5)
Ross - yes, in my case (so far), the @IDs are pseudo random.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Ross Ferris
Sent: Tuesday, 7 September 2004 21:34
To: [EMAIL PROTECTED]
Subject: RE: [U2] Part file algorithms - am I correct?
Importance: Low
This is assuming that the @ID's are pseudo-random. I would think that if
there IS a unique identifier part (eg: a branch number, state designator
etc) you may be better off using this ESPECIALLY if this were used as part
of a SELECT sequence (I think, and will happily be corrected)
However, if you are simply trying to get around the 2Gb barrier
anything will do
Ross Ferris
Stamina Software
Visage an Evolution in Software Development
>-Original Message-
>From: [EMAIL PROTECTED] [mailto:owner-u2-
>[EMAIL PROTECTED] On Behalf Of Ray Wurlod
>Sent: Tuesday, 7 September 2004 4:41 PM
>To: [EMAIL PROTECTED]
>Subject: Re: [U2] Part file algorithms - am I correct?
>
>Part file numbers must be strictly positive; part number 0 is illegal.
>You may find the MOD function better, for example for five parts
>1+MOD(@ID[1],5)
>If the final key character is non-numeric (or even if it's numeric), add a
>SEQ function, for example for five parts 1+MOD(SEQ(@ID[1]),5)
>
>- Original Message -
>From: "LeRoi Keiller" <[EMAIL PROTECTED]>
>Date: Tue, 7 Sep 2004 11:38:59 +1000
>To: "U2-Users (E-mail)" <[EMAIL PROTECTED]>
>Subject: [U2] Part file algorithms - am I correct?
>
>> Hi
>>
>> I've been trying to make sense of part file algorithms for some
>distributed
>> file work I'm doing. In so doing, I've come up with the following
>> "micro-explanations" and examples.
>>
>> Can anyone in the know please say whether the following is correct? ...
>>
>>
>> If a file has [EMAIL PROTECTED] records consisting mainly of numbers (or more
>> specifically, ending with a number), algorithms like the following can be
>used
>> to spread incoming data across the parts:
>>
>> For a...
>>
>> 2-part file: "INDEX('01234',@ID[LEN(@ID),1],1); IF @1 THEN 1 ELSE 2"
>> (Records ending 0-4 go into one file, all else (eg 5-9) go into the
>other)
>>
>> 4-part file: "@ID[1]; IF NUM(@1) THEN
>CONVERT("0123456789","1122333444",@1)
>> ELSE 2"
>> (A compromise, as the 10 digits (0-9) don't go evenly into 4 groups or
>> parts.)
>> (The ELSE 2 just puts anything non-conforming into part 2)
>>
>> 5-part file: "@ID[1]; IF NUM(@1) THEN
>CONVERT("0123456789","1122334455",@1)
>> ELSE 1"
>> (Puts records ending 0-1 into part 1, records ending 2-3 into part 2,
>etc.)
>> (All else, ie non-numeric, go into part 1.)
>>
>> 10-part file: "INTERNAL "@ID[LEN(@ID),1]+1""
>> (Looks to me like this simply puts records ending 0-9 into the same-
>numbered
>> part file, ie records ending with 0 go into part 0. CAUTION: Obviously
>this
>> means the part files must start their numbering from 0.)
>>
>> Thanks,
>> LeRoi
>>
>> LeRoi Keiller
>> Technical Support
>>
>> Ultradata - Vision to Reality
>> +61 3 9291 1700
>> www.ultradata.com.au
>> ---
>> u2-users mailing list
>> [EMAIL PROTECTED]
>> To unsubscribe please visit http://listserver.u2ug.org/
>---
>u2-users mailing list
>[EMAIL PROTECTED]
>To unsubscribe please visit http://listserver.u2ug.org/
>
>
>---
>Incoming mail is certified Virus Free.
>Checked by AVG anti-virus system (http://www.grisoft.com).
>Version: 6.0.752 / Virus Database: 503 - Release Date: 3/09/2004
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.752 / Virus Database: 503 - Release Date: 3/09/2004
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2)
Yes..when someone mentions a BS degree -- Bachelor in Science is not what first comes to mind or what I would typically associate with the letters BS :-D School of hard knocks is best. I have been told by professional documentation writers that my documentation is the best they've ever seen, in fact, they still use one of my docs as the training doc for the rest of the dept! I had a teacher that had gotten his **Master's** at UCLA and this poor guy could not talk in English. He only lasted two semesters at Pierce College as a teacher. My class started out with over 30 students, and in the end there were only 5 that didn't drop out - including me. He was brilliant as far as his knowledge of advanced data base design, but was just practically a robot when it came to personalizing with the students, or being able to provide "in other words" explanations to the text in the book. Credentials do not a man, or woman make! In the past when I was choosing who to hire, I would never put down a minimum degree because I wanted to personally talk with people and find out who 'connected' with me on a personal as well as a professional basis. There were several times I choose degree-less people that worked out SO WELL with the rest of the company that I could not imagine what I would have done without their wit, wisdom and enthusiasm which you just CAN'T get from a school. Now..if my client's TCP/IP connection would just come up, I could actually get something done today instead of just waxing poetic! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Tuesday, September 07, 2004 13:00 To: [EMAIL PROTECTED] Subject: RE: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2) On the other hand, in a job like the one advertised, a *TECHNICAL TEST* is the best true representation of one's abilities. A BS degree does not prove that you have the knowledge and skills to do the job. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Glen B Sent: Tuesday, September 07, 2004 3:00 PM To: [EMAIL PROTECTED] Subject: RE: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2) The main reason is most companies can't skill-test their employees to know if they can mentally perform the job they're applying for. The piece of paper says "I've been there at one point and I didn't crack up.". It also says "I spent $20,000 and passed enough fluffy tests to prove that I have enough ambition and personal drive to stay in the job for more than a week." Unfortunately, none of those points regarding degrees are a true test of a person's personality, skill level, or maturity. The good thing is, most large corporations will pay 80-100% of classes you pass with a high/A score. You can get your degree for free now-a-days, while learning real-life stuff that improves your job performance and also helps you pass your classes easier. One of these days I'll finish that last brain-purging semester of my BSEE One of these days. Glen http://picksource.com > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Debster > Sent: Tuesday, September 07, 2004 1:24 PM > To: [EMAIL PROTECTED] > Subject: RE: [U2] Technical Product Manager opening in Boston > (PICK/UniVerse/U2) > > > >From a logic standpoint it does not matter. BUT...many companies like to > stress the statistics regarding their staff i.e. x amount of > employees hold > a BS x amount hold a graduate level degree. Of course by stressing this > those companies hell bent on a piece of paper may be missing out on far > better qualified candidates. The trenches teach a helluva lot more than > what you can learn in the classroom. > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews > Sent: Tuesday, September 07, 2004 12:41 PM > To: [EMAIL PROTECTED] > Subject: RE: [U2] Technical Product Manager opening in Boston > (PICK/UniVerse/U2) > > > I always wonder why people insist on a degree. Surely by the time you've > got the experience to do a job like this the fact of whether you've got > a degree or not is pretty irrelevant. > > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] On Behalf Of Ben Oifer, > Technical Futures, Inc. > Sent: 07 September 2004 16:34 > To: [EMAIL PROTECTED] > Subject: [U2] Technical Product Manager opening in Boston > (PICK/UniVerse/U2) > > One of my clients, a leading software development company based in the > Boston area, > has an opening for a senior UniVerse/U2/Pick Technical Product Manager. > The company > is an established and profitable software product development company. > They are in the > process of establishing a UniVerse environment and are looking for a > senior technical > product manager to help them in the process. > > We are specifically searching for an individual that has ver
RE: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2)
I agree. I could teach B.S. degree students, and yet I have only an AA and 29 years of programming experience. No interest in moving to Boston anyway though. Don't think a native So. Cal. "Desert Rat" like me would be able to adapt to that weather! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews Sent: Tuesday, September 07, 2004 09:41 To: [EMAIL PROTECTED] Subject: RE: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2) I always wonder why people insist on a degree. Surely by the time you've got the experience to do a job like this the fact of whether you've got a degree or not is pretty irrelevant. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Ben Oifer, Technical Futures, Inc. Sent: 07 September 2004 16:34 To: [EMAIL PROTECTED] Subject: [U2] Technical Product Manager opening in Boston (PICK/UniVerse/U2) One of my clients, a leading software development company based in the Boston area, has an opening for a senior UniVerse/U2/Pick Technical Product Manager. The company is an established and profitable software product development company. They are in the process of establishing a UniVerse environment and are looking for a senior technical product manager to help them in the process. We are specifically searching for an individual that has very strong UniVerse or U2 or PICK experiences in a product management role. BS Degree required U.S. Citizen or Permanent Residency required This is permanent, full-time position based in Boston; the company will assist with relocation expenses. Very competitive salary package plus bonus plus full benefits. Please EMAIL your resume as a WORD attachment to: [EMAIL PROTECTED] Your resume will remain strictly confidential, and will not be disclosed to anyone without your prior approval. Ben Oifer Technical Futures, Inc. 18 Washington Street, #205 Canton, MA 02021 Phone: (781) 793-9292 Email: [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ The information contained in this email is strictly confidential and for the use of the addressee only, unless otherwise indicated. If you are not the intended recipient, please do not read, copy, use or disclose to others this message or any attachment. Please also notify the sender by replying to this email or by telephone +44 (0)20 7896 0011 and then delete the email and any copies of it. Opinions, conclusions (etc.) that do not relate to the official business of this company shall be understood as neither given nor endorsed by it. IG Markets Limited and IG Index Plc are authorised and regulated by the Financial Services Authority and, in Australia, by the Australian Securities and Investments Commission. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unidata shared memory and catalogs
You know..right after I wrote this, it occurred to me that Tony G. could put a call to NEWPCODE inside of the processes that are running, so that at THE APPROPRIATE POINT the code could actually check to see if there was a new version of the subroutine (via a flag in a file) and if so, force a NEWPCODE of a subroutine. This would need to be done from the MAIN program that called the subroutine, not the subroutine itself. Each process could post to the flag, it's port number so that each process would only do this once. This way, when the calling program called the subroutine, it would be the new version, instead of the old version. Gosh, that's a bit of an inspiration, eh? I would not try this in a production env until I had tested the heck out of it! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Allen E. Elwood (CA) Sent: Friday, September 03, 2004 12:08 To: [EMAIL PROTECTED] Subject: RE: [U2] Unidata shared memory and catalogs Yep, I got NEWPCODE on my TCL manager as well. Works great for current process, without shoving new code into everyone else's memory space. So, if you ask me, this is a FEATURE not a bug! I would never even think about trying to force new code into a currently running process. Just the thought of what could go wrong boggles the mind! At what point would this occur? What if the program was currently in the middle of a loop and got overwritten with new code that didn't even have that loop? What if it was in the middle of a FILE I/O statement and had priority control of the system and never released it? The permutations are too many to even try to ponder. Us old farts have the battle scars to prove that taking a chance is not a wise choice, and the fact that U2 won't do this no matter what you try says something as well ! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ian McGowan Sent: Friday, September 03, 2004 10:13 To: '[EMAIL PROTECTED]' Subject: RE: [U2] Unidata shared memory and catalogs > From: Richard Sammartino [mailto:[EMAIL PROTECTED] > Tony, I have experienced the same issues and I don't think there is a > solution. Our menu is a cataloged program which chains or > executes other cataloged programs. I don't know about the performance impact, but a TCL stacker program has the same problem. I do an EXECUTE 'NEWPCODE' after compiling a program to get the 'refreshed' version available immedidately. As others have noted, this works only for the process executing the command. As for the wisdom of the Unidata developers, I have to say it's better than working on old PICK systems where compiling a new version of a program or subroutine would cause anyone running that routine to bomb out to the debugger. I have vivid memories of an error routine that used TIME() as part of the key, and therefore had to loop doing READU's to make sure the key was not in use. I.e it could only write one error log per second. One inventory weekend, at 10pm on Saturday, calculating how long it was going to take to finish returned 5 days! Changing the routine to use a sequential key was quick, but recompiling it live, knowing that if the timing was wrong we'd have to restore to Friday's backup and start over was nerve wracking to say the least :-) This was Ultimate on an IBM 3090. Is today old fart's memorial day or something? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unidata shared memory and catalogs
Yep, I got NEWPCODE on my TCL manager as well. Works great for current process, without shoving new code into everyone else's memory space. So, if you ask me, this is a FEATURE not a bug! I would never even think about trying to force new code into a currently running process. Just the thought of what could go wrong boggles the mind! At what point would this occur? What if the program was currently in the middle of a loop and got overwritten with new code that didn't even have that loop? What if it was in the middle of a FILE I/O statement and had priority control of the system and never released it? The permutations are too many to even try to ponder. Us old farts have the battle scars to prove that taking a chance is not a wise choice, and the fact that U2 won't do this no matter what you try says something as well ! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ian McGowan Sent: Friday, September 03, 2004 10:13 To: '[EMAIL PROTECTED]' Subject: RE: [U2] Unidata shared memory and catalogs > From: Richard Sammartino [mailto:[EMAIL PROTECTED] > Tony, I have experienced the same issues and I don't think there is a > solution. Our menu is a cataloged program which chains or > executes other cataloged programs. I don't know about the performance impact, but a TCL stacker program has the same problem. I do an EXECUTE 'NEWPCODE' after compiling a program to get the 'refreshed' version available immedidately. As others have noted, this works only for the process executing the command. As for the wisdom of the Unidata developers, I have to say it's better than working on old PICK systems where compiling a new version of a program or subroutine would cause anyone running that routine to bomb out to the debugger. I have vivid memories of an error routine that used TIME() as part of the key, and therefore had to loop doing READU's to make sure the key was not in use. I.e it could only write one error log per second. One inventory weekend, at 10pm on Saturday, calculating how long it was going to take to finish returned 5 days! Changing the routine to use a sequential key was quick, but recompiling it live, knowing that if the timing was wrong we'd have to restore to Friday's backup and start over was nerve wracking to say the least :-) This was Ultimate on an IBM 3090. Is today old fart's memorial day or something? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Info Source
Hi Mark, Why not just incorporate a CD-RW? If you get one that includes ROXIO easy cd creator, you can "format" a CD-RW as a BIG floppy. Roxio works at the O/S level to make this look just like a regular hard drive, so you just access it as you would any other drive by making a pointer to point at it and viola. I have one on my U2PE and it works wonderfully. Cheap, fast and reusable 600 megabyte floppies. You just GOT to love it! I can't comment on the zip drive as I've never used one, but if it works at the DOS level as a hard drive works, then there should be no problem in using it from D3. Just pointer at it and let it rip. Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson Sent: Friday, September 03, 2004 09:04 To: [EMAIL PROTECTED] Subject: [U2] Info Source I enjoy this forum. I would like to know if there's a similar forum for D3. Here goes anyway: I would like to incorporate a Zip Drive as a Pseudo Floppy on a W2K D3 system that I'm building. Does the presence of it on the Windows side automatically include it as on the D3 side. I know I'm weak in these mechanics as I'm basically a programmer. But I want to upgrade my own native system to D3 to better support my clients and I don't want to spend $500 just for a 4mm tape. I'm not interested in any PC-U2 items as that's a whole other world for me. Thanks in advance. Mark Johnson --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Correlative referencing multi-value field (part II)
In U2 you would again use an I-desc, with attr 2 being TRANS("FILE.NAME",
ID.TO.USE, "ATTR.DESIRED", "X") quotes around everything but the ID that you
would use to translate to the file. UV must have something similiar
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Rod Hills
Sent: Thursday, September 02, 2004 10:37
To: [EMAIL PROTECTED]
Subject: [U2] Correlative referencing multi-value field (part II)
In regards to my first question it sounds like the I-type is how you get
around the summing a multi-value from another file.
In that same vain. I have one file with a correlative to another file whose
field is multi-value of a list of dates. When I LIST the first file I would
like a field definition that will display the multi-value of the second file
with OCONV format for date display.
Here is are the contents of my 2 files-
LIST.ITEM RODTEST1 10:29:11am 02 Sep 2004 PAGE1
1
001 BINGO
2
001 BANGO
3
001 BONGO
LIST.ITEM RODTEST2 10:29:27am 02 Sep 2004 PAGE1
1
001 RED
002 13394}13395}13396
2
001 BLUE
002 13393
3
001 GREEN
002 13391}13392
Here is the dictionary definition with the correlative and the OCONV
CT DICT RODTEST1 FIELD2
FIELD2
0001 A
0002 0
0003 Field2
0004
0005
0006
0007 D4/
0008 F;0;(TRODTEST2;X;;2)
0009 R
0010 10
Here is the output from the LIST command
LIST RODTEST1 FIELD2 10:30:28am 02 Sep 2004 PAGE1
RODTEST1.. Field2
1 13394 1339
5 13396
2 08/31/2004
3 13391 1339
2
3 records listed.
With the value marks replaced with spaces only the single value field gets
displayed correctly.
Any ideas on how I can reference a multi-value field and retain its
multi-value?
Thanks in advance...
-- Rod HillsHH
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Senior Pick Programmer position Denver, Colorado
LOL Or when you have to take your keyboard apart and dry it with the wife's blow-dryer because of the drool that accumulated during slumber. Gotta love those imprints on the face Ok, we'd better knock it off before IBM declares this thread dead! heh heh. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Debster Sent: Wednesday, September 01, 2004 13:03 To: [EMAIL PROTECTED] Subject: RE: [U2] Senior Pick Programmer position Denver, Colorado and when you have keyboard imprints on your forehead...it's really gone to far..I am still trying to get rid of the "T" on my forehead and the "B" on my nose. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Glen B Sent: Wednesday, September 01, 2004 3:46 PM To: [EMAIL PROTECTED] Subject: RE: [U2] Senior Pick Programmer position Denver, Colorado I think codingitis is the cause. Time to lay off the keyboard for a while, man. You know, semi-colons start to disappear after 6 hours of continuous coding. Any higher amount of time can cause strange things to happen. I remember starting during mid-day and missing night-time once, while programming a test application in Borland C 3.0. I think my brain crashed and rebooted to idle, for the rest of the day. Though, I can't really remember much about that day.. or the application for that matter. *pondering look* I do remember that there was one compiling error that never went away. Probably a missing semi-colon... :P Glen > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Debster > Sent: Wednesday, September 01, 2004 2:09 PM > To: [EMAIL PROTECTED] > Subject: RE: [U2] Senior Pick Programmer position Denver, Colorado > > > Chuck > > Did you have nourishment today? Eat some carrots lately? Have > your glasses > on? ;-) It's in the subject line..."Denver" > > ;-) > > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of Results > Sent: Wednesday, September 01, 2004 1:59 PM > To: [EMAIL PROTECTED] > Subject: Re: [U2] Senior Pick Programmer position Denver, Colorado > > > William, > Unless I missed it, there's no locational information in the post, which > makes > > >Relocation will not be considered - we are seeking a local candidate. > > difficult. > > -- > - Charles Barouch > (718) 762-3884 x 1 - Key Ally Voice Mail > > [EMAIL PROTECTED] - Consulting services > [EMAIL PROTECTED] - News > [EMAIL PROTECTED] - U2-Users Moderator > > [EMAIL PROTECTED]- Zeus Data Integration > Mount Olympus, Home of Zeus Data Integration > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Correlative referencing multi-value field in another file
Hi Rod, I too have had the 'pleasure' of F and A correlatives. Once upon a time, a nice man named Dick Pick, who created Pick basic, issued a challenge. He said that there was no way in native Pick to access the last value of a multivalued field and challenged anyone to find a way. Enter Me. 'A' correlatives were new at that time and I created a three step dict. Dict "step1" converted value marks into "1" 's. Dict "step2" summed those 1's into a number, and Dict "step3" used that sum as an index for the value and BINGO last value of a multivalued field in native Pick! I did the 'victory dance' big time while singing "feeling stronger" from the "Rocky" movies :-D !!! And then proceeded to pack up my solution and send the results to Dick. Dick replied to me that the challenge was only for F correlatives (ahh, shucks..) but that he would publish my solution since nobody else had ever done so yet. "Publish" as in "paper" before the internet became widely used. So, that was my 15 seconds of fame Today, I prefer SUBR type dicts over all else if it takes me more than a couple of seconds to try to figure out what to do. However, I'm currently working for a client with a..Legacy Pick system without SUBR's. gaa... Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Rod Hills Sent: Wednesday, September 01, 2004 11:01 To: [EMAIL PROTECTED] Subject: RE: [U2] Correlative referencing multi-value field in another file Allen, Universe does have I-descriptors, but the programmer was trying to build an F-correlative (from old PICK) to do the task. -- Rod Hills -Original Message- From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] Sent: Wednesday, September 01, 2004 9:40 AM To: [EMAIL PROTECTED] Subject: RE: [U2] Correlative referencing multi-value field in another file Wow, in Unidata this would be an "I descriptor" that would just be SUM(WO.COMP.QTY) in attr 2 of the dict. Guess UV doesn't have I desc's? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dianne Ackerman Sent: Wednesday, September 01, 2004 08:37 To: [EMAIL PROTECTED] Subject: Re: [U2] Correlative referencing multi-value field in another file Yes, this is the way it works, unfortunately. What we ended up doing was to change att 8 in WO.COMP.QTY to F;0(TWIP;X;;8);(G0 1);0(TWIP;X;;8);(G1 1);0(TWIP;X;;8);(G2 1);.;+;+;+;+ etc -Dianne Rod Hills wrote: >We are trying to do a very basic PICK technique of summing a multi-value field >in a F-type correlative. > >However, it appears uniVerse is not putting the multi-values onto it's "stack" >as inividual values, but rather as one entry with the value markers replaced >with blanks. > >Below are two dictionary definitions, the only difference is WO.COMPL.QTY does >a sum as its last step. > >As can be seen by the LIST output, only single-value entries return a non-zero >value. > >Anyone else come across this? And should it be working this way? > >We are on UV10.0.16 and HPUX11i. > >Thanks in advance > >-- Rod Hills > > WO.COMPL.QTY >0001 A >0002 0 >0003 Wo Compl}Total >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8);S >0009 R >0010 8 > > WO.QTY.COMPL >0001 A >0002 0 >0003 Wo Qty Compl >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8) >0009 R >0010 12 > >LIST WIPOPERACT WO.COMPL.QTY WO.QTY.COMPL 10:05:27am 31 Aug 2004 PAGE 1 >WIPOPERACT Wo Compl Wo Qty Compl > Total... > >89783*560 44 >89433*111 0 14 1 >78574*370 03 5 6 1 5 >84804*780 0 2 2 3 3 5 3 >88810*070 0 >R7735*380 0 15 2 1 >89922*630 0 >60330*001 0 >79101*000 0 18 60 5 2 10 > 3 2 >90032*050 0 >82930*110 0 >88671*001 2937 2937 >90449*260 0 3 20 4 3 >60268*790 0 >60129*720 0 >79312*380 22 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Senior Pick Programmer position Denver, Colorado
Oh gosh, read the subject? Denver CO sounds like a location to me :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Results Sent: Wednesday, September 01, 2004 10:59 To: [EMAIL PROTECTED] Subject: Re: [U2] Senior Pick Programmer position Denver, Colorado William, Unless I missed it, there's no locational information in the post, which makes >Relocation will not be considered - we are seeking a local candidate. difficult. -- - Charles Barouch (718) 762-3884 x 1 - Key Ally Voice Mail [EMAIL PROTECTED] - Consulting services [EMAIL PROTECTED] - News [EMAIL PROTECTED] - U2-Users Moderator [EMAIL PROTECTED]- Zeus Data Integration Mount Olympus, Home of Zeus Data Integration --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Correlative referencing multi-value field in another file
Wow, in Unidata this would be an "I descriptor" that would just be SUM(WO.COMP.QTY) in attr 2 of the dict. Guess UV doesn't have I desc's? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Dianne Ackerman Sent: Wednesday, September 01, 2004 08:37 To: [EMAIL PROTECTED] Subject: Re: [U2] Correlative referencing multi-value field in another file Yes, this is the way it works, unfortunately. What we ended up doing was to change att 8 in WO.COMP.QTY to F;0(TWIP;X;;8);(G0 1);0(TWIP;X;;8);(G1 1);0(TWIP;X;;8);(G2 1);.;+;+;+;+ etc -Dianne Rod Hills wrote: >We are trying to do a very basic PICK technique of summing a multi-value field >in a F-type correlative. > >However, it appears uniVerse is not putting the multi-values onto it's "stack" >as inividual values, but rather as one entry with the value markers replaced >with blanks. > >Below are two dictionary definitions, the only difference is WO.COMPL.QTY does >a sum as its last step. > >As can be seen by the LIST output, only single-value entries return a non-zero >value. > >Anyone else come across this? And should it be working this way? > >We are on UV10.0.16 and HPUX11i. > >Thanks in advance > >-- Rod Hills > > WO.COMPL.QTY >0001 A >0002 0 >0003 Wo Compl}Total >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8);S >0009 R >0010 8 > > WO.QTY.COMPL >0001 A >0002 0 >0003 Wo Qty Compl >0004 >0005 >0006 >0007 >0008 F;0;(G0*1);(TWIP;X;;8) >0009 R >0010 12 > >LIST WIPOPERACT WO.COMPL.QTY WO.QTY.COMPL 10:05:27am 31 Aug 2004 PAGE 1 >WIPOPERACT Wo Compl Wo Qty Compl > Total... > >89783*560 44 >89433*111 0 14 1 >78574*370 03 5 6 1 5 >84804*780 0 2 2 3 3 5 3 >88810*070 0 >R7735*380 0 15 2 1 >89922*630 0 >60330*001 0 >79101*000 0 18 60 5 2 10 > 3 2 >90032*050 0 >82930*110 0 >88671*001 2937 2937 >90449*260 0 3 20 4 3 >60268*790 0 >60129*720 0 >79312*380 22 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [PICK] File handle opened?
Thanks Rick! This won't keep the program from going to debugger if someone did a FV="" but at least I can weed out probably 90% of the goofs. And since this subroutine is designed to be used by programmers, it won't be a huge problem, but I was just trying to make it bullet proof. Allen E. Elwood Senior Programmer Analyst Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Rick Ramsey Sent: Wednesday, September 01, 2004 04:22 To: [EMAIL PROTECTED] Subject: RE: [U2] [PICK] File handle opened? I forgot to mention - the FILEVAR will be considered to be ASSIGNED=TRUE even if you've simply done a FILEVAR="" somewhere in the program. The key to this is never use the file handle variable name except for the ASSIGNED or the various file-handling verbs. Rick Ramsey Healthpac Cumputer Systems Savannah, GA -Original Message- From: Rick Ramsey Sent: Wednesday, September 01, 2004 7:18 AM To: '[EMAIL PROTECTED]' Subject: RE: [U2] [PICK] File handle opened? I believe this will work for you in D3: IF ASSIGNED(FILEVAR) . . . where FILEVAR is the file handle variable used in the OPEN statement Rick Ramsey Healthpac Cumputer Systems Savannah, GA -----Original Message- From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] Sent: Tuesday, August 31, 2004 5:39 PM To: [EMAIL PROTECTED] Subject: [U2] [PICK] File handle opened? I've done this in U2 before, but in a Raining Data Pick Env, does anyone know how to interrogate a file handle to see if it has been properly opened? I'm writing a LOCK.RECORD subroutine with all kinds of nifty options and it would be nice to be able to not blow out to debugger if a handle is not opened. Even the ON ERROR clause will not stop it from blowing out if the file is unopened and you try to read, or if the file is opened and you do any BUT a file operation. Thanks! Allen --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
[U2] [PICK] File handle opened?
I've done this in U2 before, but in a Raining Data Pick Env, does anyone know how to interrogate a file handle to see if it has been properly opened? I'm writing a LOCK.RECORD subroutine with all kinds of nifty options and it would be nice to be able to not blow out to debugger if a handle is not opened. Even the ON ERROR clause will not stop it from blowing out if the file is unopened and you try to read, or if the file is opened and you do any BUT a file operation. Thanks! Allen --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Unclassified:[UV] How are the TCL "dot commands" impleme nted?
Hi Ian, Yep, you know us 'creative types' :-D I also wrote a TCL.LIGHT a long time ago that was more similar to your program. It would allow people to only look at files they had access to via a 'allowed files' screen and disallowed all DELETE commands. These people had no access to the real TCL, so I did this so they could play without getting dangerous or looking up the CEO's salary! I no longer have the code for TCL.LIGHT. It faded away about a decade ago and got obsoleted in an upgrade. Take care Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ian McGowan Sent: Monday, August 30, 2004 12:53 To: '[EMAIL PROTECTED]' Subject: RE: [U2] Unclassified:[UV] How are the TCL "dot commands" impleme nted? Seems like every pick programmer has written their own TCL replacement :-) Mine is at: http://www.pickwiki.com/cgi-bin/wiki.pl?TclStack Though it seems like a lot of trouble if the only problem is ".S" leaving null items in the VOC. Wouldn't a cron job, or something in the login script that checks for and removes the entry be easier? Ian > -Original Message- > From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] > Sent: Monday, August 30, 2004 9:51 AM > To: [EMAIL PROTECTED] > Subject: RE: [U2] Unclassified:[UV] How are the TCL "dot > commands" implemented? > > > At ROI systems they wanted to create their own TCL.MGR > program which was just a shell that would PERFORM the > commands entered. If you were so inclined, you could create > your own TCL.MGR that would be invoked when people signed on, > or when people exited the menu. > > ROI added a .EX command that would exit their TCL.MGR and > then you could still use the U2 tcl manager. (ROI runs on U2). > > I have my own tcl manager, that is really a word processor > that allows me to store ALL of my commands, from forever ago, > in a full screen (with insert and overwrite and cut and > paste, etc) so all I have to do is to page down to a command > entered YEARS ago, and I can recreate that "one time only" > report that a user said "they'd never want again". Until > they changed their minds, that is :-) > > So I don't even have any dot commands in mine. Just arrow > down to the statement and hit return, and a window is brought > up with options to run the command, or maybe launch a > screen.build and use the name supplied, etc. > > Allen E. Elwood > Senior Programmer Analyst > Direct (818) 361-5251 > Fax(818) 361-5251 > Cell(818) 359-8162 > Home (818) 361-7217 > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of > HENDERSON MICHAEL MR > Sent: Sunday, August 29, 2004 16:15 > To: [EMAIL PROTECTED] > Subject: [U2] Unclassified:[UV] How are the TCL "dot > commands" implemented? > > > Hi, > > I feel I ought to know this, but I can't find it in the > UniVerse Internals course books, so can someone please > enlighten me how are the UniVerse TCL "dot commands" implemented? > > Actually it's really only ".S" that concerns me, because I'd > like to put a wrapper round it. > > Problem: Someone enters ".S" at TCL, instead of ".X" or ".D" > (finger trouble), or ".S " > Result: A PAragraph is automatically created and saved into > the VOC, with an ID of "" > > Now, having a entry in the VOC with a 'null' ID has some > nasty side-effects, at least here. > > So, I'd like to be able to intercept a ".S" on its own and > 'head it off at the pass' > > Help, anyone? > > > Thanks > > > Mike > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Precision question...
Cheap now! Back when ROI Systems was originally designed a 96MB drive was $96,000 and the platters were exposed to air and instead of voice coils for the head movement they used 1 horsepower linear motors! If your fingers got in the way it was time to go to the hospital to have them reattached and that is not a joke. That was the issue. Now the issue is 'don't change what's not broken'. This system has hundreds of menus and I lost count of how many programs but it's like 100 megs of source or so. So the man hours to change all the programs and dicts and running conversions on files and fields to throw in a decimal will never be expended and ergo the issue that was once an issue and is no longer an issue is now supplanted with dcwnb! Decimals would be a much easier to program with - no doubt about it! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Thursday, August 26, 2004 13:47 To: [EMAIL PROTECTED] Subject: RE: [U2] Precision question... Since storage space is relatively cheap these days, what's the advantage of storing numbers without decimal points? Or is that not even the issue? (snip) --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Precision question...
Ahh...apparently the system you work with is actually storing the decimal point. The systems I've worked with do not store the actual decimal point, so therefore the MD82 dealy-bob wouldn't be applicable. At least the brain vapors have been eliminated!!! ;-D I too had 'one of those mornings'. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Lee Messenger Sent: Thursday, August 26, 2004 11:34 To: [EMAIL PROTECTED] Subject: RE: [U2] Precision question... This is what I have determinied: If 'MD2' is in the 8th field (correlatives) of the dict item PAID.AMT, I get: SUM DLT.DEMO PAID.AMT 12:49:20pm 26 Aug 200 DLT.DEMO.. PAID.AMT.. == TOTALS 7564713.76 39 64418 records summed. > If however, 'MD2' is in the 7th field (conversions) of the dict item PAID.AMT, I get: SUM DLT.DEMO PAID.AMT 12:50:59pm 26 Aug 20 DLT.DEMO.. PAID.AMT.. == TOTALS 7564713.61 64418 records summed. > So the MD2 stays in the 7th field. As I said at the outset, a 'brain fart'. Thanks for all that responded and oh by the way this occurred on a Windows 2000 server running Universe 10.0.15 Lee J Messenger Sr VP Operations [EMAIL PROTECTED] DLT Transportation Services, Inc. Phone :(816) 242-4505 Fax :(816) 483-7222 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Scott Ballinger Sent: Thursday, August 26, 2004 11:56 AM To: [EMAIL PROTECTED] Subject: RE: [U2] Precision question... Take a look at that PAID.AMT dictionary item. You may want to create a new dict item (PAID.AMT2 ?) that does an MR2 conversion. Scott Ballinger Pareto Corporation Edmonds WA USA 425 670 0831 P.S. You'll get better advice if you mention your platform, release, and account flavor. (UV or UD, etc). -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Lee Messenger Sent: Thursday, August 26, 2004 7:23 AM To: [EMAIL PROTECTED] Subject: [U2] Precision question... Okay, brain fart here... How do you control the precision used for list TOTALS and SUMS ? SUM DLT.DEMO PAID.AMT 09:24:09am 26 Aug 2004 PAGE1 DLT.DEMO.. PAID.AMT.. == TOTALS 7564374.15 39 62782 records summed. > Lee J Messenger Sr VP Operations [EMAIL PROTECTED] DLT Transportation Services, Inc. Phone :(816) 242-4505 Fax :(816) 483-7222 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Precision question...
In your DICT item (for Unidata) you can specify a conversion. I've only done this on a 4 digit after the decimal to a 2 digit after the decimal, and it was either MD24 or MD42 (can't remember which). This just lets the system know the data in the dict is at MD4 but you want your output to be MD2. Don't know if it will work with MD82/MD28 but you could try. If that doesn't work, then just create a new equation in a dict item to divide the PAID.AMT/10 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Lee Messenger Sent: Thursday, August 26, 2004 07:23 To: [EMAIL PROTECTED] Subject: [U2] Precision question... Okay, brain fart here... How do you control the precision used for list TOTALS and SUMS ? SUM DLT.DEMO PAID.AMT 09:24:09am 26 Aug 2004 PAGE1 DLT.DEMO.. PAID.AMT.. == TOTALS 7564374.15 39 62782 records summed. > Lee J Messenger Sr VP Operations [EMAIL PROTECTED] DLT Transportation Services, Inc. Phone :(816) 242-4505 Fax :(816) 483-7222 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Clearing a Sequential File:
Sequential and dynamic access are defined by the way the file is opened. So you can always do a : EXECUTE 'CLEAR-FILE GODZILLA' before opening the file and it will be clear. I've done this in U2 - don't know about UV or native Pick. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Ron Moore Sent: Tuesday, August 24, 2004 10:41 To: [EMAIL PROTECTED] Subject: [U2] Clearing a Sequential File: I am able to OPENSEQ and WRITESEQ for a sequential file, and need to clear the records or data before writing to this file. I have tried CLEAR and CLEARFILE, but may not have the correct syntax. How do I go about this? TIA, as always. Ron --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Data Security
READ and WRITE will still work with all chars. The problem you would have would be that you will not be able to access any of the data via dynamic record methods. In other words, instead of saying REC<5,1> which would access the 1st value of attr 5, you'll need to find the length of the record and proceed byte by byte looking for a byte or bit sequence that will indicate you've found the end of a field and then pull that out with REC[STARTING.BYTE,NUMBER.OF.BYTES.TO.PULL] or something like that. I've had to do this with COBOL records sent to me from another server in the past. Loads of fun. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Robert Gisi Sent: Tuesday, August 24, 2004 10:38 To: [EMAIL PROTECTED] Subject: [U2] Data Security I understand from IBM that there is a problem storing Encrypted data in a Unidata database because some of the Encrytpion characters are in conflict with our restrictive characters "Multi-values" ,"Sub-values" and others. So how is this issue being resolved in the user community? Please feel free to email me directly since I am aware this is a sensitive subject. I have an urgent need of a resolution . --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] Sorting
Ahh, that makes more sense. Whenever I do a locate for something that exists or not, I use the form of LOCATETHEN *Date found get current rate data END ELSE *Date not found, get previous date's rate data - 1 END Commenting the two cases just so that it makes sense to not only myself the next time I look at the code, but for posterity as well. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Peter Olson Sent: Monday, August 23, 2004 06:18 To: '[EMAIL PROTECTED]' Subject: RE: [U2] [UD] Sorting in ref to 'Clarify please?' Say our record contains the rates of a widget ( attr 2 ) stored with and associated effective dates ( attr 1 ) 0001= 12345}12367}12390}12480}12590 0002= A}B}C}D}E we want to know the rate on 12380 ( 6/10/02 ) stored in ascending order, the locate would read... date = 12380 LOCATE date in R.RECORD< 1 > BY 'AR' SETTING POS ELSE POS -= 1 IF POS < 1 THEN POS = 1 RATE = R.RECORD< 2 , POS > without the adjustment to POS, the pointer would point to "C" and not "B" but stored in descending order the locate reads LOCATE date IN R.RECORD< 1 > BY 'DR' SETTING POS ELSE NULL RATE = R.REC0RD< 2 , POS > we don't need to adjust the pointer ? maybe ? just me personal preference...2cents. + tax! This e-mail, including attachments, may include confidential and/or proprietary information, and may be used only by the person or entity to which it is addressed. If the reader of this e-mail is not the intended recipient or his or her authorized agent, the reader is hereby notified that any dissemination, distribution or copying of this e-mail is prohibited. If you have received this e-mail in error, please notify the sender by replying to this message and delete this e-mail immediately. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] Sorting
I vote for the locate/insert method! :-D While the method below works, it will be sluggish compared to locate/insert especially if the list is large. Try it, you'll like it! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Friday, August 20, 2004 11:16 To: [EMAIL PROTECTED] Subject: [U2] [UD] Sorting Thank you for your thoughts, gentlemen. This is what I wrote before the suggestions reached me: WRITELIST XL.NEW.LIST ON X.SAVEDLIST EXECUTE X.SORT.SAVEDLIST GETLIST X.SAVEDLIST TO 1 THEN READLIST XL.SORTED.DATES FROM 1 ELSE XL.SORTED.DATES = "" END CLEARSELECT 1 END SWAP @AM WITH @VM IN XL.SORTED.DATES DELETELIST X.SAVEDLIST But I'll change it if it's much less efficient. What do ya think? -Original Message- From: Shawn Waldie Sent: Friday, August 20, 2004 9:46 AM To: [EMAIL PROTECTED] Subject: [U2] [UD] Sorting I have records that contains a mv list of dates, i.e., 13200:@VM:13312:@VM:13176. I need to store these values in ascending order, so I: a) convert the VMs to AMs, b) perform a FORMLIST, SAVE.LIST, SORT.LIST; and c) load the values back into the attribute. There has to be a more efficient way. Any suggestions? --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] Sorting
Hi Shawn, There is! There was a thread not too long ago where I assisted Chuck Mongiovi with a similar problem, this is the code that I suggested and that he debugged :) His problem was that he wanted a 5 value string sorted by attribute, based off of the 5th element of the string, and here's the solution he ended up using. HAVE FUN! SORT.DATA = "" SORT.INDEX = "" SORT.COUNT = DCOUNT(REC,@AM) * FOR J = 1 TO SORT.COUNT LINE = REC LOOK.FOR = LINE<1,5> LOCATE LOOK.FOR IN SORT.INDEX BY 'DR' SETTING FOUND ELSE NULL SORT.INDEX = INSERT(SORT.INDEX , FOUND, 0, 0, LOOK.FOR) SORT.DATA = INSERT(SORT.DATA , FOUND, 0, 0, LINE) NEXT J Hope this helps! Allen E. Elwood Senior Programmer Analyst Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Friday, August 20, 2004 08:46 To: [EMAIL PROTECTED] Subject: [U2] [UD] Sorting I have records that contains a mv list of dates, i.e., 13200:@VM:13312:@VM:13176. I need to store these values in ascending order, so I: a) convert the VMs to AMs, b) perform a FORMLIST, SAVE.LIST, SORT.LIST; and c) load the values back into the attribute. There has to be a more efficient way. Any suggestions? TIA * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] How to return 'column' from dyn array?
Did you ever have one of those days? I'm having one of them today.<>. I *meant* to say: "Ah, I had it confused with @TM which is seq 251 " All the documentation I've seen before refers to TM, SVM, VM and AM. I've never seen FM before except on the radio.:) Is this the Universe method of notation? I've only worked with native pick and U2. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews Sent: Thursday, August 19, 2004 13:03 To: [EMAIL PROTECTED] Subject: RE: [U2] [UV] How to return 'column' from dyn array? @FM is 254 isn't it.. IM = 251 SM = 252 VM = 253 FM = 254 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] How to return 'column' from dyn array?
Ah, I had it confused with @FM which is seq 251 I've never actually seen it in the @FM form before, and my guess is probably never again.:) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Jerry Banker Subject: Re: [U2] [UV] How to return 'column' from dyn array? @FM and @AM are one and the same so there is no need for the first line. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] How to return 'column' from dyn array?
Assuming that the array was called A: A.TEMP = CHANGE(A,@FM,@AM) STUFF.YOU.WANT = A.TEMP<1,3>:@VM:A.TEMP<2,3>:@VM:A.TEMP<3,3> Should work! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Barry Brevik Sent: Wednesday, August 18, 2004 13:41 To: U2-users (E-mail) Subject: [U2] [UV] How to return 'column' from dyn array? I just realized that there seems to be no function for the following situation. Given the dynamic array: 10 @vm 20 @vm 30 @FM 11 @vm 21 @vm 31 @FM 12 @vm 22 @vm 32 ...I look at this as the fields being records, or rows, and the values being columns. I'd like a function that returns a dynamic array of just column 3, that is '30', '31' and '32'. Am I making sense? Is there something in UV basic that does this? Barry --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Converting hexa to decimal
Works on a native pick system:
>WED BBB
* BBB - Simple Program to test program snippets before using in development
CRT 'Enter Hex String : ':;INPUT HEX.IN
HEX.OUT = OCONV(HEX.IN,'MCX')
PRINT HEX.OUT
STOP
***
SUCCESSFUL COMPILE! 2 FRAMES USED.
>BBB
Enter Hex String : ?0102E84669
4343744105
No idea why U2 would drop the ball on this, but at least it works in Pick!
Allen E. Elwood
Senior Programmer Analyst
Direct (818) 361-5251
Fax(818) 361-5251
Cell(818) 359-8162
Home (818) 361-7217
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Christophe
Marchal
Sent: Wednesday, August 18, 2004 06:00
To: [EMAIL PROTECTED]
Subject: [U2] Converting hexa to decimal
Hi,
I'm trying to convert a hexadecimal string to its decimal value.
My original string : 0102E84669
I've tried oconv(original,"MCX") or xtd(original) but it seems to be not
the good method.
The result is : 48776809 wich is the result of xtd("02E84669")
It seem to lost first hexadecimal value 01
Has anybody see this before ?
Any idea to resolve this ?
Christopher
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] EVAL formatting
The help on this statement shows zilch. The syntax is EVAL "EXPRESSION", so unless there's undocumented features then I doubt it. Unless of course you could put in the attribute marks after the expression and put the conversion in the same place as it would be on a dict item. But then, a dict item could have been written in half the time that it took you to send this message and to receive a reply so, since there is no sense in beating a dead horse, you might as well just add another dict item...IMHO :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Kevin Michaelsen Sent: Monday, August 16, 2004 14:02 To: [EMAIL PROTECTED] Subject: [U2] EVAL formatting I had one of my IT folks look at this one and I don't want to belive them. They said you cannot display a decimal when using the EVAL command. I think there is got to be a way. That's why I put this out. The current EVAL statement displays 1 or 0. Any ideas?? LIST CS.2004 H.HCG.AWARDED.ALL H.TOTAL.AWARD EVAL "H.HCG.AWARDED.ALL/H.TOTAL.AWARD" kevin --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] file trigger self deadlatch error
Not sure about UV, but a U2 program that I've used in the past does a :
OLD.REC = XLATE('IPL',ID,-1,'X')
since XLATE does a read-only read of the file in question, maybe if you
opened a file handle that was read-only (or use UV's version of XLATE?) and
used that to read the record you need, it would not generate the error,
which is more than likely telling you that an endless loop is in progress
and the system is halting instead of going away forever in a system hogging
endless loop requiring a reboot to stop.
hth, aee
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Scott Ballinger
Sent: Thursday, August 12, 2004 15:09
To: [EMAIL PROTECTED]
Subject: [U2] file trigger self deadlatch error
I am trying to implement a file trigger on UV 9.6.14 using a secondary
index on an i-descriptor subroutine. I want to log changes to selected
fields before the write, so I am re-reading the original record from my
subroutine to compare with @record. This generates the message
Self Deadlatch error on device 2054, inode 2681749,
group 1536, latch 8 to 1.
inode 2681749 resolves to the uv (data) file where I have defined the
trigger. I actually seems to be working, except for this pesky error
message.
Scott Ballinger
Pareto Corporation
Edmonds WA USA
206 713 6006
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] How do we get unique records from Universe file(Table)
Your syntax does appear correct.
Sometimes U2 does odd things when you put the * in some of the commands,
like the COPY command. Try another character. If that works, then you'll
know that it was the * that messed it up. If you need the * because of the
key you're trying to build, then just go ahead and create the dict items
suggested by others. You can always delete it when you're done (but should
copy it to a personal file in case you ever need it again). Or, just leave
it in the file as someone else down the road might need it and they won't
have to create one because you put it in there!
And just in case you don't already know this, you can get help for any of
the unibasic or uniquery commands just by typing in HELP or HELP {command}
at the TCL prompt.
HTH, aee
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Chauhan, Savita
Sent: Thursday, August 12, 2004 12:53
To: [EMAIL PROTECTED]
Subject: RE: [U2] How do we get unique records from Universe file(Table)
Yes, I am trying to build a key to another file.
I tired what some of you suggested. It gives me an error.
On
: SELECT ORDERS SAVING UNIQUE EVAL "MFG.NO:'*':PART.NO"
It gives me following error:
: Illegal attribute name for sort: MFG.NO:'*':PART.NO
Btw, my doubts are related to Unidata. I have been working on
UniData/UniBasic only for 3 weeks now and I presumed that Universe and
Unidata have similar syntax. Excuse me for my ignorance, if it works
only for Universe and not for Unidata.
Savita Chauhan,
Programmer/Analyst
x:1754 Central Texas College.
---
Change is the only Constant.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Shawn Waldie
Sent: Thursday, August 12, 2004 2:24 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2] How do we get unique records from Universe file(Table)
Are trying to build a key to another file?
-Original Message-
From: Chauhan, Savita [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 12, 2004 11:56 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] How do we get unique records from Universe file(Table)
Can this (selecting only those order IDs which have unique combination
of Mfg.No and Part.No) be done "without" having to create an
intermediate dictionary item?
Savita Chauhan,
Programmer/Analyst
x:1754 Central Texas College.
---
Change is the only Constant.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] How do we get unique records from Universe file(Table)
Hi George, It's always a good idea when concatenating to be sure that you put in a character to separate the fields so that later on it's easy to take them back apart if necessary. Otherwise you won't know where the mfg.no stops and the part.no starts. 002:MFG.NO:"|":PART.NO Allen E. Elwood Senior Programmer Analyst Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of George Gallen Sent: Thursday, August 12, 2004 08:31 To: [EMAIL PROTECTED] Subject: RE: [U2] How do we get unique records from Universe file(Table) You can setup a DICTIONARY ITEM that concatantes both values IE. ED DICT FILE MFGPARTNO MFGPARTNO 001: I 002: MFG.NO:PART.NO 003: 004: combo 005: 20L 006: S Assuming they are both single valued fields: Then SELECT ORDERS SAVING UNIQUE MFGPARTNO George --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MCU's an input within a PAragraph?
Seems to me that somewhere or other someone told me that the conversions don't work at the TCL level because of design. This became obvious to me when I had created a date with the format of MM and tried to do a select and got bizarre results and had to fall back and punt. Any particular reason why you can't just do this inside of a program instead of in TCL? I do selects inside of programs all the time because it's just easier to build select statements from different conditions. I can provide examples off line if desired. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of George Gallen Sent: Wednesday, August 11, 2004 13:14 To: [EMAIL PROTECTED] Subject: RE: [U2] MCU's an input within a PAragraph? Aside from the obvious, any other methods? It would be fine to double the IF's once or twice, but then throw in some SELECTS, GET-LIST's, SAVE-LISTS, this was an example. George >-Original Message- >From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED] >Sent: Wednesday, August 11, 2004 3:43 PM >To: [EMAIL PROTECTED] >Subject: RE: [U2] MCU's an input within a PAragraph? > > >0001: PA >0002: DISPLAY >0003: * <> >0004: DISPLAY >0005: IF <> = 'Y' THEN GO 10: >0006: IF <> = 'y' THEN GO 10: >0007: GO OUT: >0008: 10 * >0009: DISPLAY YES IT WORKED >0010: OUT: DISPLAY > >-Original Message- >From: [EMAIL PROTECTED] >[mailto:[EMAIL PROTECTED] Behalf Of George Gallen >Sent: Wednesday, August 11, 2004 11:33 >To: [EMAIL PROTECTED] >Subject: [U2] MCU's an input within a PAragraph? > > >For example: > >0001: PA >0002: DISPLAY >0003: * <> >0004: DISPLAY >0005: IF <> = 'Y' THEN GO 10: >0006: GO OUT: >0007: 10 * >0008: DISPLAY YES IT WORKED >0009: OUT: DISPLAY >Bottom at line 9 > >How can I upcase the <> ? > >This is for UV > >George >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] MCU's an input within a PAragraph?
0001: PA 0002: DISPLAY 0003: * <> 0004: DISPLAY 0005: IF <> = 'Y' THEN GO 10: 0006: IF <> = 'y' THEN GO 10: 0007: GO OUT: 0008: 10 * 0009: DISPLAY YES IT WORKED 0010: OUT: DISPLAY -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of George Gallen Sent: Wednesday, August 11, 2004 11:33 To: [EMAIL PROTECTED] Subject: [U2] MCU's an input within a PAragraph? For example: 0001: PA 0002: DISPLAY 0003: * <> 0004: DISPLAY 0005: IF <> = 'Y' THEN GO 10: 0006: GO OUT: 0007: 10 * 0008: DISPLAY YES IT WORKED 0009: OUT: DISPLAY Bottom at line 9 How can I upcase the <> ? This is for UV George --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] -UNIBASIC - MULTIPLE SAVEDLIST
Hi Barb,
Here's a program I wrote a long time ago that searches through all of the
DICT items in all of the files on the system for whatever is desired that
makes use of multiple active lists. This runs on an ROI Systems U2
environment and would need tweaking for other U2 environments in respect to
the printing output headings and output device selection. The way this
works is through use of the 'SELECT TO' and 'READLIST FROM'
statement/options. U2 allows up to 10 active lists (list 0 through list 9)
but I've never seen anyone use more than two.
I'm not sure if this group accepts attachments or not, so I've just included
the text. Hope this helps! Any questions, feel free to call me! Anyone
wanting the original program in attachment form just send an email directly
to me and I'll send it to you so we don't bog the listserver down.
* Release Info
* CUSTOM
* SEARCH.ALL.DICTS - Search dicts everywhere for something or other
Version="~Ver=~7.0.4~1746729103~"
*===/\===*
* /Written by Allen E. Elwood 07/07/95 - AK Savage Software\ * =We=
*<-->* =Be=
* \ (c) Copyright 1995 by AK Savage Software - All Rights Reserved / *
=Bad!=
*===\/===*
*
* Yeah, I know I could have written a screen for this and it would have
looked
* a whole lot better, but then it takes more work to install and that's a
pain
*
*#* COPY COPY.TOOLS.BP STANDARD.VARIABLES.1 (REPLACING PGM.NAME BY
SEARCH.ALL.DICTS, FN.NAME BY SEARCH.ALL.DICTS, IO.OPEN.OPTS BY
TERM.DATA:LOCK) ;*#* Copied Source Follows (06-25-03)
$INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
$INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
$INCLUDE STANDARD.VARIABLES.END FROM COPY.TOOLS.BP
PGM.NAME='SEARCH.ALL.DICTS'; FN.NAME ='SEARCH.ALL.DICTS'
CALL IO.OPEN('TERM.DATA:LOCK',PASSWORDS)
*#*
$INCLUDE COM.ECA FROM COPY.TOOLS.BP
$INCLUDE COM.PRINTER FROM COPY.TOOLS.BP
*===
GOSUB GET.INPUTS
GOSUB SELECT.FILES
GOSUB MAIN.PROCESS
*/\/\/\*
STOP
*\/\/\/*
*===
GET.INPUTS:*
LOOP
PRINT 'Search all dicts for what : ':;INPUT SEARCH.VALUE
PRINT 'Will search for : "':SEARCH.VALUE:'"'
PRINT 'OK? (Y/N/END) ':;INPUT YORN
LOOP
YORN = UPCASE(YORN)
IF YORN = 'END' THEN STOP
IF YORN = 'Y' THEN EXIT
IF YORN = 'N' THEN EXIT
REPEAT
IF YORN = 'Y' THEN EXIT
REPEAT
LOOP
PRINT 'Custom or all dicts (C/ALL) : ':;INPUT CUSTOM.FLAG
CUSTOM.FLAG = UPCASE(CUSTOM.FLAG)
IF CUSTOM.FLAG # 'C' AND CUSTOM.FLAG # 'ALL' THEN CONTINUE
IF CUSTOM.FLAG = 'C' THEN
PRINT 'Will search Custom dicts only'
END ELSE
PRINT 'Will search ALL dicts'
END
PRINT 'OK? (Y/N/END) ':;INPUT YORN
LOOP
YORN = UPCASE(YORN)
IF YORN = 'END' THEN STOP
IF YORN = 'Y' THEN EXIT
IF YORN = 'N' THEN EXIT
REPEAT
IF YORN = 'Y' THEN EXIT
REPEAT
LOOP
PRINT 'You can search the entire dict record, or just attrs 1-9 where '
PRINT 'the meaninful stuff is. Searching Entire will be ...S.L.O.W...'
PRINT 'Slow or Quick(S/Q) : ':;INPUT SLOW.QUICK
SLOW.QUICK = UPCASE(SLOW.QUICK)
IF SLOW.QUICK = 'S' THEN PRINT 'Search S.L.O.W'
IF SLOW.QUICK = 'Q' THEN PRINT 'Search Quick'
IF SLOW.QUICK # 'S' AND SLOW.QUICK # 'Q' THEN CONTINUE
PRINT 'OK? (Y/N/END) ':;INPUT YORN
LOOP
YORN = UPCASE(YORN)
IF YORN = 'END' THEN STOP
IF YORN = 'Y' THEN EXIT
IF YORN = 'N' THEN EXIT
REPEAT
IF YORN = 'Y' THEN EXIT
REPEAT
RPT.TITLE = 'Search All Dicts'
IF CUSTOM.FLAG = 'C' THEN
CUSTOM.MSG = 'Custom Dicts only'
END ELSE
CUSTOM.MSG = 'All Dicts'
END
RPT.TITLE<2> = 'Search ':CUSTOM.MSG:' for ':SEARCH.VALUE
LINE.SIZE = P_I.Max_Cols_Per_Line
MAX.LINES = P_I.Lines_Per_Page
*#* COPY COPY.TOOLS.BP STANDARD.REPORT.HEADING.1 ;*#* Copied Source Follows
*
ACCT.TITLE = ('Sys ':SYS.NAME<1>:' Acct ':LOGON.ACCOUNT)[40]
CALL GET.TD(TIME.DAY.DATE,'LSF','','','','')
*
ACCT.LEN = LEN(ACCT.TITLE)
TD.LEN = LEN(TIME.DAY.DATE)
CO.LEN = LEN(COMPANY.NAME[1,30])
LEN.MIDDLE = (ACCT.LEN + TD.LEN + CO.LEN)
SPACING =
(((93-LEN.MIDDLE)*(LEN.MIDDLE<93))+((98-LEN.MIDDLE)*(LEN.MIDDLE>=93)))
CO.LEN = (30-((4-SPACING)*(SPACING<4))); SPACING += (30-CO.LEN)
*
HEAD.1 = FMT(FN.NAME,'L#21'):'
':TIME.DAY.DATE:SPACE(SPACING/2):COMPANY.NAME[1,CO.LEN]:SPACE(SPACING/2):ACC
T.TITLE:' Page '
HEAD.2 = SPACE(66-LEN(RPT.TITLE<1>)/2):RPT.TITLE<1>
HEAD.3 = SPACE(66-LEN(RPT.TITLE<2>)/2):RPT.TITLE<2>
HEAD.4 = SPACE(66-LEN(RPT.TITLE<3>)/2):RPT.TITLE<3>
HEAD.5 = SPACE(66-LEN(RPT.TITLE<4>)/2):RPT.TITLE<4>
PAGE.CNT = 0
LINE.CNT = 99
*
*#*
LINE.SIZE = P_I.Max_Cols_Per_Line
MAX.LINES
RE: [U2] UniVerse/AIX - COMMON error message
Hi Louis, Whenever you have anything in COMMON and you are calling subroutines you have to have all of your common variables exactly the same in all of the programs and subroutines. This is because COMMON is positional instead of named, and if they aren't the same size (in number) then obviously they cannot be matched up by position! Program 1 can actually have different names in common from program 2 and it will work as long as there are the same number of elements, so program 1 might have: COMMON PAGE.SIZE, LINES.PER.PAGE and program 2 might have COMMON NUMBER.OF.COLUMNS, NUMBER.OF.LINES and everything would still work. But if you had program 1 do: COMMON PAGE.SIZE, LINES.PER.PAGE and program 2 does: COMMON NUMBER.OF.COLUMNS then you end up with a size error (which should maybe be renamed to "NUMBER OF COMMON ELEMENTS mismatched" error?) I once had to change 35 SO.ENTRY subroutines just to add one variable to common. Fun stuff! (not) HTH Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Louis Sent: Friday, August 06, 2004 6:44 AM To: [EMAIL PROTECTED] Subject: [Norton AntiSpam] [U2] UniVerse/AIX - COMMON error message Hi All, Error: COMMON size mismatch in subroutine "EDI.MAIN.B". Sequence of events: 1 - Account A 'EDI.DRIVER.A' runs and executes 'EDI.MAIN.A'. No problem 2 - 'EDI.DRIVER.A' logs to account B to run 'EDI.DRIVER.B' which calls 'EDI.MAIN.B' where the error message is displayed and the program 'EDI.MAIN.B' does not execute at all. I hope this makes sense. What causes this problem? Has anyone run into this error message? Thanks for your help. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] RE: Copying data between two Universe servers
For what it's worth, in U2 the index for a file called MYFILE would be X_MYFILE. So when I do a O/S copy, I just do a listing to see all the files with the root name of MYFILE and copy everything over. It's always worked just fine! -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Glenn Herbert Sent: Monday, August 02, 2004 12:31 To: [EMAIL PROTECTED] Subject: RE: [U2] RE: Copying data between two Universe servers Funny you mention this. Back in 1994-95 when I was rewriting all the low level indexing code, we tried to figure out some way to do exactly this, putting some type of full path or such within INDEX.MAP to point back to the main file. --(Rest of message snipped)-- --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] merge sort
Hi Chuck, Glad to be of assistance! I've always used this similar method for all my sorted datasets, but never had one that was just a pure sort (usually find and add-to, or not find and insert) so didn't have time to ponder the THEN. Always inserting is *of course* necessary. Amazing how short and sweet the LOCATE/INSERT does sorts, isn't it? I can remember when I first started back in the 70's doing a sort in assembler for the IBM 370 as a class assignment. It was like a whole box of punch cards.ga! See ya on the list! *=aee=* Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Chuck Mongiovi Sent: Tuesday, July 27, 2004 13:14 To: [EMAIL PROTECTED] Subject: RE: [U2] merge sort ok .. i've finally gotten a little bit of time to play with this again and I was *SHOCKED* at how fast it is .. no doubt it's because the OS handles the LOCATE much faster than I could in BASIC .. the only changes I had to make to the program were to use 0,0 instead of 1,1 as VMC/SVMC in the LOCATE, do only 1 large EXTRACT (via LINE=REC) and 1 small EXTRACT (LOOK.FOR=LINE<1,5>) and *ALWAYS* do the INSERTS: SORT.DATA = "" SORT.INDEX = "" SORT.COUNT = DCOUNT(REC,@AM) * FOR J = 1 TO SORT.COUNT LINE = REC LOOK.FOR = LINE<1,5> LOCATE LOOK.FOR IN SORT.INDEX BY 'DR' SETTING FOUND ELSE NULL SORT.INDEX = INSERT(SORT.INDEX , FOUND, 0, 0, LOOK.FOR) SORT.DATA = INSERT(SORT.DATA , FOUND, 0, 0, LINE) NEXT J Thanks again .. -CHuck --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] merge sort
I've had coffee now, and have corrected the two stpid errors..I initialized SORTED.DATA instead of SORT.DATA and missed the END after the THEN. SORT.DATA = "" SORT.INDEX = "" SORT.COUNT = DCOUNT(REC,@AM) FOR J = 1 TO SORT.COUNT LOOK.FOR = REC LOCATE LOOK.FOR IN SORT.INDEX<1> SETTING FOUND THEN SORT.INDEX = INSERT(SORT.INDEX,FOUND,1,1,LOOK.FOR) SORT.DATA = INSERT(SORT.DATA,FOUND,1,1,REC) END NEXT J REC = SORT.DATA --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] merge sort
Hi Chuck, You don't need to do any reordering! I use this technique when sorting multiple variables at the same time off of the same index. I haven't tested this, and am working on my first cup of coffee so excuse me if I get the syntax wrong, or put in a stpid error. All this does is keep SORT.INDEX and SORT.DATA in the same order, so you do your lookup on SORT.INDEX with just the 5th element (a great movie, btw) and then propagate SORT.INDEX with the 5th element and SORT.DATA with all the elements, but using the location found during the lookup of the 5th element (did I mention I like that movie?) ;-) SORTED.DATA = "" SORT.INDEX = "" SORT.COUNT = DCOUNT(REC,@AM) FOR J = 1 TO SORT.COUNT LOOK.FOR = REC LOCATE LOOK.FOR IN SORT.INDEX<1> SETTING FOUND THEN SORT.INDEX = INSERT(SORT.INDEX,FOUND,1,1,LOOK.FOR) SORT.DATA = INSERT(SORT.DATA,FOUND,1,1,REC) NEXT J REC = SORT.DATA I have NO idea how the speed of this will compare with the other techniques described, but I have used this with HUGE updates on very large files (making history files out of transaction files for sales analysis and forecasting) and the speed was acceptable... Hope this helps! *=aee=* Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 359-8162 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Chuck Mongiovi Sent: Tuesday, July 27, 2004 05:28 To: [EMAIL PROTECTED] Subject: RE: [U2] merge sort > Just to avoid the obvious question, you have tried using the LOCATE and > INSERT commands? If not this is an easy to use construct. No, I have to admit that I haven't .. In order to use LOCATE, I have to transpose my data: >REC<1> = A]W]1]5]15 >REC<2> = B]X]2]6]25 >REC<3> = C]Y]3]7]100 >REC<4> = D]Z]4]8]11 to REC<1> = A]B]C]D REC<2> = W]X]Y]Z REC<3> = 1]2]3]4 REC<4> = 5]6]7]8 REC<5> = 15]25]100]11 I think this (and some version of the SHELL sort or DIMmed arrays) will work for me .. Thanks for all of the help everyone .. -Chuck --- --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] merge sort
Just to avoid the obvious question, you have tried using the LOCATE and
INSERT commands? If not this is an easy to use construct.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Allen Egerton
Sent: Monday, July 26, 2004 13:12
To: [EMAIL PROTECTED]
Subject: Re: [U2] merge sort
On Mon, 26 Jul 2004 09:03:38 -0400, you wrote:
>I want a merge sort for data in BASIC, not lists.
>
>For example ("]" is an @VM)
>
>REC<1> = A]B]C]D]15
>REC<2> = A]B]C]D]25
>REC<3> = A]B]C]D]100
>REC<4> = A]B]C]D]11
>
>I want to sort by multi-value #5 .. The sorting isn't the issue .. It's
when
>DCOUNT(REC,@AM) gets large that the whole process gets extremely slow .. I
>can't do something like MATPARSE, because I can't predict *HOW* big REC
will
>get ..
>
>Anyway, I have a sneaking suspicion that it's already been done before, so
>I'm trying to avoid re-inventing the wheel ..
One option is a temporary work file. If you go that route, make the
file static, rather than dynamic and size it appropriately.
Write the records, select the file by the key, read each record and
delete it as you go along. Or select it, save list, get list, process
list, get list, delete file (using list).
And if you're sharing the application among users, use the @userno as
the leading part of the key. Even if you're not sharing the app, use
the @userno, so that when you do share the work file later on you
don't have to recode the app...
--
Allen Egerton
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [OT] Has anyone experienced a HUGE increase of Spam?
A new technique called "Phishing" (pronounced Fishing) is being employed by Spammers. They just do the "brute force" method of emailing (i.e. [EMAIL PROTECTED], [EMAIL PROTECTED]@yahoo.com, etc) and if they don't get a bounce back, then they know that they got a valid email address, and then it goes out to the Spam lists. This has happened to all of my email addresses in the last couple of months. Fun, eh? -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Debster Sent: Friday, July 23, 2004 09:22 To: [EMAIL PROTECTED] Subject: [U2] [OT] Has anyone exoerienced a HUGE increase of Spam? I have experienced a HUGE increase in SPAM lately and I was wondering if somehow the users list has been "utilized" to facilitate that. I am not thinking that the origin is knowingliy from the administrators of this fine list -- but if this list was somehow lifted or otherwise absconded... --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UD] READU
Hi Shawn, My guess is an error in the error routine for the compiler. Apparently it sees the < delimiter and gets confused, or uhh..hu hu hu..something. I would just do a : TEMP.VAR = File.Vars READU R.record FROM TEMP.VAR,rec.ID THEN No sense banging your head against some mad compiler's wall :-) Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 800-5595 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie Sent: Monday, July 19, 2004 12:59 To: [EMAIL PROTECTED] Subject: [U2] [UD] READU I'm attempting to use READU in the following fashion, but the code won't compile. However, all is well and runs well when I replace File.Vars with f.var1 - in the READU statement. ERROR.RET = "" ERROR.MSG = "" f.var1= "" CALL OPEN.FILE(f.var1,"actual file name",ERROR.RET,ERROR.MSG) File.Vars<1> = f.var1 File.Vars<2> = f.var2 FOR I = 1 TO I.END READU R.record FROM File.Vars,rec.ID THEN ...load attribute vars END NEXT I The compiler returns this message: main program: syntax error at or before READU R.record FROM File.Vars,rec.ID THEN ^ Expecting: ELSE Suggestions are most welcome. * Shawn WaldieSan Juan College * * Programmer/Analyst 4601 College Blvd * * Phone: (505)566-3072 Farmington, NM 87402 * * email: [EMAIL PROTECTED] * * * * HP-UX 11.11 UniData 6.0.4Colleague R17 * --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Importing data from OS file
If it's a one time deal, then just pop the cd into the cd reader on your universe box and us OS commands to copy the files to a directory accessible by universe. Then write a small program to read these files and do with them what you will. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Tom Firl Sent: Thursday, July 15, 2004 14:08 To: [EMAIL PROTECTED] Subject: [U2] Importing data from OS file I'm looking for a way to essentially "COPY" or "IMPORT" 100K+ records contained in files on CD-ROM media into database files on Universe (and if possible jBASE) systems. I have the flexibility of choosing the format the files contained on the CD-ROM. I'd prefer to avoid hand-crafting a program, but am open to using a freely distributable, (and free) third-party tool. A tool that is the converse of DOWNLOAD would be excellent, or a command-line program that imports from a standard formatted file would be fine, too. Any suggestions? Tom Firl Database Analyst Columbia Ultimate 4400 NE 77th Avenue, Suite 100 Vancouver, WA 98662 Phone: 360-256-7358 x137 Fax: 360-260-1614 [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [OT] SAP
Hi Scott, If you get a chance to learn the ABAP programming language, do it. Independent programmers charge $250 an hour with some experience. Very experienced programmers go for upwards of $500 an hour. Even if your company goes broke trying to implement it, which some have, you should at least learn the language for you own sake. Here's an introduction to ABAP, which is the SAP programming language: This is the introduction from "ABAP/4 Programming the SAP(R) R/3(R) System Second Edition" written by Bernd Matzke and printed by Addison-Wesley. It goes for about 50 bucks. *~*~*~*~*~*~* The ABAP programming language is a fully integrated component of the SAP R/3 system. Apart from the system kernel, which is programmed in C, the entire R/3 System, with its development tools and applications, consists of the ABAP programs. This ensures that programmers can develop software that is independent of the operating system. All the same, programmers who work with the ABAP language need to get used to some of its specific characteristics, which makes for some considerable difficulties when learning ABAP. The ABAP language has its origins in the R/2 system. There, ABAP was a simple programming language designed for generating lists for printing. (The German abbreviation 'ABAP' translates as 'general report preparation processor.') This language, which was primarily used for reporting gradually grew into a full featured application development tool. This also prompted the present name 'Advanced Business Application Programming.' The ABAP programming language was not designed by a single person or a small circle of experts sitting round a table. Starting from the first version in the R/2 system, the language has been, and is, undergoing constant development. This development is being carried out by a sizeable team, in which work on individual areas (such as type concept, database connection and user interface design) is done relatively independently of the other areas. As a result, new features are introduced into the language from one version to the next. To retain compatibility with earlier releases, in is impossible, or only rarely possible, to remove obsolete elements. Inevitably, the scope of the language continues to grow and the tool itself becomes ever more powerful, but also less easy to learn and understand. Unlike C or Java, ABAP is not one of the universally used programming languages. The R/2 and R/3 systems used specific techniques to create programs. On example is the dynamic screen program, which is also widely known by its German name of 'dynpro', from 'dynamic program'. This imposes a relatively tight definition of the structure of an application. The components of the programming language are structured according to this concept. Thus, ABAP consists of statements that were designed for a specific program type, with predefined functionality and structure. With time, the programming language has become more flexible, above all when a graphical user interface and a client/server architecture were implemented. New commands have been created around the existing commands, or existing commands have had new options added to them giving some commands an entirely new functionality. Often, an option for a command says more about that command's purpose than its actual name. Some of the command variants created in this way perform a very specific, often low-level, task. These commands can only be used by specialists, and will therefore not necessarily be of interest to all readers. The ABAP language has not been set down in a standard. The language is its own standard, which changes from version to version. This is why it is neither possible nor sensible to give a comprehensive introduction to the syntax of this language. The language itself is a subordinate to a programming concept, which you need to know about to understand the meaning of the many commands. As a result, any introduction to ABAP programming must start with the programming concepts. You should not view this book as an alternative to the many different sources of documentation available of the system or to the training courses offered by SAP. In the course of my own work, I discovered that beginners find it relatively difficult to sort out the vast range of facts about the R/3 system or the programming language and to filter out the points relevant for their own work. That is why I consider it difficult to learn R/3 programming without programming experience. I have actually attempted to close the gap between general introduction and the very specialized system documentation that is available. This book is primarily intended to help users with prior experience in IT to quickly learn how to program with ABAP. It is especially aimed at SAP System Administrators and at people intending to develop applications using ABAP. It is not a training manual for novice programmers, because the broad scope of the materia
RE: [U2] Unidata keystroke capture
Hi Ralph, I have a full screen editor that I wrote about .. um. 1990 or so, that works great. I've also adapted it to a full screen TCL manager, and have used it for editing dicts as well. Care to make me an offer for the source? In case you decide no, here's my section from what you're working on that handles all the chars. My methodology for the chars was to EQU them at the beginning, so that I can just refer to them as a name in the program instead of the numerical values. It also has a text window command interface, which is what CTRL-A invokes. Got the search and replace stuff, quick find, insert or replace mode, print, quick line delete and quick undelete unlimited number of lines per session, select, copy, cut and paste, and a bunch of other stuff. I pretty much made it work like the DOS EDIT as a starter, and then started hanging other stuff on it, like pre-compile or compile without exiting, so I can make changes in one window, while testing in another. Cut and Paste works either locally using a U2 MEMOS file, or can go from machine to machine using the PC as the clipboard (although this PC clipboard would only work on an ROI Manage-2000 system unless I converted it to a FTP script generator, or something like that). VAM is vertical offset AMount, HAM is Horizontal offset AMount, LIN is the real line number and COL is the real column number, so that I can subtract the number of pages down and the number of pages over from the real line and real column to determine where to print the current char within the virtual window. It was really fun to write, so I'll understand if you want to 'roll your own' instead of buying. Another cool feature is that I can type in ALLOCATED.DOLLAR.AMOUNT and hit one key to convert that to Allocated_Dollar_Amount. I love that one I wrote this in native Pick, and later converted it to U2. Some of the labels are numeric from before you could have alpha text labels, but *LOOK MA - NO GOTO'S* !! Hope this helps! LOOP LOOP IF LN.TOG THEN PRINT L(24):C(65):LIN:',':COL:EOL: PRINT L(LIN-VAM):C(COL-HAM): IF FN.KEY.ACTIVE THEN FN.KEY.CNTR+=1 IF FN.KEY.CNTR>FN.KEY.LEN THEN FN.KEY.ACTIVE=0 CH.IN = SEQ(IN()) END ELSE CH.IN=SEQ(FN.KEY.VAL[FN.KEY.CNTR,1]) END END ELSE CH.IN = SEQ(IN()) END PRINT L(LIN-VAM):C(COL-HAM): IF CH.IN=2 THEN GOSUB HANDLE.FUNCTION.KEYS CH.IN = CHAR(CH.IN) WHILE CH.IN # CTRL.A DO BEGIN CASE CASE CH.IN>SMALLEST AND CH.IN ZLEN=LEN(ZIGGY) IF INSERT.MODE="I" THEN IF COL>ZLEN THEN ZIGGY=ZIGGY:SPACE(COL-ZLEN+5) ZIG=ZIGGY[1,COL-1]:CH.IN END ELSE ZIG=ZIGGY[1,COL-1]:CH.IN:ZIGGY[COL,LEN(ZIGGY)] END PRINT L(LIN-VAM):C(1):EOL:CHANGE(ZIG[1+HAM,LAST.COL],ESCAPE,'[') PRINT L(LIN-VAM):C(COL-HAM): END ELSE PRINT L(LIN-VAM):C(COL-HAM): PRINT CH.IN IF COL>ZLEN THEN ZIGGY=ZIGGY:SPACE(COL-ZLEN+5) ZIG=ZIGGY[1,COL-1]:CH.IN END ELSE ZIGGY[COL,1]=CH.IN ZIG=ZIGGY END END IF COL = LAST.COL+HAM THEN GOSUB 3000 ; * Do a H.Tab COL+=1 CASE ESCAPE=CH.IN IP.TIMEOUT = 9 PRINT L(LIN-VAM):C(COL-HAM): IF FN.KEY.ACTIVE THEN FN.KEY.CNTR+=1 IF FN.KEY.CNTR>FN.KEY.LEN THEN FN.KEY.ACTIVE=0 SECOND.CHAR = SEQ(IN()) END ELSE SECOND.CHAR = SEQ(FN.KEY.VAL[FN.KEY.CNTR,1]) END END ELSE SECOND.CHAR = SEQ(IN()) END SECOND.CHAR = CHAR(SECOND.CHAR) IF SECOND.CHAR=ESCAPE THEN PRINT L(LIN-VAM):C(COL-HAM): PRINT '[' ZIGGY=ZIG ZIGGY[COL,1]=CH.IN ZIG=ZIGGY IF COL = LAST.COL+HAM THEN GOSUB 3000 ; * Do a H.Tab COL+=1 END ELSE GOSUB 200 ; * Do Other Escape Sequences END CASE DOWN = CH.IN IF LIN = LAST.LINE+VAM THEN GOSUB 1000 ; * Do a V.Tab LIN+=1 CASE UP = CH.IN IF LIN>1 THEN IF LIN=VAM+1 THEN GOSUB 2000 ; * Cancel a V.Tab LIN-=1 END CASE LEFT = CH.IN IF COL>1 THEN IF COL>2 THEN IF COL=HAM+2 THEN GOSUB 4000 ; * Cancel a H.Tab COL-=1 END CASE RIGHT = CH.IN IF COL = LAST.COL+HAM THEN GOSUB 3000 ; * Do a H.Tab COL+=1 CASE TAB = CH.IN COL+=TOFFSET LOOP WHILE COL>LAST.COL+HAM DO GOSUB 3000 ; * Do a H.Tab REPEAT CASE CARRIAGE.RETURN = CH.IN IF COL=1 THEN INS '' BEFORE ZIG GOSUB 100 ; * Display Screen END ELSE COL
RE: [U2] Passing a SELECT ID if it's not in the file...
I'm not sure about Universe, but in Unidata the savedlists are 'paged' with each page being about 32k or so. So if you saved a list: SAVE-LIST AEE it would generate the SAVEDLISTS entry of AEE000, AEE001, AEE002, etc. depending on how many records were saved. However it is not necessary to make a new page for each 32k entry, this is a left over. So if you do decide to form a list in a program, you'll need to: Write MyList On SL, "Temp_":@UserNo:"000" and then you can do: Chain "GET.LIST Temp_":@UserNo *=aee=* Disclaimer: If you received this message in error please dance down the hall skipping and whistling while twirling a large branch over your head, or eat a mustard and cheese sandwich while staring at your coworkers and mumbling incoherently. -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Brian Leach Sent: Friday, July 09, 2004 08:27 To: [EMAIL PROTECTED] Subject: RE: [U2] Passing a SELECT ID if it's not in the file... Why not just a short program to do it for you? ===rest of original clipped for low bandwidth users=== --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
When I first started programming, my data general nova 3 would run a
specific speed test program at about 300 loops per second. Now my PC will
do this same program at over 2 million loops per second. By the time I
retire, I expect my machine will probably run at trillions of loops per
second. I don't think on if stmt in a program that will probably run in
seconds anyway will have a great effect on processing.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson
Sent: Monday, June 21, 2004 6:26 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
Thanks for this example. I was looking for a way to not test for the first
iteration every time. Another example illustrated it and kept it goto-less.
I can honestly say that in all my years of MV, no prior programmers or VARs
to my client's systems used LOOP-REPEAT for READNEXT and that virtually
every one was the
10 READNEXT ID ELSE GOTO 19
READ REC FROM F.FILE, ID ELSE GOTO 10
(process)
GOTO 10
scenario.
My Client's packages include Media Services Group, SHIMS, Results, Service
Automation Systems, Primac, GULL, Infoquest, IDS, DataMaster, Wizard, and a
whole slew of home-grown systems and they all use GOTO's in a logical sense
and yes, some in an illogical sense. But none are the GOTO-less environments
that everyone seems to harp upon.
I just wanted to see how it was done. You've answered all of my questions.
Thanks.
- Original Message -
From: "Dennis Bartlett" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Monday, June 21, 2004 5:07 AM
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
> SORT CUSTOMER
> BY STATE
> BY CITY
> {showing} NAME
> BREAK-ONCITY
> BREAK-ONSTATE
> TOTAL YTD-SALES
>
>
> ORDERS File layout
> --
> <0>Order Number
> <1>State
> <2>City
> <3>Cust.Name (for purpose of example)
> <4>Sales by month position (ie 12 multivals)
>
>
> PROGRAM YTD.SALES.RPT
> * author : d.bartlett
> * written : 21 June 04
> * example of GOTO-less code in a break-on environment
> * ---
> * Assumes there won't be a city in a different state
> * with the same name / code
> * ---
>OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
>TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
>PERIOD = TODAY[4,2] ; * assumes simple periods
>CUST.YTD.SALES = 0
>LPT.WIDTH = 80
>STATE.SALES = 0
>CITY.SALES = 0
>CUST.SALES = 0
>TOT.SALES = 0
>LAST.STATE = ''
>LAST.CITY = ''
>
> * --
> * select data - assumes I can still use select-by
> * - if not, we do a two stage pass
> *(1) process file,
> *using locate to sequence state*city
> *build array1 = state*city } state*city*
> *build array2 = orderno
> *
> *(2) process sorted array1 with REMOVE
> *MORE = 1
> *LOOP
> * REMOVE KEY FROM ARRAY1 SETTING MORE
> * REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
> * * --> process
> *WHILE MORE
> *REPEAT
> *
> * Limitations are size, speed
> * --
>CMD = 'SELECT CUSTOMER'
>CMD := ' BY STATE'
>CMD := ' BY CITY'
>CRT 'Selecting data - please wait'
>EXECUTE CMD CAPTURING X RETURNING Y
>
>IF (Y < 1) THEN
> MSG = 'No records were found matching'
> MSG := ' your selection'
> CRT MSG :; INPUT REPLY
>END ELSE
> CRT Y : ' records selected'
> GOSUB PROCESS.ORDERS
>END
>CRT @(-1)
>STOP
> * =
> PROCESS.ORDERS:
>LOOP
> READNEXT ORDERNO ELSE DONE = 1
>UNTIL (DONE = 1)
> READ ORDREC FROM ORDERS, ORDERNO THEN
> GOSUB PARSE.ORDER
> GOSUB ACCUM.YTD
>
> *initialise temp variables
> IF (LAST.STATE = '') THEN
> LAST.STATE = STATE
> LAST.CITY = CITY
> END
>
> *test if city has changed?
> IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
>
> *test if state has changed?
> IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
>
> *print a detail line
> CRT NAME 'L#40' :
> CRT OCONV(YTD.SALES, 'MD2') 'R#15'
> END
>REPEAT
>
> * final CITY totals
>GOSUB CITY.TOTALS
>GOSUB STATE.TOTALS
>GOSUB FINAL.TOTAL
>RETURN
> * ---
> PARSE.ORDER:
> * <0>Order Number
> * <1>State
> * <2>City
> * <3>Cust.ID
> * <4>Cust.Name (for purpose of example)
> * <5>Sales by month position (ie 12 multivals)
>STATE = ORDREC<1>
>CITY = ORDREC<2>
>NAME = ORDREC<3>
>SALES = ORDREC<4>
>RETURN
> * --
RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code example)
Just a quick look, it appears the code is adding to the city and state
totals before checking if the city or state values have changed. This means
if the city or state has changed that it'll be adding some of the next city
and state totals to the previous city and state totals. Unless I'm
mistaken, this will not match a uniquery stmt doing the same. If you see my
example posted earlier you'll see it checks for change of key values, then
print totals, then clear totals, then add to totals, which is necessary for
correct results.
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dennis Bartlett
Sent: Monday, June 21, 2004 2:07 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] [UV] WHILE READNEXT id DO {{not a holy war,just a code
example)
SORT CUSTOMER
BY STATE
BY CITY
{showing} NAME
BREAK-ONCITY
BREAK-ONSTATE
TOTAL YTD-SALES
ORDERS File layout
--
<0>Order Number
<1>State
<2>City
<3>Cust.Name (for purpose of example)
<4>Sales by month position (ie 12 multivals)
PROGRAM YTD.SALES.RPT
* author : d.bartlett
* written : 21 June 04
* example of GOTO-less code in a break-on environment
* ---
* Assumes there won't be a city in a different state
* with the same name / code
* ---
OPEN 'ORDERS' TO CUSTOMER ELSE STOP 201,'CUSTOMER'
TODAY = OCONV(DATE(),'D2/') ; * assumes dd/mm/yy
PERIOD = TODAY[4,2] ; * assumes simple periods
CUST.YTD.SALES = 0
LPT.WIDTH = 80
STATE.SALES = 0
CITY.SALES = 0
CUST.SALES = 0
TOT.SALES = 0
LAST.STATE = ''
LAST.CITY = ''
* --
* select data - assumes I can still use select-by
* - if not, we do a two stage pass
*(1) process file,
*using locate to sequence state*city
*build array1 = state*city } state*city*
*build array2 = orderno
*
*(2) process sorted array1 with REMOVE
*MORE = 1
*LOOP
* REMOVE KEY FROM ARRAY1 SETTING MORE
* REMOVE ORDERNO FROM ARRAY2 SETTING JUNK
* * --> process
*WHILE MORE
*REPEAT
*
* Limitations are size, speed
* --
CMD = 'SELECT CUSTOMER'
CMD := ' BY STATE'
CMD := ' BY CITY'
CRT 'Selecting data - please wait'
EXECUTE CMD CAPTURING X RETURNING Y
IF (Y < 1) THEN
MSG = 'No records were found matching'
MSG := ' your selection'
CRT MSG :; INPUT REPLY
END ELSE
CRT Y : ' records selected'
GOSUB PROCESS.ORDERS
END
CRT @(-1)
STOP
* =
PROCESS.ORDERS:
LOOP
READNEXT ORDERNO ELSE DONE = 1
UNTIL (DONE = 1)
READ ORDREC FROM ORDERS, ORDERNO THEN
GOSUB PARSE.ORDER
GOSUB ACCUM.YTD
*initialise temp variables
IF (LAST.STATE = '') THEN
LAST.STATE = STATE
LAST.CITY = CITY
END
*test if city has changed?
IF (CITY NE LAST.CITY) THEN GOSUB CITY.TOTALS
*test if state has changed?
IF (STATE NE LAST.STATE) THEN GOSUB STATE.TOTALS
*print a detail line
CRT NAME 'L#40' :
CRT OCONV(YTD.SALES, 'MD2') 'R#15'
END
REPEAT
* final CITY totals
GOSUB CITY.TOTALS
GOSUB STATE.TOTALS
GOSUB FINAL.TOTAL
RETURN
* ---
PARSE.ORDER:
* <0>Order Number
* <1>State
* <2>City
* <3>Cust.ID
* <4>Cust.Name (for purpose of example)
* <5>Sales by month position (ie 12 multivals)
STATE = ORDREC<1>
CITY = ORDREC<2>
NAME = ORDREC<3>
SALES = ORDREC<4>
RETURN
* ---
ACCUM.YTD:
CUST.SALES = 0
FOR P = 1 TO PERIOD
CUST.SALES += OR.SALES<1,P>
NEXT P
STATE.SALES += CUST.SALES
CITY.SALES += CUST.SALES
TOT.SALES += CUST.SALES
RETURN
* ---
CITY.TOTALS:
CRT SPACE(40) :
CRT STR('-',15)
CRT SPACE(40) :
CRT OCONV(CITY.SALES, 'MD2') 'R#15'
LAST.CITY = CITY
CITY.SALES = 0
RETURN
* ---
STATE.TOTALS:
CRT
CRT SPACE(40) :
CRT STR('=',15)
CRT SPACE(40) :
CRT OCONV(STATE.SALES, 'MD2') 'R#15'
STATE.SALES = 0
LAST.STATE = STATE
RETURN
* ---
FINAL.TOTAL:
CRT
CRT STR('=',LPT.WIDTH)
CRT SPACE(40) :
CRT OCONV(TOT.SALES,'MD2') 'R#15'
CRT STR('=',LPT.WIDTH)
RETURN
* ---
END
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
Mark Johnson
Sent: 18 June 20
RE: [U2] [UV] WHILE READNEXT id DO
Hi Mark, I'll have to fire up the machine in the back room and grab some source code off of that... I have to put it back together first - had to use it as a test box when I built my last PC and never got it slapped back together. But basically from memory it's something like: GOSUB OPEN.AND.INIT IF NOT(ERROR) THEN GOSUB DO.IT.ALREADY END GOSUB PRINT.GRAND.TOTALS GOSUB FINISH.UP STOP DO.IT.ALREADY:* PERFORM 'SELECT SOD BY CUSTOMER BY DIVISION' SELECTED = @SYSTEM.RETURN.CODE IF SELECTED < 1 THEN PRINT 'Do!' RETURN END FIRST = 1 LOOP READNEXT SOD.ID ELSE GOSUB PRINT.CUSTOMER.TOTALS GOSUB PRINT.DIVISION.TOTALS EXIT END GOSUB READ.ORDER.LINE IF ERROR OR NOT.OPEN.LINE THEN CONTINUE IF FIRST THEN FIRST = '' SAVED.CUST = CUSTOMER SAVED.DIVISION = DIVISION END GOSUB ADD.TO.GRAND.TOTALS IF SAVED.CUST = CUSTOMER THEN GOSUB ADD.TO.CUSTOMER.TOTALS END ELSE GOSUB PRINT.CUSTOMER.TOTALS SAVED.CUST = CUSTOMER GOSUB ADD.TO.CUSTOMER.TOTALS END IF SAVED.DIVISION = DIVISION THEN GOSUB ADD.TO.DIVISION.TOTALS END ELSE GOSUB PRINT.DIVISION.TOTALS SAVED.DIVISION = DIVISION GOSUB ADD.TO.DIVISION.TOTALS END REPEAT RETURN EASY AS PIE! (3.14159) ;-) Important to note that the clearing of the total variables is at the end of the printing during the controlled break. Also important is that after printing totals, and clearing the total vars, that the saved customer or saved division is 'bumped up' to the current value, and then after that they current record gets added to the totals so as to not loose any data. The order of processing the lowest level sub-set is necessary as that is how it is to appear on the report, i.e. lines of customer totals, followed by a division total, and then more customers and divisions until the grand. Note that we also want to print the customer and division totals after the last record or the last customer and division will never make it to the report. Of course it's always nice to throw in a screen graph for big files so users can see how long a coffee break to take This style is directly from the book I mentioned and is referred to as "Controlled Break" processing. I'm shutting down early for the day, since I like to get a early start on the weekends. Gonna go marinate a nice usda choice sirloin, and get that grill warmed up :) *=aee=* -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson Sent: Friday, June 18, 2004 7:17 AM To: [EMAIL PROTECTED] Subject: Re: [U2] [UV] WHILE READNEXT id DO Was the new release an OS or application level. The OS should have had no problem. My MVquery example is certainly do-able at TCL. I would like to see it in a LOOPed environment, verbatim. Usually reports get so complex that they exceed the query level and have to be done at the program level. We all know when we turn that corner of exceeding the query level on a report's design. thanks. - Original Message - From: "Allen E. Elwood (CA)" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, June 17, 2004 9:57 PM Subject: RE: [U2] [UV] WHILE READNEXT id DO > Hi Mark, > > GOTO-phobia (love that term :-) Don't know about you, but I have seen > programs that were 5000 lines long, filled with goto's that needed upgrading > to fit a new release and required hundreds of hours to upgrade instead of > 20. When done, they became very 'quirky' and impossible to debug. Finally > after user complaints, 400 hours were invested to completely rewrite. And > at $175 per hour, 400 hours is a big loss to a software house - "blood on > the highway" as the owner used to say. So whereas goto's are not 'bad', bad > programming is VERY bad. > > Usually with sorts I just form the key that defines the break-points after > every read. The first time through you prime the key and kill the first > flag, after that when the key changes you print the totals, set the key to > the value that caused the break, clear the totals while adding to the grand > total(s) and then add the values for the current record to the just cleared > totals and voila. Done deal ! Nest this logic and you can do > multi-sort-breaks. I learned this method very well as before I came to the > Pick community (as it *used* to be called) I was working on a system that > had no query language. And the CEO was a big believer in sales analysis > reports of every imaginable sorts. Plus, every once in a while you run into > someone that wants the a column for "This division sales percent of the > territory total" and "This territory sales percent of the Grand Total", etc. > which are pretty much impossible without programming. > > That said,
RE: [U2] [UV] WHILE READNEXT id DO
Hi Mark, GOTO-phobia (love that term :-) Don't know about you, but I have seen programs that were 5000 lines long, filled with goto's that needed upgrading to fit a new release and required hundreds of hours to upgrade instead of 20. When done, they became very 'quirky' and impossible to debug. Finally after user complaints, 400 hours were invested to completely rewrite. And at $175 per hour, 400 hours is a big loss to a software house - "blood on the highway" as the owner used to say. So whereas goto's are not 'bad', bad programming is VERY bad. Usually with sorts I just form the key that defines the break-points after every read. The first time through you prime the key and kill the first flag, after that when the key changes you print the totals, set the key to the value that caused the break, clear the totals while adding to the grand total(s) and then add the values for the current record to the just cleared totals and voila. Done deal ! Nest this logic and you can do multi-sort-breaks. I learned this method very well as before I came to the Pick community (as it *used* to be called) I was working on a system that had no query language. And the CEO was a big believer in sales analysis reports of every imaginable sorts. Plus, every once in a while you run into someone that wants the a column for "This division sales percent of the territory total" and "This territory sales percent of the Grand Total", etc. which are pretty much impossible without programming. That said, I still believe in using Uniquery for reports as much as possible. Keep is simple whenever possible! But, really when you get down to it, it just doesn't really matter how you get something done. It's the analytical mindset, business experience and attention to details that really make a good programmer. IMHO! Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson Sent: Thursday, June 17, 2004 5:12 PM To: [EMAIL PROTECTED] Subject: Re: [U2] [UV] WHILE READNEXT id DO Very good question. Is BASIC Structured. And who defines the structures. I was on a phone interview with a prospective employer a few years ago and during that conversation he brought up the concept of GOTO's. I completely understand GOTO's (most on this forum are GOTO-phobic) and use them sparingly. That turned the tide of the interview. Despite my 20+ years (at that time) of MV programming, he couldn't get off the GOTO-less soapbox. Since the interview got a little pissy towards the end, I asked him if he ever drank a beer. His yes answer then allowed me to label him an alcoholic as clearly alcoholics drink beer. Do GOTO's make one a poor programmer or do poor programmers use GOTO's. I've seen a lot of GOTO-less code that is very sloppy with its over-use of FLAGS to skirt around code sections. I've also seen well written code with a few GOTO's placed in appropriate places. This appears to be the semi-annual GOTO holy war. I'm capable of learning so I would like for someone to offer me some code segments to perform the following MVquery statement as a true data/basic program: SORT CUSTOMER BY STATE BY CITY NAME BREAK-ON CITY BREAK-ON STATE TOTAL YTD-SALES I really would like to see how the other side programs this. thanks in advance. - Original Message - From: "Glenn Herbert" <[EMAIL PROTECTED]> To: <[EMAIL PROTECTED]> Sent: Thursday, June 17, 2004 3:00 PM Subject: RE: [U2] [UV] WHILE READNEXT id DO > Is BASIC structured? :-p > > If your answer is yes, then the GOTO should probably not be allowed (except > in rare cases). > > If your answer is no, then GOTO away!! (caveat: if not abused!) > > As Yoda says: GOTO is the evil not; incorrect the usage is! > > At 02:46 PM 6/17/2004, you wrote: > >You realize this does not conform to the ANSI structured programming > >principles? I have a version dated 1982 and goto's are not allowed... > > > >Or was this just a joke? In which case you certainly got me! :-) > > > >-Original Message- > >From: [EMAIL PROTECTED] > >[mailto:[EMAIL PROTECTED] Behalf Of Simon Lewington > >Sent: Thursday, June 17, 2004 11:02 AM > >To: [EMAIL PROTECTED] > >Subject: Re: [U2] [UV] WHILE READNEXT id DO > > > > > ><[EMAIL PROTECTED]> ... > > > LOOP > > > code > > > WHILE READNEXT id DO > > > more code > > > REPEAT > > > >I prefer: > > > >100 > >[code] > >GOTO 300 > >200 > >[more code] > >GOTO 100 > >300 > >READNEXT ID THEN GOTO 200 > >--- > >u2-users mailing list > >[EMAIL PROTECTED] > >To unsubscribe please visit http://listserver.u2ug.org/ > >--- > >u2-users mailing list > >[EMAIL PROTECTED] > >To unsubscribe please visit http://listserver.u2ug.org/ > --- > u2-users mailing list > [EMAIL PROTECTED] > To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listse
FW: [U2] [UV] WHILE READNEXT id DO
(resending this one sans joke that apparently was non-pc) Good point Glenn, Any programming language that supports constructs which allow the development of loops and subroutines that do not need GOTO's can be used to create structured programs. Another hallmark of structured programs is the usage of text labels instead of numeric. So, GOSUB DETERMINE.PREVIOUS.STATUS can be used instead of GOSUB 17250... Keeping logical constructs separate from 'doing stuff' is another good practice, as is parsing all variables after the READ, having only one main print routine (if printing), keeping subroutines from getting too big, not going down too many levels in subroutines, the list goes on and on. I have been told that my basic programs look more like structured COBOL programs than most basic programs. And it's pretty true. I agree that OPEN '', ITEM.MASTER TO 'ITEM.MASTER' ELSE GOTO ABORT.ROUTINE is allowable! This is an example from one of my programs that is used to create the demand file prior to sending the data to a 3rd party forecasting system "Demand Solutions". As you can see, it is quite easy to create structured code in BASIC! MAIN.SETUP.SECTION:* GOSUB OPEN.AND.INIT GOSUB SELECT.DEMAND.MAPS IF NOT(ERROR) THEN GOSUB MAIN.PROCESSING.LOOP END GOSUB FINISH.UP END.MAIN.SETUP.SECTION:* STOP MAIN.PROCESSING.LOOP:* LOOP READNEXT TM.ID FROM 1 ELSE EXIT GOSUB READ.DEMAND.MAP IF ERROR THEN CONTINUE GOSUB PREPROCESS.PURGE IF ERROR THEN CONTINUE IF (FILE.SOURCE = 1 OR FILE.SOURCE = 3) THEN *Process SA file for file opts 1 and 3 FILE.HANDLE = SA FILE.SELECT = 'SA' GOSUB SELECT.SA IF ERROR THEN CONTINUE GOSUB PROCESS.SA END IF (FILE.SOURCE = 2 OR FILE.SOURCE = 3) THEN *Process SA.HIST file for file opts 2 and 3 FILE.HANDLE = SA.HIST FILE.SELECT = 'SA.HIST' GOSUB SELECT.SA IF ERROR THEN CONTINUE GOSUB PROCESS.SA END MSG='' GOSUB OUTPUT.LINE MSG='End of Listing for Demand Map ':MAP.NAME:', ':DESC GOSUB OUTPUT.LINE REPEAT RETURN Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 800-5595 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Glenn Herbert Sent: Thursday, June 17, 2004 12:01 PM To: [EMAIL PROTECTED] Subject: RE: [U2] [UV] WHILE READNEXT id DO Is BASIC structured? :-p If your answer is yes, then the GOTO should probably not be allowed (except in rare cases). If your answer is no, then GOTO away!! (caveat: if not abused!) As Yoda says: GOTO is the evil not; incorrect the usage is! At 02:46 PM 6/17/2004, you wrote: >You realize this does not conform to the ANSI structured programming >principles? I have a version dated 1982 and goto's are not allowed... > >Or was this just a joke? In which case you certainly got me! :-) > >-Original Message- >From: [EMAIL PROTECTED] >[mailto:[EMAIL PROTECTED] Behalf Of Simon Lewington >Sent: Thursday, June 17, 2004 11:02 AM >To: [EMAIL PROTECTED] >Subject: Re: [U2] [UV] WHILE READNEXT id DO > > ><[EMAIL PROTECTED]> ... > > LOOP > > code > > WHILE READNEXT id DO > > more code > > REPEAT > >I prefer: > >100 >[code] >GOTO 300 >200 >[more code] >GOTO 100 >300 >READNEXT ID THEN GOTO 200 >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] WHILE READNEXT id DO
Good point Glenn, Any programming language that supports constructs which allow the development of loops and subroutines that do not need GOTO's can be used to create structured programs. Another hallmark of structured programs is the usage of text labels instead of numeric. So, GOSUB DETERMINE.PREVIOUS.STATUS can be used instead of GOSUB 17250... Keeping logical constructs separate from 'doing stuff' is another good practice, as is parsing all variables after the READ, having only one main print routine (if printing), keeping subroutines from getting too big, not going down too many levels in subroutines, the list goes on and on. I have been told that my basic programs look more like structured COBOL programs than most basic programs. And it's pretty true. I agree that OPEN '', ITEM.MASTER TO 'ITEM.MASTER' ELSE GOTO ABORT.ROUTINE is allowable! And remember, it's not GOTO's that kill, it's the person pulling the trigger!!! ;-) (Or would that be the person hitting the return key?!!?) This is an example from one of my programs that is used to create the demand file prior to sending the data to a 3rd party forecasting system "Demand Solutions". As you can see, it is quite easy to create structured code in BASIC! MAIN.SETUP.SECTION:* GOSUB OPEN.AND.INIT GOSUB SELECT.DEMAND.MAPS IF NOT(ERROR) THEN GOSUB MAIN.PROCESSING.LOOP END GOSUB FINISH.UP END.MAIN.SETUP.SECTION:* STOP MAIN.PROCESSING.LOOP:* LOOP READNEXT TM.ID FROM 1 ELSE EXIT GOSUB READ.DEMAND.MAP IF ERROR THEN CONTINUE GOSUB PREPROCESS.PURGE IF ERROR THEN CONTINUE IF (FILE.SOURCE = 1 OR FILE.SOURCE = 3) THEN *Process SA file for file opts 1 and 3 FILE.HANDLE = SA FILE.SELECT = 'SA' GOSUB SELECT.SA IF ERROR THEN CONTINUE GOSUB PROCESS.SA END IF (FILE.SOURCE = 2 OR FILE.SOURCE = 3) THEN *Process SA.HIST file for file opts 2 and 3 FILE.HANDLE = SA.HIST FILE.SELECT = 'SA.HIST' GOSUB SELECT.SA IF ERROR THEN CONTINUE GOSUB PROCESS.SA END MSG='' GOSUB OUTPUT.LINE MSG='End of Listing for Demand Map ':MAP.NAME:', ':DESC GOSUB OUTPUT.LINE REPEAT RETURN Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 800-5595 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Glenn Herbert Sent: Thursday, June 17, 2004 12:01 PM To: [EMAIL PROTECTED] Subject: RE: [U2] [UV] WHILE READNEXT id DO Is BASIC structured? :-p If your answer is yes, then the GOTO should probably not be allowed (except in rare cases). If your answer is no, then GOTO away!! (caveat: if not abused!) As Yoda says: GOTO is the evil not; incorrect the usage is! At 02:46 PM 6/17/2004, you wrote: >You realize this does not conform to the ANSI structured programming >principles? I have a version dated 1982 and goto's are not allowed... > >Or was this just a joke? In which case you certainly got me! :-) > >-Original Message- >From: [EMAIL PROTECTED] >[mailto:[EMAIL PROTECTED] Behalf Of Simon Lewington >Sent: Thursday, June 17, 2004 11:02 AM >To: [EMAIL PROTECTED] >Subject: Re: [U2] [UV] WHILE READNEXT id DO > > ><[EMAIL PROTECTED]> ... > > LOOP > > code > > WHILE READNEXT id DO > > more code > > REPEAT > >I prefer: > >100 >[code] >GOTO 300 >200 >[more code] >GOTO 100 >300 >READNEXT ID THEN GOTO 200 >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ >--- >u2-users mailing list >[EMAIL PROTECTED] >To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] relative speed of Retrieve SELECT vs Basic SELECT, LOOP READNEXT,READ. was: [UV] WHILE READNEXT id DO
I'm pretty sure the internal select (method 2) selects just the next group at a time and feeds from that until it needs another. In this method you can get instant results, pretty much like doing a LIST. So this method would be good where output is being fed to the crt, and you might not want to process the whole file, The external list (method one) selects all the records and stores them as a list of keys. During this selection process, most operating systems are going to stick the whole file into active memory as it becomes apparent to the O/S that the entire file is being processed sequentially. Therefore when the records are being accessed they are already in main memory instead of having to be read from disk and that is why it is faster. Probably :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Stevenson, Charles Sent: Thursday, June 17, 2004 11:16 AM To: [EMAIL PROTECTED] Subject: [U2] relative speed of Retrieve SELECT vs Basic SELECT, LOOP READNEXT,READ. was: [UV] WHILE READNEXT id DO Please let me deflect this thread before it degenerates into a GOTO war. Which would you suppose is much faster: 1: T0=TIME() FOR I = 1 TO 100 EXECUTE 'SELECT VOC WITH TYPE = "V" COUNT.SUP' LOOP WHILE READNEXT ID NULL ;* GOSUB DO.STUFF REPEAT NEXT I T1 = TIME() CRT T1-T0 or 2: T0 = TIME() OPEN 'VOC' TO F ELSE STOP FOR I = 1 TO 100 SELECT F LOOP WHILE READNEXT ID READ REC FROM F, ID THEN IF REC[1,1]='V' THEN NULL ;* GOSUB DO.STUFF END END REPEAT T1 = TIME() CRT T1-T0 Notice how much less work #2 (seemingly) does: #1. #2.. spawns execution level 100x --- parses sentence 100x --- Opens data file 100x Opens data file once Opens dict 100x --- sequentially traverses 100x sequentially traverses file 100x -looks at every record 100x -gets id 1st, then record, 100x builds list of V-ids 100x --- Method 2 takes 2 or 3 times as longer to run than Method 1. It's not because VOC is a special file. I've tried it on other files, big and small. Note: SELECT F is a BASIC select, not Retrieve's (not the MV Query Language's) verb. It does not really select the file, it merely sets up for the subsequent READNEXTs to truly read the next key. So READNEXT ID;READ REC FROM F, ID involve going to the file 2x. Generally the group is still in memory when READ is requested. on a well-sized, well-behaved file several READNEXT-READ pairs will be acting on a group or groups loaded into memory only once. But is that where the inefficiency lies? Doing the READ subsequent to the READNEXT? HPUX 11i, uv 10.0.16. I'd love to hear an explanation &/or comparisons to UD. Chuck Stevenson --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] [UV] WHILE READNEXT id DO
You realize this does not conform to the ANSI structured programming principles? I have a version dated 1982 and goto's are not allowed... Or was this just a joke? In which case you certainly got me! :-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Simon Lewington Sent: Thursday, June 17, 2004 11:02 AM To: [EMAIL PROTECTED] Subject: Re: [U2] [UV] WHILE READNEXT id DO <[EMAIL PROTECTED]> ... > LOOP > code > WHILE READNEXT id DO > more code > REPEAT I prefer: 100 [code] GOTO 300 200 [more code] GOTO 100 300 READNEXT ID THEN GOTO 200 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Convert Statement Not Working
And just in case someone sees the SWAP command in a program, that statement has the same effect on data as the CHANGE command, with a really different format: BUBBA = 'AS MUCH WOOD AS A WOOD CHUCK WOULD CHUCK IF A WOOD CHUCK DID CHUCK WOOD' *SWAP 'WOOD' WITH 'CHUCK' IN BUBBA is the same as BUBBA = CHANGE(BUBBA,'WOOD','CHUCK') PRINT BUBBA AS MUCH CHUCK AS A CHUCK WOOD WOULD WOOD IF A CHUCK WOOD DID WOOD CHUCK :-) The swap command came first, and someone along the way decided that it was not in the same format of most of the other commands (starting with 'variable=' instead of the variable at the end) and so they added CHANGE. For what it's worth.(nothing?) I've spent the day summarizing the VICS bill of lading format for a client in 'understandable' language, which is akin to trying to explain the theory of relativity using only five words, three letters each or less! I needed a break !!! *=aee=* -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Glenn Herbert Sent: Wednesday, June 09, 2004 11:08 AM To: [EMAIL PROTECTED] Subject: RE: [U2] Convert Statement Not Working Nor does it like the program name "R". This, obviously, is because the "C" and "R" are options to VLIST. C: converts FMT,LEN,FOLD opcodes to DP ones, i.e. FMT becomes FMTDP, LEN becomes LENDP, etc. Warning: This option UPDATES OBJECT CODE when used!! R: print reference numbers instead of symbols At 10:50 AM 6/9/2004, you wrote: >This one ought to go into the FAQ > > >The following CONVERT statement does work, > > > > CONVERT "&" TO "&" IN LINE > > > > Does anyone know what's happening here? > > >Well, I'm still proud of my little example when the question was raised >in April: > >CDS.BP C >01 X = 'How much wood would a woodchuck chuck, if a woodchuck could >chuck wood?' >02 CRT X >03 CRT CONVERT( 'woodchuck', 'groundhog', X ) >04 CRT CHANGE( CHANGE( X, 'wood', 'ground' ), 'chuck', 'hog' ) > >>RUN CDS.BP C >How much wood would a woodchuck chuck, if a woodchuck could chuck >wood? >Hrg mhnd grru grhlu a grrundhng ndhng, if a grrundhng nrhlu ndhng >grru? >How much ground would a groundhog hog, if a groundhog could hog >ground? > > >Dang, I'm clever! >Hog^h^h^hChuck Stevenson > > >P.S. Did you know that VLIST won't tolerate a program named "C"? > >>VLIST CDS.BP C >"BP" is not a file name. --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] uinvers login's
Hi Dave, Back in 1988 when I first started working with ROI systems, they didn't have any controls on sessions or keeping users out during system work. I wrote a program to add a program to all of the logon VOC's, so that at login, each user would be directed to a program that would (a) see if the system had been locked out and if they were not a member of the admin staff would execute the off command and (b) do a listuser capturing the information and see how many times they were logged in, and if they had exceeded their limit (assigned in a custom file/field) then they would get the 'too many' message and execute the off command. Later, ROI built this into their logging in program and I eventually deleted my obsolete program, so I don't have any code to share. But, it worked great!!! Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, June 09, 2004 10:30 AM To: [EMAIL PROTECTED] Subject: [U2] uinvers login's I am working at with a client that would like to restrict the number sessions each user to 1 to 5. They are running Universe with Wintagrate. Any suggestions I have looked at the Universe admin but I don't see any way to restrict it. Thanks. D Raven e Fax (815)4259364 P.O. Box 17811, Irvine CA 92623-7811 --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] double postings
Hi Will, ROI has an extremely LARGE product called Manage-2000 that is an ERP system that has been successfully implemented at relatively low cost in a variety of manufacturing and distributor companies since 1978. www.roisystems.com is the website. They were sold to Epicor which announced the purchase on 07-08-2003. Hope this helps! Allen -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of [EMAIL PROTECTED] Sent: Wednesday, June 09, 2004 10:15 AM To: [EMAIL PROTECTED] Subject: Re: [U2] double postings In a message dated 6/9/2004 10:00:45 AM Pacific Daylight Time, [EMAIL PROTECTED] writes: > I've been so swamped since joining Curnayn and associates after ROI laid me > and 50 other people off during the Epicor acquisition that I haven't had > time to do simple things like join a new group. Is ROI the same as "ROI Syngineering" who created a program called something like Quiche ? A program/file/proc cross-reference utility? Will --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] double postings
Hello Mr. Walters! Nice to see a 'friendly face' from the past! I've been so swamped since joining Curnayn and associates after ROI laid me and 50 other people off during the Epicor acquisition that I haven't had time to do simple things like join a new group. Be sure to give me a call if you ever need any help with projects, upgrades, etc! You're close enough for me to drive over to see if need be! (I'm here in the San Fernando Valley, just a hop, skip and jump away from Camarillo) Hope all is going well with you! *=aee=* Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 800-5595 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Alan Walters Sent: Tuesday, June 08, 2004 5:37 PM To: [EMAIL PROTECTED] Subject: RE: [U2] double postings I just couldn't resist coming out of lurker mode long enough to say "Hello, Mr. Elwood - long time no hear"!!! Alan Walters Director of I.T. Royce Medical Date: Tue, 8 Jun 2004 13:29:49 -0700 From: "Allen E. Elwood \(CA\)" <[EMAIL PROTECTED]> Subject: RE: [U2] double postings I haven't gotten any double postings. But then I just joined the group yesterday. I have 30 years programming experience, but just joined yesterday. Priorities. ;-) --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] Welcome [previously:double postings]
Thanks! Glad to be here! I was on the ROI Manage-2000 group (runs on U2) for about 10 years or so and got kicked for replying to a message about why my signature had changed; saying that I was now working for a ROI business partner. Seems rather odd, but sadly is true.no warning, no prior 'mistakes', just one email and zap10 years of contributions ignored in the face of one innocently sent reply. (g!) *=aee=* -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Stuart Boydell Sent: Tuesday, June 08, 2004 3:37 PM To: [EMAIL PROTECTED] Subject: RE: [U2] Welcome [previously:double postings] Welcome to the group Allen > On Behalf Of Allen E. Elwood > I haven't gotten any double postings. But then I just joined the group > yesterday. I have 30 years programming experience, but just joined > yesterday. Priorities. ;-) ps. no doubles: Outlook : Notes IMAP ** 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 email in error please notify the Spotless IS Support Centre (61 3 9269 7555) immediately who will advise further action. This footnote also confirms that this email message has been scanned for the presence of computer viruses. ** --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [OT] RE: [U2] [Ad] Job Opening in Salinas, CA, USA[Scanned]
One of the software houses that I worked at acknowledged that they did not give drug screenings because "we wouldn't HAVE any programmers if we did" - they were not here in CA... I was wondering though, what happens if someone tests positive and they admit to using medical marijuana, which has been legalized here in CA? I'm surprised that this has not hit the litigation circuit yet... btw, I've switched from coffee and sugar five times a day to sugarless tea twice a day. Read somewhere that it's the cheapest and one of the strongest anti-cancer prevention treatments there is... Allen, (ready to call it quits and head for the keg of Amstel light in the back room) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Georgia L. Pritchett Sent: Tuesday, June 08, 2004 3:24 PM To: [EMAIL PROTECTED] Subject: RE: [OT] RE: [U2] [Ad] Job Opening in Salinas, CA, USA[Scanned] My drug of choice is coffee so I can pass a drug test. Actually, (not to start a total war here) I would probably have a real hard time looking for a job now. I have some personal reservations about the amount of drug testing done in our society. I was hired just before that went into effect here and during that job hunt, I wouldn't consider applying at places that required it. Of course, now, I would have a hard time finding any places to apply because just about every where I know of requires it. I think you need to do one to work at McDonalds now (a job I believe necessitates some drug use to endure). Georgia > -Original Message- > From: [EMAIL PROTECTED] > [mailto:[EMAIL PROTECTED] Behalf Of > Gordon Glorfield > Sent: Tuesday, June 08, 2004 2:53 PM > To: [EMAIL PROTECTED] > Subject: [OT] RE: [U2] [Ad] Job Opening in Salinas, CA, USA[Scanned] > > > It's that "drug and alcohol" screening thing. How can you > expect to get > qualified people who don't have some kind of substance abuse > going on? (TIC) --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] double postings
I haven't gotten any double postings. But then I just joined the group yesterday. I have 30 years programming experience, but just joined yesterday. Priorities. ;-) -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Scott Ballinger Sent: Tuesday, June 08, 2004 12:03 PM To: [EMAIL PROTECTED] Subject: [U2] double postings Is anyone else getting double posts? I started getting duplicate messages on 6/1. Not on all messages, but about half of them show up twice. Not necessarily always the same poster either. We are using Exchange server, Outlook client. Scott Ballinger Pareto Corporation Edmonds WA USA 425 670 0831 [EMAIL PROTECTED] --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
RE: [U2] http posting
Hi Mike, Put a trigger on the file, make it sensitive to the fields you want to trigger a post. Create a 'blank' html message within the trigger just leaving variables for the parts of the message that will be changing. Create a VOC pointer to the directory where your website data is stored and write the record to that. Maybe get really creative and read the INDEX.HTML and append a link to that for the record just stored and write it back out. Never done it before but I think it would work... Have fun! Allen E. Elwood Senior Programmer Analyst Curnayn and Associates Direct (818) 361-5251 Fax(818) 361-5251 Cell(818) 800-5595 Home (818) 361-7217 -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] Behalf Of Mike Langel Sent: Monday, June 07, 2004 2:35 PM To: [EMAIL PROTECTED] Subject: [U2] http posting We are looking for a way for Unidata to send an HTTP-Post as a record is entered into the database Any suggestions? Mike --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/ --- u2-users mailing list [EMAIL PROTECTED] To unsubscribe please visit http://listserver.u2ug.org/
