Re: [U2] [BB] Internal functions in Basic

2006-12-22 Thread Martin Phillips

The only slight inconsistency in what Rick Nuckolls suggests and how
Martin Phillips describes OpenQM, is that I see an implication that
OpenQM allows variables to have global scope if not explicitly
declared private.


We did this to preserve the general style of the language. Also, very often, 
you actually want access to the variables in the main body of the program 
without having to formally declare them but only want to make a few things 
private to the subroutine.



I suggest we require IBM give us the ability to limit a variable's
(labels, too, so symbol may be a better word) scope to the local
subroutines.


We also have scope rules on label names in local subroutines such that it is 
impossible to jump into or out of one as this would destroy the stacking of 
the private variables.


Unfortunately, Pick style programmers have long known that you can jump 
anywhere and leaping into or out of the middle of an internal subroutine is 
so widespread that banning it would cause mass complaints. Of course, this 
all comes down to an internal subroutine being nothing more than a labelled 
statement in a monolithinc chunk of program.



Whether they are inherently limited to the private routines, or will
be global unless declared private, I am content to leave to IBM's
discretion.  Maybe the OpenQM conformity would dictate
that.  I think I'll go read their documentation.


The easiest way is to browse the online copy at www.openqm.docs/


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

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


RE: [U2] Managing open files

2006-12-22 Thread colin.alfke
If you're on a late enough version of UD have a look at SYSTEM(50). I
can see it on my system as of 6.0.12 but not at 5.1.27.

Here is a snippet from help system

50 The UniBasic SYSTEM(50) function returns a list of files open
in UniBasic as a dynamic array. The first field is multivalued, and
contains the following information:
Value 1 - The maximum number of files that can be opened system-wide.
Value 2 - The current number of hashed files open in UniBasic.
Value 3 - The current number of dynamic hashed files open in UniBasic.
Value 4 - The current number of recoverable hashed files open in
UniBasic.
Value 5 - The current number of sequential and OS-level files open
  in  UniBasic.
Value 6 - The current number of index files open in UniBasic.
Value 7 - The current number of temporarily closed files in UniBasic.

This should give you everything that you need.

HTH
Colin Alfke
Calgary Canada


-Original Message-
From: Susan Joslyn

Greetings group,

I have a problem at a new installation of PRC on a 
Unidata/Windows system.
There are a couple of occasions where I get an announcement 
that too many files are open, and my program bombs.  I think 
it's the combination of files that the application software 
has open as well as the ones I have open at that moment, plus SB+.

The most helpful thing for me would be some function that will 
tell me at any given time how many files I have open and what 
files they are.  I can't find anything like that.  I have ways 
that I can determine what files I have open, and SB+ keeps a 
list of the ones it has open.  But I don't know what the limit is.

I guess I'm going to have to take the known places where 
this is occurring (as they occur) and close all of my files 
that I don't need and hope it's enough.

Anyone know of anything that will help me solve this problem?  
All advice appreciated!  

Cheers,
Susan Joslyn
p.s. I'm a digest subscriber so I'll either see responses 
later (which is fine, I'm in no hurry) or you can copy me 
directly at [EMAIL PROTECTED] if you like.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Managing open files

2006-12-22 Thread Robert Paterson
Why not just change the UniData tunable for MAX_OPEN_FILE - we normally
set this to 2000?

That overcomes some limitations imposed by SB+ when regenerating
expressions...

Robert 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Susan Joslyn
Sent: 13 Dec 2006 15:30
To: u2-users@listserver.u2ug.org
Subject: [U2] Managing open files

Greetings group,

I have a problem at a new installation of PRC on a Unidata/Windows
system.
There are a couple of occasions where I get an announcement that too
many files are open, and my program bombs.  I think it's the
combination of files that the application software has open as well as
the ones I have open at that moment, plus SB+.

The most helpful thing for me would be some function that will tell me
at any given time how many files I have open and what files they are.  I
can't find anything like that.  I have ways that I can determine what
files I have open, and SB+ keeps a list of the ones it has open.  But I
don't know what the limit is.

I guess I'm going to have to take the known places where this is
occurring (as they occur) and close all of my files that I don't need
and hope it's enough.

Anyone know of anything that will help me solve this problem?  All
advice appreciated!  

Cheers,
Susan Joslyn
p.s. I'm a digest subscriber so I'll either see responses later (which
is fine, I'm in no hurry) or you can copy me directly at
[EMAIL PROTECTED] if you like.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


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.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [BB] Internal functions in Basic

2006-12-22 Thread Stevenson, Charles
Martin,
I'm not quite following you, because these two paragraphs seem to
contradict one another:

 We also have scope rules on label names in local subroutines 
 such that it is impossible to jump into or out of one as this 
 would destroy the stacking of the private variables.
 
 Unfortunately, Pick style programmers have long known that 
 you can jump anywhere and leaping into or out of the middle 
 of an internal subroutine is so widespread that banning it 
 would cause mass complaints. Of course, this all comes down 
 to an internal subroutine being nothing more than a labelled 
 statement in a monolithinc chunk of program.

On 2nd reading, by internal subroutine in the 2nd paragraph you must
mean existing old-fashioned GOSUBs, not your new-fangled LOCAL subs 
functions?  If you mean GOSUBs, the whole thing makes sense.


Warm regards and Merry Christmas,
Chuck one filament shy of a three-way bulb Stevenson
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] This company is looking for a software package

2006-12-22 Thread larry
Can anyone help them.

Larry Okeson Exec VP
Software Search Atlanta
800-949-5423

-- Forwarded by Larry Okeson/Software on 12/22/2006 10:38 AM
---


[EMAIL PROTECTED] on 12/22/2006 10:34:50 AM

To:   Larry Okeson/[EMAIL PROTECTED]
cc:
Subject:  Software


Hi Larry,
My name is Andrea Winer. I work for an advertising agency called Rabinovici
and Associates, based out of Miami, FL. We are looking for a software that
generates postal codes and latitude and longitude for certain countries
(Brazil, Turkey, Thailand). Can you company help us with that?

Please contact me as soon as possible.
Thank you very much,
--
Andrea Winer
Account Coordinator
Rabinovici and Associates
20725 NE 16 Ave. Suite B10
North Miami , FL 33179
305.655.0021 ext. 105
305.655.0042
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [BB] Internal functions in Basic

2006-12-22 Thread Martin Phillips
- Original Message - 
From: Stevenson, Charles [EMAIL PROTECTED]

To: u2-users@listserver.u2ug.org
Sent: Friday, December 22, 2006 3:07 PM
Subject: RE: [U2] [BB] Internal functions in Basic



Martin,
I'm not quite following you, because these two paragraphs seem to
contradict one another:


We also have scope rules on label names in local subroutines
such that it is impossible to jump into or out of one as this
would destroy the stacking of the private variables.


Apologies, I was not clear on my meaning because the QM terminology is not 
familiar to U2 users. A local subroutine is one that is framed by

  LOCAL SUBROUTINE name
  
  END

We distinguish this from a conventional internal subroutine of the type 
that appears in all mv products.


The scope rules apply to label names referenced inside a local subroutine 
whereas my second paragraph was refering to what you can do in internal 
subroutines.



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

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


[U2] UniVerse 10.2

2006-12-22 Thread Bryan Evans
On the IBM site, it does not list HPUX 11i as a supported OS version for
UniVerse 10.2.  Can anyone verify if this is actually the case?

Thanks,

Bryan Evans
Orbit Irrigation Products Inc.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Managing open files

2006-12-22 Thread Susan Joslyn
Hi Colin,
This is great, thank you!

What it doesn't give me is information about which files are open -- know
where that is, or what did you type into help to get this info?  I tried
whatever phrases I could think of...

Susan

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Friday, December 22, 2006 9:15 AM
To: u2-users@listserver.u2ug.org
Cc: [EMAIL PROTECTED]
Subject: RE: [U2] Managing open files

If you're on a late enough version of UD have a look at SYSTEM(50). I
can see it on my system as of 6.0.12 but not at 5.1.27.

Here is a snippet from help system

50 The UniBasic SYSTEM(50) function returns a list of files open
in UniBasic as a dynamic array. The first field is multivalued, and
contains the following information:
Value 1 - The maximum number of files that can be opened system-wide.
Value 2 - The current number of hashed files open in UniBasic.
Value 3 - The current number of dynamic hashed files open in UniBasic.
Value 4 - The current number of recoverable hashed files open in
UniBasic.
Value 5 - The current number of sequential and OS-level files open
  in  UniBasic.
Value 6 - The current number of index files open in UniBasic.
Value 7 - The current number of temporarily closed files in UniBasic.

This should give you everything that you need.

HTH
Colin Alfke
Calgary Canada


-Original Message-
From: Susan Joslyn

Greetings group,

I have a problem at a new installation of PRC on a 
Unidata/Windows system.
There are a couple of occasions where I get an announcement 
that too many files are open, and my program bombs.  I think 
it's the combination of files that the application software 
has open as well as the ones I have open at that moment, plus SB+.

The most helpful thing for me would be some function that will 
tell me at any given time how many files I have open and what 
files they are.  I can't find anything like that.  I have ways 
that I can determine what files I have open, and SB+ keeps a 
list of the ones it has open.  But I don't know what the limit is.

I guess I'm going to have to take the known places where 
this is occurring (as they occur) and close all of my files 
that I don't need and hope it's enough.

Anyone know of anything that will help me solve this problem?  
All advice appreciated!  

Cheers,
Susan Joslyn
p.s. I'm a digest subscriber so I'll either see responses 
later (which is fine, I'm in no hurry) or you can copy me 
directly at [EMAIL PROTECTED] if you like.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2]UniData and Multithreading for udtsort.exe on Windows Server 2003

2006-12-22 Thread jjuser ud2

Happy Holidays people   *:o)

I have Windows Server 2003 Service Pack 1 and four slow
processors(~700mhz) in a server.  It is running Unidata 7.1.

udtsort.exe caps out at 25% CPU usage -- it never exceeds this.
Because there are four processors, this leads me to believe that it is
completely using one of the processors.  Is the 25% a hard-coded cap
of some sort, or is it simply not multi-processor capable?  If it
were, would it try to use 100% of the processors?  If one processor is
fully utilized and there are two udtsort.exe instances running, does
the second one try to use the next available processor?  SB+ users are
unable to function efficiently when udtsort.exe is running at maximum
capacity(read: unable to so much as bring a screen up), and this leads
me to believe that perhaps they're not multi-processor aware as well.

Is there some sort of setting that I can change to enable that?  Or is
server 2003 not capable of it?  Or am I just hallucinating again?
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Managing open files

2006-12-22 Thread colin.alfke
HELP SYSTEM gave me this info.
The file names are in the array that system(50) creates. 1,2 is the
number of open files and there is an attribute in the array for each
file. 

PORT.STATUS PID ### FILEMAP

Is the only way I can think of to get the list of filenames from another
process. I'm not sure how well this would work from within the program
if system(50) isn't working for you.

HTH
Colin Alfke
Calgary Canada

-Original Message-
From: Susan Joslyn 

Hi Colin,
This is great, thank you!

What it doesn't give me is information about which files are 
open -- know where that is, or what did you type into help to 
get this info?  I tried whatever phrases I could think of...

Susan

-Original Message-
From: colin.alfke

If you're on a late enough version of UD have a look at 
SYSTEM(50). I can see it on my system as of 6.0.12 but not at 5.1.27.

Here is a snippet from help system
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Managing open files

2006-12-22 Thread Susan Joslyn
Hi ya'll,
Actually I got this sorted out.  There are some things about it I don't
understand -- and I tried to open and close files to see what affect I could
have and still don't understand some of it.  But this program will cause a
nice display of the situation, so since I typed it in I thought I'd share it
back.  Thanks!

SUBROUTINE TEST.OPEN.FILES
5 *
FILES.INFO = SYSTEM(50)
*  
MAX.FILES  = FILES.INFO1,1   
HASH.OPEN  = FILES.INFO1,2   
DYN.OPEN   = FILES.INFO1,3   
RECOV.OPEN = FILES.INFO1,4   
SEQ.OPEN   = FILES.INFO1,5   
IDX.OPEN   = FILES.INFO1,6   
CLS.OPEN   = FILES.INFO1,7   
*  
TOTAL.FILES=HASH.OPEN+DYN.OPEN+RECOV.OPEN+SEQ.OPEN+IDX.OPEN+CLS.OPEN   
*  
CRT @(-1): 
CRT Unidata SYSTEM(50) query of open files   
CRT
CRT Maximum files that can be open :MAX.FILES
CRT Total files currently open :TOTAL.FILES  
CRT
10 *   
NO.AMS = DCOUNT(FILES.INFO,AM) 
FOR X = 2 TO NO.AMS-1  
  CRT FILES.INFOX,1 L#10:FILES.INFOX,2 
  IF NOT(REM(X,18)) THEN CRT @(0,23):;INPUT JUNK 
NEXT X   
999 *
CRT @(0,23):Finished ;INPUT JUNK
RETURN   


-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] 
Sent: Friday, December 22, 2006 9:15 AM
To: u2-users@listserver.u2ug.org
Cc: [EMAIL PROTECTED]
Subject: RE: [U2] Managing open files

If you're on a late enough version of UD have a look at SYSTEM(50). I
can see it on my system as of 6.0.12 but not at 5.1.27.

Here is a snippet from help system

50 The UniBasic SYSTEM(50) function returns a list of files open
in UniBasic as a dynamic array. The first field is multivalued, and
contains the following information:
Value 1 - The maximum number of files that can be opened system-wide.
Value 2 - The current number of hashed files open in UniBasic.
Value 3 - The current number of dynamic hashed files open in UniBasic.
Value 4 - The current number of recoverable hashed files open in
UniBasic.
Value 5 - The current number of sequential and OS-level files open
  in  UniBasic.
Value 6 - The current number of index files open in UniBasic.
Value 7 - The current number of temporarily closed files in UniBasic.

This should give you everything that you need.

HTH
Colin Alfke
Calgary Canada


-Original Message-
From: Susan Joslyn

Greetings group,

I have a problem at a new installation of PRC on a 
Unidata/Windows system.
There are a couple of occasions where I get an announcement 
that too many files are open, and my program bombs.  I think 
it's the combination of files that the application software 
has open as well as the ones I have open at that moment, plus SB+.

The most helpful thing for me would be some function that will 
tell me at any given time how many files I have open and what 
files they are.  I can't find anything like that.  I have ways 
that I can determine what files I have open, and SB+ keeps a 
list of the ones it has open.  But I don't know what the limit is.

I guess I'm going to have to take the known places where 
this is occurring (as they occur) and close all of my files 
that I don't need and hope it's enough.

Anyone know of anything that will help me solve this problem?  
All advice appreciated!  

Cheers,
Susan Joslyn
p.s. I'm a digest subscriber so I'll either see responses 
later (which is fine, I'm in no hurry) or you can copy me 
directly at [EMAIL PROTECTED] if you like.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Christmas present

2006-12-22 Thread Charlie Rubeor
I wanted to give a Christmas present to the user group, to thank everyone 
for all the information that I have gathered over the years.  So here is a 
program to solve Sudoku puzzles.  Just like most of my programs, the user 
interface is the pits.  And of course, it's not complete either.  It 
handles the Easy and Medium difficulty puzzles, but is pretty spotty 
on Difficult puzzles. 

Copy and paste, compile, I hope it works ok.

Enjoy, Merry Christmas, Happy Hanukkah, Kwanzaa, Eid al-Fitr, etc.

**

BIG.ARRAY = ''
EMPTY.ARRAY = ''
POSSIBLE.ARRAY = ''
STARTING.ARRAY = ''

*
* Print the opening screen
*

PRINT @(-1)
FOR I = 1 TO 9
PRINT '  ':STR('-',37)
PRINT '  |   |   |   |   |   |   |   |   |   |'
NEXT I
PRINT '  ':STR('-',37)

*
* Input the starting numbers
*

PROMPT ''
FOR I = 1 TO 9
FOR J = 1 TO 9
PRINT @(J * 4,I * 2):;INPUT NUMBER
STARTING.ARRAYI,J = NUMBER
EMPTY.ARRAYI,J = ''
NEXT J
NEXT I

PRINT;PRINT 'Starting Puzzle'
PRINT

FOR I = 1 TO 9
FOR J = 1 TO 9
PRINT STARTING.ARRAYI,J 'R#1 ':
NEXT J
PRINT
NEXT I

PRINT;PRINT

BIG.ARRAY = STARTING.ARRAY

LOOP

POSSIBLE.ARRAY = EMPTY.ARRAY

*
* Find the easy ones.  Start with 123456789, remove any hits.  If 
only one number remains, it must belong
* to the cell.
*

FOR ROW = 1 TO 9
FOR COLUMN = 1 TO 9
GOSUB FIRST.CHECK
NEXT J
NEXT I

*
* Check each 3x3 square, by eliminating numbers that are outside 
the square
*

FOR SQ.ROW = 1 TO 7 STEP 3
FOR SQ.COLUMN = 1 TO 7 STEP 3
GOSUB SECOND.CHECK
NEXT SQ.COLUMN
NEXT SQ.ROW

GOSUB CHECK.ARRAY
IF ERROR.FLAG THEN
PRINT;PRINT 'Try again?':;INPUT TI
IF TI = 'D' THEN
FOR I = 1 TO 9
FOR J = 1 TO 9
PRINT BIG.ARRAYI,J 'R#1 ':
NEXT J
PRINT
NEXT I
PRINT
FOR I = 1 TO 9
FOR J = 1 TO 9
PRINT POSSIBLE.ARRAYI,J 
'R#':'-':
NEXT J
PRINT
NEXT I
END
END ELSE
TI = 'N'
END
UNTIL TI = 'N' DO REPEAT

PRINT;PRINT 'Ending puzzle'
PRINT

FOR I = 1 TO 9
FOR J = 1 TO 9
PRINT BIG.ARRAYI,J 'R#1 ':
NEXT J
PRINT
NEXT I

PRINT

STOP


FIRST.CHECK:


*
* First, do not check any cells from the starting array
*

IF STARTING.ARRAYROW,COLUMN # '' THEN RETURN

*
* Do not check any cells already in big array?
*

IF BIG.ARRAYROW,COLUMN # '' THEN RETURN

*
* Check row/column
*

FULL.STRING = '123456789'

FOR I = 1 TO 9
CHARACTER = BIG.ARRAYROW,I
IF CHARACTER # '' THEN
LOC = INDEX(FULL.STRING,CHARACTER,1)
IF LOC THEN
FULL.STRING = FULL.STRING[1,LOC - 
1]:FULL.STRING[LOC + 1,9]
END
END
NEXT I

FOR I = 1 TO 9
CHARACTER = BIG.ARRAYI,COLUMN
IF CHARACTER # '' THEN
LOC = INDEX(FULL.STRING,CHARACTER,1)
IF LOC THEN
FULL.STRING = FULL.STRING[1,LOC - 
1]:FULL.STRING[LOC + 1,9]
END
END
NEXT I

IF LEN(FULL.STRING) = 1 THEN
BIG.ARRAYROW,COLUMN = FULL.STRING
RETURN
END

*
* Check the 3x3 square
*

FULL.STRING = '123456789'

I = 3 * INT((ROW - 1)/3)
J = 3 * INT((COLUMN - 1)/3)

FOR K = 1 TO 3
FOR L = 1 TO 3
CHARACTER = BIG.ARRAYI + K,J + L
IF CHARACTER # '' THEN
LOC = INDEX(FULL.STRING,CHARACTER,1)
IF LOC THEN
FULL.STRING = FULL.STRING[1,LOC - 
1]:FULL.STRING[LOC + 1,9]
END
END
NEXT L
NEXT K

IF LEN(FULL.STRING) = 1 THEN
BIG.ARRAYROW,COLUMN = FULL.STRING
END

RETURN

*
SECOND.CHECK:
*

TEMP.ARRAY = EMPTY.ARRAY
FULL.STRING = '123456789'

FOR I = SQ.ROW TO SQ.ROW + 2
FOR J = SQ.COLUMN TO SQ.COLUMN + 2

*
* If this cell is not blank, remove the number from 
full.string, If this cell
* is blank, then get all of the other numbers from the 
row/column
*

IF BIG.ARRAYI,J # '' THEN
NUMBER = BIG.ARRAYI,J
LOC = INDEX(FULL.STRING,NUMBER,1)
IF LOC THEN
FULL.STRING = FULL.STRING[1,LOC - 

Re: [U2] [BB] Internal functions in Basic

2006-12-22 Thread Rick Nuckolls
Using LOCAL to label a LOCAL subroutine seems a bit unnecessary in U2, since
the names of subroutines are ignored by the run environment, which only
looks at the name used for cataloging the routine.

Regardless, if I interpret this correctly, I think that requiring variables
in LOCAL subroutines be declared as PRIVATE in order to be locally scoped is
a mistake.  Local scoping within a subroutine ought to be the default.

Likewise, any labels outside of a LOCAL subroutine ought to be out of scope
of the subroutine itself.  So the syntax of gosub name(a, b) for calling a
local subroutine is confusing, since name may be another local subroutine
within the file, but gosub ought to be confined to labels within a given
program, function, or subroutine. (imho).  I prefer call for calling local
subroutines.

But if variables are local (to a local subroutine) by default, then there
needs to be some manner of declaring variables, inserts, and commons as
global to the file.  My (admittedly Fortran or C like ) proposal for this
was to declare them before the first PROGRAM, SUBROUTINE, or FUNCTION
statement within a file, and I certainly see the possibility for some
ambiguity in doing this; it just seemed like an easy way to avoid the
PRIVATE and PUBLIC modifiers in a time tested manner.  

The problem that develops is when there is code preceding a subroutine
declaration:  Should that be considered the (no argument) subroutine by the
run machine, or should it be considered as part of a global declaration?  A
possible solution would be to define a global block as in the following
example, where the actual cataloged subroutine would be MYSUB, but the
GLOBAL code would be executed before the the code under MYSUB was invoked. 
The first declared subroutine would be the entry point, unless there was
undeclared code before the subroutine (for compatibility).

I would just as soon not have to go back and add PUBLIC to all the insert
files we have.

GLOBAL
   $INCLUDE BLAH
   DEFFUN MYSUBSUB( ARG ) CALLING MYSUBSUB
   COMMON /BLAT/ BLAT1
   VAR1 = 10
END

SUBROUTINE MYSUB( ARG1, ARG2 )
  ARG1 = BLAT1 + MYSUBSUB(ARG2)
END

SUBROUTINE MYSUBSUB( ARG1, ARG2)
  ARG1 = ARG2 + VAR1
END

The bottom line, of course, is that IBM is going to come up with their own
solution, if at all, and they have only the slightest inclination  to match
QM's syntax or listen to any individual customer.

btw, Although I have not read much of the QM documentation,but I have been
wanting some sort of CLASS definition in Basic for about 20 years (And I am
not exaggerating).




Martin Phillips wrote:
 
 I'd really appreciate a way to write an internal function which
 can have parameters and can contain it's own local variables
 (although global variables would be OK).
 
 This is an excellent idea. We did it for the QM multivalue database
 product 
 a year or so back and it is very useful. Hopefully, if IBM decide to take
 up 
 this suggestion, they will use our implementation as the de facto 
 specification of the user interface rather than reinvent the wheel.
 
 We have
LOCAL SUBROUTINE name(arg1, arg2, ...)
   PRIVATE var, var2(10,5)
   ... do something...
END
 entered using
GOSUB name(X,Y)
 
 and
 
LOCAL FUNCTION name(arg1, arg2, ...)
   PRIVATE var, var2(10,5)
   ... do something...
   RETURN value
END
 declared with
DEFFUN name(a,b) LOCAL
 and used in exactly the same way as external functions.
 
 The private variables are truly stacked to allow recursive calls each with 
 their own variables. We even allow variable length argument lists.
 
 You never know, if IBM take up this one, they may then look at our object 
 oriented programming extensions which are incredibly useful (see the next 
 issue of Spectrum Magazine for the first of two articles on this topic).
 
 
 Martin Phillips
 Ladybridge Systems Ltd
 17b Coldstream Lane, Hardingstone, Northampton, NN4 6DB
 +44-(0)1604-709200 
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/
 
 

-- 
View this message in context: 
http://www.nabble.com/-BB--Internal-functions-in-Basic-tf2837863.html#a8027883
Sent from the U2 - Users mailing list archive at Nabble.com.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [OT] [U2] Christmas present

2006-12-22 Thread Gordon J Glorfield
Big brother is watching.

Thanks for the present Charlie!  I tried to forward that message to my 
home email.  The corporate email watchdog program kicked it back as 
undeliverable for an ethic violation.  It had a nine digit number imbedded 
in the source code.

I guess that's what happens when you try to get a machine to dictate 
ethics.

Merry Christmas to all!


Gordon J. Glorfield
Sr. Applications Developer
UnitedHealthcare's Mid-Atlantic Health Plans
301-360-8839


This e-mail, including attachments, may include confidential and/or 
proprietary information, and may be used only by the person or entity to 
which it is addressed. If the reader of this e-mail is not the intended 
recipient or his or her authorized agent, the reader is hereby notified 
that any dissemination, distribution or copying of this e-mail is 
prohibited. If you have received this e-mail in error, please notify the 
sender by replying to this message and delete this e-mail immediately.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Slow Response Time after firing off Phantom

2006-12-22 Thread John Jenkins
Scott


Fixed from 10.1.16

8072On LINUX and HP platforms, if a PHANTOM was executed from TCL,
the performance for subsequent TCL commands incurred a delay of
one second before processing while the PHANTOM process was active.
This problem has been fixed.

Nadolig Llawen

JayJay

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: 21 December 2006 20:08
To: u2-Users
Subject: [U2] [UV] Slow Response Time after firing off Phantom

Hi all,

HPUX 11
 RELLEVEL
X
10.1.8
PICK
PICK.FORMAT
10.1.8

Does anyone have an idea what would cause a really slow response time after
firing off a phantom process?  After firing off a phantom, I can hit
return and wait for a good 2 seconds before seeing the tcl prompt appear
again.   It's almost like the phantom is trying to communicate back to it's
parent for some reason.

Any thoughts would be greatly appreciated.

Scott
---
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] Active Directory and UniVerse

2006-12-22 Thread John Jenkins
There's an article in the U2 knowledgebase on this which may help:

Forcing authentication toa  Child Domain
http://www-1.ibm.com/support/search.wss?rs=629tc=SSCRY4q=active+directory

Regards

JayJay



-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Thomas Derwin
Sent: 21 December 2006 20:25
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Active Directory and UniVerse

Hi Brian,

Could it be DNS configuration rather than Active Directory?

Telnet does a reverse-DNS lookup when it initiates a session, and if
there's no response from DNS, telnet waits about 50 seconds before it
times out, connects, and displays the login prompt.

After the user gets the login prompt, everything works normally.

For some reason, this 50-second delay drives users nuts.

We've run into this two different ways:
1) DNS server was hung.
2) The block of IP addresses wasn't entered into the reverse-lookup
table on the DNS server.

Hope this helps,
Tom Derwin

 [EMAIL PROTECTED] 12/21/06 12:22 PM 
Tony

Thanks for the info.

It seems to be down to the fact that this is a child domain in the AD
tree.
The telnet service is authenticating to the root server not to the local
domain controller: on both sites the root servers are not local
(situated on
different continents) and the service is enumerating each individual
group
membership from the PDC (each with a separate RPC call). Which is of
course
horribly slow.

Brian

 

 -Original Message-
 From: [EMAIL PROTECTED] 
 [mailto:[EMAIL PROTECTED] On Behalf Of 
 Anthony Caufield
 Sent: 21 December 2006 16:19
 To: u2-users@listserver.u2ug.org
 Subject: RE: [U2] Active Directory and UniVerse
 
 We used to have this problem at one of our site but we added 
 a domain controller to that site and that took care of it. Do 
 you have the same problem if you log into the server using 
 local admin or a local user (setup on that server) 
 
 Tony Caufield
 IS Manager
 Harbor Wholesale Grocery Inc.
 
 
 -Original Message-
 From: [EMAIL PROTECTED]
 [mailto:[EMAIL PROTECTED] On Behalf Of Brian Leach
 Sent: Thursday, December 21, 2006 1:48 AM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] Active Directory and UniVerse
 
 All,
  
 I have an urgent issue and hope someone can help me out.
  
 I have two sites experiencing problems logging into UniVerse 
 TELNET sessions when using Active Directory for authentication.
 Both are running on Windows 2003 server SP1 with appropriate 
 versions of UniVerse.
  
 The problem they both face is a long wait when connecting: up 
 to a minute between entering the password and logging into UniVerse.
 However, using a remote desktop or other windows connection 
 to the same machine using the same credentials, results in an 
 immediate authentication, so it seems specific to the UniVerse telnet.
  
 Has anyone experienced this? Any idea how I can overcome this?
 I'm not running AD here, so I can't reproduce the issue 
 myself (without a lot of time spent setting up an AD tree).
  
 Thanks
  
 Brian
 ---
 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/

-
This e-mail and any attachments may contain CONFIDENTIAL
information, including PROTECTED HEALTH INFORMATION. If you are not
the intended recipient, any use or disclosure of this information
is STRICTLY PROHIBITED; you are requested to delete this e-mail and
any attachments, notify the sender immediately, and notify the
LabCorp Privacy Officer at [EMAIL PROTECTED] or call (877)
23-HIPAA / (877) 234-4722.
---
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/