Re: [U2] BASIC code - upper, lower, CamelCase, what say you?

2013-12-23 Thread Horn, John
Bruce Decker wrote:

 You know the programmer is poser if he writes GOTO as goTo :-)

I love it! Can I steal it? It needs to be on a t-shirt or something

  - jmh



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 be 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


Re: [U2] Unusual code

2012-03-15 Thread Horn, John
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


Re: [U2] Pick Pocket Guide

2010-03-24 Thread Horn, John
From: Tony Gravagno

 The world would be a terrible place if software companies figured
out that they could
 provide poor documentation and then make even more money as the unique
source of for-fee
 books that explain their products.

Game software companies figured that out a long time ago, I'm afraid.
Even before a game hits the stores, you'll find strategy guides, hint
guides, walkthroughs, you name it...

John M. Horn | Solutions Engineer, Advisor Sr. | HealthLink |
314-925-6050 | jh...@healthlink.com 


CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for 
the sole use of the intended recipient(s) and may contain confidential and 
privileged information 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


Re: [U2] Reading the Global Catalog

2009-09-23 Thread Horn, John
On Unidata this can be found in the CTLGTB file.

 - jmh 

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Mark Eastwood
Sent: Wednesday, September 23, 2009 1:21 PM
To: U2 Users List
Subject: Re: [U2] Reading the Global Catalog

This is only a guess - but try looking at the last attribute in the
GLOBAL.CATDIR file.

Mark
Uv10

-Original Message-
From: u2-users-boun...@listserver.u2ug.org
[mailto:u2-users-boun...@listserver.u2ug.org] On Behalf Of Brutzman,
Bill
Sent: Wednesday, September 23, 2009 11:11 AM
To: U2 Users List
Subject: [U2] Reading the Global Catalog


Is there a way to programatically...

[1] read the global catalog?

[2] determine the original path (file folder) of a cataloged
(compiled) SubRoutine?

In other words, is it possible to do something like...

read R.Catalog from F.Catalog, MY.SUB.NAME  else  R.Catalog = ''
My.Sub.Path = R.Catalog2

Suggestions would be appreciated.

--Bill Brutzman
___
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


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


RE: [U2] Unidata calculations incorrect

2009-05-01 Thread Horn, John
Interesting.  This works as expected on our system.  Unidata 6.something
on AIX.  I wonder what is different in our settings.

:FLOAT.PRECISION
FLOAT.PRECISION  mode  3 

:RUN FIXBP JH.TST 
BAL [0]   
BAL = 0  
Matches integer   
MCN BAL = 0  

John M. Horn | Solutions Engineer, Advisor Sr. | HealthLink |
314-989-6050 | jh...@healthlink.com 


-Original Message-
From: owner-u2-us...@listserver.u2ug.org
[mailto:owner-u2-us...@listserver.u2ug.org] On Behalf Of Wally Terhune
Sent: Friday, May 01, 2009 8:00 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Unidata calculations incorrect

look up the ECL statement FLOAT.PRECISION Folks are often happiest with
FLOAT.PRECISION 4


Wally Terhune
U2 Support Architect
IBM Information Management Software
Tel: (303) 773-7969 T/L 656-7969
Mobile: (303) 807-6222
Email: wal...@us.ibm.com
http://www.ibm.com/software/data/u2/support



  From:   Martin Hutchinson m.hutchin...@webcontrolltd.co.uk

  To: u2 user group u2-users@listserver.u2ug.org

  Date:   05/01/2009 05:21 AM

  Subject:[U2] Unidata calculations incorrect

  Sent by:owner-u2-us...@listserver.u2ug.org






Hi All,

We have Unidata 7.2 running on Windows 2008 server making incorrect
calculations when numbers are close to zero. I understand there is a
'WIDEZERO' parameter on Univers but I don't think there is an equivalent
on Unidata. Below we have an example program and output.

001: BAL = 856.19
002: VAL1 = 287.31
003: VAL2 = 568.88
004: BAL = BAL - VAL1
005: BAL = BAL - VAL2
006: *
007: CRT BAL [:BAL:]
008: *
009: IF BAL  0 THEN
010:   CRT BAL  0
011: END ELSE
012:   CRT BAL = 0
013: END
014: *
015: IF INT(BAL) = BAL THEN
016:CRT Matches integer
017: END ELSE
018:CRT Does not match integer
019: END
020: *
021: IF ICONV(BAL,MCN)  0 THEN
022:CRT MCN BAL  0
023: END ELSE
024:CRT MCN BAL = 0
025: END

When run this gives:

BAL [0]
BAL  0
Does not match integer
MCN BAL = 0

Has anyone come across this one or have any ideas?

regards

Martin Hutchinson


Web Control (UK) Ltd
Atlantic House,
Michigan Drive,
Tongwell,
Milton Keynes,
MK15 8HQ

T: +44(0)1908 216700 x4
F: +44(0)1908 216300

http://www.webcontrolltd.co.uk

Web Control (UK) Ltd is a company registered in England and Wales with
company number 4118558. VAT number: 770 3363 38
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

[demime 1.01d removed an attachment of type image/gif which had a name
of graycol.gif]

[demime 1.01d removed an attachment of type image/gif which had a name
of ecblank.gif]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


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
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [Ad] XLr8 Editor and Web Developer Updates

2008-01-10 Thread Horn, John
Are there any plans to make XLr8 and PRC play nicely together?

  - John M. Horn
HealthLink


 -Original Message-
 From: [EMAIL PROTECTED] 
 [mailto:[EMAIL PROTECTED] On Behalf Of daverch
 Sent: Wednesday, January 09, 2008 12:56 PM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] [Ad] XLr8 Editor and Web Developer Updates
 
 U2logic announces that our Free eclipse based plugin for 
 Universe and Unidata has been updated.  Instructions for 
 downloading this tool is available at www.u2logic.com.
 


CONFIDENTIALITY NOTICE: This e-mail message, including any attachments, is for 
the sole use of the intended recipient(s) and may contain confidential and 
privileged information 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
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] SOX question (United States only, I believe)

2006-07-19 Thread Horn, John
 On Behalf Of [EMAIL PROTECTED]
 
 From Wikipedia, the free encyclopedia
 
 * Cracker (computing), a person who engages in illegal system 
 cracking or software cracking, circumventing computer 
 security systems; also known as a black hat hacker

To distinguish from hacker who is someone who breaks into systems
for fun and the challenge of it.  A cracker does it for malicious
purposes.

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


RE: [U2] List dead ?

2006-04-11 Thread Horn, John
 On Behalf Of  Sharyl Lindsay
 
  Ever since they changed the 'reply to' from the list to a 
 person, I feel the list has died a slow death. I've been 
 thinking of unsubscribing myself but I just can't bring 
 myself to lose the chance to stop learning
 *something* just  because I think the list admin is an idiot 
 and the people who can't filter whiners. 

Don't hold back.  Tell us how you *really* feel.  ;-)

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


RE: [U2] [UV] GOSUB variable-name?

2006-02-08 Thread Horn, John
 On Behalf Of Barry Brevik
 
 Aside from CALL @VARIABLENAME, is there any way to branch 
 indirectly in universe? This would be really useful for me.

ON-GOSUB might work for you. Though it isn't a particularly popular
technique.  (Almost as bad as a ON-GOTO.)  (I assume UV has this, I
know UDT does.

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


RE: [U2] Justification for removal of savedlists

2006-02-06 Thread Horn, John
 On Behalf Of Bill Pizer
 
 I wrote a small routine that will go through Savedlists, HOLD 
 files, ST.PPROCES records, etc. and selectively delete the 
 records that are no longer needed but I have been stopped by my
VP.  
 
 She wants justification for the process.  I don't have the 
 knowledge to be able to give her what she wants.  I've tried 
 the following arguments with no luck:
 
I'd go with the savedlists files are functionally equivalent to the
\temp directory in Windows.  It needs to be cleaned up
periodically.

I agree with the others and make sure that the entries are older
than a certain date before removing them...just in case.

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


RE: [U2] phantom COMO file message

2006-02-02 Thread Horn, John
 On Behalf Of [EMAIL PROTECTED]
 
 Sorry, I was not clear,  I know where the _PH_ records are 
 and how to view and create them, I was asking for a listing 
 of various messages that Unidata would write to them, not 
 just what is captured by the PHANTOM or COMO ON commands as out
put.
 Thanks!
 
  For example, when is this message written out?:
  
  PHANTOM process 392716 has completed.

I only recall seeing the has completed message, even if the
process aborted or was killed.  There might be an error message
above it but there's no guarantee of that.

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


[U2] Subroutine utility

2005-02-22 Thread Horn, John
Have any of you every seen or heard of a utility that would take a
Pick program and identify what programs were called by that program
and continue to transverse down those programs until all programs
were identified?

  - John M. Horn
IT Technical Expert
HealthLink, Inc.
314-989-6050
[EMAIL PROTECTED]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UniObjects for Java Unnamed Common Corruption

2004-12-10 Thread Horn, John
 Behalf Of Sean W Ferguson
 
 I have recently encountered a very strange UniObjects bug.  I have
an 
 application that includes a file containing unnamed commons.  The 
 application calls a subroutine that also includes that same
unnamed 
 common.

In my experience unnamed commons tend to get a bit testy if there
are any statements in a program/process before the commons and b) if
they are first utilized in a subroutine but not in the calling
program.  My guess is that the behavior you are running is
equivalent to calling numerous subroutines (the UniObjects process
itself) and then your subroutine.  (Or maybe UniObjects uses an
unnamed common somewhere...)

 - jmh
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] READU ... THEN _or_ ELSE but not both?

2004-10-29 Thread Horn, John
 On Behalf Of Wendy Smoak
 
 Am I reading this right?  When I READU I can either have a THEN or
an
 ELSE, but not both?  (That it does not compile with both tends to
 confirm that...) 

This snippet of code compiles on Unidata 6.0:

ID=???
OPEN ,VOC TO BLAH ELSE STOP 

READU DUM FROM BLAH,ID LOCKED   
   DISPLAY LOCKED 
END THEN
   DISPLAY GOT IT 
END ELSE
   DISPLAY DON'T GOT IT   
END 

And seems to run correctly.

 - jmh
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UD] Exit BASIC program with SELECT list?

2004-10-27 Thread Horn, John
 Behalf Of Allen E. Elwood
 
 Ohh.lemme see, could it be that I've never heard of REMOVE?
:-D
 
 Oh boy a new toy to play with.  I'll give it a whirl in my 
 speedtest program and see which is more efficient!!!

Be prepared to be impressed!  It's amazing how much faster REMOVE
can be in certain circumstances.  I had one routine that was taking
5-10 minutes to run on a large dynamic array.  I changed it to use
REMOVE and it ran in under 30 seconds.  Simply wonderful.  I just
wish it wasn't called REMOVE.  It has nothing to do with removing
data from the array.  That threw me for a *long* time before I
finally got around to trying it.

 - jmh
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Eclipse and U2

2004-08-04 Thread Horn, John
A while back on the list there was some discussion of writing a
plug-in for Eclipse to work with U2 through UniObjects.  Did this go
anywhere?  Has anyone worked on this?

 - jmh
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/