Re: [U2] Etymology of Q-Pointer

2012-09-07 Thread Allen E. Elwood

another plausible possibility was that after creating the q pointer, the
file had new been Queued for usage. 

or perhaps the programmer that named it was hungry, and his wife was making
Quiche that night.  hmmm that made me hungry.!

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Friday, September 07, 2012 9:30 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Etymology of Q-Pointer


Early versions of Pick did not natively have a way to reference the Master
Dictionary at all.  That is, you could not open the master dictionary as a
file because there was no reference to it, to use as the text handle against
an OPEN.

This is why the MD itself had a Q pointer called MD, which just had a Q in
the first field and nothing else in it.

Now having an item in the master dictionary to point at itself, you can

OPEN MD TO F.MD

Q pointers do not need anything in the second field.
If you only have a Q in the first field and then a name in the *third*
field, then it assume you are making a short link (quick link) to a file
with a long name.


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Variable Interpolation

2012-08-24 Thread Allen E. Elwood

i agree with marc, please define the question more betterer

this kinda falls into the eschew obfuscation category

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Marc Harbeson
Sent: Friday, August 24, 2012 11:16 AM
To: U2 Users List
Subject: Re: [U2] Variable Interpolation

if this is what he wants - I've seen it done with pre compiler type options
that injects the code dynamically.  but I may not understand the
question as well...

On Fri, Aug 24, 2012 at 12:44 PM, Martin Phillips 
martinphill...@ladybridge.com wrote:

 Hi,

 I am intrigued by this thread, mostly because I have not understood 
 why I would want it.

 If I can write
CALL @SUB FOO(X,Y);Y=X+1;RETURN( 3, VAL ) as suggested, why don't 
 I just write the code inline in my program. What have I missed?


 Martin Phillips
 Ladybridge Systems Ltd
 17b Coldstream Lane, Hardingstone, Northampton NN4 6DB, England
 +44 (0)1604-709200

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Reasons to continue with Software vendor support

2012-06-29 Thread Allen E. Elwood

hey marc, how's that SAP installation going?

wasn't that supposed to be up and running by now?

not that the suits ever get overly optimistic about time frames, eh?
lol

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Rutherford, Marc
Sent: Friday, June 29, 2012 9:16 AM
To: U2 Users List
Subject: Re: [U2] Reasons to continue with Software vendor support

John,

This is tough one, it happened to me and I lost out.  I personally miss the
convenience of grabbing the phone and calling my 'old friends', but I have
found that I can plow through most problems.

For our management the main consideration is that we will not be doing any
future upgrades to our app (Dataflo - Epicor).  So the 'free' upgrade
release which comes with the support contract is of no interest to us.
Ditto for Unidata.  Ditto for Wintegrate.

Furthermore we have been so long on our current release most of the baseline
bugs that could impact our business process have long ago been patched (by
Epicor or by me).  As such we do not expect to encounter need for bug
support.

Our internal business processes are heavily proceduralized (word?), so there
is no need for user education support.

Our hardware support is direct (HP, HP-UX).   This is mission-critical, so
we must continue with support with HP (and we have used that in the
meantime).

Marc Rutherford
Principal Programmer Analyst
Advanced Bionics LLC
661) 362 1754

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John Varney
Sent: Friday, June 29, 2012 8:46 AM
To: 'U2 Users List'
Subject: Re: [U2] Reasons to continue with Software vendor support

I have a potential issue coming up. Our CFO seems to want to be more penny
pinching than normal and is trying to get us to discontinue our support from
our main vendor (We currently use ManFact from EpiCor). This seems like a
REALLY bad idea, but it keeps coming up. Can I get some outside opinions on
why we should keep the support going? I'd like as many as possible because
I'd like to put an end to this once and for all. All comments would be
welcome.


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] [ot] May the 4th be with you!

2012-05-04 Thread Allen E. Elwood

Happy Star Wars Day! 
 
 
(sent this earlier, but from the wrong email account--doh) 
 
 
 
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Command that turns off default command stacker

2012-05-04 Thread Allen E. Elwood
i think if you hit .s1 it'll only save the last command, then you can redo
the .s20 and there'll only be one.

maybe it's .o to toggle on and off

been so long since i did that. 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Friday, May 04, 2012 3:01 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Command that turns off default command stacker


When you log into Universe, by default you get a command stacker and the
stack gets stuffed into the SAVEDLISTS file.

What is the command that turns off that default behaviour?  
I have about a bazillion stack entries for all the different users who've
ever worked here times all the port numbers evidently
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Hi

2012-05-03 Thread Allen E. Elwood
cryptic, but informative 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of satya satya
Sent: Thursday, May 03, 2012 8:00 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Hi

Hi

This satya
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Attribute Problem

2012-05-02 Thread Allen E. Elwood
i can't remember ever using a dash in a dict, or wanting to.

that there are two entries for the same dict kinda does imply whoever made
it has already punted

I think I have finally gone insane.

welcome to MY world!!!  ;-)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Martin Braid
Sent: Wednesday, May 02, 2012 2:46 PM
To: U2 Users List
Subject: Re: [U2] Attribute Problem

You've already got the answer. Use F_MATL instead of F-MATL and stop
thinking about it.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of
charles_shaf...@ntn-bower.com
Sent: 02 May 2012 20:13
To: u2-users@listserver.u2ug.org
Subject: [U2] Attribute Problem

Hi.  I think I have finally gone insane. 

I am having a problem with the attribute MATL.AMT.  It calculates the
extended amount on hand by taking the frozen material cost times the on hand
amount.

The problem is when I use F_MATL for the frozen material cost, MATL.AMT is
good.  When I use F-MATL for the frozen material cost, it returns 0
everytime.

F_MATL and F-MATL are identical and if you list them both work fine.
But when they are used in the calculation F_MATL works, but F-MATL.
doesn't. 
Can anyone see what the problem is?

**
:AE DICT INVENTORY-LOCATION_18 MATL.AMT
Top of MATL.AMT in DICT INVENTORY-LOCATION_18, 6 lines, 43 characters.
*--: P
001: V
002: ON.HAND * F-MATL
003: MR25,
004: MATERIAL.AMT
005: 13R
006: S
Bottom.

**
:AE DICT INVENTORY-LOCATION_18 F_MATL
Top of F_MATL in DICT INVENTORY-LOCATION_18, 6 lines, 93 characters.
*--: P
001: V
002: @ID; OCONV(@ID, G0*1); OCONV(@2, TINVENTORY-MASTER*18;X;66;66)
003: MD5,
004: MATERIAL/UNIT
005: 13R
006: S
Bottom.

***
:AE DICT INVENTORY-LOCATION_18 F-MATL
Top of F-MATL in DICT INVENTORY-LOCATION_18, 6 lines, 93 characters.
*--: P
001: V
002: @ID; OCONV(@ID, G0*1); OCONV(@2, TINVENTORY-MASTER*18;X;66;66)
003: MD5,
004: MATERIAL/UNIT
005: 13R
006: S
Bottom.




Charles Shaffer
Senior Analyst
NTN-Bower Corporation
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Click
https://www.mailcontrol.com/sr/wQw0zmjPoHdJTZGyOCrrhg==
cXO5UZqptIGHDy7!uJKtCfM2WwvnrwGEQlca1YcpG8Zdg==  to report this email as
spam.


Epicor Software (UK) is a limited company registered in England  Wales.  
Registration Number: 2338274.   Registered Office:  6th Floor, One London
Wall, London EC2Y 5EB 
This e-mail is for the use of the intended recipient(s) only. If you have
received this e-mail in error, please notify the sender immediately and then
delete it. If you are not the intended recipient, you must not use, disclose
or distribute this e-mail without the author's prior permission. We have
taken precautions to minimize the risk of transmitting software viruses, but
we advise you to carry out your own virus checks on any attachment to this
message. We cannot accept liability for any loss or damage caused by
software viruses. Any views and/or opinions expressed in this e-mail are of
the author only and do not represent the views of Epicor Software (UK)
Limited or any other company within its group.


This message has been scanned for malware by Websense. www.websense.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] BETWEEN operator

2012-04-18 Thread Allen E. Elwood

i would think the opposite simply because i eschew obfuscation in all forms

(see that's a joke because instead of saying 'avoiding making syntax so
confused or opaque as to be difficult to perceive or understand' i said
eschew obfuscation?  ok, it's a English teacher's joke anyway)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Wednesday, April 18, 2012 9:20 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] BETWEEN operator


Yes I would think, if such an operator were to be introduced to Pick BASIC,
that Between should be exclusive which is how the UniQuery Between (only for
Unidata sorry Universe people) works today.  Between 2 and 4 means only 3,
not 2 and not 4.




-Original Message-
From: Allen E. Elwood aelw...@socal.rr.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Wed, Apr 18, 2012 7:02 am
Subject: Re: [U2] BETWEEN operator



s between inclusive or exclusive?
in other words wouldn't it be written 'between 10 and 19' for values 10 from
9 instead of 'between 9 and 20' for 10 to 19? 
makes more sense if it's inclusive, imho i've only seen BETWEEN used in
uniquery before so.
-Original Message-
rom: u2-users-boun...@listserver.u2ug.org
mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of dennis bartlett
ent: Tuesday, April 17, 2012 10:19 PM
o: U2 Users List
ubject: Re: [U2] BETWEEN operator
the point is that rather than the cumbersome way we have always written the
E LE statement, there might be a better way... that makes readability etter
and will take you 3425.6 man hours to implement throughout your ystem..
however I have no idea what I'm talking about here On 18 April 2012 11:16,
Allen Egerton aeger...@pobox.com wrote:
 So what was/is your point?

 'cause I'm like the other Allen, sitting here wondering what it is  that
you're asking or responding to...



 On 4/17/2012 9:08 PM, Wjhonson wrote:
  There is no question.
 
 
 
  -Original Message-
  From: Allen Elwood RR aelw...@socal.rr.com
  To: U2 Users List u2-users@listserver.u2ug.org
  Sent: Tue, Apr 17, 2012 6:01 pm
  Subject: Re: [U2] BETWEEN operator
 
 
  did u hit send b4 the question?
  On 4/17/2012 5:46 PM, Wjhonson wrote:
   Pick BASIC
 
   IF MYVALUE  9 AND MYVALUE  20 THEN...
 
   or
 
   IF 9  MYVALUE  20 THEN ...
 
   or
 
   IF BETWEEN(MYVALUE,9,20) THEN ...
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

__
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] BETWEEN operator

2012-04-18 Thread Allen E. Elwood

snort  at least you didn't email the executive pay scale report to the
entire company 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
Sent: Wednesday, April 18, 2012 8:50 AM
To: U2 Mail List
Subject: Re: [U2] BETWEEN operator

Oops...wrong To address.  Sorry.   :-(

Bill


- Original Message -
*From:* wphask...@advantos.net
*To:* U2 Users List u2-users@listserver.u2ug.org
*Date:* 4/18/2012 8:45 AM
*Subject:* Re: [U2] BETWEEN operator
 I'm fixing this now.  The backup only ran 49% last night and I have no 
 idea why.  So...reboot!  :-)

 Bill

 --
 --
 - Original Message -
 *From:* aelw...@socal.rr.com
 *To:* 'U2 Users List' u2-users@listserver.u2ug.org
 *Date:* 4/18/2012 7:01 AM
 *Subject:* Re: [U2] BETWEEN operator
 is between inclusive or exclusive?

 in other words wouldn't it be written 'between 10 and 19' for values 
 10 from
 19 instead of 'between 9 and 20' for 10 to 19?

 makes more sense if it's inclusive, imho

 i've only seen BETWEEN used in uniquery before so.

 -Original Message-
 From:u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of dennis 
 bartlett
 Sent: Tuesday, April 17, 2012 10:19 PM
 To: U2 Users List
 Subject: Re: [U2] BETWEEN operator

 the point is that rather than the cumbersome way we have always 
 written the GE LE statement, there might be a better way... that 
 makes readability better and will take you 3425.6 man hours to 
 implement throughout your system..

 however I have no idea what I'm talking about here

 On 18 April 2012 11:16, Allen Egertonaeger...@pobox.com  wrote:

 So what was/is your point?

 'cause I'm like the other Allen, sitting here wondering what it is 
 that you're asking or responding to...



 On 4/17/2012 9:08 PM, Wjhonson wrote:
 There is no question.



 -Original Message-
 From: Allen Elwood RRaelw...@socal.rr.com
 To: U2 Users Listu2-users@listserver.u2ug.org
 Sent: Tue, Apr 17, 2012 6:01 pm
 Subject: Re: [U2] BETWEEN operator


 did u hit send b4 the question?
 On 4/17/2012 5:46 PM, Wjhonson wrote:
   Pick BASIC

   IF MYVALUE   9 AND MYVALUE   20 THEN...

   or

   IF 9   MYVALUE   20 THEN ...

   or

   IF BETWEEN(MYVALUE,9,20) THEN ...
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Job at Rocket in Denver

2012-03-28 Thread Allen E. Elwood

ummm why what?  looks like a good job for the qualified candidate... 

never get me to move from my nice warm home in SoCal tho ;-)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Wednesday, March 28, 2012 9:03 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Job at Rocket in Denver


This job completely stunned me.  Not in the good way.

http://www.linkedin.com/groups/Im-hiring-fantastic-work-environment-1350.S.1
04091503?view=gid=1350type=memberitem=104091503trk=NUS_DISC_Q-ttle

Anyone have an idea why?
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Job at Rocket in Denver

2012-03-28 Thread Allen E. Elwood

the math to calculate the tangent on a swirl is just too much work for me
;-) 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Wednesday, March 28, 2012 9:39 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Job at Rocket in Denver


Why... it stunned me.
You have to join my first sentence to my last sentence to understand the
question.

I speak in swirls and tangents.



-Original Message-
From: Allen E. Elwood aelw...@socal.rr.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Wed, Mar 28, 2012 9:37 am
Subject: Re: [U2] Job at Rocket in Denver



mmm why what?  looks like a good job for the qualified candidate... 
never get me to move from my nice warm home in SoCal tho ;-)
-Original Message-
rom: u2-users-boun...@listserver.u2ug.org
mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
ent: Wednesday, March 28, 2012 9:03 AM
o: u2-users@listserver.u2ug.org
ubject: [U2] Job at Rocket in Denver

his job completely stunned me.  Not in the good way.
http://www.linkedin.com/groups/Im-hiring-fantastic-work-environment-1350.S.1
4091503?view=gid=1350type=memberitem=104091503trk=NUS_DISC_Q-ttle
Anyone have an idea why?
__
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Job at Rocket in Denver

2012-03-28 Thread Allen E. Elwood
I am reminded of asking my dad if anyone could ever make a living by pushing
a button all day like george jetson

and his answer who knows?  you may end up pushing buttons for a living! 

in the not too distant future people may laugh at the non-skype companies!

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John Thompson
Sent: Wednesday, March 28, 2012 1:45 PM
To: U2 Users List
Subject: Re: [U2] Job at Rocket in Denver

These days, maybe that person can just skype in and manage everyone. HAHA.
 Just kidding...
snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Unusual code

2012-03-16 Thread Allen E. Elwood
the code is so old it was before they invented the concept of zero

;-) 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Horn, John
Sent: Thursday, March 15, 2012 11:20 AM
To: U2 Users List
Subject: Re: [U2] Unusual code

Our system does the 1=Y, 2=N thing too. It is so that folks who are keying
on the keypad all day can stay on the keypad as much as possible without
having to go look for the Y or N keys. Keeps up productivity. Or at least
that is the theory.

That's my story and I'm sticking with it.

  - jmh

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Thursday, March 15, 2012 12:24 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Unusual code


I don't know why someone would have thought that Y equals 1 and N equals 2
that's just odd to me.
The code is confusing enough to make me just want to say, if they entered a
Y exit, if they entered a N continue or whatever.
That's job security right there!



-Original Message-
From: Symeon Breen syme...@gmail.com
To: 'U2 Users List' u2-users@listserver.u2ug.org
Sent: Thu, Mar 15, 2012 2:42 am
Subject: Re: [U2] Unusual code


So you can answer y or n or 1 or 2 to this pompt, and if it is n or 2 you
are aken to ENTER.PROBLEM.CODES


Original Message-
rom: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] 
n Behalf Of Wjhonson
ent: 15 March 2012 00:21
o: u2-users@listserver.u2ug.org
ubject: [U2] Unusual code

n my 25 years in Pick I have never seen a construction like this to test for
Y 
r N or whatever it's doing.
hat is this doing?  What is this 1]2 and 1,1 doing ?  Why do I need this?

297: CHECK:   PRINT @(0,17): Are the problem codes correct (Y/N)?  :
298:  INPUT ANSWER
299:  LOCATE ANSWER IN ' Y N 1 2'1,1 SETTING TEST ELSE PRINT BELL
300:  LOCATE ANSWER IN ' Y 1'1,1 SETTING TEST ELSE
301: PRINT @(0,13):CLEAR.REST.SCREEN ; GOTO ENTER.PROBLEM.CODES
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users
-
o virus found in this message.
hecked by AVG - www.avg.com
ersion: 10.0.1424 / Virus Database: 2113/4870 - Release Date: 03/14/12
___
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is
for the sole use of the intended recipient(s) and may contain confidential
and privileged information or otherwise protected by law. Any unauthorized
review, use, disclosure or distribution is prohibited. If you are not the
intended recipient, please contact the sender by reply e-mail and destroy
all copies of the original message.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] mvToolbox--digression about why anyonewouldwanttelnet-based tools

2012-02-21 Thread Allen E. Elwood
yars revenge was an atari 2600 app - i found my old system while cleaning
out the garage and tossed everything away a couple of months ago...

i'm a doom3 maestro myself, if it doesn't have a proton blaster i don't play
it, lol 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Ed Clark
Sent: Tuesday, February 21, 2012 4:45 AM
To: U2 Users List
Subject: Re: [U2] mvToolbox--digression about why
anyonewouldwanttelnet-based tools

I don' know about Yar's Revenge, but there was a new version of Dig Dug
released last year in the App store that sold a lot of copies. 

On Feb 20, 2012, at 9:12 PM, Allen E. Elwood wrote:

 
 I think the proof of the pudding is that you're not going to find ONE 
 vendor designing *and advertising* a 'new and improved' command line 
 editor, or using the words and with our JAVA implementation you get 
 the NEW command line editor!
 
 Like it or not the line editor is headed for the bit bucket along with 
 Yars Revenge and DigDug.
 
 As far as the value of this thread goes I'd like to offer the 
 following
 advice:
 http://www.youtube.com/watch?v=_MDQWuplMvAcontext=C3b2876fADOEgsToPDs
 kLsIuA
 HwAcWrSLimnCZh9s1
 
 Press the Stop Button
 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] mvToolbox--digression about why anyone wouldwanttelnet-based tools

2012-02-20 Thread Allen E. Elwood

I think the proof of the pudding is that you're not going to find ONE vendor
designing *and advertising* a 'new and improved' command line editor, or
using the words and with our JAVA implementation you get the NEW command
line editor!

Like it or not the line editor is headed for the bit bucket along with Yars
Revenge and DigDug.

As far as the value of this thread goes I'd like to offer the following
advice:
http://www.youtube.com/watch?v=_MDQWuplMvAcontext=C3b2876fADOEgsToPDskLsIuA
HwAcWrSLimnCZh9s1

Press the Stop Button

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of LeRoy Dreyfuss
Sent: Monday, February 20, 2012 5:45 PM
To: U2 Users List
Subject: Re: [U2] mvToolbox--digression about why anyone
wouldwanttelnet-based tools

Just to throw my hat in the ring, I agree that a GUI is more desirable in
this day and age. However, I've worked with Bro's mvToolbox for the last 6-7
years and it's been a godsend, shaving days and weeks from my efforts. I
still keep a copy and recently reached out to Bro to bring it into my place
of work.

It does have its learning curve, largely because it is so feature-rich.
Let's not forget the objective of the tookbox is simplifying MV development
cross-platform (Bro told me a few weeks ago he's working on a jbase port).
With its integration into so many telnet clients, mouse clicks and all, I
think it does a very good job meeting it's objective.

Do I wish it supported a true GUI front end? Sure. Does it get the job done
without it? Sure does.

My 30 cents.

Regards,

LeRoy
Sent from my iPhone 4

snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Building an Excel File

2012-02-07 Thread Allen E. Elwood
why when i was writing interfaces we did it with rocks and sticks, AND we
had to walk through the snow to do it.  barefooted

AND WE LOVED IT!

;-)

actually i'm kinda surprised no one mentioned using TAB as a delimiter.
since it's never in text fields, you always get the data across with no
problems. 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of David A. Green
Sent: Tuesday, February 07, 2012 7:20 AM
To: 'U2 Users List'
Subject: Re: [U2] Building an Excel File

I have to say amen to Tony's comments.  Why try and reinvent the wheel when
there is a utility already written?  Or throw out some kludgy solution when
a native one can be found?

David A. Green
(480) 813-1725
DAG Consulting


-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Tony Gravagno
Sent: Monday, February 06, 2012 8:06 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Building an Excel File

Not responding to any particular quote here, just the CSV topic in general.

Respected colleagues, CSV is not Excel. If you have an end-user that asks
for Excel and you give them a CSV you're just perpetuating the myth that
Pick is a dinosaur. They will gladly spend tens of thousands of dollars to
replace your application with something that creates real Excel (and PDF)
despite the fact that such things can be attained at low cost or no cost
right now. Trust me, I've seen it happen.

This dove-tails with the reasons why people get 20 people to support Oracle
when they can have 3 working on Pick.  The reason is that the Oracle people
say yes, and give them pretty reports, when their Pick guys say no, and
give them plain text in columns and rows and call it Excel.

Please don't let that happen to you.  Be sure you are properly responding to
end-user requests. Just ask them what they do with the documents after you
generate them. If they really just want raw data, OK. But if they go on to
tell you how many days it takes to reformat the data, assemble the multiple
CSVs into a single workbook, etc, then you have found a great deal of room
for improvement. Yeah, I've been there too.

Off the soapbox, thanks.
T

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [OT] CareerBuider.com exploiting animals intheir advertising

2012-02-05 Thread Allen E. Elwood
peta was found guilty of accepting animals in their 'do not kill' animal
shelter, and then putting them to death.

they were caught when they were dumping a bunch of carcasses in the dumpster
behind a business that had alerted the cops that someone had been illegally
dumping hundreds of dead animals.  the man and woman were both tried and
convicted.  

peta denied they knew about it, the workers said they were only doing as
they were instructed.  but there was no BONUS for them involved so why would
they do this of their own volition?

this was about 10+ years ago.  i'm afraid the martini for breakfast crowd
has taken over peta as well as the sierra club and is just milking the
donations to support their lavish life style.

it's really easy when you use emotion instead of logic, and use good looking
girls (airheads) willing to strut around in their birthday suits for the
cause

i used to donate to both groups in the 90's as well as the aclu.  now i
regret those donations.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George Gallen
Sent: Saturday, February 04, 2012 8:04 PM
To: U2 Users List
Subject: Re: [U2] [OT] CareerBuider.com exploiting animals intheir
advertising

I agree, and to think of all the Pick programmers that are abused daily in
programming world..so sad.


George Gallen
Senior Programmer/Analyst

From: u2-users-boun...@listserver.u2ug.org
[u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
[wjhon...@aol.com]
Sent: Saturday, February 04, 2012 7:50 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [OT] CareerBuider.com exploiting animals in their
advertising

A distinction without a difference?
American Humane Society
American Humane Association

The position of a few people is that any showing of chimpanzees on
television in any context whatsoever, except perhaps a savanna documentary,
endangers them.  I suppose we should boycott Tarzan movies now.

Most people, I submit, think that's a pretty idiotic position.






-Original Message-
From: Boydell, Stuart stuart.boyd...@spotless.com.au
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Sat, Feb 4, 2012 4:22 pm
Subject: Re: [U2] [OT] CareerBuider.com exploiting animals in their
advertising


Will
In fact they were not.
http://abcnews.go.com/Sports/wireStory/zoo-company-stop-chimps-tv-ads-154820
50#.Ty3KUsiLVyY


-Original Message-
And in fact the American Humane Society was present overseeing the welfare
of the chimpanzees actors during the filming of this particular commercial.


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Brilliant? or not?

2012-01-13 Thread Allen E. Elwood
violates the kiss principle

certainly a candidate for the rube goldberg programmer of the year, or as
they say in france usine à gaz

http://en.wikipedia.org/wiki/Rube_Goldberg_machine 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Friday, January 13, 2012 9:42 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Brilliant? or not?


SMAX = (S1  S2) * S1 + (S2 = S1) * S2

?


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [semi-ot] JE Sisk basic book on the eBay

2011-11-10 Thread Allen E. Elwood
Just for the book (pun intended), I was only mildly enthused, not anywhere
close to excited.

Now that 30 year old picture of my wife I found buried in the garage
yesterday THAT was exciting  :-)

http://i1132.photobucket.com/albums/m561/EBB_Amps/DSCN0202.jpg

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Tony Gravagno
Sent: Wednesday, November 09, 2011 4:53 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] [semi-ot] JE Sisk basic book on the eBay

 From: Allen E. Elwood
 Anyone need/want the original JES pick basic book, here's your chance 
 to pick it up for a mere $10 spot, give or take a few cents.

This market could Really use new books that include platform-specific
nuances, communications with different languages and protocols, and other
modern concerns.  But in a market that gets excited about $10 books that are
over 20 years old, there's just no incentive for authors to create the
material.  I was in a MV user group meeting a couple years ago where the
consensus was that no one reads documentation anyway so why bother writing
or maintaining it.  WTH?  We've collectively created the market that we live
in, and it's being killed off by the hand of people who claim to love it so
well.  I wrote about the book problem a few years ago:
nospamNebula-RnD.com/blog/tech/mv/2007/05/mvbooks1.html 

T

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] [semi-ot] JE Sisk basic book on the eBay

2011-11-10 Thread Allen E. Elwood
I don't!  Still confused why she picked me, but not asking any questions

lol 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Woodward, Bob
Sent: Thursday, November 10, 2011 9:00 AM
To: U2 Users List
Subject: Re: [U2] [semi-ot] JE Sisk basic book on the eBay

I don't know why.  She's quite a looker!  And I'm sure Allen doesn't deserve
her.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Charlie Noah
Sent: Thursday, November 10, 2011 8:03 AM
To: U2 Users List
Subject: Re: [U2] [semi-ot] JE Sisk basic book on the eBay

Allen,

IMHO... she's gonna kill you! ;-)

Charlie Noah

Tiny Bear's Wild Bird Store
Everything For The Backyard Bird Enthusiast, Except For The Birds
Info, Forum:  http://www.TinyBearMarketing.com
Store:http://Stores.TinyBearMarketing.com


On 11-10-2011 8:40 AM, Allen E. Elwood wrote:
 Just for the book (pun intended), I was only mildly enthused, not
anywhere
 close to excited.

 Now that 30 year old picture of my wife I found buried in the garage 
 yesterday THAT was exciting  :-)

 http://i1132.photobucket.com/albums/m561/EBB_Amps/DSCN0202.jpg

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Tony
Gravagno
 Sent: Wednesday, November 09, 2011 4:53 PM
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] [semi-ot] JE Sisk basic book on the eBay

 From: Allen E. Elwood
 Anyone need/want the original JES pick basic book, here's your chance 
 to pick it up for a mere $10 spot, give or take a few cents.
 This market could Really use new books that include platform-specific 
 nuances, communications with different languages and protocols, and
other
 modern concerns.  But in a market that gets excited about $10 books
that are
 over 20 years old, there's just no incentive for authors to create the 
 material.  I was in a MV user group meeting a couple years ago where
the
 consensus was that no one reads documentation anyway so why bother
writing
 or maintaining it.  WTH?  We've collectively created the market that
we live
 in, and it's being killed off by the hand of people who claim to love
it so
 well.  I wrote about the book problem a few years ago:
 nospamNebula-RnD.com/blog/tech/mv/2007/05/mvbooks1.html

 T

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


[U2] [semi-ot] JE Sisk basic book on the eBay

2011-11-09 Thread Allen E. Elwood

Anyone need/want the original JES pick basic book, here's your chance to
pick it up for a mere $10 spot, give or take a few cents.

http://www.ebay.com/itm/Pick-Basic-Programmers-Guide-The-Pick-library-/30056
4645053?pt=US_Nonfiction_Bookhash=item45fb0c84bd

Not affiliated

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] DataFlo

2011-10-11 Thread Allen E. Elwood
And Marc is one of the true DataFlo experts I've met! 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Rutherford, Marc
Sent: Tuesday, October 11, 2011 7:02 AM
To: U2 Users List
Subject: Re: [U2] DataFlo

AB runs Dataflo -18 years and going strong.

Marc Rutherford
Principal Programmer Analyst
Advanced Bionics LLC
661) 362 1754

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John Varney
Sent: Tuesday, October 11, 2011 4:31 AM
To: 'U2 Users List'
Subject: [U2] DataFlo

Are there any DataFlo users out there?


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Signal to noise, was DataFlo

2011-10-11 Thread Allen E. Elwood
humor

Contract law requires voluntary signatures of both parties, so this can't be
a contract and is therefore not legally binding.  Ergo, a complete waste of
bandwidth since you cannot create a contract by emailing something to
someone in error.

Also the bill of rights states that you cannot be compelled to self
incriminate.  And therefore this is not binding to anyone who was purposely
'stealing' this email.  Ergo, a complete waste of bandwidth.

Therefore this appears to be a threat of legal harassment should someone not
'comply' with the unrealistic demand being made upon the unintended
recipient and comes across as heavy handed, arrogant and slightly
delusional.

Therefore it's OBVIOUSLY the result of a PHB committee 


_
Even though you don't know us, we can boss you around and tell you to do
things which require you to spend some time out of your day fulfilling our
ridiculous request to inform us if we screwed up.  So if you get this
message in error, we want you to a) wash all of our cars, b) do 20 hours of
community service, c) call though our gauntlet of time wasting bureaucrats
in a vain attempt to inform us of our screw up, d) pay an extra 3% in taxes,
and e) a babies arm holding an apple (which doesn't mean anything but
someone in the committee just wanted to put that in there)

_

/humor
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wjhonson
Sent: Tuesday, October 11, 2011 10:59 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Signal to noise, was DataFlo


Look at the ratio of useful content to boiler plate in that message!
By the way, as a non-comical aside, do those services/sites like nabble
actually copy messages off this list?  Or do they just preserve messages
already going through their queue... or does that make no sense.

Also when a message goes to a public list, is the intended recipient
everyone in the world?
So that, in order to violate this monster clause you'd have to be visiting
from Orion?








-Original Message-
From: Buss, Troy (Logitek Systems) (Logitek Systems)
troy.b...@nordsonasymtek.com
To: U2 Users List u2-users@listserver.u2ug.org
Sent: Tue, Oct 11, 2011 10:43 am
Subject: Re: [U2] DataFlo


Dataflo, Yes. Epicor also maintains a nice user to user list here:  
ataflo-it-...@listserv.epicor.com
Good group of folks that help each other out if you have specific questions.
Did you have a specific question regarding the app or just a roll call?
:---)

_
canned by IBM Email Security Management Services powered by MessageLabs. For
ore information please visit http://www.ers.ibm.com This email is intended
only for the use of the party to which it is addressed nd may contain
information that is privileged, confidential, or protected by aw.  If you
are not the intended recipient you are hereby notified that any
issemination, copying or distribution of the email or its contents is
strictly rohibited.  If you have received this message in error, please
notify us mmediately, by replying to the message and deleting it from your
computer.
WARNING: Internet communications are not assured to be secure or clear of
naccuracies as information could be intercepted, corrupted, lost, destroyed,
rrive late or incomplete, or contain viruses.  Therefore, we do not accept
esponsibility for any errors or omissions that are present in this email, or
ny attachment, that have arisen as a result of e-mail transmission.

__
2-Users mailing list
2-us...@listserver.u2ug.org
ttp://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Rocket Authorization Page

2011-09-18 Thread Allen E. Elwood
Nope 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Kevin King
Sent: Sunday, September 18, 2011 5:17 PM
To: U2 Users List
Subject: [U2] Rocket Authorization Page

Is anyone able to access https://u2tc.rocketsoftware.com/ today?

--
-Kevin
http://www.PrecisOnline.com
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] easy way to get count of a DIM()?

2011-08-19 Thread Allen E. Elwood
DIM X(ARRAY.SIZE)
X.COUNT = ARRAY.SIZE

Then just pass them both 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Chris Austin
Sent: Thursday, August 18, 2011 10:57 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] easy way to get count of a DIM()?


We're trying to create the dimensioned array at run time with a size based
on a variable, which works in UniVerse when using the -STATIC.DIM option. We
need to know (in another program), what the size of that dimensioned array
is.

Chris


 From: ggal...@wyanokegroup.com
 To: u2-users@listserver.u2ug.org
 Date: Thu, 18 Aug 2011 12:48:53 -0500
 Subject: Re: [U2] easy way to get count of a DIM()?
 
 Dimensioned arrays do not change their sizes.
 
 If you DIM x(25), the size of x is 25
 
 It's not like a dynamic array
 
 However, when you MATWRITE the array to disk, it will only write out
 up to the last physical data in the array, and ignore the trailing
 blank slots.
 
 George
 
  -Original Message-
  From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users- 
  boun...@listserver.u2ug.org] On Behalf Of Chris Austin
  Sent: Thursday, August 18, 2011 1:44 PM
  To: u2-users@listserver.u2ug.org
  Subject: Re: [U2] easy way to get count of a DIM()?
  
  
  Yes,
  
  That is correct DIM X(25) to initialize X, how do we then get the 
  size of X?
  
  Thanks,
  
  Chris
  
  
   From: gglorfi...@vertisinc.com
   To: u2-users@listserver.u2ug.org
   Date: Thu, 18 Aug 2011 13:41:17 -0400
   Subject: Re: [U2] easy way to get count of a DIM()?
  
   First off, I've never seen that syntax before.  Do you mean:
  
   DIM X(25)
  
   or do you mean you are setting X to the 25th value in a 
   dimensioned
  variable?  And I don't understand what you mean when you say some 
  records get taken out.  How are they taken out?
  
   I'm a little confused by your question.
  
   -Original Message-
   From: u2-users-boun...@listserver.u2ug.org [mailto:u2-users-
  boun...@listserver.u2ug.org] On Behalf Of Chris Austin
   Sent: Thursday, August 18, 2011 1:30 PM
   To: u2-users@listserver.u2ug.org
   Subject: [U2] easy way to get count of a DIM()?
  
  
   I'm trying to get the count of a dimensioned array DIM() in 
   UniVerse
  10.x
  
   Let's say we have a variable that's set to an array:
  
   X = DIM(25)
  
   if I wanted to find out the count of X later on in the program 
   (let's
  say some records get taken out and we need the count), how would
   you do this?
  
   Thanks,
  
   Chris
  
  
   ___
   U2-Users mailing list
   U2-Users@listserver.u2ug.org
   http://listserver.u2ug.org/mailman/listinfo/u2-users
   ___
   U2-Users mailing list
   U2-Users@listserver.u2ug.org
   http://listserver.u2ug.org/mailman/listinfo/u2-users
  
  ___
  U2-Users mailing list
  U2-Users@listserver.u2ug.org
  http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
  
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Doing Multiple Selects in BASIC and combining the lists

2011-07-27 Thread Allen E. Elwood
If I understand correctly, you're going to end up with a list that has
entities from two files, therefore you're going to need to do a test when
you do the read to see which file the ID came from and ergo which file to
read

So to add to the code below, you'd need

READ RECORD FROM FILE1, KEY THEN
  GOSUB PROCESS.RECORD
END ELSE
  READ RECORD FROM FILE2, KEY THEN
GOSUB PROCESS.RECORD
  END ELSE
PRINT KEY : ' WAS NOT IN EITHER FILE???'
INPUT WAKKA.WAKKA
  END
END 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Buffington, Wyatt
Sent: Wednesday, July 27, 2011 11:27 AM
To: U2 Users List
Subject: Re: [U2] Doing Multiple Selects in BASIC and combining the lists

EXECUTE SELECT FILE WITH VALUE = 'A' TO 1
EXECUTE SELECT FILE WITH VALUE = 'B' TO 2
EXECUTE MERGE.LIST 1 UNION 2 TO 0

TOT.VAL = 0
END.OF.LIST = FALSE
LOOP
   READNEXT KEY FROM 0 ELSE END.OF.LIST = TRUE UNTIL END.OF.LIST = TRUE DO
   READ RECORD FROM FILE, KEY THEN
  VALUE= OCONV(RECORDX,'MD2')
  TOT.VAL += VAL
   END
REPEAT




-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John Thompson
Sent: Wednesday, July 27, 2011 1:17 PM
To: U2 Users List
Subject: Re: [U2] Doing Multiple Selects in BASIC and combining the lists

Ok, got stuck again...

How would your example play out in BASIC?

Its just a bunch of archive info in a file that only has a couple of
indexes, but, I would like to look at the active file as well...

EXECUTE \SELECT FILE1 WITH VALUE = 'A' TO 1\ EXECUTE \SELECT FILE2 WITH
VALUE = 'A' TO 2\ EXECUTE \MERGE.LIST 1 UNION 2 TO 0\

I get an error claiming select list 1 is not active this way.  I need the
selects to be separate and not stack.  I know how to stack them with
PASSLIST and RTNLIST... I'm just fuzzy on how to do them separately and then
combine them?

Would I need to save them and use LIST.UNION?

Or just do the two READNEXTS?
(I'm trying to avoid because the READNEXT loop is kind of big)

Any help is appreciated.


On Wed, Jul 27, 2011 at 1:22 PM, Buffington, Wyatt wgbuffing...@hydro.mb.ca
 wrote:

 In a nutshell
  SELECT FILE WITH VALUE = 'A' TO 1
  SELECT FILE WITH VALUE = 'B' TO 2
  MERGE.LIST 1 UNION 2 TO 0
  SORT FILE VALUE




 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of John
Thompson
 Sent: Wednesday, July 27, 2011 12:16 PM
 To: U2 Users List
 Subject: [U2] Doing Multiple Selects in BASIC and combining the lists

 This may be an easy one, or a hard one, however, I realized I don't 
 recall ever having to do this until today, or I could just be tired...

 How can you do a SELECT from two different files in a BASIC program
and
 then
 combine the lists of ID's so that you can do a READNEXT on it?

 I ask this because I believe by default that Universe does not store
the
 select lists as dynamic arrays.

 For example:

 EXECUTE \SELECT FILE1 WITH AMOUNT = 112.50\ RTNLIST FILE1_LIST 
 EXECUTE \SELECT FILE2 WITH AMOUNT = 112.50\ RTNLIST FILE2_LIST

 ...Code to combine FILE1_LIST and FILE2_LIST into FINAL_LIST...

 REANEXT ID FROM FINAL_LIST THEN
 do something
 NEXT ID

 I am using Universe 10.3.x on AIX 5.3.  I'm in a PICK flavor account.

 --
 John Thompson
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users




--
John Thompson
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Saying Goodbye... Reasons not to say goodbye.

2011-04-28 Thread Allen E. Elwood
Agree/Disagree department:

While it is CRUCIALLY IMPORTANT that we as programmers SUPPORT GUI for the
guys in the trenches that are making the sale that allows us to continue in
our trade, it is also PARAMOUNT that all GUI's are just the FRONT DOOR to a
robust keystroke oriented human/computer interface that doesn't destroy the
INTENT of computers in the first place and cause nightmarish health
conditions.

Any GUI that forces use of the mouse without AT LEAST OFFERING a manual
short cut is just BEGGING for productivity to be reduced by a magnitude in
factor, and ignores the fact that the human arm and supporting back muscles
did not evolve with the purpose to wave around unsupported in the air for
long periods of time.  My wife has suffered in absolutely debilitating pain
for a decade with mouse shoulder, and all because some SUIT had to have a
GUI without thought to the consequences to health or throughput.

I type 120 wpm and have been measured on the 10 key at 18,000 kph
(keystrokes, not kilometers;-) and while I am a ACE with the mouse/railgun
in Quake3Arena, there isn't even a *standard for measuring* mouse
effectively that I know of.

Now don't get me wrong, GUI is GREAT while a person is being trained, or for
low throughput environments, or for making that sale in the field.  

But GUI cannot compare to the shear speed and incredible accuracy of a well
trained keystroke only data entry person.  There were days (30 years ago)
when I entered 10,000 physical inventory tickets with an accuracy of 1
mistake per 1000 tickets.  If I had to use a mouse, I dare say that would
have dropped to maybe about 950 - 1000 tickets per day - BUT it would have
been a lot prettier.

Does speed and accuracy have a place as we move more into the future with
bar codes and RF encoders?  Maybe not.  But we're not there yet especially
since small to medium businesses with very manual systems constitute the
majority of the dollars distributed in our faltering economy.


-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Doug Averch
Sent: Thursday, April 28, 2011 6:57 AM
To: U2 Users List
Subject: Re: [U2] Saying Goodbye... Reasons not to say goodbye.

Hi Mecki:

It doesn't matter if the staff is more productive or not, that is not our
job.  We have given them what Google, Microsoft, Oracle and whomever have.
 That browser front-end is rich with functionality, easy of use, and can be
color customized at a flip of a switch.  If we don't give them attractive
front-end then the next thing you'll hear will be the door hitting your
bottom on the way out.

We work with HTML, JavaScript, Java, UOJ, and UniBasic. This is more work:
we have five functional pieces of software instead of one.  We want our
clients and users to have the best we can offer that will allow them to do
their job with the software is not getting in their way.

What we should be doing is to make changes to software to accommodate
differing business needs.  With Universe and Unidata databases, we can add
dictionary items on the fly, add prompts to screens, and changing report
selections, all with in a few hours.  The big boys are still gathering
requirements and in meetings, when we deliver those requested changes.

In order to do this you must have the skill set, training, and state of the
art tools.  Why do you think a boutique software company like U2logic has
been pushing the edge to give the U2 market the finest tools we can?
 Because we are competing with the big boys who have state of the art tools
and are not using AE or ED to create and edit programs.

Those of us using XLr8Editor, with continuous compile, know before we
actually compile it whether our code will be syntax clean.  How is that not
making U2 programmers even more productive?

Regards,
Doug
www.u2logic.com/tools.html
Eclipse based XLr8Editor for U2
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Say Adobe

2011-04-28 Thread Allen E. Elwood

Ok I'll say it.  Adobe

Well, it just got me in a lot of trouble

http://www.youtube.com/watch?v=GAQt_qt-i3w 

Yeah, that's me
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Brutzman
Sent: Thursday, April 28, 2011 6:41 AM
To: U2 Users List
Subject: [U2] Say Adobe

While on the one hand I agree with Mecki that Presentation Is Not
EveryThing...

As an applications developer I see the need for Give The People What They
Want and that 

The UniVerse revolves around the center of the UniVerse which is of
course... Adobe Flash.

--Bill

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Say Adobe

2011-04-28 Thread Allen E. Elwood
Bandwidth sucking monster Will - but it has it's place used properly.

Get Mozilla, then you can click on Tools/Add-On's and click on Disable

Good Bye bandwidth sucking adver's !

It also allows you to block pictures from add sites. 

When you do want to go to Youtube, just click on Enable till you're done.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of fft2...@aol.com
Sent: Thursday, April 28, 2011 10:14 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Say Adobe

In a message dated 4/28/2011 6:41:21 AM Pacific Daylight Time,
bi...@hkmetalcraft.com writes:


 The UniVerse revolves around the center of the UniVerse which is of 
 course... Adobe Flash.
 

I can only believe this is said in jest.
When my clients ask about Flash I shudder.  Flash is the worst nightmare to 
ever hit the web :)
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Saying Goodbye...

2011-04-27 Thread Allen E. Elwood
I'd love to see a U2 server, connected directly to the internet, with *no
other software* serving up secured web pages.  To have the entire www
available with new U2 commands added by Rocket's Scientists.

Hey, we went to the MOON with a pocket calculator as the main cpu, ya?  I'm
just saying, compared to that

So, like, pick ran on pick o/s written in assembly.  But now U2 runs on a C+
pick emulator.  So use the power of that base language to make the
connections, and just stick in new extensions for U2.

And, while I'm at it, why can't we run Universe and Unidata programs with
only one installed o/s?  

I know it's *not* asking much. ;-)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Kevin King
Sent: Tuesday, April 26, 2011 12:11 PM
To: U2 Users List
Subject: Re: [U2] Saying Goodbye...

I'm with Symeon, if this were Facebook I'd like George Land's comment.
 But that brings me to my point: We need to be the ones creating the next
Facebook or whatever that is.  Until our applications fully embrace web
technology as a primary infrastructure instead of a bolt-on to green screen
applications, we'll always be thought of as old school.  The only thing that
I see holding us back is the maturity of our connectivity options, and
fortunately, there is some attention being given to that issue.  The
question that remains is whether the lot of us can break out of a lifetime
of green-screen mentality to embrace and thrive in this brave new world?

And as to dot-net... why complicate the hell out of a good thing like the
web? :) ___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Saying Goodbye...

2011-04-27 Thread Allen E. Elwood

Imagine you have a really cool product written in Unidata.  Would it not be
equally cool to be able to sell it to someone running Universe and the
smart_O_S (Rocket sos?) would understand it's a Unidata program and execute
that p-code interpreter instead of the Universe one? No porting involved...

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Steve Romanow
Sent: Wednesday, April 27, 2011 11:22 AM
To: U2 Users List
Subject: Re: [U2] Saying Goodbye...

 And, while I'm at it, why can't we run Universe and Unidata programs 
 with only one installed o/s?

I don't understand this.  How many os's do you have installed?
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Say Galaxy

2011-04-27 Thread Allen E. Elwood
Hey, and don't forget multiple dimensions.

Lets just get it over with and call it Quantum U2! 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mecki Foerthmann
Sent: Wednesday, April 27, 2011 1:45 PM
To: U2 Users List
Subject: Re: [U2] Say Galaxay

One universe contains billions of galaxies.
What you are looking for is the multiverse.

On 27/04/2011 21:31, Garry Smith wrote:
 It would be called Galaxy - multiple universes.

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of George 
 Gallen
 Sent: Wednesday, April 27, 2011 1:28 PM
 To: U2 Users List
 Subject: Re: [U2] Saying Goodbye...

 Would that be UniUniVerse?


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Saying Goodbye...

2011-04-26 Thread Allen E. Elwood

Ah but the VP's make their SAP decisions at Pebble Beach where only VP's and
CEO's roam and where inexpensive and effective are synonymous with cheap
and untrustworthy.

Political decisions have nothing to do with reality or budgets since it's
just another notch on the resume before their next planned exodus stage
left; to hell with the consequences.

Sadly Failing Upwards was not coined only irony's sake.  These ARE the
people that buy the $6400 toilets.  We can't reason with that logic (sic).

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Doug Averch
Sent: Tuesday, April 26, 2011 7:53 AM
To: U2 Users List
Subject: Re: [U2] Saying Goodbye...

The problem is two parts.  First, we programmers have failed to show
management that we have the skill set to Innovate or Die.  Secondly, we
have managers that are happy they are employed and don't know or care what
U2 can do.  Maybe this is because they don't know or perhaps we have not
done anything to show them what can be done.

Presentation is everything.  Show the managers and owners what U2 software
can do using browser based technology or Microsoft's .NET.  When every I
visit a client or prospective client I tell them and show them what
innovations we are doing or will be doing.  This is so when a sales person
from Oracle or SAP come to their office and try to sell them, I have already
closed that door.

I bring my XLr8Editor on a thumb drive to every client to show them, I am
not editing program via a DOS line by line editor.  U2logic tools are
state of the art with innovations like continuous compile that make me more
efficient and my code less buggy.  Can AE/ED editor say that?  Of course
not.

Regards,
Doug
www.u2logic.com/tools.html
Free trials available
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Saying Goodbye...

2011-04-21 Thread Allen E. Elwood

Adiós mi amigo. Te veré en el lado oscuro de la luna.

I myself am studying Thinking in Java

Quite frankly I enjoy PICK so much more. OOP is just too close to Ops!
But when I search for pick jobs in a 50 mile radius of my house there's just
nada.  

When I search for Java within 10 miles of my house there are 201 jobs.

It was a great gig... The best gig.  But I no longer hear the music playing.

Allen E. Elwood
Tortilla Flats Consulting
The Valley, SoCal

(btw, remember I sent you that awesome Brushetta sauce recipe for salmon
back in 2005-ish?  Still my fav)
-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Martin Scholl
Sent: Thursday, April 21, 2011 6:51 PM
To: 'U2 Users List'
Subject: Re: [U2] Saying Goodbye...

Know the feeling.

There is only so much rejection one can take.

Martin Scholl
18910 New Hampshire Ave
Brinklow, MD 20862
301-924-5537
301-613-9572 (Cell)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Karl Pearson
Sent: Friday, May 28, 2010 12:29 AM
To: U2 Users List
Subject: [U2] Saying Goodbye...

I'm not sure if most, or any, of you actually know me, but here's what
amounts to my swan song.

For the past 18+ years I've been a decent UV DBA. I took classes from Mark
Baldridge and later Joel Yates way back when to learn how to manually repair
corrupt files, and was proficient before uniVerse became so stable that
corrupt files happened infrequently and fixtool worked.

But during that time, I've maintained a personal email and web server,
running Majordomo v1.94.5, etc. and have learned a bit about the LAMP stack
in so doing.

I've been a layed-off DBA, for a small retail company, for the past 22
months, consulting my previous employer because they got rid of me so they
could have salary cap to hire a different type of IT manager and move off UV
to Profit21, which failed after $250,000 lost. They are back on UV and will
stay now.

I, however, have to move on because I've received the proverbial offer one
can't refuse ($5000US signing bonus and the option for 5000 shares of
company stock), plus no one in the 'PICK' world has offered me anything,
though there may be a few things still in the works, which will now go
quietly away. I will be working in the LAMP world now, making a living doing
my hobby, so to speak. (FYI: LAMP = Linux, Apache, MySQL and PHP or Perl,
depending on who you listen to)

I may hang around on the list for a bit, but will eventually have to
unsubscribe as my life moves farther and father away from a field I have
grown to respect and enjoy. Best wishes to all of you, and like others
before me, I'm sure I'll miss the group association you've provided, though
I'm mostly just a quiet observer.

Thanks and I'll never forget this group of intelligent, insightful,
thought-provoking and often entertaining, professionals.

---
Karl Pearson
ka...@ourldsfamily.com
Owner/Administrator of the sites at
http://ourldsfamily.com
---
To mess up your Linux PC, you have to really work at it;  to mess up a
microsoft PC you just have to work on it.
---
 Democracy is two wolves and a lamb voting on what to have  for lunch.
Liberty is a well-armed lamb contesting the vote.
 --Benjamin Franklin
---
 Children seldom misquote you. In fact, they usually  repeat word for word
what you shouldn't have said.
---


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.819 / Virus Database: 271.1.1/2879 - Release Date: 05/27/10
02:25:00

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] PICK Systems Administrator position

2011-04-08 Thread Allen E. Elwood
The person being replaced may be a member of the user group and could
possibly be the only shop in a 50 mile radius that meets the criteria

Saying where and what it is, could lead to a pre-emptive strike by the
soon-to-be disgruntled employee who for all we know has been exhibiting
quirky anti-social behavior and may require a security assisted exit

I'm not trying to ascertain the exact reason but room for speculation does
exist

I see no black and white

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Tony Gravagno
Sent: Thursday, April 07, 2011 10:26 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] PICK Systems Administrator position

 From: Mecki Foerthmann
 Forget it Tony.
 I know Joe, he is genuine and actually got me a job once.

Then he should have known better.  Obviously he didn't provide the
information that candidates need to decide whether or not they feel they're
qualified.  Everyone's time here has been wasted by this genuine service
provider.  He's also obviously seen our exchanges here and has chosen not to
provide a minimal amount of information.  He's compounded his error rather
than fixing it - and even took the time to complain about his own business
problems in the process.

I don't get into this mode when people are sincerely in need of help.  I
have no problem when someone is really clueless but interested in getting an
education or finding some help.  I do get bent when people who are supposed
to be professional make every amateur mistake possible and don't take steps
to correct it.  With each day that goes by, this guy alienates himself from
more opportunities to do business in this market.  Why do I get bent about
this?  Because when this is over yet another end-user is going to have more
proof of how hard it is to find talent in this industry, and some good
technicians might remain jobless in a tough economy.  Everyone in this
market suffers through the incompetence of people like this and no one else
says anything about it.  I feel bad being an occasional loudmouth on stuff
like this in our community but to me it's worth it if any individual or
company benefits.

T

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] PICK Systems Administrator position

2011-04-08 Thread Allen E. Elwood

Huh?  Whut?  I'm not complaining, I'm agreeing with him and bee sides I'm a
westy coaster

but... desperately seek an admin job?  Oh please, I'd rather ask if you
wanted fries with that.  ;-)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Peter S.
Goldberger
Sent: Friday, April 08, 2011 1:02 PM
To: U2 Users List
Subject: Re: [U2] PICK Systems Administrator position

Headhunters work on commission in a very cut-throat business. Every one I
have ever contacted has made me 'swear' I would never reveal an opening to
another agency. Obviously, Joe is protecting his source and his business. He
asked for anyone interested to contact him off list, so, if you are looking
for a position in the East, all it takes is an email to get more
particulars. I don't understand what all the fuss is about. Most of you have
spent more time and effort complaining about Joe's posting than it would
have taken to respond and get the info you so desperately seek.



Allen E. Elwood wrote:
 The person being replaced may be a member of the user group and could 
 possibly be the only shop in a 50 mile radius that meets the criteria

 Saying where and what it is, could lead to a pre-emptive strike by the 
 soon-to-be disgruntled employee who for all we know has been 
 exhibiting quirky anti-social behavior and may require a security 
 assisted exit

 I'm not trying to ascertain the exact reason but room for speculation 
 does exist

 I see no black and white


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-04 Thread Allen E. Elwood

Hey Wol,

Now were you talking loop quantum gravity or string theory?  (I'm a follower
of Dr. Michio Kaku.)

An electron is just another piece of matter that exhibits both wave and
particle characteristics.  A member of the lepton class, sharing both
charge, spin and interactions with it's fellow members the muon and the tao
- they all have a half odd integer spin which of course classifies all
leptons in the fermion class.

I don't really see the digital connection (1 or 0) between a wave/particle
with a rest energy of 0.511 MeV with a calculated life span of 4.6 x 10 to
the 26th years.

:-)

Allen

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Wols Lists
Sent: Friday, March 04, 2011 2:55 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Is this worth rewriting?

On 03/03/11 06:04, Allen E. Elwood wrote:
 I dunno, just makes me laugh every time I think about the fact that at 
 the lowest level there is really no such thing as digital because 
 electricity is analog  lol

Is it? Quantum and all that?

Actually, I think I'd sort of agree with you. Electrons are digital
(quantum) but electricity is analog (classical).

Cheers,
Wol
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
Yes and the code would make much more sense if they had names other than
parm...  You know, stuff like QTY, COST and SALES crazy things like that

aye 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Kevin King
Sent: Wednesday, March 02, 2011 12:56 PM
To: U2 Users List
Subject: Re: [U2] Is this worth rewriting?

What Martin said.  It would be better to extract to temporary 1-attribute
variables and loop through those rather than looping through the 101st
attribute repeatedly.  Especially for the prior prior year when LY.CNT = 24.

So I say aye.  This can definitely be improved.
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
That is an object used in prelude.  It is passed around everywhere.

The question was how to make it faster.  

In a loop you want to eliminate redundant overhead to accomplish this.

The way to stop that overhead in the reference to dynamic vars is to place
them into single attr vars as Kevin suggested; thereby reducing the dynamic
parsing that occurs automatically in the background.

After the loop, THEN put them back in the object.

You will see a SIGNIFICANT increase in AFishInSea with this simple task.  I
do it routinely

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood

All right, I just went ahead and rewrote this the way I would do it since I
haven't written a single bit of code since I got laid off at the end of
September.  And I did it while my wife and I are watching Judge Judy - it
was *fun* :-) 

Granted I can't use real var names since I don't know what these are, but
using a simple var name replacement scheme, this illustrates what I would
consider the least amount of overhead for this.

A) reduced the overhead on the repetitive calls to over 100 attrs.  The
system needs to look at *every single byte* in the record until it gets to
attr desired.  If these are 25,000 byte records this would be a HUGE amount
of needless throughput which you can calc by (iterations - 2) * average
bytes to read before attr needed * number of times the statement is used in
the loop

B) Yup, got rid of the #.  Not only does this make more sense, but # is
REALLY doing two comparisons:  and 

C) Got rid of the leading 7 digit indent to make it more readable

D) I don't see the necessity of testing three vars to see if they aren't
zero before adding them together.  If they are zero, the equation will work.
If they are not zero, the equation will work.  I can see maybe doing that if
the equation was doing any dividing to avoid the can't divide by zero
error, but not on adding.

E) I always make all my IF's block IF's to stub them out for future dev, as
well as to make them easier to read.  So I did that at the bottom even
though it was just for one add stmt.

F) My eyes are really getting old.  I need spaces between VARs and operands
so they don't smush together.  So I spaced accordingly to make everything
just a tad more readable as well.

Now, this takes more lines of code.  But many times more lines of code can
be way faster than fewer lines of code especially if the extra lines of code
are OUTSIDE of the loop.

MONTHLY.USAGE:

CM = MONTH + LY.CNT

P12.101 = PARMS(12)101
P12.133 = PARMS(12)133
P12.134 = PARMS(12)134

P7.100  = PARMS(7)100
P7.101  = PARMS(7)101
P7.102  = PARMS(7)102

FOR M = 1 TO 12

  CUM(M) = P12.1011,CM + P12.1331,CM + P12.1341,CM

  IF P7.1001,CM = '' THEN
CUMO(M) += P12.1011,CM
  END ELSE
CUMO(M) += P7.1001,CM
  END

  IF P7.1011,CM = '' THEN
CUMO(M) += P12.1331,CM
  END ELSE
CUMO(M) += P7.1011,CM
  END


  IF P7.1021,CM = '' THEN
CUMO(M) += P12.1341,CM
  END ELSE
CUMO(M) += P7.1021,CM
  END

  CM -= 1 

  IF CM = 0 THEN 
CM = 24
  END

NEXT M

PARMS(12)101 = P12.101
PARMS(12)133 = P12.133
PARMS(12)134 = P12.134

PARMS(7)100 = P7.100
PARMS(7)101 = P7.101
PARMS(7)102 = P7.102

RETURN 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Keith Johnson
[DATACOM]
Sent: Wednesday, March 02, 2011 4:47 PM
To: 'u2-users@listserver.u2ug.org'
Subject: Re: [U2] Is this worth rewriting?

Agreed that the dimensioned extract wouldn't make much difference, still the
attributes numbers are quite high.

The code below goes from 15 extracts maximum per for-next loop to 6.
I can't help but think this might mean something if it takes 90 minutes to
run.

001: MONTHLY.USAGE:
002: CM = MONTH + LY.CNT
003: FOR M = 1 TO 12
004:   TEA = PARMS(12)101,CM
005:   EAT = PARMS(12)133,CM
006:   ATE = PARMS(12)134,CM
007:   IF TEA # '' OR EAT # '' OR ATE # '' THEN CUM(M) = TEA + EAT + ATE
008:   YAM = PARMS(7)100,CM
009:   AMY = PARMS(7)101,CM
010:   MYA = PARMS(7)102,CM
011:   IF YAM # '' OR AMY # '' OR MYA # '' THEN
012: IF YAM # '' THEN CUMO(M) += YAM ELSE CUMO(M) += TEA
013: IF AMY # '' THEN CUMO(M) += AMY ELSE CUMO(M) += EAT
014: IF MYA # '' THEN CUMO(M) += MYA ELSE CUMO(M) += ATE
015:   END
016:   CM -= 1 ; IF CM = 0 THEN CM = 24
017: NEXT M
018: RETURN


So I'd say AYE - or YEA, if you use meaningful variables

Regards, Keith

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
#1
In a binary register, in machine code, there is no such thing as #.  There
is NOT and = which is two comparisons.  Now, granted, there have been
significant improvements in cpu's since I did machine code in 1975, so maybe
that has changed...

#2
Ummmhey, that's funny.  I think I did that when I got to the part about
the pictures of bedbugs in Judge Judy, which was really disgusting and made
my brain fall out

lol

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath
Sent: Wednesday, March 02, 2011 7:30 PM
To: U2 Users List
Subject: Re: [U2] Is this worth rewriting?

2 points of note for you.

1) In regards to B), I think I should just clarify that despite # also being
able to be written as , is *not* 2 comparisons, but still one.

2) You don't need to reassign P* back into PARAMS after the loop since they
are never updated.

Cheers,
Dan

PS: Messing about with code would be a lot more fun than watching Judge Judy
:)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Allen E.
Elwood
Sent: Thursday, 3 March 2011 2:22 PM
To: 'U2 Users List'
Subject: Re: [U2] Is this worth rewriting?


All right, I just went ahead and rewrote this the way I would do it since I
haven't written a single snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
Oh yeah, assembly - no sweat, you could do that on an old IBM360 along with
floating point math and hosts of really awesome and incredibly mind numbing
complicated stuff.  

But non-relocateable machine code? You know, the stuff that's *really* doing
the work?

I've never seen any that could do a NOT and an = at the same time even on
the 360.  And with reduced instruction sets being all the rage, it's
probably not been added, eh?

In any event, it's not a significant enough to have any measurable effect on
speed, but is easier to look at.

Btw, the rumor was that the teacher that I had for year two of the 360
assembly, who used to write I/O routines in machine code for IBM at the time
as his day job, lost his mind and sat in the corner laughing to himself
before they finally gave him a padded suit.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath
Sent: Wednesday, March 02, 2011 8:00 PM
To: U2 Users List
Subject: Re: [U2] Is this worth rewriting?

#1 In x86 assembly, you use can use JE or JNE. So you do the comparison,
then jump. How you jump (or don't jump) determines if it was an = or #.

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Allen E.
Elwood
Sent: Thursday, 3 March 2011 2:49 PM
To: 'U2 Users List'
Subject: Re: [U2] Is this worth rewriting?

#1
In a binary register, in machine code, there is no such thing as #.
There is NOT and = which is two comparisons.  Now, granted, there have been
significant improvements in cpu's since I did machine code in 1975, so maybe
that has changed...

snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
Nice!  

I tend to eschew RAISE and LOWER as they can cause really bummer problems if
you forget to LOWER before stuffing back into a record and testing doesn't
find it, and then it hits the live account and all hell breaks loose.  But
for stuff that doesn't go back into a record, that's pretty cool 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Gregor Scott
Sent: Wednesday, March 02, 2011 8:13 PM
To: U2 Users List
Subject: Re: [U2] Is this worth rewriting?

A suggestion: Raise the @VM to @AM to improve dynamic array performance.
Attribute lookups are way faster than value lookups, and you have already
extracted the data to a new variable

MONTHLY.USAGE:

CM = MONTH + LY.CNT

P12.101 = RAISE(PARMS(12)101)
P12.133 = RAISE(PARMS(12)133)
P12.134 = RAISE(PARMS(12)134)

P7.100  = RAISE(PARMS(7)100)
P7.101  = RAISE(PARMS(7)101)
P7.102  = RAISE(PARMS(7)102)
snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Is this worth rewriting?

2011-03-02 Thread Allen E. Elwood
Ok, just to be clear, there is a difference between an interpreted
instruction and a hard wired machine code instruction.  An actual BRANCH ON
NOTEQUAL operand ANALOG *circuit* must be etched in silicon at the flip-flop
level before it's a machine code instruction.  

So like, not impossible.

But here's the cool point.  Digital devices, are implemented with
capacitors, transistors, resistors.  Analog devices.

I dunno, just makes me laugh every time I think about the fact that at the
lowest level there is really no such thing as digital because electricity is
analog  lol

Speaking of analog (how's that for a segue?), all guitar pros still use tube
amps.  I make tube amps!  It's so different to work with 500 volt tubes and
transformers than programming. 

[shameless brag] 
Here's an upcoming starlet using one of the Hiwatt DR504 clone amps I built
by hand for her playing with Earl Slick (David Bowie's guitarist after
Stevie Ray got himself fired)

http://www.youtube.com/watch?v=wTx1Pi1_o4c
[/shameless brag] 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Dan McGrath
Sent: Wednesday, March 02, 2011 9:10 PM
To: U2 Users List
Subject: Re: [U2] Is this worth rewriting?

Yes, in the real instruction that gets send down those long multi-stage pipe
lines in our multi-core CPUs :) They take the same amount of clock cycles to
compare if a 32bit/64 bit value is equal, or not equal. When values are
compared it merely sets one of the many flags in the CPU.
This binary flag is used to determine if it was equal or not, the only
difference in the machine code is whether you perform an action if the flag
is true or perform an action if the flag is false. This is as true in RISC
processors as it is in CISC.

But yes, this sort of optimisation is rarely needed. In fact, if you were to
ever write the code in C/C++ the compiler would automatically optimise the
machine code far better than most mere mortals could :)

For some reason, you mentioning your teacher made me think of The Story of
Mel: http://www.catb.org/jargon/html/story-of-mel.html 

snip

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] The sky is so falling! {Unclassified}

2011-02-03 Thread Allen E. Elwood
I had to read that five times before I got it. lol 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Larry Hiscock
Sent: Thursday, February 03, 2011 2:52 PM
To: 'U2 Users List'
Subject: Re: [U2] The sky is so falling! {Unclassified}

There's no place like ::1   ;-)

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of HENDERSON MIKE,
MR
Sent: Thursday, February 03, 2011 2:29 PM
To: U2 Users List
Subject: [U2] The sky is so falling! {Unclassified}

In case you hadn't already heard, IANA has allocated the last blocks of
snip


The fun is about to start
:-)


Regards


Mike

 

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Universe - UniData - Pick/D3 Application Developer Available -SoCal USA

2009-11-23 Thread Allen E. Elwood
And *what* does that mean in english? Not that I'm interested, but it just
seems there must be an easier way of saying whatever it is you just said

-Original Message-

Marvin R. Fisher
snip
...who has stated that any non-solicitation clause in any existing Master
Services
Agreement pertaining to the poster will not be pursued.
snip



___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] UniData Unibasic IN function

2009-11-11 Thread Allen E. Elwood
Yeah, that's what I do in my editor I wrote back in '90.  Any time an ESC
comes through I evaluate if the next characters are a known function key.
If not, then I check for my own programmed escape action codes, and if not
then it's just an ESC followed by other chars.

No timing necessary and works like a charm for almost 20 years now.  :)

Included below, maybe some of it will be of help to you...

* Release Information
* MANAGE-2000 - CSI - Release 5.0
* OO. - Full Page Editor
*===/\===*
* /Written by Allen E. Elwood 02/07/90 - AK Savage Software\ * =We=
*--*  =Be=
* \ (c) Copyright 1990 by AK Savage Software - All Rights Reserved / *
=Bad!=
*===\/===*
*#* COPY COPY.TOOLS.BP STANDARD.VARIABLES.2 (REPLACING PGM.NAME BY OO.,
FN.NAME BY OO, IO.OPEN.OPTS BY TERM.DATA:LOCK:XREF) ;*#* Copied Source
Follows (09-13-00)
  $INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
  $INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
  $INCLUDE COM500 FROM COPY.TOOLS.BP
  $INCLUDE STANDARD.VARIABLES.END FROM COPY.TOOLS.BP
  PGM.NAME='OO.'; FN.NAME ='OO'
  CALL IO.OPEN('TERM.DATA:LOCK:XREF',PASSWORDS)
*#*
  EQU SEMI.COLON TO ;;EQU SMALL TO `;;EQU BIG TO `:;EQU REFRESH TO
R;EQU DEL.LINE TO l;EQU INS.LINE TO M;EQU DEL.CHAR TO W;EQU
INS.CHAR TO Q;EQU CTRL.A TO CHAR(1);EQU RIGHT TO CHAR(6);EQU BACKSPACE TO
CHAR(8);EQU TAB TO CHAR(9);EQU DOWN TO CHAR(10);EQU FORM.FEED TO
CHAR(12);EQU CARRIAGE.RETURN TO CHAR(13);EQU LINE.DELETE TO CHAR(13);EQU
LINE.UNDELETE TO N;EQU LEFT TO CHAR(21);EQU UP TO CHAR(26);EQU ESCAPE TO
CHAR(27);EQU SMALLEST TO CHAR(31);EQU PAGE.DOWN TO CHAR(68);EQU HOME TO
CHAR(72);EQU INSERT.TOGGLE TO CHAR(73);EQU SHIFT.TAB TO O;EQU PAGE.UP TO
CHAR(85);EQU BIGGEST TO CHAR(127);EQU LAST.LINE TO 23;EQU VOFFSET TO 3;EQU
HOFFSET TO 20;AT.ROW=a;AND.AT=R;COLUMNS=C;ZAG=''
EQU AM TO @AM
  EQU SQL.FORMAT TO X
* SET BACKSPACE BACK TO CHAR 127 AFTER ROI FIXES VT100 TERMINAL EMULATION
* TO ACTUALLY DO A BACKSPACE ON A VT100
  GOSUB 9000 ; * Perform Initialization.
* Perform Full Screen Editing.
  GOSUB 100 ; * Display Screen
* CALL SCREEN.MSG(B4.T:'Hit CTRL-A for Menu':AFT.T:'')
  ECHO OFF ; ECHO.FLAG=1
  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.CNTRFN.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.INSMALLEST AND CH.INBIGGEST
  IF VM.FLAG=Y THEN
IF CH.IN='}' THEN ch@vm
IF CH.IN='|' THEN ch@svm
  END
  ZIGGY=ZIGLIN
  ZLEN=LEN(ZIGGY)
  IF INSERT.MODE=I THEN
IF COLZLEN THEN
  ZIGGY=ZIGGY:SPACE(COL-ZLEN+5)
  ZIGLIN=ZIGGY[1,COL-1]:CH.IN
END ELSE
  ZIGLIN=ZIGGY[1,COL-1]:CH.IN:ZIGGY[COL,LEN(ZIGGY)]
END
*   PRINT L(LIN-VAM):C(COL-HAM):INS.CHAR
*   PRINT L(LIN-VAM):C(COL-HAM):CH.IN
PRINT
L(LIN-VAM):C(1):EOL:CHANGE(ZIGLIN[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 COLZLEN THEN
  ZIGGY=ZIGGY:SPACE(COL-ZLEN+5)
  ZIGLIN=ZIGGY[1,COL-1]:CH.IN
END ELSE
  ZIGGY[COL,1]=CH.IN
  ZIGLIN=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.CNTRFN.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=ZIGLIN
ZIGGY[COL,1]=CH.IN
ZIGLIN=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 LIN1 THEN
IF LIN=VAM+1 THEN GOSUB 2000 ; * Cancel a V.Tab
LIN-=1
  END

Re: [U2] .NET Developer

2009-09-11 Thread Allen E. Elwood
LOL!  How twu how twu


I had sign offs from the head of sales, the head of accounting, the head of 
operations, the accounting/programmer liaison and it lasted all of three weeks.

Oh, btw, each of the additional 5 applications that eventually needed to be 
ported over to the new commissions scheme were all brought up individually 
*months* later.  So they didn't just screw up once, but 7 times.

Now, don't get me wrong, I love clients.  I've even had one extremely nice 
Czechoslovakian woman whose English was so bad that we had to communicate with 
PICTURES.  And the funny thing is that went off without a hitch

What I loved once was a client that refused to pay me for fixing an application 
because It works now

Think about that ONE!

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]on Behalf Of
br...@brianleach.co.uk
Sent: Friday, September 11, 2009 7:23 AM
To: U2 Users List
Subject: Re: [U2] .NET Developer


 'plain please then what I did wrong here then:

Basic error: you forgot to translate from client-speak.

When a client says 'yes' they mean 'mostly'.
When a client says 'no' they mean 'not usually/yet'.
When a client says 'always' they mean 'sometimes'.
When a client says 'never' they mean 'until..'

Like

We never have option margins in currencies other that the option currency
means we forgot about this one guy who we always margin in USD regardless and
he's our biggest client

and

We never manufacture taller than 4 metres because our build bays won't take it
means except for that lot we sent off to Australia as kits 

and

We never charge below cost means until we really want that leader..

Simple

:)

Brian 'always ready for remote working'..


On 11 September 2009 at 16:03 aelw...@socal.rr.com wrote:

 
 Me
 Did you test it?
 
 Them
 Yes we tested it, please install
 
 Four weeks later:
 
 Them
 Hey the commissions aren't comming out for RMA returns
 
 Me
 I thought you said you didn't want RMA returns customized because you didn't
 do those?
 
 Them
 We did them manually.  We just started doing them 2 weeks ago
 
 This continued for 6 more applications they SPECIFICALLY asked to NOT
 CUSTOMIZE because they didn't want to spend the money.  Then I had to create a
 commissions routine that would go backwards through time to re-do the
 commissions and come up with a delta.

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] .NET Developer

2009-09-10 Thread Allen E. Elwood
Allen steps up to the soapbox

As someone that's done *quite a bit* of both the remote programmer gig (11
years) as well as on site (23 years), I think it's very interesting that
people will balk at spending 1 to 2 hours for a kickoff meeting with a
programmer on the speaker phone or even skype video, while they think
*nothing* of spending that much time face to face.

Even half an hour a day over skype or phone *during the thickest part* of
working out a HUGE project seems excessive to some, while the same
people will spend that much time *or more* next to the coffee maker just
blabbing about the latest snooze topics.

In my experience, it's the NOT the distance - it's the amount of TIME AND
ATTENTION that one spends tending to the questions of the programmer that
makes or breaks projects and deadlines.

It's the quality of the thought that goes into the words that are exchanged
that makes the difference.

I've had onsite and offsite clients that understood this and they received
quality work on time!!!

Other onsite and offsite clients that didn't want to spend the time or just
blurted out incorrect answers to end the questioning received finished
projects that matched the quality of their answers and the quantity of their
time invested.

As Rodney Dangerfield once said I don't get no respect and this perhaps
could be the slogan of the 'work from home' programmers of the world.

I suspect that as monstrously large and cheap paper thin monitors you can
hang on the wall like a piece of paper become the norm and bandwidth reaches
the trillion bits per second range, that people will ***still*** say they
prefer face to face because they can't *smell* the person as well over *UBER
HD* skype of the future ;-)

Allen steps off the virtual soapbox

Btw, the paper thin flexable plastic monitors exist but they're still
working the kinks out of mass production.  Coming soon to a wall near you...

Allen *currently doin' the on site gig in a tiny smelly cube* Elwood

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]on Behalf Of Bill Haskett
Sent: Thursday, September 10, 2009 8:47 AM
To: U2 Mail List
Subject: Re: [U2] .NET Developer



 I spoke with Bob Rasmussen a few months ago over Skype and he had a
 camera on his computer.  A bit Max Headroom but face-to-face.  :-)

 Bill

 P.S.  If you're moving software to the web, or not, you might check
 with Bob.  Print Wizard is pretty cool and well supported...and the
 price is right!

 
 Symeon Breen said the following on 9/10/2009 12:32 AM:
 Its an interesting one - i still have found it very difficult without a
real
 heap of specification work to not have a face to face with contractors...

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
 Sent: 09 September 2009 16:58
 To: U2 Mail List
 Subject: Re: [U2] .NET Developer



 u2-users-ow...@listserver.u2ug.org said the following on 9/9/2009 6:54
AM:

 The message's content type was not explicitly allowed

 Sorry Symeon...  west coast - USA.  But I've worked with a number of
 consultants from the east coast of the US to the British Isles to the
 Balkan states to India to Australia to Hawaii.  I've found the time
 zone is much less of an issue than quality of the consultant.  I've
 been told there are millions of .NET developers but have found very
 few qualified to work on business applications.

 Bill

 
 Symeon Breen said the following on 9/9/2009 2:08 AM:

 Sorry Bill - what country are you in ?

 -Original Message-
 From: u2-users-boun...@listserver.u2ug.org
 [mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Bill Haskett
 Sent: 08 September 2009 18:30
 To: U2 Mail List
 Subject: [U2] .NET Developer

 I thought I'd let the list know that I've been using a .NET programmer
 to help with one of our applications.  We use mv.NET and UniData with
 this application and this consultant is very responsive and, like all
 others, is looking for additional work.

 If anyone is interested, let me know and I'll give you his name and
 number off list.

 Bill Haskett
___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Mixed Case UV Basic Programming Standards.

2009-08-23 Thread Allen E. Elwood
Isn't it hard enough programming without having to find SOmeTimesSlower or
SomeTImessLower or SometImesSLOwer or SomeTIMESslower or SOMETimesslower or
sometimesslower or sometImesslower?

I usually go with SOME.TIMES.SLOWER

So often that one day just before lunch I thought to myself (and this isn't
a joke) Maybe I'll go to TACO.BELL today...

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]on Behalf Of Boydell,
Stuart
Sent: Sunday, August 23, 2009 1:02 AM
To: louiebergsa...@gmail.com; U2 Users List
Subject: Re: [U2] Mixed Case UV Basic Programming Standards.


A case of you preferring SOMETIMESLOWER perhaps?

Stuart

-Original Message-
I like all upper case ...

I don't like all lower case because there is no quick and easy way to
tell
if an author meant sometimes lower or sometime slower when writing
sometimeslower.



**
This email message and any files transmitted with it are confidential and
intended solely for the use of addressed recipient(s). If you have received
this communication in error, please reply to this e-mail to notify the
sender of its incorrect delivery and then delete it and your reply.  It is
your responsibility to check this email and any attachments for viruses and
defects before opening or sending them on. Spotless collects information
about you to provide and market our services. For information about use,
disclosure and access, see our privacy policy at http://www.spotless.com.au
Please consider our environment before printing this email.
**


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] 386 Conversion

2009-07-25 Thread Allen E. Elwood
(1)
Can't you just do a clean install of the same OS on a newer machine, slave
the hard drive and point some pointers over to it?  Mongo only know of
Unidata architecture ;)

(2)
What part of the old machine died?  You can find some fairly old stuff on
eBay.

For example a working 386 25mhz cpu:
http://cgi.ebay.com/AMD-A80386DXL-25-Am386-DX-DXL-25-Vintage-386-25-Mhz-Pro_
W0QQitemZ200256087532QQcmdZViewItemQQptZLH_DefaultDomain_0?hash=item2ea03165
ec_trksid=p3286.c0.m14_trkparms=65%3A12|66%3A4|39%3A1|72%3A2128|293%3A1|29
4%3A200

I just bought some 40 year old NOS Astron bluepoint .1mf capacitors a couple
of days ago to make some 5e3 amps with.  I've seen these caps go for $50
each *IF* you can find them and I got 10 for $160. eBay Rocks!!!

**Note:  I am in no way, shape or form associated with eBay.  This is not
intended as a sales device, or an endorsement and this is not an [AD] 


hth, Allen

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]on Behalf Of Dave Taylor
Sent: Friday, July 24, 2009 12:24 PM
To: U2 Users List
Subject: Re: [U2] 386 Conversion


Chuck,

You didn't mention backup: eg 3.5 floppy?

That removes any issues with re-installing the hard drive in a different
hardware environment.

And, I didn't see any mention of Pick flavor - eg: R83, AP or AP/Pro.

If its R83, it will probably restore onto mvBase very nicely, and then on to
UV or QM very easily.

Then you can handle the conversion to the Pick flavor of UV or QM as you
wish.

I have an mvBase machine and may be able to put may hands on an AP machine.

Until the path to success is clearer, though, it's tough to estimate a cost.

And, if the client is cash-strapped, I think they need to come up with a
maximum budget so we don't spin our wheels for nothing.

hth,

Dave

Dave Taylor
Sysmark Information Systems, Inc.
Authorized IBM Business Partner
49 Aspen Way
Rolling Hills Estates, CA 90274
(O) 800-SYSMARK (800-797-6275)
(F) 310-377-3550
(C) 310-561-5200
www.sysmarkinfo.com
- Original Message -
From: Results resu...@keyally.com
To: u2-users@listserver.u2ug.org
Sent: Friday, July 24, 2009 9:46 AM
Subject: [U2] 386 Conversion


 All,
   This is likely to go nowhere, as the client is cash constrained, but I
 have to ask...

   I have a client still running a 386 Pick implementation. The system
 died. The closest thing I have is a 486, but I don't believe I can simply
 put the harddrive in a 486 and get Pick to boot. (If I'm wrong, tell me).
   So, does anyone out there have the ability to take a 386 flavor
 Pick-formated PC harddrive and pull the data into something more modern
 (U2, QM, D3...)? If so, what would it cost?

- Chuck 386 Reasons to Upgrade Barouch
 ___
 U2-Users mailing list
 U2-Users@listserver.u2ug.org
 http://listserver.u2ug.org/mailman/listinfo/u2-users

___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


Re: [U2] Program Comments/Documentation/Notes/Revision History

2009-06-29 Thread Allen E. Elwood
Hey David,

Why not just write a program to flip them back and forth between commented
and decommented?

*#*comment 1
code
code
code
*#*comment 2

Is what it would look like until you re-ran it to restore the comments
or you could write it so that after comment 1 it would have 40 chars of the
original comment, or something to that effect...

Allen

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org]on Behalf Of David A. Green
Sent: Friday, June 26, 2009 9:50 AM
To: 'U2 Users List'
Subject: [U2] Program Comments/Documentation/Notes/Revision History


I've always commented my program at the beginning, but some programs have
many changes and when we have 300+ lines of comments it gets a little
tedious to deal with embedded in the source code.



I'm think of placing them in an external file and then doing a $INSERT in
the source code in order to tie them together.



How do you handle the long comments?



Thanks,

David A. Green

www.dagconsulting.com

(480) 813-1725



___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


___
U2-Users mailing list
U2-Users@listserver.u2ug.org
http://listserver.u2ug.org/mailman/listinfo/u2-users


RE: [U2] Remotely monitor unidata lock issues

2009-02-07 Thread Allen E. Elwood
Or if Dad sees this message sent to the u2ug group instead of Sandy he might
get mad too

;)

-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org]on Behalf Of Lisa Dingman
Sent: Friday, February 06, 2009 12:08 PM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Remotely monitor unidata lock issues


Sandy -
This is the issue I see, at this point their house hasn't sold, I think we
need to get a feel for how and when that will happen - going to be hard to
convince my dad that Tammy shouldn't be there when no one is living in it
and we aren't 100% sure that someone will purchase Mary Ann's house, because
if Tammy were to get a hold of my dad and tell him he would be really mad,
so I at least want to have some sort of assurance their house is going to
sell...obviously it won't be by the end of Feb when it is already the
6th...I was waiting on you to tell me what exactly they were thinking in
regards to this.. so I guess I am unsure at this point, I can send Tammy a
letter saying she has to be out in 30 days but what happens then if their
house doesn't sell?  Also was wondering if you mailed the orig POA since
have not received. Let me know ,

Cordially,
Lisa Dingman
Systems DBA
Information Technology
Alvin Community College
281 756 3537

-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Steve Romanow
Sent: Wednesday, February 04, 2009 2:20 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Remotely monitor unidata lock issues

I am trying to devise a way to remotely monitor long held locks and lock
contention.

My best thought so far was to write a basic program to parse the output of
LIST.READU and start notifying people with mailx.

Has anyone got any better ideas on detecting users who have left records
locked for an inordinate amount of time?

We are using unidata 6.1 on aix.

TIA,
Steve
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] RE: UV - Error when using WHEN [not-secure]

2009-02-03 Thread Allen E. Elwood
Aw shucks,

LIST I_Love_it WHEN I.Get.Packages

;-)

-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org]on Behalf Of Hennessey, Mark
F.
Sent: Tuesday, February 03, 2009 1:03 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] RE: UV - Error when using WHEN [not-secure]


Apologies - no one has gotten a package from me... important or
otherwise!



Apparently something in my e-mail triggered our security appliance to
lock the message. Sorry!





From: Hennessey, Mark F.
Sent: Tuesday, February 03, 2009 3:59 PM
To: u2-users@listserver.u2ug.org
Subject: UV - Error when using WHEN



Solaris 10, UV 10.2.2, Information flavor.



We are seeing some very odd behavior when trying to use SORT / WHEN on a
multi-subvalued field.  And by odd behavior I mean totally incorrect
output...



File Type: Dynamic

File Makeup: The file contains associated multivalues and subvalues.

Issue: When using the when clause with subvalued Field 7 like
'...4a... (DISB LINE column), the only records displayed have PDSB in
field 7  no records with 4A are displayed.





Here's part of what an unconditional SORT looks like...  Notice that
OC34.UD.07 (DISB LINE) has values like 'PDSB', 4A. etc.



SORT OC34UD.WORK.SP16504 OC34UD.01 OC34UD.02 OC34UD.03 OC34UD.04
OC34UD.06 OC34

UD.07 09:27:25  02-03-09  PAGE 1

 LINE.

  PYEAMT ADD.RPTD.AMT SUB.
DISB

OC34UD.KEYCDSTO 2a-2h2a-2hLN 2a-2hAMT DISB
LINE



14464*19030799*27   10.81REP 10.81   10.81
PDSB

14683*20382253*13  509.00VRC509.00  509.00
PDSB

14811*21191410*115.00VRC  5.005.00
PDSB

14840*21417980*1   22   21.00REP 21.00   21.00
PDSB

14859*21512820*11  142.04VRC142.04  142.04
PDSB

14863*21553328*11   20.00VRC 20.00   20.00
PDSB

14865*700369*1  1  900.00VRC900.00  900.00
PDSB

14869*21548157*17   76.14VRC 76.14   76.14
PDSB

14871*21578431*173.89VRC  3.893.89
PDSB

14877*21601594*17   76.14VRC 76.14   76.14
PDSB

14879*21653295*21   61.002E  61.00
4A

14879*21654502*11   78.002E  26.00
7dF

 52.00
4A

14879*21654965*11  232.002E 232.00
4A

14884*21649378*11  379.172E 379.17
4A

14886*21700617*11  432.002E 432.00
4A



Now when we try to limit output to just 4A:



SORT OC34UD.WORK.SP16504 WHEN OC34UD.07 LIKE ...4A... OC34UD.01
OC34UD.02 OC3

4UD.03 OC34UD.04 OC34UD.05 OC34UD.06 OC34UD.07 09:58:32  02-03-09  PAGE
1

   LINE.LINE.

PYE  AMT ADD.  RPTD.  AMT SUB.  SUBTD
DISB

OC34UD.KEY  CDS  TO 2a-2h  2a-2h  LN 2a-2h  2a-2h  AMT DISB
LINE



14464*19030799*2  7 10.81  REP   10.81  2F10.81
PDSB

14683*20382253*1  3509.00  VRC  509.00  2B   509.00
PDSB

14811*21191410*1  1  5.00  VRC5.00  2H 5.00
PDSB

14840*21417980*1 22 21.00  REP   21.00  2C21.00
PDSB

14859*21512820*1  1142.04  VRC  142.04  2F   142.04
PDSB



Any ideas/thoughts are welcome...



Thanks!



Mark
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] OT - Xmas [not-secure]

2008-12-24 Thread Allen E. Elwood
Back at 'cha!

 
   *~*~*~*~*~*~*
   Merry Christmas
   *~*~*~*~*~*~*
 

-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org]on Behalf Of Hennessey, Mark
F.
Sent: Wednesday, December 24, 2008 6:46 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] OT - Xmas [not-secure]


Merry Christmas!
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [Employment Seekeded] New York City Area or remote

2008-09-30 Thread Allen E. Elwood
I've actually sawn 'PO Recipes' 

I can't spell for a pale of beans either.  TG for spelt check

(seen, pile  spell puns intended:)
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Glen Batchelor
Sent: Tuesday, September 30, 2008 07:14
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [Employment Seeked] New York City Area or remote


 Actually it should be Seeking Employment since we're talking present
tense, but who's counting? I had to pass technical writing courses, yet I
still manage to fumble sentences and phrases over a decade later. Pick
wouldn't be so fun if it wasn't for that misspelled word in the sales menu
that no one has time to fix or that prompt in accounting that says cash
reciept which no one has even noticed.  :P


Glen Batchelor
IT Director
All-Spec Industries
 phone: (910) 332-0424
   fax: (910) 763-5664
E-mail: [EMAIL PROTECTED]
   Web: http://www.all-spec.com
  Blog: http://blog.all-spec.com

snipe (snip pun intended) qc:
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [Employment Seeked] New York City Area or remote

2008-09-29 Thread Allen E. Elwood
I'm not an English major, but shouldn't it be 'employment sought?'

http://dictionary.reference.com/browse/sought

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Peter S.
Goldberger
Sent: Monday, September 29, 2008 16:46
To: u2-users@listserver.u2ug.org
Subject: [U2] [Employment Seeked] New York City Area or remote


I have over 22 years of Senior programming experience with most flavors 
of Pick and I have directed IT departments for companies in the 
manufacturing, importing and distribution industries.

I am willing to commute 1 to 1 1/2 hours from New York City or 
telecommute for full or short-term/part-time position.

Contact me at [EMAIL PROTECTED] for resume and references.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] I need a correlative, just like the correlative...

2008-09-19 Thread Allen E. Elwood
Just about every vendor that I've seen implement this has done it slightly
different.  This is how you do it in mvbase - from my How To folder:

If you have the manual for your version, start looking through the section
on Dictionary types!

How to write basic subr DICT items in MvBase

LASTVALUE

001 SUBROUTINE LASTVALUE
002 $INCLUDE BASICLIB ACCESS.COMMON
003 ANSWER = CURRENT$1,DCOUNT(CURRENT$,@VM)
004 RETURN ANSWER


LAST.QTY

001 A
002 12
003
004
005
006
007
008 B:BP LASTVALUE
009 R
010 10

Dick Pick used to have a challenge for anyone to write a dictionary that
would allow printing the last value of a MV field (as I did above with a
SUBR).  I figured a way to do it with A correlatives and wrote to him.  He
wrote back and said the challenge was to use F correlatives, and even though
I had figured out a way, I didn't win the CIGAR.  He also thanked me and
told me he was going to tell everyone he knew that there was now a way.

It took three dicts:
one to do a boolean comparison to value mark (leaves a 1 for every value
mark found)

the second to do a summation of previous step + 1

the third to do a index of the previous step on the attr to arrive at the
last value of the attr

Now it's a piece of cake to do in just about any version with all the
additions that have been done.  But back in 1988 it was a *little* harder!

hth,

Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Jeff Schasny
Sent: Wednesday, September 17, 2008 07:01
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] I need a correlative, just like the correlative...


I don't know how to do that in a correlative i.e. Pick/SMA style
dictionary entry. Any help would be appreciated.

Allen E. Elwood wrote:
 Which is why I always just use a subr.  The real cost to the client is the
 cost creation and maintenance.  Subr's are just *so* easy to understand.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] I need a correlative, just like the correlative...

2008-09-16 Thread Allen E. Elwood
Which is why I always just use a subr.  The real cost to the client is the
cost creation and maintenance.  Subr's are just *so* easy to understand.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of rbl000
Sent: Tuesday, September 16, 2008 14:45
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] I need a correlative, just like the correlative...


Jeff,

It's not pretty, but if you know the maximum number of values (n), you could
use this:

F;0;(Tfname;X1;;96);C,;:;0;(Tfname;X2;;96);:;C,;:; ... ;0;(Tfname;Xn;;96);:

Best Regards,

Richard Lewis


-Original Message-
From: Jeff Schasny [EMAIL PROTECTED]
Date: 09/16/2008 01:46 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] I need a correlative, just like the correlative...

My Pick Pocket Guide fails me.

I can't use an I descriptor (that would be way too easy) and I need to
create a correlative that presents the data in a multivalued field as a
single valued comma delimited list.
The equivalent of this:
0001: I
0002: CONVERT(@VM,',',PO.NUMBER)
0003:
0004: PO NUMBER
0005: 30T
0006: S

Thanks
--

Jeff Schasny - Denver, Co, USA
jschasny at gmail dot com

---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/





Adult Diaper
Live your life with confidence. Click now for a discreet selection of adult
diapers!
http://216.21.215.31/fc/JkJQPThTFMgVXhpyOkrSskSXEjIzNycjT2gLmTg5XC7yblDbYVDq
T
3/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] SAP Migration

2008-07-31 Thread Allen E. Elwood
Hey Kebbon,

I've done this before and basically what the diff is between sql and mv is
the mv's.

So let's say you have an order, and on that order are order lines.  sql will
only be able to handle the single value data from the order and that would
go into one ascii file.

The order lines would need to be broken down into their own records in a
separate file.  The first field of each line would be order*line.nbr, and
then the rest of the single value info for that line would be the rest of
the record - tab delimited.  If there was multiple delivery data for each
line in a sub-valued-group, that too would then need to be broken down into
it's own file with the first field being order*line*delivery.

When this gets sucked up into SQL the first field becomes the index that
points to a record number in a file where the rest of the data is.

Good old ISAM(stinky old ISAM actually)

What I did was to write a program that would analyze the dicts for each file
and pull them into groups of groups using the associated field (this was on
a database where the dicts where actually maintained specifically so it
would be SQL compliant).

Then after manually reviewing this document with the conversion team, we'd
decide which fields were needed and I would then tweak the output from the
groups of groups file setting flag to note it needed to be included and what
order it was to be in - like if it was to be the third field then I'd put in
a 3, even though it might have been the attr in the original file.

Then run another program that would build the INCLUDES for the fields that
were needed and then stick that into a skeleton program, and run another
program to tweak the file names in the skeleton program so it would be
specific to the file being downloaded and in the order desired.

This allowed me to only write a few programs, so that once the decision was
made as to what fields to include and their order, I just had to do a little
data entry, run a few routines and bingo, download completed.  Even so it
took months to go through the motions to create all the programs.  Since
they were in their own library, I then wrote a program that would read that
library and execute all the programs in sequence so that on the cutoff date
the operator wouldn't be able to forget anything.

It was a lot more work for the guys on the SQL side.  Three guys had to be
hired to put all the stuff into the SQL files that I was creating from the
MV side.  So much for *upgrading* their database.  You'd think they would
have gotten a clue that they were spending three times as much to convert TO
the new database as it took to convert FROM the old database, but no.

hth,

Allen E. Elwood
www.tortillafc.com
Quality Code Since 1978


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Kebbon Irwin
Sent: Wednesday, July 30, 2008 10:44
To: u2-users@listserver.u2ug.org
Subject: [U2] SAP Migration


We have a client that has been purchased by another company and they run
SAP.  We have been asked to assist in the migration process and to provide
specific data in both Excel and SQL format.  I must confess, I am not sure
what they mean by SQL format.  Is there a standard layout I should be
aware of?
TIA
Kebbon
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Data Editor AD

2008-07-28 Thread Allen E. Elwood
shameless plug
I can attest to the value of Accuterm's editor.  The part I liked most is
that if the session was lost due to TCP/IP problems accuterm automatically
kept a backup copy right up to the very last keystroke before the session
went out.

It also has a very nifty screen generator that creates a windows screen for
data entry.  I never got around to using it but I have a friend that has
done some wonderful stuff with it.

And it has other useful stuff like being able to save color schemes with
different names so you can have one session with one color in one account
and a different color in another account so you always know by color
validation what account you're in.

IMNSHO, the best bank for the buck in the marketplace!
/shameless plug

And no, I'm not paid to say the above :-)
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dave Taylor
Sent: Monday, July 28, 2008 14:06
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Data Editor AD


Bill,

AD

Both we, and most of our customers, use Accuterm from Accusoft Enterprises -
www.asent.com.

Accuterm runs on a telnet or ssh connection and includes a windows editor
(eg. Notepad) for ease of  use.

A 30-day eval. copy is available from their web site.

It can be purchased directly from Peter Schellenbach at Accusoft or from us
or any other Accuterm Reseller on a single-user or a site license basis.

Please let me know of you would like any additional information.

/AD

hth,

Dave Taylor
Sysmark Information Systems, Inc.
Authorized IBM Business Partner
49 Aspen Way
Rolling Hills Estates, CA 90274
(O) 800-SYSMARK (800-797-6275)
(F) 310-377-3550
(C) 310-561-5200

www.sysmarkinfo.com
- Original Message -
From: Brutzman, Bill [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Monday, July 28, 2008 12:46 PM
Subject: [U2] Data Editor


I expect that there are some tools to view and edit UniVerse data that
would
 work on HP-Ux 11i v2.

 I need to know what is available, both free and not free.

 --Bill
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Opinions Wanted !

2008-07-24 Thread Allen E. Elwood
And don't forget

6. Do you have energy saving light circuits that sense the presence and
absence of people and turn on or off automatically?

7. How many programmers drive a prius instead of a mustang (like mine) ?

8. Consumption of alcohol means it has to be brewed.  Brewing it creates
massive amounts of CO2, therefore all members of the organization should be
enrolled in AA.  Just think, all of us could at least do that NOW to stop
global warming!

9. No one needed A/C 200 years ago; you should turn them off now and leave
them off.  Especially if you're in Arizona.  What's a couple of trips to the
hospital a year compared to saving the planet?!!

10. Refrigerators.  Total waste of energy.  Everyone should just switch to
canned products.

I go now to purify my spirit while I listen to music on my 675 watt per
channel PA system with four 15 inch JBL's

;-)

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Brutzman, Bill
Sent: Thursday, July 24, 2008 14:08

I am glad the product is green but also...

1. Do all the programmers use flat panel monitors, not energy-hogging crts?
2. What are the PC power settings there?
3. Is the code written without regard for race, creed, color, gender, or
se...?
4. Are the objects there created by vegetarians for vegetarians?
5. Have software testers there been purified by the spring waters of
spiritual holistics?

All other factors being unequal, these are the characteristics that I look
for before wooing my leaders for that elusive green light... leading to
placing a purchase.

--Bill

*--

  We are a green software product.
1) Software is only downloadable via our web site.
2) The software has not paper output, everything is displayed in
Eclipse.
3) Our documentation is in PDF or Word format.
4) Payment for our software is Pay Pal which is paperless.
---
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Basic SORT() Function not avail in UniVerse?

2008-07-22 Thread Allen E. Elwood
Hey, and don't forget to do a speed test.  You know, because LOCATE is coded
as part of the OS it just *might* be faster than bubble or speed sort
options.

In fact, this was a topic on this list about 3 or 4 years ago and someone
doing the speed test concluded LOCATE was in fact faster.

And no I don't remember who it was, or have a link to the thread (sorry)

:-)

Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Israel, John R.
Sent: Tuesday, July 22, 2008 10:26
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Basic SORT() Function not avail in UniVerse?


Note that if the array is big, you would get much better performance by
loading it into a DIM array, so the sort of sort below, then put the results
back into a dynamic array.

Dynamic arrays are much easier to use, but when used wisely, dimensioned
arrays can be MUCH faster.  This is true for any application, esp. looping
through multi-values.

John Israel


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of DAVID WADEMAN
Sent: Tuesday, July 22, 2008 1:00 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Basic SORT() Function not avail in UniVerse?

This is a UniData subroutine, but should work 

SUBROUTINE B42.SORT.ARRAY(SORTED,ARRAY)
* Bubble sort the elements of a dynamic array
* Created by: David Wademan
* Creation Date: 01/05/05
SORTED=
VALUES = DCOUNT(ARRAY,@VM)
LOOP
   CHANGES = 0
   FOR X = 2 TO VALUES
  * For each adjacent pair
  ELEMENT1 = ARRAY1,X-1
  ELEMENT2 = ARRAY1,X

  IF ELEMENT2  ELEMENT1 THEN
 * Swap if pair out of sequence
 ARRAY1,X = ELEMENT1
 ARRAY1,X-1 = ELEMENT2
 CHANGES = 1
  END
   NEXT X
WHILE CHANGES DO REPEAT
SORTED=ARRAY
RETURN

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Baker Hughes
Sent: Tuesday, July 22, 2008 10:51 AM
To: 'u2-users@listserver.u2ug.org'
Subject: [U2] Basic SORT() Function not avail in UniVerse?

Hey,

I'm needing to SORT a dynamic array and apparently UniVerse doesn't have
this
Function.

Other MV implementations have this, such as D3 - The sort() function
sorts an
attribute or value mark delimited str.exp in ascending order. [from
ePick]

There was also a user exit u1072 that did the same thing.

Does anyone have a work around or fast path to same thing  maybe I'm
missing something but can't see this in UV docs.

-Baker
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] ouch

2008-07-11 Thread Allen E. Elwood
Hi Mark,

M2K = Manage-2000

SO.ENTRY has been constantly modified due to customer demands since 1978 and
has more options than can be dreamt of.  As you can imagine, over the period
of the last 30 years there have been literally hundreds of people come in,
program a new option and leave their mark on this enormous program.

The m2k system actually now has 680+ MENUS !

Many of the subroutines are that long.  What's going on?  Creeping
Feature-itis !  The subroutines are arranged by functionality and some of
those functions are just huge, like multiple ship-to customers and multiple
scheduled shipments per line item.

Allen
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of MAJ Programming
Sent: Friday, July 11, 2008 08:53
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] ouch


Regarding these numbers being thrown around, aka Mine is Bigger:

I can see a Sales Order entry program growing to 34 subs. I wonder what's
going on in a 2000 to 3000 line sub though.

I can see 100 other subs.

But does your 400 to 500 people mean the users offering their slight input,
the managers offering their major input or do you mean 400 to 500
programmers?

Considering how many of us there actually are (or could be), I might have
been one of them although I don't recall.

Also, What's a M2K program?

Just curious.
Mark Johnson
- Original Message -
From: Allen E. Elwood [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Thursday, July 10, 2008 11:26 AM
Subject: RE: [U2] ouch


 a) oh well

 b) Oh, I've been programming since 1974, professionally since 1978, I've
 only been using paper for 25 years... :)  Heck, I dream about code - talk
 about visualizingbut you should see some of the M2K programs.
SO.ENTRY
 is up to about 34 main subroutines many of which are 2000 to 3000 lines,
100
 associated subroutines and it's been modified by 400 to 500 people.

 And the darn thing not only works, but works great!

 -Original Message-
 From: [EMAIL PROTECTED]
 [mailto:[EMAIL PROTECTED] Behalf Of Roger Glenfield
 Sent: Thursday, July 10, 2008 04:18
 To: u2-users@listserver.u2ug.org
 Subject: Re: [U2] ouch


 a) Universe
 b) whippersnapper (32 years still in black and white)
my main concerns are the programmers that can't visualize impacts on
 the whole 'code'.   and are constantly recompiling after correcting 5-10
 lines of code.   Of course, back in the Early Dawn of Pick, compiling
 500 lines of code would take 20-30 minutes plus drag down the other 16
 programmers on the system.  There was a least one programmer
 're-educated' for abusing the system.  Of course, some of the 5,000 line
 programs that I've seen recently were because somebody didn't think.
 Roger

 Allen E. Elwood wrote:
  You didn't say unidata or universe...
 
  This guy has a unidata decompiler, not sure how fast they are
 
  http://www.infocus50.com/products/xtrico.html
 
  btw, at 52 I haven't been using paper for 25 years
 
  :-)
 
  hth,
 
  Allen E. Elwood
  www.tortillafc.com
  Quality Code Since 1978
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] ouch

2008-07-10 Thread Allen E. Elwood
a) oh well

b) Oh, I've been programming since 1974, professionally since 1978, I've
only been using paper for 25 years... :)  Heck, I dream about code - talk
about visualizingbut you should see some of the M2K programs.  SO.ENTRY
is up to about 34 main subroutines many of which are 2000 to 3000 lines, 100
associated subroutines and it's been modified by 400 to 500 people.

And the darn thing not only works, but works great!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Roger Glenfield
Sent: Thursday, July 10, 2008 04:18
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] ouch


a) Universe
b) whippersnapper (32 years still in black and white)
   my main concerns are the programmers that can't visualize impacts on
the whole 'code'.   and are constantly recompiling after correcting 5-10
lines of code.   Of course, back in the Early Dawn of Pick, compiling
500 lines of code would take 20-30 minutes plus drag down the other 16
programmers on the system.  There was a least one programmer
're-educated' for abusing the system.  Of course, some of the 5,000 line
programs that I've seen recently were because somebody didn't think.
Roger

Allen E. Elwood wrote:
 You didn't say unidata or universe...

 This guy has a unidata decompiler, not sure how fast they are

 http://www.infocus50.com/products/xtrico.html

 btw, at 52 I haven't been using paper for 25 years

 :-)

 hth,

 Allen E. Elwood
 www.tortillafc.com
 Quality Code Since 1978
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] ouch

2008-07-08 Thread Allen E. Elwood
You didn't say unidata or universe...

This guy has a unidata decompiler, not sure how fast they are

http://www.infocus50.com/products/xtrico.html

btw, at 52 I haven't been using paper for 25 years

:-)

hth,

Allen E. Elwood
www.tortillafc.com
Quality Code Since 1978

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Tuesday, July 08, 2008 12:35
To: u2-users@listserver.u2ug.org
Subject: [U2] ouch


We just had something chew up two source programs today.   We have restored
from yesterday, but that still means 4-5 lost hours.   And the programmer is
one of those young guys that works directly to/from the screen rather then
pencil scribling like this old timer.

He still has the latest version of object.  Is there a quick/free way to
look at his object code and remind him of the program structure?

Thanks,
Roger
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] OT - Pick mentioned in letter to the editor... [not-secure]

2008-07-08 Thread Allen E. Elwood
Well, just don't let anyone tell you that SQL is new

The first version of SQL was developed at IBM by Donald D. Chamberlin and
Raymond F. Boyce in the early 1970s. 

from

http://en.wikipedia.org/wiki/SQL
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Bessel, Karen
Sent: Tuesday, July 08, 2008 14:45
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] OT - Pick mentioned in letter to the editor...
[not-secure]


Nope. I don't do any data warehousing, business intelligence, or
database development in my current position.

I guess I should have been more specific. I would love to have a job
doing one or all of those things in a current, marketable technology
like Oracle or SQL Server.

I've uprooted my family twice in the last three years for job changes
and I don't want to do it any more.







Karen Bessel
Software Developer

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of JPB-U2UG
Sent: Tuesday, July 08, 2008 3:56 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] OT - Pick mentioned in letter to the editor...
[not-secure]

Karen,
Aren't you already doing those jobs on U2?
Jerry

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bessel, Karen
Sent: Tuesday, July 08, 2008 3:29 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] OT - Pick mentioned in letter to the editor...
[not-secure]

LOL I agree. He should speak for himself.

I'd trade my legacy software developer job for a data
warehousing/business intelligence/database developer job tomorrow.





Karen Bessel
Software Developer

Tyler Technologies, Inc.
6500 International Parkway, Suite 2000
Plano, TX 75093
Phone: 972.713.3770 ext:6227
Fax: 972.713.3777
Email: [EMAIL PROTECTED]
Web: http://www.tylertech.com
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of George Land
Sent: Tuesday, July 08, 2008 2:19 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] OT - Pick mentioned in letter to the editor...
[not-secure]

Interesting, it's a shame that what he says isn't really true.

George

On 08/07/2008 19:59, Hennessey, Mark F. [EMAIL PROTECTED] wrote:

 This appeared in the letters to the editor section of the July 1
 Software Development Times



 HIS PICK FOR AN OS IS CLEAR



 I read your article about virtualization (Virtualization 3.0, May
15,
 page 25, or http://tinyurl.com/5j4dnc) with some amusement. I am an
old
 Pick database programmer, and Pick has done virtualization since the
 1970s.



 The Pick OS will load and run on just about any platform, including
 Microsoft's. It uses built-in tools to create one of the
easiest-to-use
 and most versatile 3D relational database models on the market. Yet,
it
 never merits mention in any of the mainstream media periodicals.



 Just about every buzzword and acronym you guys punch out every month,
 Pick has been doing since bell-bottoms and afro hairdos were in style.
 All the techno-weenies out there owe a great deal of what's happening
in
 their careers to this venerable OS, yet I'll bet less than 5% have
ever
 heard of it.



 Had Dick Pick not passed away in the mid-1990s, things might have been
 different today. But wherever you find a Pickie out there, they'll
tell
 you that they wouldn't trade their legacy system for all the
whiz-bang
 buzzword-laden toys in the world. So how about a nod to the good old
 days once in awhile?



 Gary Lass Wilsonville, Ore.







 Mark Hennessey

 State of Connecticut

 Department of Social Services

 Information Technology Services

 Child Support Systems

 Voice: 860-424-5261

 Fax: 860-424-4813
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/


**
This email and any files transmitted with it are confidential and
intended solely for the use of the individual or entity to whom they are
addressed. If you have received this email in error please notify us
immediately on +44 (01952) 214000 or at [EMAIL PROTECTED]
. Please delete and destroy any copies in any format of this email you
may have received in error. The recipient should note that the views
contained or expressed within this correspondence do not necessarily
reflect those of APT Solutions Limited , it subsidiaries, affiliates or
associates. This email and any attachments are not guaranteed to be free
from so-called computer viruses and it is recommended that you check for
such viruses before down-loading it to your computer equipment. It is
the responsibility of the recipient to ensure that the onward
transmission, opening or use of this message or any attachments will not
adversely affect their systems or data.

Registered Office:- Stratum House, Stafford Park 10, Telford,
Shropshire, TF3 3AB

Registration Number:- 2228445

Place of Registration: England  Wales

RE: [U2] Record Locking Problems

2008-05-07 Thread Allen E. Elwood
And yet his results pretty much show they don't.

I'd fall back and punt and just use the READU

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Bessel, Karen
Sent: Wednesday, May 07, 2008 09:24
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Record Locking Problems


I think he's using the recordlocked and recordlocku syntax to illustrate
his problem. From the documentation that I've read on those two commands
(which I'd never seen before today), this should work. 





Karen Bessel
Software Developer

Tyler Technologies, Inc.
6500 International Parkway, Suite 2000
Plano, TX 75093
Phone: 972.713.3770 ext:6227
Fax: 972.713.3777 
Email: [EMAIL PROTECTED]
Web: http://www.tylertech.com
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Wednesday, May 07, 2008 10:34 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Record Locking Problems

I feel I am missing something.  Why is a READU LOCKED not used?

Bruce M Neylon
Health Care Management Group 



Brutzman, Bill [EMAIL PROTECTED] 
Sent by: [EMAIL PROTECTED]
05/07/2008 11:00 AM
Please respond to
u2-users@listserver.u2ug.org


To
'u2-users@listserver.u2ug.org' u2-users@listserver.u2ug.org
cc

Subject
[U2] Record Locking Problems






I am trying to make sure that if one Customer.Service rep is updating a
Sales Order, then the other Cust.Svc rep is 
blocked from accessing the same record.

The following code will indicates that the record is locked but when the

2nd
user goes in (in an independent session), the second user gets in no
problem.

Since it does not seem to do what I think that it should, [1] I am 
wondering
if I am missing something.  [2] I am inclined to create a file to handle
this (brute force) with multivalues for user, port, time, date, program,
file, record.

Comments would be appreciated.

--Bill



  SUBROUTINE SUB.LOCK.SOH.R0 ( Record.ID, Error.Code )

  prompt ''

  open 'SOH' to F.This.File  else  gosub  Error.Opening.File

  gosub Lock.And.Hold

  goThe.End

*---

--
*---

--
Lock.And.Hold:

  Lock.Test = recordlocked (F.This.File, Record.ID) 

 crt '**11 Lock.Test ' : Lock.Test : '  [] ' 
 input Ans

  begin case
case Lock.Test =  0  ;  recordlocku F.This.File, Record.ID 
case 1   ;  gosub Error.Record.Locked 
  end   case

 Lock.Test = recordlocked (F.This.File, Record.ID) 

 crt '**12 Lock.Test ' : Lock.Test : '  [] ' 
 input Ans

return

*---

---
Error.Record.Locked: 

  Lock.Test = recordlocked (F.This.File, Record.ID) 
 
  crt '**13 Lock.Test ' : Lock.Test : '  [] ' 
  input Ans

  Error.Code = 'E' 

  crt @(-1)
  crt @(-5)

  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt '' : @(-6)
  crt
  crt ' ___  '
  crt ' \  \ ' 
  crt '  \   Error, Record Locked   \'
  crt '   \__\Try Later  '
  crt '  '
  crt '  '

  crt '  [X]  ' 
  crt '   '   :

  input Ans, 1
Ans  = upcase(Ans)

  begin case
case Ans = 'X'  ;  null
 case 1  ;  go Error.Record.Locked 
  end   case

return 

*---

---
Error.Opening.File:

  crt @(-1)
  crt @(-5)

  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt
  crt '  Big Problem...' : @(-6)
  crt
  crt ' _  '
  crt ' \\  SOH'
  crt '  \   Error Opening File   \'
  crt '   \\Contact HK.IT  '
  crt '   [X]  ' 
  crt ''   :

  input Ans, 1
Ans  = upcase(Ans)

  begin case
case Ans = 'X'  ;  null
 case 1  ;  go Error.Opening.File 
  end   case
 
return to The.End

*---

---
The.End:

  RETURN
  END
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users 

RE: [U2] Press any key to continue...

2008-05-01 Thread Allen E. Elwood
Oops, it's Unidata.not sure what Universe isbut I originally wrote
the word processor in PICK and moved it to Unidata.  I can't remember what
the pick equivalent was, but like it was something like KEYFNS or something
like that

Basically it returns the value of every key pressed when in a loop, exactly
what you need for word processing or ANYKEY stuff

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Eric Armstrong
Sent: Thursday, May 01, 2008 09:05
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...


Allen,
I don't see the IN() form of input in my documention for Universe 10.1.18.

Eric


-Original Message-
From: Allen E. Elwood [mailto:[EMAIL PROTECTED]
Sent: Wednesday, April 30, 2008 2:35 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...


I think you could just get away using the IN() form of input.

CH.IN = SEQ(IN())

This is from the word processor I wrote where it returns the numeric value
of any key pressed *including* the space bar.  You wouldn't need to evaluate
the response for your purpose though

hth

Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Marc Harbeson
Sent: Wednesday, April 30, 2008 13:50
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...


In this case, simply re-labeling the Enter key as Any would be the
best way to proceed


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Colin Alfke
Sent: Wednesday, April 30, 2008 4:13 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...

We had one user (a lawyer - go figure) complain, quite vigorously, that
the
Shift key wouldn't be accepted as ANY key.

Colin Alfke
Calgary, Canada

-Original Message-
From: Steve Ferries

Hi All,

We were coding a standard INPUT ANS after asking a user to Press any
key to continue We noticed that the program would not accept a
Space Bar as a valid key; it only moves the cursor to the right.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/





LOBEL FINANCIAL PRIVACY NOTICE:
This communication may contain confidential company information that is
protected by federal law. Federal regulations prohibit the disclosure (or
re-disclosure) of confidential information without the written consent of
the person(s) to whom it pertains. Additionally, the views or opinions
presented in this email are solely those of the author and do not
necessarily represent those of the company.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Press any key to continue...

2008-04-30 Thread Allen E. Elwood
I think you could just get away using the IN() form of input.

CH.IN = SEQ(IN())

This is from the word processor I wrote where it returns the numeric value
of any key pressed *including* the space bar.  You wouldn't need to evaluate
the response for your purpose though

hth

Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Marc Harbeson
Sent: Wednesday, April 30, 2008 13:50
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...


In this case, simply re-labeling the Enter key as Any would be the
best way to proceed


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Colin Alfke
Sent: Wednesday, April 30, 2008 4:13 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Press any key to continue...

We had one user (a lawyer - go figure) complain, quite vigorously, that
the
Shift key wouldn't be accepted as ANY key.

Colin Alfke
Calgary, Canada

-Original Message-
From: Steve Ferries

Hi All,

We were coding a standard INPUT ANS after asking a user to Press any
key to continue We noticed that the program would not accept a
Space Bar as a valid key; it only moves the cursor to the right.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Guaranteed unique sequential keys

2008-04-24 Thread Allen E. Elwood
Setup a loop

This assumes you've already set up ID with the date:time

I=0
LOOP
  I += 1
  WRITE.ID = ID : '*' : I
  READV JUST.CHECKING FROM FILE.NAME, WRITE.ID, 0 ELSE
WRITE REC ON FILE.NAME, WRITE.ID
EXIT
  END
REPEAT

This will always append *1 to the end of the ID unless it already exists.
If it does the loop will engage and will try *2, *3, ... until it hits an
unused ID.

I've used this several times in the past with total success.  However, the
above code is untested so there could be a typo, etc., but I hope you get
the idea!


hth, Allen



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Marco Manyevere
Sent: Thursday, April 24, 2008 02:55
To: u2-users@listserver.u2ug.org
Subject: [U2] Guaranteed unique sequential keys


What is the most reliable way to generate unique sequential keys without
having to resort to a record on disk updated through readu/write? The keys
don't have to be contiguous but only be sortable in the order in which they
were generated by several phantom processes running concurrently. I'm
currently approximating this using a concatenation of date and time with
millisecondsB but I'm worried about the possibility of two phantoms
generating
exactly the same key.
B
Although no collision has been detected so far, I
have added an extra check where after generating the key I first test if a
record with that key exists. If so IB increment and append aB serial number
and repeat the test until aB unique key is found. ItB seems to be working
well
but I still think there is a better way to do this.
B
Thanks for any help.
B
Marco.


  __
Sent
from Yahoo! Mail.
A Smarter Email http://uk.docs.yahoo.com/nowyoucan.html
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Guaranteed unique sequential keys

2008-04-24 Thread Allen E. Elwood
You need to re-read my solution, it will do exactly what you want.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Marco Manyevere
Sent: Thursday, April 24, 2008 05:47
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Guaranteed unique sequential keys


David, Allen, Edward, thanks for the suggestions but I want to be able to
sort
theB records in the exact physical order in which they occured.B Using the
port or pid numbers could potentially give me the wrong sequence should two
events occur within the same millisecond (unless it is ruled out that this
is
not possible).
Regards, Marco.



- Original Message 
From: Edward
Brown [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Thursday,
24 April, 2008 1:07:13 PM
Subject: RE: [U2] Guaranteed unique sequential keys
Of course if the port number is added to the end of the key then you can
still
sort by date/time.

In the past I've done an R%5 oconv on both the (internal)
date and time
before concatenation - this gives you a 10 digit number
regardless of
the date and time used, so no need for separators...

Edward
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of David Murray
Sent: 24
April 2008 11:53
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Guaranteed
unique sequential keys

Marco,

I have used similar processes in the past, but
also have appended port
number to the beginning of the key. Separating the
fields with '*' so
the
date and time can also be used as a time stamp rather
than duplicate the
same info in the record.

Cheers,


David Murray



*B B B
B B B  Learn and do
*B B B  Excel and share

http://u2blog.org
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Marco Manyevere
Sent:
Thursday, April 24, 2008 5:55 AM
To: u2-users@listserver.u2ug.org
Subject:
[U2] Guaranteed unique sequential keys

What is the most reliable way to
generate unique sequential keys without
having to resort to a record on disk
updated through readu/write? The
keys
don't have to be contiguous but only be
sortable in the order in which
they
were generated by several phantom
processes running concurrently. I'm
currently approximating this using a
concatenation of date and time with
millisecondsB but I'm worried about the
possibility of two phantoms
generating exactly the same key.
B
Although no
collision has been detected so far, I have added an extra
check
where after
generating the key I first test if a record with that key
exists. If so IB
increment and append aB serial number and repeat the
test
until aB unique key
is found. ItB seems to be working well but I still
think
there is a better way
to do this.
B
Thanks for any help.
B
Marco.


B  B  B
__
Sent
from Yahoo!
Mail.
A Smarter Email http://uk.docs.yahoo.com/nowyoucan.html
---
u2-users
mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit
http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit
http://listserver.u2ug.org/

-
--
Please remember to recycle wherever possible.
Reduce, reuse,
recycle, think do you need to print this e-mail?

-
--
This e-mail and any attachment(s), is confidential and may be
legally privileged. It is intended solely for the addressee. If you are not
the addressee, dissemination, copying or use of this e-mail or any of its
content is prohibited and may be unlawful. If you are not the intended
recipient please inform the sender immediately and destroy the e-mail, any
attachment(s) and any copies. All liability for viruses is excluded to the
fullest extent permitted by law. It is your responsibility to scan or
otherwise check this email and any attachment(s). Unless otherwise stated
(i)
views expressed in this message are those of the individual sender (ii) no
contract may be construed by this e-mail. Emails may be monitored and you
are
taken to consent to this monitoring.B

Civica Services Limited, Company No.
02374268; Civica UK Limited, Company No. 01628868
Both companies are
registered in England and Wales and each has its registered office at 2
Burston Road, Putney, London, SW15 6AR.

-
--
---
u2-users mailing list
u2-users@listserver.u2ug.org
To
unsubscribe please visit http://listserver.u2ug.org/
__
Sent from Yahoo!
Mail.
A Smarter Email http://uk.docs.yahoo.com/nowyoucan.html
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Downloading and Installing RHEL Desktop 5.1 From Scratch

2008-04-19 Thread Allen E. Elwood
I remember when using roxio to create a boot disk there was some little box
you had to click somewhere to make sure that the disk would be a bootable
disk.  Sorry, it's been years since I did that so I'm not sure where it is.
But a disk image along is not bootable.  It's something extra that has to be
added at the time of the burn. hth, Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dave Taylor
Sent: Saturday, April 19, 2008 12:09
To: u2-users@listserver.u2ug.org
Subject: [U2] Downloading and Installing RHEL Desktop 5.1 From Scratch


Well, here it is Saturday morning and my long-anticipated weekend project of
installing Universe on Linux has just come to a screeching halt.

I downloaded RHEL 5.1 Desktop and burned the disk1 cd image to a CD-ROM
using
Windows XPPro.

When I install the the CD-ROM on the new machine with only the CD-ROM drive
designated as a bootable device, I get a message:

 Boot Error. System Halted.

I tried to install it on my laptop and it failed to install there also.

The CD-ROM drive read lite came on in both cases, so I believe that it's
reading the CD-ROM but not finding what it expects to find.

Using Explorer to view the download or the burned image, I see only one icon
representing an unknown file type.

I don't see any individual folders or files within the image.

To fail this early in the process suggests that I'm doing something very
wrong.

Any suggestions?

tia,

Dave

Dave Taylor
Sysmark Information Systems, Inc.
Authorized IBM Business Partner
49 Aspen Way
Rolling Hills Estates, CA 90274
(O) 800-SYSMARK (800-797-6275)
(F) 310-377-3550
(C) 310-561-5200
www.sysmarkinfo.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Downloading and Installing RHEL Desktop 5.1 From Scratch

2008-04-19 Thread Allen E. Elwood
I've always preferred roxio.  Nero has what I can only describe as a
'devilish' color scheme with flames and a kind of a devil face.yuk.
Looks like it was made by kids for kids.  Plus the interface assumes you are
stupid and can't navigate through a standard windows interfacegaaa

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Dave Taylor
Sent: Saturday, April 19, 2008 17:01
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Downloading and Installing RHEL Desktop 5.1 From
Scratch


Larry, Bill, Allen, David,

You all hit the bulls-eye.

But, I'm running XP Pro 2002 SP2 and I can not find any mention of BURN CD
or DVD Manager or CopyToDVD in the help section.

I have old copies of both Nero and Roxio, but they do not mention iso type
files.

Since I need to purchase a current copy of either Nero or Roxio, do any of
you have a preference between the two?

Thanks again for your help,

Dave

Dave Taylor
Sysmark Information Systems, Inc.
Authorized IBM Business Partner
49 Aspen Way
Rolling Hills Estates, CA 90274
(O) 800-SYSMARK (800-797-6275)
(F) 310-377-3550
(C) 310-561-5200
www.sysmarkinfo.com
- Original Message -
From: Bill Haskett [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Saturday, April 19, 2008 2:28 PM
Subject: RE: [U2] Downloading and Installing RHEL Desktop 5.1 From Scratch


 Dave:

 I hate to suggest this but did you burn an ISO image with the proper XP
 burning
 software that does this properly?  If not, then the drag'n drop won't
 read.

 So, on my machine I use CopyToDVD (I think) and open the DVD manager.  I
 then drag'n
 drop the ISO image and the software puts it properly on my machine.

 Sorry if you've already done this.

 Bill

-Original Message-
From: [EMAIL PROTECTED] [mailto:owner-u2-
[EMAIL PROTECTED] On Behalf Of Dave Taylor
Sent: Saturday, April 19, 2008 12:09 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Downloading and Installing RHEL Desktop 5.1 From Scratch

Well, here it is Saturday morning and my long-anticipated weekend project
of
installing Universe on Linux has just come to a screeching halt.

I downloaded RHEL 5.1 Desktop and burned the disk1 cd image to a CD-ROM
using
Windows XPPro.

When I install the the CD-ROM on the new machine with only the CD-ROM
drive
designated as a bootable device, I get a message:

 Boot Error. System Halted.

I tried to install it on my laptop and it failed to install there also.

The CD-ROM drive read lite came on in both cases, so I believe that it's
reading the CD-ROM but not finding what it expects to find.

Using Explorer to view the download or the burned image, I see only one
icon
representing an unknown file type.

I don't see any individual folders or files within the image.

To fail this early in the process suggests that I'm doing something very
wrong.

Any suggestions?

tia,

Dave

Dave Taylor
Sysmark Information Systems, Inc.
Authorized IBM Business Partner
49 Aspen Way
Rolling Hills Estates, CA 90274
(O) 800-SYSMARK (800-797-6275)
(F) 310-377-3550
(C) 310-561-5200
www.sysmarkinfo.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Cumulative Trouble in paradise

2008-02-25 Thread Allen E. Elwood
Hello,

I was just wondering if anyone else had run into this and knew *why* Unidata
version 6.1 was doing it...

I was requested to add a cumulative total to a Uniquery report.  So after
editing a subroutine to do so, and running it I found some odd quirk.  If I
make one pass with a sort and breaks, Unidata calls the subroutine during
the sort of the data, and does not call it during the display.

If I do a select first on the non-subroutine data, and then output the data
using a list, it calls the subroutine during output.

I found this out by just putting PRINT 'SUBROUTINE' into the SUBR and
running it both ways to see if I was loosing my mind or what???!!!  And I
know it's calling it during the sort because when I added the frame color to
the output it was in unsorted order.

The dict item that calls the SUBR is Frame_Color_Cum_Qty.  I can sort of
understand that Unidata might be calling the subroutine during sorting, IF
the dict item was involved in the sort.  But it's not!

And just in case someone thinks it might be just a display oddity, when I
process the entire file it prints SUBROUTINE 136 times before any of the
Uniquery display occurs, and never prints it even once during the output.
Where as with the SELECT/LIST combo it displays it during output all the way
through the output.

I know what to do to get the report running now, but was just curious if
anyone else had run into this?  I also included the SUBR in case someone
wants to see that.  It's at the bottom of the message after the two samples
of output.  (Oh, and this is already so long, please remember to snip any
responses so the low bandwidth people won't hate me!)

First example where the result is not correct due to the calling of the SUBR
during sort, and not during output:

SUBROUTINE
SUBROUTINE
SUBROUTINE
SORT FLAT.SHD BY Frame_Color BREAK.ON Frame_Color TOTAL Qty
Frame_Color_Cum_Qty
14:00:15 Feb 25 2008 1
   Cumulative
FLAT.SHD.. Frame Qty.. Quantity..

810R*1 0641120120
811F*2 0641100100
975A1*10641   1950   1950
   * -
   0641   2170

Second example where the result is correct:

SELECT FLAT.SHD BY Frame_Color BY Ship_Date

LIST FLAT.SHD Frame_Color BREAK.ON Frame_Color TOTAL Qty Frame_Color_Cum_Qty
 Cumulative
FLAT.SHD.. Frame Frame Qty.. Quantity..

810R*1 0641  0641120120
SUBROUTINE
811F*2 0641  0641100220
SUBROUTINE
975A1*10641  0641   1950   2170
SUBROUTINE
 * -
 0641   2170


  SUBROUTINE FRAME.QTY.CUM(RETURN.VALUE, FRAME.COLOR, QUANTITY)
* CLIENT.NAME.WITHHELD - Release 7.1
* FRAME.QTY.CUM - Cumulative Tot for QTY by FRAME by COLOR on
SHADE.TALLY.BY.DIECUT
  Version=~Ver=~7.1.18~50079977~
* Written Allen E. Elwood 02/02/08
*#* COPY COPY.TOOLS.BP STANDARD.COMMON ;*#* Copied Source Follows (02-21-08)
 $INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
 $INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
*#*
  COMMON /FRAMEQ/COMMON.ARRAY(3)
*
* Prime common vars
  IF 0 THEN
EQU FIRST.TIME   TO COMMON.ARRAY(1)
EQU PREV.FRAME.COLOR TO COMMON.ARRAY(2)
EQU RUNNING.TOTALTO COMMON.ARRAY(3)
  END
PRINT 'SUBROUTINE'
*
* Init this run
  IF FIRST.TIME # @DATE:@TIME:@WHO THEN
FIRST.TIME   = @DATE:@TIME:@WHO
PREV.FRAME.COLOR = 
RUNNING.TOTAL= 0
  END
*
* Logic and addition
  BEGIN CASE
CASE PREV.FRAME.COLOR = ''
  RUNNING.TOTAL = QUANTITY
CASE PREV.FRAME.COLOR # FRAME.COLOR
  RUNNING.TOTAL = QUANTITY
CASE PREV.FRAME.COLOR = FRAME.COLOR
  RUNNING.TOTAL+= QUANTITY
CASE 1
  RUNNING.TOTAL = 0
  END CASE
  RETURN.VALUE = RUNNING.TOTAL
  PREV.FRAME.COLOR = FRAME.COLOR
RETURN


Allen E. Elwood from Warm and Sunny Southern California
www.tortillafc.com
Quality Code Since 1978
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Cumulative Trouble in paradise

2008-02-25 Thread Allen E. Elwood
Hi Adrian,

Guess it just works in Universe!

I have no problem with using the select then the list.  I had to move the
code from a report generator source to hand written 'cus the report
generator tries to do it all in one pass.

But that's ok, since I had to do that anyway 'cus the standard report was
doing the BY.EXP thang, and I had to write a small program to flatten it
first so the cumulative thing would work.  So I had to remove it from the
report generator anyway so I could add the program to the proc and it won't
disappear if someone rebuilds the library.

Man, all this work for one little field.

Allen

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Womack, Adrian
Sent: Monday, February 25, 2008 15:37
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Cumulative Trouble in paradise


Not sure if this solution will work in UniData (but it does in
Universe):

Try writing an iType using this code: @2;Qty+@

eg: SORT FLAT.SHD BY Frame_Color BREAK.ON Frame_Color TOTAL Qty EVAL
@2;Qty+@

The @2 means use the 2nd value defined in the iType, but because the
2nd value hasn't been evaluated yet, it uses the 2nd value from the
previous iteration (ie. The running total).

Adrian
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] a data view utility of great use

2008-02-07 Thread Allen E. Elwood
Hmmmlooks familiar!  This one works with files, or procs or programs.
Never got around to making it truly structuredoops :)

Use:

D filename

D procname

D programname


* Release Information
* MANAGE-2000 - VSI - Release 4.3g
* D - Display the item based on the VOC
  Version=~Ver=~7.0.85~1584612803~
* =
* Written by Allen E. Elwood, AK Savage Software 02-19-89
* (c) Copyright by AK Savage Software 1989,90,91,92,93,94,95,96,97 All
Rights Reserved.
* Upgraded from a simple shortcut to a replacement for LIST fname S
* for version 6.2e when Unidata cut @UQ to a max of 100 attr's
* This version handles display of proc's and basic programs based off of the
* name, very similar to ROI's proc chase (note mine is MUCH older, ver 4.3)
* and will also display all data in a record for which dict items exist.
* Use SHOW.ME to look at files without dicts, or to view files in their raw
* data state
* =
*#* COPY COPY.TOOLS.BP STANDARD.VARIABLES.2 (REPLACING PGM.NAME BY D.,
FN.NAME BY D, IO.OPEN.OPTS BY TERM.DATA:LOCK:XREF) ;*#* Copied Source
Follows (08-25-97)
$INCLUDE STANDARD.COMMON.VARIABLES FROM COPY.TOOLS.BP
 $INCLUDE STANDARD.COMMON.APP.PROGRAMS FROM COPY.TOOLS.BP
  $INCLUDE COM500 FROM COPY.TOOLS.BP
  $INCLUDE STANDARD.VARIABLES.END FROM COPY.TOOLS.BP
 PGM.NAME='D.'; FN.NAME ='D'
CALL IO.OPEN('TERM.DATA:LOCK:XREF',PASSWORDS)
*#*
*===

  EQU ESCAPE TO ''
  EQU MAXL TO 20
  PRINT CLR:B4.T:L24:'Enter END to Exit':
  PRINT L(1):C(1):'D - Display an Item based on the VOC entry':AFT.T
  THE.FILE.NAME='' ; THE.ITEM.NAME=''
  IF EXTRA.IP#?NO? THEN
SWAP ';' WITH ' ' IN EXTRA.IP
THE.VOC.NAME=FIELD(EXTRA.IP,' ',1)
  END
   PRINT 'Proc/Program Name : ':
  IF THE.VOC.NAME =  THEN
INPUT THE.VOC.NAME
  END ELSE
PRINT THE.VOC.NAME
  END
  THE.VOC.NAME=ICONV(THE.VOC.NAME,'MCU')
  IF THE.VOC.NAME#'END' THEN
OPEN 'VOC' TO VOC ELSE STOP
READ VOC.REC FROM VOC, THE.VOC.NAME ELSE
 PRINT 'NO VOC BUBA'
 STOP
END
  BEGIN CASE
CASE VOC.REC1='R'
  THE.FILE.NAME=VOC.REC2
  THE.ITEM.NAME=VOC.REC3
CASE VOC.REC1='C'
  THE.FILE.NAME=FIELD(VOC.REC3,' ',1)
  THE.ITEM.NAME=FIELD(VOC.REC3,' ',2)
CASE (VOC.REC1='F' OR VOC.REC1='DIR')
  IF THE.FILE.NAME[LEN(THE.FILE.NAME)-2,3]='.BP' THEN BP=1 ELSE BP=0
  GOSUB DISPLAY.FILE
  STOP
CASE 1
  CALL SCREEN.MSG('D cannot access ':VOC.REC1:' type VOC
records;b;c;h')
  STOP
END CASE
OPEN THE.FILE.NAME TO F.NAME ELSE
  ERM='Sorry, but file : ':B4.T:THE.FILE.NAME:AFT.T:' does not
exist!;B;C;H'
  CALL SCREEN.MSG(ERM); PROMPT  
  STOP
END
READ TEXT FROM F.NAME, THE.ITEM.NAME ELSE
  TEXT='NOT ON FILE!'
END
NUMBER=DCOUNT(TEXT,AM)
HDS=CRT Listing of File: :THE.FILE.NAME:', Item: ':THE.ITEM.NAME:'
Page ':AM
CALL SCROLL.INQ('I','',HDS,1 ,1,ACT,PARMS  ,SC.WRK,1)
IF ERROR THEN STOP
FOR I=1 TO NUMBER
  TEXTI=CHANGE(TEXTI,ESCAPE,'[')
  TEXTI=ICONV(TEXTI,'MCP')
  IF NUMBER100 THEN
TEXTI=IL#2:': ':ICONV(TEXTI,'MCC;~; ')
  END ELSE
TEXTI=IL#3:': ':ICONV(TEXTI,'MCC;~; ')
  END
  CALL SCROLL.INQ('N',TEXTI,HDS,1,1,ACT,PARMS,SC.WRK,1)
  IF ACT='END' THEN STOP
  IF ACT='X' THEN STOP
NEXT I
CALL SCROLL.INQ('F','',HDS,1,1,ACT,PARMS,SC.WRK,1)
  END
STOP
*===

DISPLAY.FILE:
  *On yer marks
  DO.DAA=SYSTEM(11)
  IF DO.DAA  0 THEN
PERFORM SAVE.LIST Display:PROCESS.ID CAPTURING JUNK
LIST.SAVED=1
  END ELSE
LIST.SAVED=0
  END
  FILENAME=FIELD(EXTRA.IP,' ',1)
  *CRT CLR:'Display File : ':FILENAME
  *LOOP
  *  CRT '1-Include Formatting, 2-Raw Data':;INPUT FMO
  *  IF (FMO=1 OR FMO=2) THEN EXIT
  *REPEAT
  *Decided I was too busy to do this option, maybe later
  FMO=1
*===

  *Get Set
  OPEN 'DICT', FILENAME TO DH ELSE CALL SCREEN.MSG('Cannot Open dict for
':FILENAME:';b;c;h')
  OPEN '', FILENAME TO FH ELSE CALL SCREEN.MSG('Cannot Open dict for
':FILENAME:';b;c;h')
  SS= 'SSELECT DICT ':FILENAME:' TO 9 BY LOC BY.DSND @ID WITH F1 LIKE D...
'
  SS:='AND WITH @ID UNLIKE B$... AND WITH F16 NE S'
  PERFORM SS CAPTURING JUNK
  [EMAIL PROTECTED]
  HD=''
  CV=''
  FM=''
  LO=0
*===

  *Build Dict Control
  LOOP
READNEXT DID FROM 9 ELSE EXIT
IF (DID[1,1]='F' AND OCONV(DID[2,21],'MCA')=) THEN CONTINUE
READ DICT.REC FROM DH, DID ELSE CONTINUE
ATTR=DICT.REC2
IF ATTR=0 THEN
  ID.HEAD=CHANGE(CHANGE(DICT.REC4,' ','') ,@VM,' ')
END ELSE
  CVATTR=DICT.REC3
  READV HD.DESC FROM DH, F:ATTR, 61 THEN
HDATTR=TRIM(HD.DESC)
  END ELSE
HDATTR

RE: [U2] Web Developer Needed Full Time ***REVISED***

2008-02-07 Thread Allen E. Elwood
I saw penn, and figured it must be a cow penn, and ergo...new
mexicoBrilliant

;)

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Larry Hiscock
Sent: Thursday, February 07, 2008 15:26
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Web Developer Needed Full Time ***REVISED***


Hmmm ... University of PENNSYLVANIA ... Must be in ... NEW MEXICO?   ;-)


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Glen Batchelor
Sent: Thursday, February 07, 2008 2:17 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Web Developer Needed Full Time ***REVISED***

Can you at least put the state in which the position is in?
Country/state/city would be ideal.


Glen Batchelor
IT Director
All-Spec Industries
 phone: (910) 332-0424
   fax: (910) 763-5664
E-mail: [EMAIL PROTECTED]
   Web: http://www.all-spec.com
  Blog: http://blog.all-spec.com


 -Original Message-
 From: [EMAIL PROTECTED] [mailto:owner-u2-
 [EMAIL PROTECTED] On Behalf Of Mathew Varghese
 Sent: Thursday, February 07, 2008 4:44 PM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] Web Developer Needed Full Time ***REVISED***

  Please disregard initial posting for job# 080123810 description
 and requirements *

 Title
 PROGRAMMER ANALYST SR

 School Name
 University of Pennsylvania School of Veterinary Medicine (58)
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] happy new year!

2008-01-01 Thread Allen E. Elwood
A healthy and prosperous new year to all!!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of doug chanco
Sent: Tuesday, January 01, 2008 05:07
To: u2-users@listserver.u2ug.org
Subject: [U2] happy new year!


Happy new year all, may 2008 be a good year for you and yours!

dougc
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] RE: testing

2007-12-24 Thread Allen E. Elwood
Coal?!!!?

Why that's modern.  My client Mv is running on a squirrel cage with 9
gerbils!

Coincidentally their names are Dasher, Dancer, Prancer, Vixen, Comet, Cupid,
Donner, Blitzen, and Rudolph!

Merry Christmas Everyone!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of MAJ Programming
Sent: Monday, December 24, 2007 11:31
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] RE: testing


I get it, front burner. Ha, Ha, Ha.

Don't laugh. Some of my client's MV systems still run on coal. I'm working
on one right now.

Mark Johnson
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] selection of multivalued field based on range

2007-12-19 Thread Allen E. Elwood
Hi Russ,

To get a listing of just the data you want you'll probably need to use the
BETWEEN key word along with BY.EXP and WHEN

Something along the lines of:

LIST filename BY.EXP fieldname WHEN fieldname BETWEEN 1000 2000

I'm not sure of the BETWEEN syntax so you'll need to look that up.  But you
need to use BETWEEN, as only one WHEN per statement works.

hth,

Allen E. Elwood
www.tortillafc.com
Quality Code Since 1978


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Russ Watson
Sent: Wednesday, December 19, 2007 07:37
To: u2-users@listserver.u2ug.org
Subject: [U2] selection of multivalued field based on range


 I want to select records to report if *one* of the multivalues falls
within a range.

For example: select with qty = 1000 and = 2000

If I use the example I get records where none of the values satisfies
the range condition.

@ID qty
--- ---
11292,500.0
2,500.0
  300.0


Russ
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] selection of multivalued field based on range

2007-12-19 Thread Allen E. Elwood
WHEN only works with BY.EXP and is not associated with WITH .   You can have
bunches of WITH's, but only the first WHEN gets evaluated.  At least with
the versions I've worked with.

And that's on Unidata!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Wednesday, December 19, 2007 12:39
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] selection of multivalued field based on range


Allen,

I am from a Unidata background.  I am guessing that you work in Universe?
I am curious about how Universe works.

 as only one WHEN per statement works.

Does that mean you can only use one WHEN verb in a SELECT statement?

In Unidata you can use multiple WITH (OR WHEN) verbs in a statement.
Example.

SELECT WIP-BATCH-DETAIL-HIST_MA WITH WORK.DATE = 10/1/07 AND WITH
WORK.DATE = 10/31/07

I believe it was the same in the old PICK days.  Anyone remember Ultimate
PICK?  It was OK, but it didn't live up to its name.

Charles Shaffer
Senior Analyst
NTN-Bower Corporation
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] selection of multivalued field based on range

2007-12-19 Thread Allen E. Elwood
It's been a super long time since I used WHEN, but now that you mention it,
I remember doing that a long long time ago in a galaxy far far away :)

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Larry Hiscock
Sent: Wednesday, December 19, 2007 16:42
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] selection of multivalued field based on range


Actually, WHEN works for a normal list as well.  If you have multiple
associated multi-valued fields, you can restrict which multivalues display
using WHEN.  For example:

LIST ORDERS ITEM QTY PRICE WHEN QTY GT 10

Assuming ITEM, QTY and PRICE are associated, the result will only show those
lines whose quantity is greater than 10.

To answer Russ's original question:  I don't think UniVerse supports
BETWEEN, but the following may work (it works in UniData):

SELECT FILE WITH ANY QTY = 1000 AND WITH ANY QTY = 2000

The ANY keyword examines each value independently.  If you use WITH QTY =
... Then the entire QTY attribute (which may look like 2500}2500}300) is
evaluated.

HTH

Larry Hiscock
Western Computer Services
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] selection of multivalued field based on range

2007-12-19 Thread Allen E. Elwood
Maybe it works better in 7.1.9.

I can remember getting odd results before with MV's and with's.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Bill Haskett
Sent: Wednesday, December 19, 2007 17:13
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] selection of multivalued field based on range


Allen:

In UniDate v7.1.9 on Windows 2K3, in ECLTYPE P mode (using UniData mode),
I do the
following:

3 Dev (0)- list APOPEN WHEN AMTS BETWEEN 75008000 INVDATE COMMENT ACCTS
AMTS
list APOPEN WHEN AMTS BETWEEN 75008000 INVDATE COMMENT ACCTS AMTS
17:04:23 Dec 19
2007 1
APOPEN INV-DATE DESCRIPTION ACCT. ACCT/AMTS

830*38953  02-21-07 WTR/SWR, 108942-515683  3070 76.01
snip
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Deep and long indentations vs multiple exit points

2007-12-02 Thread Allen E. Elwood
Shouldn't there be a 

IF OPERATION = LAST.OPERATION THEN EXIT

in there after the ON GOSUB?

;)

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Trey Miller
Sent: Sunday, December 02, 2007 17:43
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Deep and long indentations vs multiple exit points


This typically sticks in the craw of those who feel ON GOSUB is anathema:

ERROR = 0
OPERATION = 0
*
LOOP
BEGIN CASE
  CASE ERROR ; EXIT
  CASE 1
OPERATION += 1
ON OPERATION GOSUB 1000, 2000, 3000, 4000, 5000, 6000
END CASE 
REPEAT

Personally, I feel alphanumeric subroutine names are anathema; ON/GOSUB is
merely an interesting stylistic decision.

Harold (Trey) Miller
Ph: (763)-300-8703

MaverickSoft, Inc.
16430 Birch Briar Trail
Plymouth, Minnesota 55447 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Keith Johnson
(DSLWN)
Sent: Sunday, December 02, 2007 5:59 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Deep and long indentations vs multiple exit points

Dave Barret gave this code as an example:

GOSUB OPERATION.1
IF (NOT(ERROR)) THEN
  GOSUB OPERATION.2
  IF (NOT(ERROR)) THEN
GOSUB OPERATION.3
IF (NOT(ERROR)) THEN
  GOSUB OPEARTION.4
END
  END
END

What about this version?

GOSUB OPERATION.1
IF ERROR ELSE GOSUB OPERATION.2
IF ERROR ELSE GOSUB OPERATION.4
IF ERROR ELSE GOSUB OPERATION.5

or, more acceptably:

GOSUB OPERATION.1
IF GOOD THEN GOSUB OPERATION.2
IF GOOD THEN GOSUB OPERATION.4
IF GOOD THEN GOSUB OPERATION.5

Which I personally find far more readable than the indented code.

Regards, Keith De gustibus non est disputandum Johnson
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Deep and long indentations vs multiple exit points

2007-11-28 Thread Allen E. Elwood
If I'm programming on my own I'll usually adopt the RETURN instead of
continuing, just because it's *faster* to not process the rest of the
statements that don't need processing.  However, I have been told NOT TO DO
THAT by someone who was substantially IRKED by multiple returns, and instead
adopted the

IF NOT(ERROR) THEN
  Stuff
END
IF NOT(ERROR) THEN
  Stuff
END

Approach.  ERROR being a standard system variable on MT500, M2K's way of
passing different ways to abort/handle screen prompt processing scenarios.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Anthony Youngman
Sent: Wednesday, November 28, 2007 08:46
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Deep and long indentations vs multiple exit points


I must admit I prefer multiple exit points, but I'll throw a third variant
into the mix ...

OK = TRUE
IF OK THEN
   Various statements that set OK to false if there's an error
END

IF OK THEN
   More statements that set OK to false if there's an error
END

snip
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Deep and long indentations vs multiple exit points

2007-11-28 Thread Allen E. Elwood
I try as hard as possible to keep the subr's in the same order as they are
called (not always possible with conditions in the calling portion of the
program).  Therefore someone just reading down the program can get a good
feeling for what's happening if that's the way they like to read it.  I
*definitely* prefer the structured format.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]


I've seen programs that have 40 lines of main program code and
99% of them are GOSUBs. That is just a horrible way to design an
application, IMO.

That is interesting.  I prefer the main routine to be a stack of well
named routine or function calls with minimal flow control and no detail. I
find it makes debugging easier to push the detail to the bottom. Different
strokes...

Charles Shaffer
Senior Analyst
NTN-Bower Corporation
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Stringing commands together on the command line. Possible?

2007-10-29 Thread Allen E. Elwood
The way that I've always used to string commands together 'on the fly' would
be to build a proc inside your program based on what you want to do and
write it out to a PL file, and then create a voc that pointed to it, and
then CHAIN to that.  At the end of your proc you could have it CHAIN back to
your calling program or what ever you wanted.  Instead of creating the voc,
you might get away with just using the RUN command, but I'm not really sure
about that without experimenting first.

But looks like you *really* got the answer you wanted.  There is no ';'
security hole in TCL.  :)

*=aee=*

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of penno
Sent: Sunday, October 28, 2007 17:45
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Stringing commands together on the command line.
Possible?


Hi Bill, David, all

I'm getting the answers I want. (c: I'm glad it doesn't look like it's
possible.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] curious EQUATE issue - SOLVED Just want to know if anyone understands WHY?

2007-10-23 Thread Allen E. Elwood
Hi Rex,

Interesting, never tried it before.  I've only used it when I've had stuff
that wouldn't go directly into EQU such as @(-1) in MvBASE.  In that case I
did:

CCLR = @(-1)
EQU CLR TO CCLR

Wonder if

EQU VALID.CC.TYPES TO CHANGE('A.B.D.M.S.V','.',@VM)

Would work or error out.?

*=aee=*
-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Rex Gozar

Allen,

In your example, you use a variable in an EQUATE statement.  This
references the variable's pointer, not its value.  So the code:

TEMP = CHANGE('A.B.D.M.S.V','.',@VM)
EQU VALID.CC.TYPES TO TEMP
TEMP = SOMETHINGELSE   ;* change TEMP's value
DISPLAY VALID.CC.TYPES

will display SOMETHINGELSE, not the valid cc types as intended.

rex
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] curious EQUATE issue - SOLVED Just want to know if anyone understands WHY?

2007-10-22 Thread Allen E. Elwood
Very oddnot sure why, mass hysteria? ;-)

I'll tell you what, this is an easier construct, especially if you have two
dozen or so values to stick into an array.

TEMP = CHANGE('A.B.D.M.S.V','.',@VM)
EQU VALID.CC.TYPES TO TEMP


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Brenda Price
Sent: Monday, October 22, 2007 14:55
To: u2-users@listserver.u2ug.org
Subject: [U2] curious EQUATE issue - SOLVED Just want to know if anyone
understands WHY?


One of our end users started getting the printer on (AccuTerm - this prints
everything you do to the printer and keeps it attached to your session so no
one else can print) last week.  One of our other programs, found the reason
was he'd changed some equated statements from having the actual value of the
value mark and subvalue mark to @VM and @SVM.



Example:  EQU VALID.CC.TYPES TO 'A}B}D}M}S}V' was changed to EQU
VALID.CC.TYPES TO 'A':@VM:'B':@VM:'D':@VM:'M':@VM:'S':@VM:'V'



The locates that previously worked on stopped working on the new equ values
causing the whole string that related to that value to be sent back to the
user. Somehow this whole string when it was displayed to the screen turned
on
the printer on function.



The other programmer did several example different locate types in a test
program and all but one failed on the new value that used the @VM and all
worked with the old equate.



So, we all said HUH???, he changed it back and the program is now working
properly again.



Just wanting to know, does anyone have an explanation for this?



Brenda Price

Affiliated Acceptance Corp

Sunrise Beach, MO
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] LIST DICT F11

2007-10-16 Thread Allen E. Elwood
CT VOC F1

will show you the format of the items you need to add to the voc to create
more of these for your needs.  You could just write a small program to add a
couple hundred of them and be done with it forever

*=aee=*

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Brutzman, Bill
Sent: Tuesday, October 16, 2007 10:23
To: 'u2-users@listserver.u2ug.org'
Subject: [U2] LIST DICT F11


snip

Is there a way to list the data with with something like an F11 shortcut?

Suggestions would be appreciated.

--Bill
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Over-coming EDitor shortcomings

2007-10-14 Thread Allen E. Elwood
This is exactly what people used to say about windows.  It was just a 'toy'.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of MAJ Programming
Sent: Sunday, October 14, 2007 11:18
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Over-coming EDitor shortcomings


When people purposely choose to not follow what's popular, there are certain
risks involved.

Not having Windows desktops on the client side causes a severe reduction in
available software. There is no business argument endorsing $0.00 for gvim
versus $20 for Accuterm when it closes the door on incredible productivity
tools like WED.

We MV people have chosen to NOT follow the traditional SQL-based family of
databases. That's our choice. To go to a non-popular desktop that you have
just causes a continuous hunt for open-source/freeware with all of the
unsupported languages and techniques.

I'm not pro-corporate (Big Blue, IBM, MS etc) in this regard and just follow
the trends like uninformed sheep. But the situation you describe will only
get worse as everyone depends on their peers for advanced products instead
of those that are capable of delivering (and supporting) their products.

I'd be hard pressed to find someone as fully well versed in all things MV
AND Microsoft as Peter Schellenbach. He probably looked at the unix DESKTOP
and from a business sense concluded that these 'do it yourselfers' (No
flames please) won't spend money on a 'nix variant of Accuterm so why
bother.

Don't you unix guys have MS emulators in your world of freeware that
Accuterm could run on?

You get what you pay for.
Mark Johnson

Tony: keep your flames on me limited to this topic of the editor and none
others. Thanks in advance.
- Original Message -
From: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Sunday, October 14, 2007 12:40 PM
Subject: RE: [U2] Over-coming EDitor shortcomings


 My point is that my workstation is running Linux (PCLinuxOS, for the
 curious), as was pointed out, and accuterm doesn't port to *nixes. Our
 server is AIX. I've put gvim on it since it's free. We don't have deep
 pockets to be paying much for emulators. I have a product installed called
 jtelnet which is open-source/free and is called from any java-enabled
 browser. Works very nicely for our account reps and support engineers. I
 know that's off the topic of EDitors, but it's all related dollar-wise.

 Karl

 quote who=Bertrand, Ron
  Do not know about Unidata but you can get to any unix directory/file
with
  pointers in Universe. Then you can use either ED or WED and so on. I
have
  to admit to being spoiled by accuterms WED.
 
  Ron Bertrand
  Group Health
  LIS/ISD
 
  
 
  From: [EMAIL PROTECTED] on behalf of
  [EMAIL PROTECTED]
  Sent: Fri 10/12/2007 9:30 PM
  To: u2-users@listserver.u2ug.org
  Subject: Re: [U2] Over-coming EDitor shortcomings
 
 
 
  So, what good is that for those of us who live on Unix/Linux and don't
  have the option of running Accuterm?
 
  I use gvim, which has pretty good syntax highlighting,
  copy/move/find-replace, etc. I prefer it to ED. I've never used AE.
 
  I guess it's time to do some experimenting with other technologies.
 
  OH, and just for fun, consider this: I write my HTML code with gvim or
  vim, period...
 
  Old School or just stubborn? hmmm.
 
  Karl
 
  quote who=MAJ Programming
  Shameless plug for Accuterm
 
  If you haven't used WED, their Windows EDitor, you're missing a ton of
  helpful editor stuff. All of the shortcuts and command-line tricks pale
  by
  comparison.
 
  Funny, how everybody talks about the latest XYZ alphabetic technologies
  yet
  still use an editor barely better than vi or EDLIN. And don't let your
  years
  of experience sway you to protecting that fingertip editor. I've been
  using
  the regular EDIT, AE or vi coming up on 30 years and WED blows them all
  away. (this ain't a contest)
 
  WED alone without their graphical developer tools (GED) or their
  powerful
  emulator is worth the price. Accuterm is truly one of the best bargains
  in
  the MV world.
 
  /Shameless plug for Accuterm
  - Original Message -
  From: Jerry Banker [EMAIL PROTECTED]
  To: u2-users@listserver.u2ug.org
  Sent: Friday, October 12, 2007 10:21 AM
  Subject: RE: [U2] Over-coming EDitor shortcomings
 
 
  I created a pre-store, a few years back, that does something similar
  thing in the regular editor. I think we were still on UV 7.4 at the
  time.
  ED ED FIB
  6 lines long.
 
  : P
  0001: EPre-stored Command saved at 16:50:53 24 JUN 1998
  0002: FORMAT
  0003: SAVE
  0004: XEQ DECATALOG @FILE @ID
  0005: XEQ BASIC @FILE @ID
  0006: XEQ CATALOG @FILE @ID
  Bottom at line 6.
 
  So when in the regular editor all you have to do is type in: .X FIB
  Which is a few more key strokes but less than all of the commands.
  I didn't want to do the run because most of the development at the
time
  was done on a live system. But you could 

RE: [U2] Over-coming EDitor shortcomings

2007-10-13 Thread Allen E. Elwood
Hey Mark, I took it to mean he's running Linux on his PC

I'm thinking of setting up a Linux boot drive on my PC for a potential gig
I've got coming up.  From what I've been reading, it's a nice product.

I love AccuTerm too, great product.  I tried to get Peter to make a TED,
which would be like WED but a TCL Manager instead.  No word on that yet.

*=aee=*

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of MAJ Programming
Sent: Saturday, October 13, 2007 08:01
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Over-coming EDitor shortcomings


Peter Schellenbach is too smart to not allow Accuterm to work on Unix/Linux
(UD/UV). I checked their website www.asent.com to see if the platforms were
represented but didn't see them. I know that it works on UV/Unix and D3/NT
and Mvbase/NT, and UV/SCO. Microdata and most natives will be too slow for
WED.

If you connect to the MV database with COM1 or telnet or SSH then you're
covered. Lotsa times software like this has an environment variable or
installation choice that decides which MV it's connected to. For WED it may
not mattter as much so it's wide open. GED and the subroutines may be more
picky although I don't know how different it may be.

It's a great, all-in-one package...Windows Editing, Graphical designer for
Data/Basic and great emulator. Plus at $20 per seat vs $200 for other
emulators, it's practically free.

My free cents.
Mark Johnson
- Original Message -
From: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Saturday, October 13, 2007 12:30 AM
Subject: Re: [U2] Over-coming EDitor shortcomings


 So, what good is that for those of us who live on Unix/Linux and don't
 have the option of running Accuterm?

snip
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Using VI instead of ED for EDIT-LIST [not-secure]

2007-10-11 Thread Allen E. Elwood
Ya, believe it or not, there are people like *me* for instance that if they
found themselves in VI would have to say a few choice words and then look up
how to get out...:)

-Original Message-
[mailto:[EMAIL PROTECTED] Behalf Of Hennessey, Mark
F.
Rather than complicate a future upgrade, etc, why not create an entry
called VI.LIST or something? Leave EDIT.LIST to behave the way it's
documented...

You can also put VI.LIST (or whatever) in the NEWACC,FLAVOR file so that
when new UV accounts are created your VI.LIST command will be there.
Mark Hennessey
-Original Message-
[mailto:[EMAIL PROTECTED] On Behalf Of Craig Bennett
Sent: Wednesday, October 10, 2007 10:17 PM
Hi All,
But if you edit the EDIT-LIST verb in your VOC and replace
ED SAVEDLISTS
with
UV.VI SAVEDLISTS
EDIT-LIST runs VI to edit your list.
cheers,
Craig
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[non associated plug] RE: [U2] Populating Excel Templates from UniVerse

2007-10-09 Thread Allen E. Elwood
'Reform' is a great product, that I'm not associated with.  I know of quite
a few companies that use this and just love it.

http://www.fabsoft.com/products/reform/whatis.shtml

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Don P. Nagai
Sent: Tuesday, October 09, 2007 17:33
To: u2-users@listserver.u2ug.org
Subject: [U2] Populating Excel Templates from UniVerse


Hello All:



Just wondering what methods would be suggested for populating Excel
templates (invoices, work orders, etc.) with data from UniVerse.  Weve run
into problems with the newer HP printers no longer supporting PCL commands
and are looking for alternative forms printing options.



Thanks in advance for any suggestions.



Don
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Internal Cache in Unidata

2007-09-24 Thread Allen E. Elwood
This is a normal feature of the O/S not Unidata.  Both Unix and Windows
attempt to load files into memory based on last use.  Making it VERY hard to
test file access methods..!

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Jeffrey Butera
Sent: Monday, September 24, 2007 05:34
To: u2-users@listserver.u2ug.org
Subject: [U2] Internal Cache in Unidata


Can anyone speak factually about internal cache in Unidata?  In short...

I often look at performance and attempt to improve things by changing
queries,
using indicies, rewriting source and so on.  In doing so I perform timing
and
consistently note that the second time a query is performed, it executes
considerably faster than the first.

As an example, here's the first execution of a series of queries:

SELECT H08.CR.DIV.DATA WITH XCDD.HAMP.CMTE.MEMBER=0202736 time=18ms
SELECT H08.CR.DIV.DATA WITH XCDD.DIV EQ D2 time=988ms
SELECT H08.CR.DIV.DATA WITH XCDD.REV EQ P  time=5ms

And then immediately peforming these again:

SELECT H08.CR.DIV.DATA WITH XCDD.HAMP.CMTE.MEMBER=0202736 time=18ms
SELECT H08.CR.DIV.DATA WITH XCDD.DIV EQ D2 time=9ms
SELECT H08.CR.DIV.DATA WITH XCDD.REV EQ P  time=5ms

To be clear - the difference between 988ms and 9ms is not a typo, it's real.
Likewise this is not the result of server load.  I can consistently
reproduce
the above scenario with different queries at different times of the day (and
wee hours of the morning with few users).

I'm not complaining - it's a perfectly good feature - it's just hard to get
accurate timings on things so I often perform queries numerous times and
dump
the first few executions.  Of course, this isn't reality as many queries
only
get executed once in a blue moon...

--
Jeff Butera, Ph.D.
Administrative Systems
Hampshire College
[EMAIL PROTECTED]
413-559-5556

But Mom - Daddy knows everything.
Catherine Butera
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Religious Wars

2007-09-11 Thread Allen E. Elwood
I think we should start a war over this!!!  '-)

Seriously though, I'm on the everything is just fine side

-Original Message-
[mailto:[EMAIL PROTECTED] Behalf Of Moderator
Sent: Tuesday, September 11, 2007 07:34

All,
   It is no secret that I vehemently disagree with making this an 
unmoderated list. snip
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UV basic assignment error ?

2007-09-10 Thread Allen E. Elwood
Wow, looks like an error in the error reporting...wouldn't be the first time
I've seen something like that

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Scott Ballinger
Sent: Monday, September 10, 2007 18:35
To: u2-users@listserver.u2ug.org; Dana Moore
Subject: [U2] UV basic assignment error ?


Here is a weird UV error condition that I just spent way too long debugging:

CT BP SB

 SB
0001 X = 
0002 IF X EQ  THEN X = Y
0003 PRINT ONE
0004 PRINT TWO
0005 PRINT THREE
0006 PRINT X
0007 Y = A

RUN BP SB

ONE
TWO
THREE
Program SB: Line 6, Variable X previously undefined.  Empty string used.

Why does the run-time error happen in line 6 instead of line 2? This is
_not_ what I was expecting.

In D3:

:run bp sb

[B10] in program sb, Line 2:
Variable has not been assigned a value; zero used.
ONE
TWO
THREE
0

I like the way D3 reports this better. Is this a normal, known UV thing?
Perhaps this is just the first time I have ever tripped over it...

/Scott Ballinger
Pareto Corporation
Edmonds WA USA
206 713 6006
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UD] Keys with Value Marks

2007-09-05 Thread Allen E. Elwood
If you want to find the cause of the problem a trigger that would search the
key before writing, and when it found any undesirable characters would write
the program stack to a temp file would do the trick.  I've done this for
other problems, but not for a value mark in the key.

Have fun!   -   *=aee=*

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of David Wolverton
Sent: Wednesday, September 05, 2007 13:41
To: u2-users@listserver.u2ug.org
Subject: [U2] [UD] Keys with Value Marks


We all swear we've seen it on the list, but cannot put our hands on it.

How do you select keys with Value Marks (^253) in the key?

We ran into ONE record with this issue, and I want to see if there are any
others, so we can trace perhaps a 'cause' -- but we can't seem to SELECT
FILE WITH @ID = [^253]  or the like!

A gentle whack up side of the head would be appreciated.

David W.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Spam to forum addresses - Endorsement for a solution

2007-08-25 Thread Allen E. Elwood
I get about 10 a day, but 95% of those end up in my ZoneAlarm junk mail or
challenged mail folders.

-Original Message-
[mailto:[EMAIL PROTECTED] Behalf Of Ray Wurlod

Nice idea, though I believe my heavy-duty spam filters must be working - I
get very few.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


  1   2   3   4   5   >