Re: [U2] Converting number to word

2006-01-05 Thread Bruce Nichol

Goo'day, again,

At 16:12 05/01/06 +1100, you wrote:


Oops!

Mea culpa!


Just add TH to everything above THREE and replace ONe TWO THREE with 
FIRST SECOND THIRD... (I think)


Fiveth??I'm sure you'll be able to figure it out



Regards,

Bruce Nichol
Talon Computer Services
ALBURYNSW 2640
Australia

http://www.taloncs.com.au

Tel: +61 (0)411149636
Fax: +61 (0)260232119

If it ain't broke, fix it till it is! 



--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/06
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] openseq question

2006-01-05 Thread Jeff Powell
Thank you all. It is working now with the VOC pointer. It is much
simpler now that I don't care what account I'm in.

One final question. 

I have downloaded many of the pdfs ( UniBasic command ref., Using
unidata, SB+ Solutions, ...) from the IBM site but where is this
documented? Are there any books ( online or otherwise ) that a novice to
unidata programming could refer to in cases like this? What I've looked
at so far is more like a quick reference and doesn't really dive into
detail. For example the difference handling absolute-path and VOC
pointer with using the full path vs. path,rec-id approach.


Thanks again,

Jeff


On Wed, 2006-01-04 at 19:04 -0700, Kevin King wrote:

 Jeff, if the VOC entry is MFG.DATA.IPS.TMP then the OPEN is:
 
 OPEN MFG.DATA.IPS.TMP, MTR.REC TO ...
 
 Not the concatenated thing you had in your post.
 
 -K
 ---
 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] Converting number to word

2006-01-05 Thread Ron White

David Knight wrote:


Happy New Year,

A current project involves printing a number string in its alphabetic
description e.g. 1 = one, 3 = three, 11 = eleven etc etc. The precise task
is printing a label of book information and in this case the label is
edition e.g. first/second.

 


Where the list is small I have used LOCATE.

NUMBERS = '1':@vm:'2':@vm ... etc.
WORDS = 'ONE':@vm:'TWO:'@vm ... etc.

LOCATE VARIABLE IN NUMBERS SETTING POS THEN
 VARIABLE = WORDS1,POS
END

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


[U2] Quick question on the udt catalog verb

2006-01-05 Thread Symeon Breen
Hi - just a quick one

On Universe you can edit attributes 7 and 8 (i think) of the voc entry
for CATALOG (and BASIC) to change the default behaviour. Can this be
done in unidata as well ??

No problem if not, I have a plan B ;)

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


RE: [U2] UD: Calling Stored Procedures

2006-01-05 Thread u2ug

REPOSTED FOR  NON MEMBER Vinson Lee [EMAIL PROTECTED]

We're currently running Unidata 6.0 and I have been trying unsuccessfully to
call a Unidata subroutine (Stored procedure) via SQL. There isn't a whole
lot of documentation on how to call a stored procedure. I'm using the
following syntax: {CALL ROUTINE_NAME('','1234567')}

The name lookup subroutine's first parameter is an output field of a
person's name and the second parameter accepts the key value for a person. I
have also tried defining the subroutine using VSG although the VSG
documentation says this isn't necessary.

I've tried from the sql prompt (nothing happens) and the colon prompt
(syntax error). If I try using Microsoft Access to call the stored
procedure, I get the following message - ODBC call failed [Ardent][Unidata
ODBC Driver] Statement violates access rule:Connection is READ ONLY. (#0)

Has anyone successfully called stored procedures using SQL and what syntax
should be used?

Thanks.

Vinson Lee

San Diego Community College District

[EMAIL PROTECTED]

619-388-1143

--

- Charles Barouch, Moderator

U2-Users
U2-Community
RBSolutions
SBSolutions

	Visit http://listserver.u2ug.org, 
	enter your e-mail address, 
	and 'browse all' lists to maintain your access.


For non-U2UG e-mail: [EMAIL PROTECTED]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Converting numeral to word

2006-01-05 Thread u2ug

REPOSTED FOR NONMEMBER: David Knight [EMAIL PROTECTED]

Happy New Year,

A current project involves printing a number string in its alphabetic description e.g. 1 
= one, 3 = three, 11 = eleven etc etc. The precise task is printing a label of book 
information and in this case the label is edition e.g. first/second.

The universe basic manual does not appear to provide a conversion code as in 
MCN etc ; would someone know of a UV code or algorithm that converts 
These strings?

Regards

David Knight

--

- Charles Barouch, Moderator

U2-Users
U2-Community
RBSolutions
SBSolutions

	Visit http://listserver.u2ug.org, 
	enter your e-mail address, 
	and 'browse all' lists to maintain your access.


For non-U2UG e-mail: [EMAIL PROTECTED]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UD] Calling Stored Procedures

2006-01-05 Thread Geoffrey Mitchell
I have successfully used a stored procedure on UniVerse (not UD).  I 
have only called the procedure from a JDBC connection.  When I try using 
the same statement at the console, I get 'Illegal verb CALL.'  It 
works fine from JDBC, though.  *shrug*



You might try using a parameter marker (?) for your output parameter, 
as in 'CALL ROUTINE_NAME(?,'1234567').  That is what I'm doing and what 
I think the documentation indicates is correct.  It's been a while since 
I have looked at all of this, so my memory is a little fuzzy.



Vinson Lee wrote:


We're currently running Unidata 6.0 and I have been trying unsuccessfully to
call a Unidata subroutine (Stored procedure) via SQL. There isn't a whole
lot of documentation on how to call a stored procedure. I'm using the
following syntax: {CALL ROUTINE_NAME('','1234567')}

The name lookup subroutine's first parameter is an output field of a
person's name and the second parameter accepts the key value for a person. I
have also tried defining the subroutine using VSG although the VSG
documentation says this isn't necessary.

I've tried from the sql prompt (nothing happens) and the colon prompt
(syntax error). If I try using Microsoft Access to call the stored
procedure, I get the following message - ODBC call failed [Ardent][Unidata
ODBC Driver] Statement violates access rule:Connection is READ ONLY. (#0)

Has anyone successfully called stored procedures using SQL and what syntax
should be used?

Thanks.

Vinson Lee

San Diego Community College District

[EMAIL PROTECTED]

619-388-1143
---
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] Universe List.CSV command

2006-01-05 Thread u2ug
REPOSTED FOR NON-MEMBER:  Diane Boyd [EMAIL PROTECTED]

I remember a Universe List.CSV command that created a delimited file 
from a list statement, It had some limitations .  I reviewed the 
Universe 10,x documentation but could not find a reference.  Can some 
one tell me where the LIST.CSV command documentation exist in the 
Universe Reference Manual or any details on the command would be 
appreciated.

  Thanks

Diane Boyd

 

-- 

- Charles Barouch, Moderator

U2-Users
U2-Community
RBSolutions
SBSolutions

Visit http://listserver.u2ug.org, 
enter your e-mail address, 
and 'browse all' lists to maintain your access.

For non-U2UG e-mail: [EMAIL PROTECTED]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UD] OSBWRITE problem

2006-01-05 Thread Brian Leach
All,
 
I'm having a problem writing a binary file from UniData. 
 
I need to store some lengths as 4 byte integers, and I'm deliberately
encoding all numbers to base 250 + 1 shifted to avoid writing char(0) or
char(255)s but I'm still getting a problem with byte translation. 
 
I've narrowed it down to this test example (assume touch of c:\temp\test.dat
to create it):
 
PROGRAM TEMP
PATH = C:\temp\test.dat
OSOPEN PATH TO FL ELSE
  CRT NO FILE
  STOP
END
TEST = CHAR(1):CHAR(1):CHAR(1):CHAR(131)
OSBWRITE TEST ON FL
OSCLOSE FL
CRT WRITTEN
STOP
 
When I look at the resultant file it shows: #1 #1 #1 #0 and not #1 #1 #1
#131
 
What is going on and can I avoid it?
 
UniData 6.1 on Windows.
 
 
Brian
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Universe List.CSV command

2006-01-05 Thread Results

Diane,
Depending on how much control you need over the output CSV, you may 
want to look at a third party tool.
   [AD] Zeus (www.mtOlympus.us) will let you do extremely complex data 
transforms from Type 19 UniVerse files into CSV. With the (real soon 
now) release of Zeus Special Edition for IBM, it will work will all 
UniVerse and UniData filetypes. [/AD].


- Charles Barouch
[EMAIL PROTECTED]
(718) 762-3884 x 1
	P. O. Box 540957, 
	Linden Hill, NY 11354-0957

www.KeyAlly.com

u2ug wrote:

I remember a Universe List.CSV command that created a delimited file 
from a list statement, It had some limitations .  I reviewed the 
Universe 10,x documentation but could not find a reference.  Can some 
one tell me where the LIST.CSV command documentation exist in the 
Universe Reference Manual or any details on the command would be 
appreciated.

 Thanks
Diane Boyd

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


RE: [U2] openseq question

2006-01-05 Thread Allen E. Elwood
Gaaa!  no...most of the files I've uploaded were measly little files.  Tiny,
little itty bitty files.  Like specs on the wall small.  Mostly forecast
files where you just have 12 three to four char qty's for a couple thousand
parts.

And you gotta realize that people get used to their graphs.  In the
corporate world people like warm and fuzziesstuff that costs a lot of
system resources and adds no value but makes them feel good.  So they get to
see that the upload is going to take ten minutes so off to the break room
they go.  And yesI can guarantee that the files will be small because
the company doesn't exist any more ;)

Warm and fuzzies.  I had a morning report that I spent probably close to
1000 hours on, that would break out projections for the end of the month and
compare it to budget and do crazy stuff like show how much more warehouses
had to ship, or how much less to make the projection for the EOM.  Like, as
if seeing the shortage at the end of the month would make the customers
order more

Butit made the guy setting in the top floor at the big desk feel good.
Total waste of time, but he felt good.  Company is gone now, but he felt
good.

*

==
SCREEN.GRAPH:
  DONE.PCT=INT(((RECORDS.READ*100)/SELECTED)+.5)
  SMSG=DONE.PCT:' Percent Done, ':RECORDS.READ:' Records Read out of
':SELECTED:' selected'
  CC=40-(INT(LEN(SMSG)/2))
  CRT L(10):C(CC):SMSG:EOL
  DONE.CNTR=INT((DONE.PCT*60+50)/100)
  CRT L(12):C(10):STR(LX,DONE.CNTR)
  CRT L(13):C(10):STR(LX,DONE.CNTR)
  SMSG='Projected Finish Time :
':OCONVTIME()-WAS)/DONE.PCT)*100)+WAS,'MTHS')
  CC=40-(INT(LEN(SMSG)/2))
  CRT L(15):C(CC):SMSG:EOL
  SMSG='Current Time : ':OCONV(TIME(),'MTHS')
  CC=40-(INT(LEN(SMSG)/2))
  CRT L(16):C(CC):SMSG:EOL
  CRT L(20):C(1):
RETURN
* =
ACTUAL.FINISH.TIME:
  SMSG='Actual Finish Time : ':OCONV(TIME(),'MTHS')
  CC=40-(INT(LEN(SMSG)/2))
  CRT L(17):C(CC):SMSG:EOL
  CRT L(20):C(1):
RETURN
*

==

Allen E. Elwood
www.tortillafc.com


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Timothy Snyder
Sent: Wednesday, January 04, 2006 19:12
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] openseq question


Allen E. Elwood wrote on 01/04/2006 01:29:47 PM:

 I've always found it helpful to open the file/record in 'regular' mode
first
 to find out if the directory entry worked or possibly to write a null
record
 if it didn't.

So, if the O/S-level file is multi-megabytes, you're reading the whole
thing into memory?  That could cause problems with shared memory and will
certainly create a burden on the system.  It also kind of defeats the
purpose of using a sequential file, since you're reading the whole thing
in, then opening it again and reading through the entire file a second
time with READSEQ.  Since you've incurred the memory and performance hit
to pull the whole thing into a variable, you might as well waltz through
that variable to extract the lines an attribute at a time with REMOVE or
READNEXT.

If you're following this practice only on small files, and only
infrequently, it's probably OK, but how can you guarantee that will always
be the case?


Tim Snyder
Consulting I/T Specialist , U2 Professional Services
North American Lab Services
DB2 Information Management, IBM Software Group
717-545-6403
[EMAIL PROTECTED]
---
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] Converting numeral to word

2006-01-05 Thread Brian Leach
David,

Here is a routine I've quickly massaged from some VB code.
Check out the FormatOptions and play around.
It seems to work e.g.

1234 - One Thousand Two Hundred and Thiry Fourth
100 - One Millionth
1 - first

Hope it helps...and apologies to others for posting a long routine.


Brian

  SUBROUTINE NumberToWords(NumberIn, FormatOptions, NumberAsText)
*--
*  Name: NumberToWords
*  Description : Convert number to text
*  Author  : Brian Leach
*  Project : GENERAL
*  Module  : GENERAL
*--
*  Notes
*  -
*  NumberIn = number in standard formats e.g.-123,456.78
*  FormatOptions = 1 Use And between elements
*  2 Use currency name
*  3 Use ordinal e.g. first, second
*  4 Currency name e.g. pound
*  5 Currency name plural e.g. pounds
*  6 Cents name e.g. pence
*  7 Cents name plural e.g. pence
*
*  Adapted from some scrudgy VB code.
*
*  THIS USES THE U.S. BILLION = 1000 MILLION
*
*--
*  Modification History
*  
*
*  DateWho  Version Description
*  ---  --- ---
*--
*  Version Stamp
*  -
!V!
*--
$OPTIONS PICK

  sNumberText = 
  sEndText = 

  bUseAnd = FormatOptions1
  bUseCurrency = FormatOptions2
  bUseOrdinal= FormatOptions3
  sCurrencyName = FormatOptions4
  sCurrencyNamePlural = FormatOptions5
  sCurrencyCentName = FormatOptions6
  sCurrencyCentNamePlural = FormatOptions7

  tmp = 

  GoSub BuildArray

*--
* Begin validating the number, and breaking into constituent parts
*--

  NumberIn = Trim(NumberIn)
  If Not( Num(NumberIn)) Then
 NumberAsText = Error - Number improperly formed
 Return
  End

  DecimalPart = Field(NumberIn, .,2,1)
  WholePart = Field(NumberIn,.,1,1)
  BigWholePart = 

  Convert , To  In WholePart
  NumberSign = ''
  Begin Case
 Case WholePart[1,1] = +
NumberSign = 'Plus '
WholePart = WholePart[2, 999]
 Case WholePart[1,1] = '-'
NumberSign = 'Minus '
WholePart = WholePart[2, 999]
  End Case

  If Len(WholePart)  9 Then
 BigWholePart =WholePart[1, Len(WholePart) - 9]
 WholePart = WholePart[9]
  End

  If Len(BigWholePart)  9 Then
 NumberAsText = Error - Number too large
 Return
  End

*--
* Very Large values

  TestValue = BigWholePart
  If BigWholePart  99 Then
 CardinalNumber = Int(TestValue / 100)
 HTUValue = CardinalNumber
 GoSub HTU
 tmp = HundredsTensUnits : Quadrillion 
 TestValue -= (CardinalNumber * 100)
  End

  If TestValue  999 Then
 CardinalNumber = Int(TestValue / 1000)
 HTUValue = CardinalNumber
 GoSub HTU
 tmp := HundredsTensUnits : Trillion 
 TestValue -= (CardinalNumber * 1000)
  End

  If TestValue  0 Then
 HTUValue = TestValue
 GoSub HTU
 tmp := HundredsTensUnits : Billion 
  End

* Lesser values
  TestValue = WholePart
  If Not(TestValue) then TestValue = 0

  If TestValue = 0 And BigWholePart =  Then tmp = Zero 

  If TestValue  99 Then
 CardinalNumber = Int(TestValue / 100)
 HTUValue = CardinalNumber
 GoSub HTU
 tmp := HundredsTensUnits : Million 
 TestValue -= (CardinalNumber * 100)
  End

  If TestValue  999 Then
 CardinalNumber = Int(TestValue / 1000)
 HTUValue =CardinalNumber
 GoSub HTU
 tmp := HundredsTensUnits : Thousand 
 TestValue -= (CardinalNumber * 1000)
  End

  If TestValue  0 Then
 If WholePart  99 And BigWholePart =  Then bUseAnd = @False
 HTUValue = TestValue
 GoSub HTU
 tmp := HundredsTensUnits
  End

  Begin Case
 Case bUseOrdinal
   * substitute the last word for the ordinal
   * e.g. one hundred thousand - one hundred thousandth
   *  one hundred and twenty - one hundred and twentieth
   *  ignore decimals
   tmp = Trim(tmp)
   LastWord = Field(tmp, ,DCount(tmp, ),1)
   Locate LastWord In sNumberText Setting Pos Then
  If Count(tmp, ) then
  tmp = Field(tmp, ,1,Count(tmp, )): 

Re: [U2] Universe List.CSV command

2006-01-05 Thread Gordon J Glorfield
Diane,

I don't think that LIST.CSV is a standard UV verb.  It's possible that it 
was a homegrown utility.  Was it at a previous employer/client that you 
used that verb?  At least that would be my guess.  I'm betting you may 
have to roll your own or as our esteemed moderator Charles mentioned you 
could obtain a third party product.

Gordon


Gordon J. Glorfield
Sr. Applications Developer
MAMSI (A UnitedHealth Company)
301-360-8839

[EMAIL PROTECTED] wrote on 01/05/2006 12:21:07 PM:

 REPOSTED FOR NON-MEMBER:  Diane Boyd [EMAIL PROTECTED]

 I remember a Universe List.CSV command that created a delimited file
 from a list statement, It had some limitations .  I reviewed the
 Universe 10,x documentation but could not find a reference.  Can some
 one tell me where the LIST.CSV command documentation exist in the
 Universe Reference Manual or any details on the command would be
 appreciated.

 Thanks

 Diane Boyd

 
 --




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] Universe List.CSV command

2006-01-05 Thread Allen E. Elwood
In Unidata you just use LIST with the TO and DELIMITER clauses...

Surely Universe has an equivalent???

I think that's the right clauses, working on a mvBASE platform today...

Allen E. Elwood
www.tortillafc.com


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Gordon J
Glorfield
Sent: Thursday, January 05, 2006 11:36
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Universe List.CSV command


Diane,

I don't think that LIST.CSV is a standard UV verb.  It's possible that it 
was a homegrown utility.  Was it at a previous employer/client that you 
used that verb?  At least that would be my guess.  I'm betting you may 
have to roll your own or as our esteemed moderator Charles mentioned you 
could obtain a third party product.

Gordon


Gordon J. Glorfield
Sr. Applications Developer
MAMSI (A UnitedHealth Company)
301-360-8839

[EMAIL PROTECTED] wrote on 01/05/2006 12:21:07 PM:

 REPOSTED FOR NON-MEMBER:  Diane Boyd [EMAIL PROTECTED]

 I remember a Universe List.CSV command that created a delimited file
 from a list statement, It had some limitations .  I reviewed the
 Universe 10,x documentation but could not find a reference.  Can some
 one tell me where the LIST.CSV command documentation exist in the
 Universe Reference Manual or any details on the command would be
 appreciated.

 Thanks

 Diane Boyd

 
 --




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


RE: [U2] Universe List.CSV command

2006-01-05 Thread Larry Hiscock
Or you could download the open source download via anonymous ftp from
ftp.cedarville.edu.  It will create CSV, XML or HTML ouput from any U2 file.
Syntax is very similar to standard LIST query with some enhancements.

Larry Hiscock
Western Computer Services

 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Results
Sent: Thursday, January 05, 2006 10:17 AM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Universe List.CSV command

Diane,
 Depending on how much control you need over the output CSV, you may 
want to look at a third party tool.
[AD] Zeus (www.mtOlympus.us) will let you do extremely complex data 
transforms from Type 19 UniVerse files into CSV. With the (real soon 
now) release of Zeus Special Edition for IBM, it will work will all 
UniVerse and UniData filetypes. [/AD].

- Charles Barouch
[EMAIL PROTECTED]
(718) 762-3884 x 1
P. O. Box 540957, 
Linden Hill, NY 11354-0957
www.KeyAlly.com

u2ug wrote:

I remember a Universe List.CSV command that created a delimited file 
from a list statement, It had some limitations .  I reviewed the 
Universe 10,x documentation but could not find a reference.  Can some 
one tell me where the LIST.CSV command documentation exist in the 
Universe Reference Manual or any details on the command would be 
appreciated.
  Thanks
Diane Boyd
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 1/3/2006
 

-- 
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 1/3/2006
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [uv] Something Strange happened today

2006-01-05 Thread Hennessey, Mark F.
UV 10.0.8, Solaris 8:

We had a 'situation' in which I think UniVerse basically became constipated.

Late this morning users reported that they were halted - they finished their 
last task and then... nothing.

I immediately worried that the VOC file in our production account had locks... 
no such luck.  I then checked the ./uvhome/errlog file and... nothing out of 
the ordinary.

LIST.READU EVERY showed nothing out of the ordinary... except... occasional 
group locks on Group address zero and one.  The more UniVerse decayed, the 
worse our system looked from UniVerse... at the worst, we had zero % idle, 95% 
kernel and 5% user activity.  A combination of MASTER OFF commands from the UV 
account and from the UniAdmin GUI finally got all users off.  We rebooted the 
system, and so far all appears to be OK.

Because it appeared that users were halting when they hit the VOC and VOCLIB 
files, I feared a group lock on either...  and this proved not to be the case.

The only thing that was obviously strange was the Type 30 semaphore (nearly all 
of our files are dynamic).  Collisions were at 10253 and retries (which, as I 
understand it, should be only slightly higher than the number in collisions) 
were at -808871239...  I wonder if the minus sign means retries were being 
expressed in scientific notation...

So, has anyone come across these symptoms before?  

Mark Hennessey
State of Connecticut
DSS/MIS Child Support Systems
Voice: 860-424-5261
Fax: 860-424-4956
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] [UV] Create hashed file in subdirectory?

2006-01-05 Thread Barry Brevik
This is Universe 9.6.1.3 on Windows 2000.

I have a type 19 file (in other words, a subdirectory) that looks like
this in the VOC:
 
 001.. F
 002.. SCRATCH
 003.. D_SCRATCH
 
I use this to create temp files and other administrative type files which
usually get deleted later.

So... this sounds stupid even to me, but how can I create a static hashed
file in this subdirectory?? CREATE.FILE does not seem to allow this.

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


RE: [U2] [UV] Create hashed file in subdirectory?

2006-01-05 Thread Rod Hills
You can create part files like this-
CREATE.FILE DATA SCRATCH,MYHASHFILE 18,1,1

This will create MYHASHFILE under SCRATCH. Then any reference to the
file will be SCRATCH,MYHASHFILE, for instance-
FILE.STAT SCRATCH,MYHASHFILE

HTH

Rod Hills

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Barry Brevik
Sent: Thursday, January 05, 2006 12:49 PM
To: U2-users (E-mail)
Subject: [U2] [UV] Create hashed file in subdirectory?

This is Universe 9.6.1.3 on Windows 2000.

I have a type 19 file (in other words, a subdirectory) that looks like
this in the VOC:
 
 001.. F
 002.. SCRATCH
 003.. D_SCRATCH
 
I use this to create temp files and other administrative type files
which
usually get deleted later.

So... this sounds stupid even to me, but how can I create a static
hashed
file in this subdirectory?? CREATE.FILE does not seem to allow this.

Barry Brevik
---
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] [UV] Create hashed file in subdirectory?

2006-01-05 Thread John Hester

Barry Brevik wrote:

This is Universe 9.6.1.3 on Windows 2000.

I have a type 19 file (in other words, a subdirectory) that looks like
this in the VOC:
 
 001.. F

 002.. SCRATCH
 003.. D_SCRATCH
 
I use this to create temp files and other administrative type files which

usually get deleted later.

So... this sounds stupid even to me, but how can I create a static hashed
file in this subdirectory?? CREATE.FILE does not seem to allow this.


I think you have a couple of options here:

1) Create the file in the parent account and move it into your type 19 
file / subdirectory at the OS level.


or

2) Make the subdirectory a UV account with its own VOC file, logto it, 
then create a hashed file


-John
--
John Hester
System  Network Administrator
Momentum Group Inc.
(949) 833-8886 x623
http://memosamples.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Create hashed file in subdirectory?

2006-01-05 Thread karlp
quote who=Barry Brevik
 This is Universe 9.6.1.3 on Windows 2000.

 I have a type 19 file (in other words, a subdirectory) that looks like
 this in the VOC:

  001.. F
  002.. SCRATCH
  003.. D_SCRATCH

 I use this to create temp files and other administrative type files which
 usually get deleted later.

 So... this sounds stupid even to me, but how can I create a static hashed
 file in this subdirectory?? CREATE.FILE does not seem to allow this.

Actually, you can do it. It's a multi-level file you need. The VOC would
then look like:

001 F
002 SCRATCH
003 D_SCRATCH
004 M
005
006
007 SUBFILE
008 SUBFILE

You create a subfile in the directory using this command:

CREATE.FILE SCRATCH,SUBFILE

Now then, this works when the directory SCRATCH doesn't already exist, so
I'm not sure how this will work on an existing file. Oh, one major caveat.
Once you create the file, doing

ED SCRATCH DATAITEM

returns the message:

Unable to open SCRATCH, non-existent file.

So, there's a trade-off. I hope someone else on the list knows a way
around this. One thing you could do is

mkdir SCRATCH from within SCRATCH, then the command would be:

ED SCRATCH,SCRATCH DATAITEM

which might solve the problem for you. I think there can't be anything in
the SCRATCH file other than other files. You don't need to do the OS part
if you don't want. You can just do

CREATE.FILE DATA SCRATCH,SCRATCH

NOTE: When using multi-level files you always have to use the DATA keyword.

I hope this helps.



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



-- 
karl

 _/  _/  _/  _/_/_/      __o
_/ _/   _/  _/_/   _-\._
   _/_/_/  _/_/_/ (_)/ (_)
  _/ _/   _/  _/   ..
 _/   _/ arl _/_/_/  _/ earson[EMAIL PROTECTED]

--
IT Director, ATS Industrial Supply, Inc.
http://www.atsindustrial.com
Toll-free: 800-789-9300 x29
Direct2Desk: 801-978-4429
Facsimile: 801-972-3888
--
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] [UV] Create hashed file in subdirectory?

2006-01-05 Thread Glenn Herbert
You would use CREATE.FILE DATA SCRATCH,your hashedfile name  rest of 
create.file options

Per the CREATE.FILE documentation, there can be no space between the 
filename and the datafile name, only a comma.  Note that your VOC file 
entry for SCRATCH is now modified to indicate it is a multi-level data 
file (if that is the correct terminology anymore).  You can now reference 
the hashed file like any other file, but using the SCRATCH,your 
hashedfile name identifier, ie.

LIST SCRATCH,your hashedfile name F1 F2 F3...
_
I reject your reality and substitute my own - Adam Savage

Glenn M. Herbert - Connectivity Development  Engineer
Information Integration Solutions, IBM Software Group
50 Washington Street Westboro, MA 01581
 508-599-7281 direct 



Barry Brevik [EMAIL PROTECTED] 
Sent by: [EMAIL PROTECTED]
01/05/2006 03:49 PM
Please respond to
u2-users


To
U2-users (E-mail) u2-users@listserver.u2ug.org
cc

Subject
[U2] [UV] Create hashed file in subdirectory?






This is Universe 9.6.1.3 on Windows 2000.

I have a type 19 file (in other words, a subdirectory) that looks like
this in the VOC:
 
 001.. F
 002.. SCRATCH
 003.. D_SCRATCH
 
I use this to create temp files and other administrative type files which
usually get deleted later.

So... this sounds stupid even to me, but how can I create a static hashed
file in this subdirectory?? CREATE.FILE does not seem to allow this.

Barry Brevik
---
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] UO.NET registry exception in method dealing with performance counters

2006-01-05 Thread u2ug

REPOSTED FOR NON-MEMBER: Glenn Batson [EMAIL PROTECTED]

Has anyone had experience with UO.NET throwing an exception related to
what looks to be permission issues related to updating the registry for
performance counters?  Unfortunately the exception details were lost,
but what I remember was Error Message:
System.Security.SecurityException: Requested registry access not
allowed. and the stack trace referenced something like a performance
method (assuming performance counters).  After doing some googling I
found reference to ASP.NET and Windows EventLog registry updates and one
option was to set the Application Pool for the website to have the
identity of Local System versus Network Service.  This made the
exception go away and my application started running but the Local
System setting is a huge security hole.  I tried to obtain the
exception again this morning by resetting the identity to Network
Service but the problem did not come back (even after restarting IIS).
So my speculation is that what ever needed to be updated on the registry
was done and only needed to be done once.  In doing a little research
into my registry settings I found the following entries in a perflib
folder with a key of Counter.  This is also confirmation that
something had to be updated in the registry, I'm just not sure when and
if these were the entries it was having problems with.  There were at
the end of the string.


UODOTNET Category

7442

Current # pooled connections

7444

Current # connection pools

7446

Total # failed connects

7448

Average Wait Time

7450

Average Wait Time Base



What I'm looking for is the best way to handle this situation as we roll
out our product to our clients.  I hate to think setup application,
change app pool identity, run application, change app pool identity back
and then start application back up is the approach we'll have to take.
We can create a custom identity but I think that will take a lot of work
to figure out all the settings that identity will need.  We can modify
the registry but I need to know what needs to be modified.  I'm hoping
someone else has experienced this and has some suggestions.



Finally a couple of other bits are:



a.   This only seemed to happen when connection pooling was
activated.  It was a late night so some of the details are fuzzy.

b.  This only happened on two systems.  One system did not
experience the problem.  I'm not sure if it is the order in which things
were installed or something like that.

c.   Our environment is UniData 7.1.0,  UniObjects.Net
2.1.0.7137, C#/ASP.NET, and Windows 2003.



Glenn Batson

[EMAIL PROTECTED] mailto:[EMAIL PROTECTED]

360.256.4400

www.jenkon.com

--

- Charles Barouch, Moderator

U2-Users
U2-Community
RBSolutions
SBSolutions

	Visit http://listserver.u2ug.org, 
	enter your e-mail address, 
	and 'browse all' lists to maintain your access.


For non-U2UG e-mail: [EMAIL PROTECTED]
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] Create hashed file in subdirectory?

2006-01-05 Thread Barry Brevik
You can create part files like this-
CREATE.FILE DATA SCRATCH,MYHASHFILE 18,1,1

OK, this does not do exactly what I had in mind, but it DOES work and is
totally interesting.

When I executed that command, behind the scenes it made a subdirectory under
SCRATCH named SCRATCH, and moved all of the existing files into the new
subdirectory, so I had .\SCRATCH\SCRATCH, and then it put MYHASHFILE under
SCRATCH.

This was all transparent to universe, but the DOS app that also accesses
that directory suddenly thought that all of it's files were gone!

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


RE: [U2] [uv] Something Strange happened today {Unclassified}

2006-01-05 Thread HENDERSON MIKE, MR
Mark,

Since nobody else has replied, I'll put in my two cents worth ...

 -Original Message-
 From: [EMAIL PROTECTED] On Behalf Of  Hennessey, Mark
F.
 Sent: Friday, 6 January 2006 09:44
 To: u2-users@listserver.u2ug.org
 Subject: [U2] [UV] Something Strange happened today

[snip]

  The more UniVerse decayed, the worse our system looked
 from UniVerse... at the worst, we had zero % idle, 95% kernel
 and 5% user activity.

[snip]

 The only thing that was obviously strange was the Type 30
 semaphore (nearly all of our files are dynamic).  Collisions
 were at 10253 and retries (which, as I understand it, should
 be only slightly higher than the number in collisions) were
 at -808871239...  I wonder if the minus sign means retries
 were being expressed in scientific notation...

My guess would be that a negative number means that the 'retries'
counter is being treated as an unsigned integer by the routine that
increments it, and as a signed integer by the routine that reports it,
so when the number gets so large that the top bit is set, this is seen
as a negative sign: -808871239 is CFC99AB9 in hex.
So the next question is: what the blazes would be making your TYPE30
semaphore get completely hammered?
IIRC the TYPE30 semaphore is used to serialise access to control
structures which are used every time a Dynamic file is opened or closed,
and when a block splits or merges.  So if a program is, perhaps in a
called subroutine, opening and closing a Dynamic file very, very, very
often (maybe for each record processed?), that might cause the symptoms.

Someone's maybe put up some new code with a local file
open/read/write/close in a subroutine, rather than opening in the host
or into a common block file handle??


Hope this helps


Mike


 So, has anyone come across these symptoms before?

 Mark Hennessey
 State of Connecticut
 DSS/MIS Child Support Systems
 Voice: 860-424-5261
 Fax: 860-424-4956
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/


The information contained in this Internet Email message is intended
for the addressee only and may contain privileged information, but not
necessarily the official views or opinions of the New Zealand Defence Force.
If you are not the intended recipient you must not use, disclose, copy or
distribute this message or the information in it.

If you have received this message in error, please Email or telephone
the sender immediately.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] Converting number to word

2006-01-05 Thread Mark Johnson
I wish that this Check Print Amount routine were standard MV-issue instead
of home grown.

On that topic, there is a user exit for converting a number to a roman
numeral. For sales reports to the branch offices in Italy.

My 1 cent.
- Original Message -
From: Bruce Nichol [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Sent: Thursday, January 05, 2006 12:12 AM
Subject: Re: [U2] Converting number to word


 Goo'day, David,

 Dick Pick's gift to the world:

 At 15:24 05/01/06 +1100, you wrote:

 Happy New Year,
 
 A current project involves printing a number string in its alphabetic
 description e.g. 1 = one, 3 = three, 11 = eleven etc etc. The precise
task
 is printing a label of book information and in this case the label is
 edition e.g. first/second.
 
 The universe basic manual does not appear to provide a conversion code as
 in MCN etc ; would someone know of a UV code or algorithm that
 converts these strings?
 
 Regards
 
 David Knight
 ---
 u2-users mailing list
 u2-users@listserver.u2ug.org
 To unsubscribe please visit http://listserver.u2ug.org/


 Just add TH to everything above THREE and replace ONe TWO THREE with
 FIRST SECOND THIRD... (I think)

 And discard the cents!


 0001: SUBROUTINE(N,S)
 0002: S= ''; IF NUM(N) ELSE RETURN
 0003: N = N'R26%12'
 0004: FOR I = 1 TO 7 STEP 3
 0005:  X = N[I,3]
 0006:  SX = ''
 0007:  IF X  99 THEN SX = SX:' ':FIELD('ONE TWO THREE FOUR FIVE SIX SEVEN
 EIGHT
   NINE',' ',X[1,1]):' HUNDRED'
 0008:  X = X[2,2]
 0009:  IF X  0 AND SX # '' THEN SX = SX:' '
 0010:  IF X  0 AND SX = '' AND S# '' THEN SX = ' '
 0011:  IF X  19 THEN SX = SX:' ':FIELD(' TWENTY THIRTY FORTY FIFTY SIXTY
 SEVENTY EIGHTY NINTY',' ',X[1,1]); X = X[2,1]
 0012:  IF X   0 THEN SX = SX:' ':FIELD('ONE TWO THREE FOUR FIVE SIX SEVEN
 EIGHT NINE TEN ELEVEN TWELVE THIRTEEN FOURTEEN FIFTEEN SIXTEEN SEVENTEEN
 EIGHTEEN NINETEEN',' ',X)
 0013:  IF SX # '' THEN S = S:SX:FIELD(' MILLION... THOUSAND','.',I)
 0014: NEXT I
 0015: IF S = '' THEN S = 'ZERO'
 0016:  IF S = ' ONE' THEN TEXT = ' DOLLAR ' ELSE TEXT = ' DOLLARS '
 0017: S = S:TEXT
 0018: IF N[11,2] = 0 THEN
 0019:  S = S:'ONLY'
 0020: END ELSE
 0021:  IF N[11,2]  9 THEN
 0022:   S = S:N[11,2]:'/100'
 0023:  END ELSE
 0024:   S = S:' ':N[11,2]+0:' CENT'
 0025:   IF N[11,2]  1 THEN S= S:'S'
 0026:  END
 0027: END
 0028: RETURN





 --
 No virus found in this incoming message.
 Checked by AVG Anti-Virus.
 Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/06

 Regards,

 Bruce Nichol
 Talon Computer Services
 ALBURYNSW 2640
 Australia

 http://www.taloncs.com.au

 Tel: +61 (0)411149636
 Fax: +61 (0)260232119

 If it ain't broke, fix it till it is!


 --
 No virus found in this outgoing message.
 Checked by AVG Anti-Virus.
 Version: 7.1.371 / Virus Database: 267.14.12/220 - Release Date: 03/01/06
 ---
 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] [UV] Upgrading user count requires UV shutdown

2006-01-05 Thread Norman, David (SAAS)
We have purchased extra licences for our UV 10.0.16 system, and have
discovered on our test system that we need to stop UniVerse in order to
install them, otherwise we get an abnormal termination. Previously under 9.6
this could be done dynamically with all users logged on, and I am advised
that under 10.1 this is also possible, but not under 10.0.
Being a 24/7 installation this is a nuisance. Is this a known 'feature' of
10.0 ??


David Norman
Senior Software Engineer
SA Ambulance Service
Box 3, GPO
Adelaide, South Australia 5001
*+61 8 8274 0384
fax +61 8 8271 0758
* [EMAIL PROTECTED] mailto:[EMAIL PROTECTED] 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] DCOUNT

2006-01-05 Thread Bruce Nichol

Goo'day, Mark,

At 00:21 05/01/06 -0500, you wrote:


I'm finding that I'm doing a lot of programming for the processing through
multi-valued attributes.

I'm wondering if the method I'm using is the best way to determine the last
element.

LAST=DCOUNT(REC15,@VM)
FOR I=1 TO LAST
(process something)
NEXT I

There was a REMOVE thread a few months ago and I use that when I expect that
the number of elements could test the patience of the EXTRACTs. REMOVE doesn't
give you the MV counter for the associated fields by itself. You have to
manage separately and hope to keep in sync. That's more code.

I know that in VB certain object array variables (a list box for example) has
a property for the number of elements. Is there anything in MV that I'm not
aware of for determining the last multi-value that's easier to type than the
DCOUNT expression. I'm looking at reducing my keystrokes.


If this is a serious query, might I suggest a water-cooled keyboard?


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



--
No virus found in this incoming message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.13/221 - Release Date: 04/01/06


Regards,

Bruce Nichol
Talon Computer Services
ALBURYNSW 2640
Australia

http://www.taloncs.com.au

Tel: +61 (0)411149636
Fax: +61 (0)260232119

If it ain't broke, fix it till it is! 



--
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.1.371 / Virus Database: 267.14.13/221 - Release Date: 04/01/06
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] DCOUNT

2006-01-05 Thread Jim Garratt
Over years experience using pick, uv, sb, sb+ I believe that this is the
best and most controlled way.


Jim Garratt
CTI Logistics Ltd

 -Original Message-
 From: [EMAIL PROTECTED]
 [mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson
 Sent: Thursday, 5 January 2006 1:22 PM
 To: u2-users@listserver.u2ug.org
 Subject: [U2] DCOUNT


 I'm finding that I'm doing a lot of programming for the processing through
 multi-valued attributes.

 I'm wondering if the method I'm using is the best way to
 determine the last
 element.

 LAST=DCOUNT(REC15,@VM)
 FOR I=1 TO LAST
 (process something)
 NEXT I

 There was a REMOVE thread a few months ago and I use that when I
 expect that
 the number of elements could test the patience of the EXTRACTs.
 REMOVE doesn't
 give you the MV counter for the associated fields by itself. You have to
 manage separately and hope to keep in sync. That's more code.

 I know that in VB certain object array variables (a list box for
 example) has
 a property for the number of elements. Is there anything in MV
 that I'm not
 aware of for determining the last multi-value that's easier to
 type than the
 DCOUNT expression. I'm looking at reducing my keystrokes.

 Thanks in advance.
 Mark 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/