RE: [U2] UV Version

[Pingilley, Ron]

.L RELLEVEL

That will display the item RELLEVEL stored in the VOC of the account
you're logged to.  Or at least the version used to *create* that
account, if the VOC hasn't been updated after subsequent
updates/upgrades.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Ray Buchner
Sent: Tuesday, April 18, 2006 3:29 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] UV Version

What is the command to see the current version of Universe a server is
running?  I forget.

TIA

-Ray
---
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 Bug?

[Pingilley, Ron]

Jerry,

You're saying that the "DM" is in <3> of the D-descriptor?  I
think the problem is that the "real" data is an internal date, the
external data in your TCL statements is an integer month number, and
there is no way for the "DM" conversion to make meta-data that would
match.  What would "12" be as an internal date?

This would probably work if you put the "DM" code in <2> as an
OCONV(~,"DM").  That would make it "data" which could be directly
compared to the "12" in your TCL statement.  Then you're not fooling
with conversions & meta-data.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Jerry Banker
Sent: Tuesday, April 18, 2006 9:06 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] UV Bug?

This came from the U2Ug website Better and Better Enhancement Forum, I
tried it and they are correct. Is this a bug or is there something wrong
with the way it is being done?



rayg wrote at Apr 18, 2006 - 09:11 AM

-



UNIVERSE  BUG:



I found a bug where if a dictionary item is created for a multivalued
field holding internal dates, and the dictionary item has a "DM"

conversion (yielding the number of the month), and it is used to report
on data known to exist, Retrieve reports that no items are present.  I
reported on a file that I knew had data for a certain month.  "MONTH" is
a dict item ("D" in attr 1) with the DM conversion.  I used the

statements:



LIST FILE WHEN MONTH = "12"



and



SELECT FILE BY-EXP MONTH WHEN MONTH = "12"



In both cases, no items or values were returned, and the appropriate
message was issued.  This worked fine when the conversion was 'D2/', but
consistently failed with 'DM'.  Investigation revealed that the dict
item seemed to fail in some ways to do the conversion, and did selection
and returned values based on the internal date, not the number of the
month.  At my office we are interested in and concerned about this.  We
appreciate any input on this, and feel that it is obviously important.
Thank you.
---
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 I-descriptor

[Pingilley, Ron]

Chuck,

Thanks for extending the usefulness of that i-descr.  I tend to
favor i-descr's without @n references so that they can be used as a
reference in another i-descr.  The @n references and semicolons sure
make it more readable, but you are then limited to replicating the logic
in another i-descr rather than just referencing the original one.

But that may be what Bob's actually looking for, trying to limit
reuse of the logic...?

--Ron P.



Now let's generalize it a bit.  Suppose the final answer is a string
instead of numeric.
You can replace the outer
  02: SUM(MULS(...))
with
  o2: CONVERT(@VM,'',IFS(...,'')
as follows:


Of course, we're still left with the problem of maintainability.

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

RE: [U2] Justification for removal of savedlists

[Pingilley, Ron]

Try "Savedlists do not contain data.  They are collections of record
keys selected for processing as a group (reports, postings, etc.), and
deleting them does not change or delete the actual data.  The records
pointed to by the keys still exist as-is in their original files/tables.
Keeping them does not add value to the system, as the records
represented by the keys in the saved list may no longer exist in the
file, or may have been updated since the saved list was created.".

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bill Pizer
Sent: Monday, February 06, 2006 8:33 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Justification for removal of savedlists

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:

Savedlists can be outdated as soon as they are created.
Taking up too much server room.

Any one have any others to try?

- Bill Pizer
---
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 I-descriptor - slight correction

[Pingilley, Ron]

Bob,

Went brain dead on the <5> and <9> in your FILE2.  The corrected
I-descr should read:

0001 I
0002
SUM(MULS(EQS(RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),5,"X")),REUSE(OCONV(@
ID,"G3*1"))),RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),9,"X"
0003
0004
0005 10L
0006 M

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

RE: [U2] UV I-descriptor

[Pingilley, Ron]

 Bob,

Hey, that was fun!  I got this one to work:

 U2UG.TEST
0001 I
0002
SUM(MULS(EQS(RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),1,"X")),REUSE(OCONV(@
ID,"G3*1"))),RAISE(TRANS("FILE2",OCONV(@ID,"G1*1"),2,"X"
0003 
0004 
0005 10L
0006 M

It gets <1> from file2, using "G1*1" of the key from file 1,
compares the multivalues to "G3*1" of the file1 key, which results in a
MV'd list of 0 and 1, with the only "1" corresponding to the MV in
file2<1> that matches.  Then gets <2> from file2, and MULS them
together, and sums the results.  What you get is 1 * the matching
qty-per-uom value from file2.

Give it a whirl, and see if it works for you.  It's pretty nasty
to modify, so a program may be a better solution in the end

--Ron Pingilley

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bob Woodward
Sent: Friday, February 03, 2006 2:19 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] UV I-descriptor

Hi Peoples,



FILE1 @ID = "01*11223344*W1*EA"

FILE2 @ID = "11223344"
  <5> = "CS^SP^EA"
  <9> = "1^2^12"

I'm needing to get "12" back to the I-DESC in FILE1, again, hopefully
without having to resort to a called basic program.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Creating a Folder

[Pingilley, Ron]

Bill,

After you did the mkdir in Unix, did you put an F-pointer in the
VOC of the account from which you want to access the new folder/program
source code directory?

0001  F
0002  /u2/SOFTWARE/NEW.BP
0003  make a new one with CREATE.FILE DICT NEW.BP -or- use the same one
as AP.BP?

When you first try to compile a program in NEW.BP UV will create
the .O file to hold the object code.

--Ron P.

-Original Message-
/u2/SOFTWARE/...

AP.BP/
  APP.1
  APP.2
PUR.BP/
  APP.98
APP.99 
NEW.BP


Without luck, I tried it brute-force in Unix; UV did not recognize it.

I tried CREATE.FILE; I need a folder, not a file.

Suggestions would be appreciated.

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

RE: [U2] PROC question

[Pingilley, Ron]

Bob,

Does the called PROC have an "RI" in it by any chance?  That
would clear the input buffers and leave nothing for the original PROC to
use in the "IF A" statement.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bob Woodward
Sent: Wednesday, January 25, 2006 1:54 PM
To: U2-Users List
Subject: [U2] PROC question

Hi folks,

My problem is when I come back from one of the PROGxx.PROC's, I'm not
getting the menu choice value back to execute the G 10 command.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] eval question

[Pingilley, Ron]

Jeff,

 For the "something.else" use @RECORD.  You could
even use OCONV(@RECORD,"correlative") if the something.else
requires formatting before being added to the output string.

list thisfile eval "prod.num:'|':pck.qty:'|':@RECORD<###>" fmt "255l"

-OR-

list thisfile eval "prod.num:'|':pck.qty:'|':OCONV(@RECORD<###>,'MR%5')"
fmt "255l"

--Ron P.

-Original Message-
list thisfile eval "prod.num:'|':pck.qty:'|':something.else" fmt "255l"
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] UltPlus to UV

[Pingilley, Ron]

 Tom,

READLIST sounds like the BASIC statement you're looking for:

READLIST dynarray FROM listnumber THEN/ELSE

But it does seem to require a list number rather than a list
variable name.  If you leave out the FROM listnumber clause, it will use
the active list #0.  If your EXECUTE statement can be modified to use
list numbers, you could then use the READLIST statement to suck the
unused contents of the list into a dynamic array.

SENT = "SELECT filename . TO 4"
EXECUTE SENT ,//IN.OUT.DATA
{no ,//SELECT.> clause}
.
.
READLIST OUTPUT.LIST FROM 4 ELSE .

Not exactly a straight-forward port, but should duplicate the
functionality.

One caveat:  READLIST behaves quite differently in PICK,
REALITY, and IN2 flavors.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Tom Dodds
Sent: Friday, January 20, 2006 1:42 PM
To: Userr group U2
Subject: [U2] UltPlus to UV

We are migrating a system from UltPlus to UniVerse 10.1.14.  In the
EXECUTE statement, when using the RTNLIST or the PASSLIST function the
resultant list is a list.varialble or cursor and not a simple variable.
In the UltPlus system it is both or can be used as both.  I am using
RTNLIST and PASSLIST as the generic word for the variety of keywords to
represent that functionality. 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UD] list output when captured

[Pingilley, Ron]

Bill,

Whenever I'm doing output capture like this, I always issue TERM
32767,32767 first.  Gives me the max term size UV will support, and only
1 set of HEADING lines (unless the report's REALLY long), and very
little chance the report will line-wrap.  You could do a TERM 80,24 when
you're done, or get a little more fancy and record the TERM settings
before you start, and restore them when finished.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bill Haskett
Sent: Thursday, January 19, 2006 10:32 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UD] list output when captured

Thanks Adrian.

With all the things to do, I make it a point to keep all things simple.
:-)

I can still simply execute the AQL query into the captured variable and
parse that...plain and simple.  We're just scrolling output that one
would normally want to view on the screen.  This is a simple, yet
effective solution.  It appears I need to monitor when the total column
width equals the term width and make sure I work around that.

Thanks again.

Bill
 

> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Womack, 
> Adrian
> Sent: Thursday, January 19, 2006 5:05 PM
> To: u2-users@listserver.u2ug.org
> Subject: RE: [U2] [UD] list output when captured
> 
> I haven't been following this thread - but, why don't you just LIST 
> into the &HOLD& file and then get your program to read the results and

> delete the &HOLD& record?
>  
> 
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of Bill Haskett
> Sent: Friday, 20 January 2006 8:15 AM
> To: u2-users@listserver.u2ug.org
> Subject: RE: [U2] [UD] list output when captured
> 
> David:
> 
> Thanks...because I need the heading.  :-)
> 
> A SCROLL program takes the results of a query and simply pages it so 
> the user can move around the report (up, down, all around, and 
> search).  We need the heading passed into the program (assuming one 
> is).
> 
> Bill
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Alternate Indexes

[Pingilley, Ron]

Try SET.INDEX to update the file's header to point to where the I_ file
is on the new W2K box.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Mark Waldron
Sent: Thursday, December 01, 2005 10:23 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Alternate Indexes

Copying from DG/UX to W2k Universe version 10.1.1 using uvbackup and
then restoring under UniAdmin restore function.  Files and programs
doing great.

My problem is I_ Files do not restore (for whatever reason) so my
Alternate indexes are locked so that I can't do a Create.index on a file
that had indexes on the DG. I get a message "Unable to open index map
e:\filename for read/write ".  It will work fine on a file that did not
have previous indexes.  I have a work around by creating an index on
another file then renaming it to the file I need then adding the indexes
to it.  But thought there may be and explanation from the group that
could tell me why and how to make it work correctly.  Wasn't there a way
to edit the position of the indexes or something of that nature?  I
can't remember. I have searched the Help to no help.
Thanks ahead for the assistance.

Mark Waldron
City of Salem, Va
Email  [EMAIL PROTECTED]

---
[This E-mail scanned for viruses by Declude Virus]
---
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] Is there a way to associate "un-associated" multi-value fields on the fly?

[Pingilley, Ron]

Mick,

UniVerse has ASSOC and ASSOC.WITH, look for them in UniData, or
something with a similar name...  Both can be used on-the-fly.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Gahan, Mick
Sent: Monday, November 28, 2005 2:29 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Is there a way to associate "un-associated" multi-value
fields on the fly?

I thought I read somewhere that Unidata allowed a user to associate
"un-associated" multi-value fields on the fly within a LIST or SORT
statement.

However, never having used it - nor being able to find it in any
documentation, I'm wondering if I simply dreamed it up.

This "on the fly" association would allow you to override the contents
of field 7 of a dictionary, much like FMT allows you to override field 5
or CNV allows you to override field 3 of the dictionary.

Does this "on-the-fly" association even exist?  If not, is there a
simple workaround?

This would be for Unidata 6.09 on top of HPUX 11.11.

TIA

Mick



Mick Gahan
Director, MIS
Metropolitan Community College
Omaha, NE
(402) 457-2402
---
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] unsubscribe

[Pingilley, Ron]

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

RE: [U2] Sorting By Price

[Pingilley, Ron]

Slight correction to previous e-mail:

This.HK.PN = Val.Array<2,R.This><<-- I had attr. #'s swapped
here
  This.Ext   = Val.Array<1,R.This><<--
  This.Bin   = Val.Array<3,R.This>   
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Sorting By Price

[Pingilley, Ron]

Bill,

I think you're going to have to transpose your array (swap
columns for rows), or create a stand-alone array to hold just the dollar
amount, in order to make this work.  The thing you're trying to LOCATE
is a 3-value dynamic array itself (1 attribute, 3 values), so it's not a
number, but rather a string.

If you make Val.Array<1> hold the extended amounts, Val.Array<2>
hold the part#'s, and <3> hold the bin locations, then you have all your
dollar amounts in one attribute, and you can LOCATE Extended.F within
that attribute, and then do 3 inserts at the located value position.

Then change your extracts accordingly  See below

--Ron P. 

Loop through part info
   R.Valuation  = Extended.F   : VM
 R.Valuation := Part.Nbr : VM 
 R.Valuation := Bin.Location 

 locate Extended.F   in  Val.Array<1>by 'DR' setting
posn else  null
 insExtended.F   before  Val.Array<1,posn>
 insPart.Nbr   before  Val.Array<2,posn>
 insBin.Location   before  Val.Array<3,posn>
Repeat

*---printing section

 for R.This = 1 to Total.Items

This.HK.PN = Val.Array<1,R.This>
  This.Ext   = Val.Array<2,R.This>
  This.Bin   = Val.Array<3,R.This>   

This.Ext.F = field(This.Ext, '.', 1)  ;* To remove
pennies

Prn.Str  = '  '  
  Prn.Str := This.HK.PN 'L#9'
  Prn.Str := This.Ext.F 'R#11' : '  '
  Prn.Str := This.Bin   'R#6' 

  print Prn.Str
 
  next R.This
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Shell Dispatch Quoting

[Pingilley, Ron]

Don,

Try using single quotes or backslashes around your command:

 SH -c \mpack -s "this is the subject" -d body.file attachement.pdf
emailname\

Works on UniVerse, not sure about UD...

--Ron P.

-Original Message-
From: Don Kibbey
Sent: Wednesday, November 09, 2005 11:16 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] Shell Dispatch Quoting

I'm attempting to make use of a program called "mpack" which requires
some command line arguments to be quoted.  While doing this, I'm getting
some over quoting and things are not worked as they should. 
Is there another character or technique (aside from writing the command
out as a script and executing it that way) which can be used to get
around this?
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Help with BREAK-ON & TOTAL

[Pingilley, Ron]

Peter,

I didn't find any "grand total suppress" keywords available on
our UniVerse system, UD may have one.

But if all else fails, try 

GRAND.TOTAL "'P'"

That will make the grand total blurb print on the next page to
be thrown away.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Peter Gonzalez
Sent: Thursday, May 26, 2005 1:38 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Help with BREAK-ON & TOTAL

Hello,

I need a little help on a statement. I'm working with multiple
currencies dollar amounts in the same file. I'm trying to do the
following.

SORT BY FCURR.CD BREAK-ON FCURR.CD TOTAL INV.AMT

The problem, as you can imagine is that after all currencies are added
and displayed, an additional row displays with ALL currencies added.
This last row has no meaning at all, since they are the sum of all
currencies.  Is there a way to not print that last row?

system is Unidata 6.0 on Unix.
---
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] Integer Conversion Codes

[Pingilley, Ron]

Bill,

"UniVerse/SQL" <-- there's your issue.  SQL is enforcing an
INTEGER data type on the SETUP field.  You'd have to convert that DICT
item to NUMERIC[1] (I think?) in <8> of an I/D-type or <6> of an
A/S-type.  That would define the column as a 1-decimal-place number for
SQL purposes.  If it says "INTEGER" there now, that would be
incompatible with a conversion code of MD1.

Did that UV file get converted into an SQL table?  Or are you
using an SQL query against that file, where you would normally use a
RetrieVe statement?  If "nothing's changed" on your end, it is possible
that UV is now enforcing some SQL constraints that they gave you a pass
on before.

--Ron P

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brutzman, Bill
Sent: Friday, May 06, 2005 9:43 AM
To: 'u2-users@listserver.u2ug.org'
Subject: RE: [U2] Integer Conversion Codes

The problem happens when I try to run a paragraph with an embedded
UniBasic program that uses a data dictionary with an "MD1" in it.

The error is...

UniVerse/SQL: Conversion "MD1" is incompatible with an INTEGER datatype

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

RE: [U2] Run a program in "Silent" mode

[Pingilley, Ron]

Ed,

Try HUSH.  Here's the "help" for it:

HUSH statement   
 
_
 
 
SYNTAX   
 
  HUSH {ON | OFF | expression} [SETTING status]  
 
 
DESCRIPTION  
 
Use the HUSH statement to suppress the display of  all  output
normally  sent  to  a  terminal  during  processing. HUSH also
suppresses output to a COMO file or TANDEM display.   
 
SETTING status sets the value of a variable to  the  value  of
the  HUSH state before the HUSH statement was executed. It can
be used instead of the STATUS function to save  the  state  so
that  it can be restored later. STATUS has a value of 1 if the
previous state was HUSH ON or a value of  0  if  the  previous
state was HUSH OFF. 

--Ron P.  

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Burwell, Edward
Sent: Wednesday, April 27, 2005 12:22 PM
To: 'u2-users@listserver.u2ug.org'
Subject: [U2] Run a program in "Silent" mode

Hello,

Is there a simple UniBasic command (kinda like ECHO OFF) that would
cause all PRINT @(x,y) statements to be suppressed?


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

RE: [U2] Clarification on FOR...NEXT loops

[Pingilley, Ron]

Jeff,

UV/UD do not keep track of which multi-value was last accessed.
Only the attribute.  Each iteration of the For-Next had to start
counting from the beginning of attribute 1 according to your notes
below.  If you re-run your test with FOR/NEXT/ (instead of <1,I>) you
should see a significant improvement in the For-Next time.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Saturday, April 16, 2005 9:53 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] Clarification on FOR...NEXT loops

Taking advice from others on this list, I wrote a small program to
compare the execution time of extracting 1 elements from an MV list
using FOR/NEXT loop with <1,I> delimiters verus using LOOP/WHILE with
REMOVE.  I should note this was done on Unidata 6.0.3.

All the previous comments are still valid - the LOOP/WHILE with REMOVE
beats a FOR/NEXT loop dramatically.  That is, on an MV list with 1
elements, FOR/NEXT took about 6500 milliseconds while LOOP/WHILE took 15
milliseconds (that's not a typo).

I ran the test 10+ times, I reversed the order of the tests and the
result was the same every time.

So if you need to loop over all elements in an MV list, the
LOOP/WHILE/REMOVE structure seems inherently more efficient than the
FOR/NEXT/<1,I> notation.

Jeff Butera, Ph.D.
Administrative Systems
Hampshire College
[EMAIL PROTECTED]
413-559-5556

"...our behavior matters more than the beliefs that we profess."
Elizabeth Deutsch Earle
---
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] Complicated Select

[Pingilley, Ron]

John,

Does the RECORD_A field in FILE_A contain item-id's from FILE_B?
A "foreign key" into FILE_B in SQL parlance?

I'm on UV, so sorry if this doesn't work for UD

SELECT FILE_A WITH NOT EACH RECORD_A "AA""BB""CC" AND WITH A_IN_B

Where the Dictionary item A_IN_B would look like this if single
valued:

 A_IN_B
0001 I
0002 TRANS("FILE_B",RECORD_A,0,"X")
0003 
0004 FILE_B key
0005 L
0006 10
0007 S

If it's multi-valued, you'd have to write a cataloged subroutine
and make line 2 of the DICT item a SUBR call.

This statement would then exclude any FILE_A records if they had
AA, BB, or CC in the RECORD_A field (works for both single and
multi-valued fields), and if the A_IN_B dict item found that the foreign
key in the RECORD_A field existed in FILE_B.

Play with it and see what you get

--Ron P.

>-Original Message-
>From: Aherne, John
>
>Hi all,
>   I want to do a complicated select statement in UD. 
>Basically, I have a list of items "AA", "BB", "CC". I want to do a 
>select along these
>lines:
>
>SELECT FILE_A WITH RECORD_A IN (SELECT FILE_B WITH NO @ID = "AA" "BB"
>"CC")
>
>RECORD_A is MV
>
>
>Is there a way to do this in UD?
>
>TIA,
>John Aherne
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Weird looking record

[Pingilley, Ron]

Does "import" in field 16 mean this record was imported from some other
DB?  Mayhap that field got some funky characters in it (like a
left-arrow, or backspace) on that other system, and was not cleaned up
during import to your U2 system.

Turn on up-arrow mode in ED, and then look at attribute 14 again.  That
will show you the decimal values of any non-printable characters.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Shawn Waldie
Sent: Thursday, March 31, 2005 1:00 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Weird looking record

Notice field #14 below.  What would cause it to display like that?

AE PERSON 177

Top of "177" in "PERSON", 141 lines, 393 characters.

*--: P

001:
002:
003:
004:
005:
006: 162
007:

008:
009:
010:
011:
012: F
013:
//4:
015:
016: import
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Include Equate record Errors Compiler

[Pingilley, Ron]

The compiler is a C-routine, right?  Maybe if the text editor doesn't
get the right end-of-file character in there, then the compiler never
sees the end-of-string \0 character in the C string array, so it just
keeps parsing in the next character off into the never-ending ether
At least until it creates some sort of memory addressing error

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Monday, March 14, 2005 12:30 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Include Equate record Errors Compiler

Adrian ..

thanks .. i have gone through the equates and put a blank line on them
.. it appears to be ok now.

Not sure why this should ever happen .. even to the point of hanging the
seesion during the compile BUT as long as I know.

thanks again

DSig
David Tod Sigafoos
SigsSolutions, Inc.


>  Original Message 
> Subject: RE: [U2] Include Equate record Errors Compiler
> From: "Adrian Matthews" <[EMAIL PROTECTED]>
> Date: Mon, March 14, 2005 9:32 am
> To: 
> 
> Make sure that the record SQL_DEFAULT_CONNECTION_INFO_INCLUDE.MV (or 
> whatever the last include in your program is) has a correct 
> end-of-marker.
> 
> Editing and putting a blank line on the end will do it.
> 
> Might not be your problem but I've had this several times in the past 
> and the description you give fits exactly.
> 
> -Original Message-
> From: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] On Behalf Of 
> [EMAIL PROTECTED]
> Sent: 14 March 2005 16:25
> To: U2 Users List
> Subject: [U2] Include Equate record Errors Compiler
> 
> Okay .. this one has got me ..
> 
> The program below will not compile.  It compiler responds with ..
> 
> *--
> 01 basic DAVES.BP DEMO.MV

>
> Compiling: Source = 'DAVES.BP/DEMO.MV', Object = 'DAVES.BP.O/DEMO.MV'

> **
> **
> ?
>   
> 49if not(assigned(odbcName)) then odbcName = ''

>  ^

>
> End of Line unexpected, Was expecting: '!', '=', "AND", "OR", "LT",
> "LE",   
> "GT", "GE", "NE", "EQ", "MATCH", "ELSE"

>
>

>
> 1 Errors detected, No Object Code Produced. 
> *--
> 
> In the program you will see 2 equates .. 
> 
> $INCLUDE DAVES.BP SQL_ERRORS_EQUATES.MV $include DAVES.BP 
> SQL_DEFAULT_CONNECTION_INFO_INCLUDE.MV
> 
> If these two equates are commented out and their associated lines 
> (immediently below them) are uncommented .. it works.  Note that the 
> ODBC.H include works.  Also the SQL_COMMON_INCLUDE is ok (simple label

> common  common /sql_common/
> comBaseEnv,comConnEnv,comSqlEnv,comErrorCheckEnv)
> 
> Once again .. if either of these two equates are 'included' the 
> program fails compile.
> 
> I really cant see what could be causing this.  The 'equ' below the 
> includes are cut and paste of the include files
> 
> Anyone see what could be going on here?
> 
> **
> **
> ***
> function SQL_INITENV(odbcName, odbcUser, odbcPass)
> *
> $INCLUDE DAVES.BP SQL_COMMON_INCLUDE
> 
> EQU TRUE$ to 1
> EQU FALSE$ to 0
> EQU NULL$ to ''
> 
> * UNIVERSES INCLUDE FOR DEALING WITH ODBC
> $INCLUDE UNIVERSE.INCLUDE ODBC.H
> 
> * LOCAL INCLUDES .. 
> $INCLUDE DAVES.BP SQL_ERRORS_EQUATES.MV
> **
> **Errors returned from the function (sql_write, sql_Read etc) will
> return
> **with MV list of errors.  mv1 will contain one of these codes
> **
> **NOTE: return will be NULL if ok .. else .. 
> **
> *EQU CONNECTION_ERROR$ TO -99
> *EQU UNABLE_TO_BIND_PARAMETERS$ TO -98 *EQU UNABLE_TO_BIND_COLUMNS$ TO

> -97 *EQU UNABLE_TO_PREPARE$ TO -96 *EQU UNABLE_TO_READ$ TO -95 *EQU 
> UNABLE_TO_WRITE$ TO -94 *EQU UNABLE_TO_FETCH$ TO -93 *EQU 
> UNABLE_TO_FREE_ENV$ TO -92 *EQU INVALID_PARAMETER_PASSED$ TO -91 *EQU 
> CRITICAL_ERROR_CHECK$ TO -90
> 
> 
> $include DAVES.BP SQL_DEFAULT_CONNECTION_INFO_INCLUDE.MV
> **
> **abstract:   Simply holds the default login connection through
> **odbc.
> **
> **author: dsig (David Tod Sigafoos)
> **date:   03mar05
> **
> **
> *DEFAULTODBCNAME$ = 'FOOBAR'
> *DEFAULTODBCUSER$ = 'FOOBAR'
> *DEFAULTODBCPASS$ = 'FOOBAR'
> 
> 
> * make sure it is assigned something ..
> if not(assigned(odbcName)) then odbcName = NULL$ if 
> not(assigned(odbcUser)) then odbcUser = NULL$ if 
> not(assigned(odbcPass)) then odbcPass = NULL$
> 
> * set to default if necessary (see
> SQL_DEFAULT_CONNECTION_INFO_INCLUDE)
> if odbcName = NULL$ then odbcName = DEFAULTODBCNAME$ if odbcUser = 
> NULL$ then odbcUser = DEFAULTODBCUSER$ if odbcPass = NULL$ then 
> odbcPass = DEFAULTODBCPASS$
> 
> 
> initErrors = NULL$
> *
> *
> return (initErrors)
> 
> 
> 
> 
> 
> 
> 
> 
> 
> 
> DSig
> David Tod Sigafoos
> SigsSolutions, Inc.
> ---
> u2-users mailing list
> u2-users@listserver.u2ug.org
> To unsubscribe please visit 

RE: [U2] Unique Ids

[Pingilley, Ron]

 David,

If you added a new part to an existing distributed file, and the
new part already had records in it, you could potentially have records
in this new part whose item-id should be in another part based on the
partitioning algorithm.  Then you could create that item-id in the
proper part (or maybe it already exists there, too!).  Now you have 2
records with the exact same item-id, in 2 different parts of the
distributed file.  If you ED or READ, you'd get the record that was in
the proper part.  But if you LIST/SORT you could get both records
selected and on a report.

Good catch, Jerry!

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Tuesday, March 08, 2005 4:14 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Unique Ids

How would you 'create' the part file to begin with having a non-unique
key.

If you are talking about say .. a csv file that is imported .. the csv
could have duplicate keys .. but i bet after the import the 'mv' table
will not have any duplicate keys.  

DSig
David Tod Sigafoos
SigsSolutions, Inc.


> 
> Now you could have a situation where you brought a part file online 
> that had a duplicate key.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] Getting CR instead of @ at colon prompt

[Pingilley, Ron]

Or leaving off the quotes? 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Kevin King
Sent: Friday, March 04, 2005 5:17 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] Getting CR instead of @ at colon prompt

You might try pressing Ctrl-X instead of typing "^X". 

Kevin King wrote:
> You might also try (to fix):
> PTERM -KILL "^X" 
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UV] making 00001 our of 1 - THANKS AND SORRY

[Pingilley, Ron]

Folks,

"  refer to themselves in the third person (ie. "the
brain").  Or... Did I misunderstand yet another e-mail.  Haha JK "

Did ya notice the "Haha JK" (as in just kidding)?  He was
intentionally "misunderstanding" so as to be funny.

--Ron P.

P.S.  an End-of-thread is probably in order :)

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Marilyn Hilb
Sent: Thursday, March 03, 2005 12:20 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] making 1 our of 1 - THANKS AND SORRY

I don't think he was referring to himself. He was just stating what the
research on this issue determined.. referring to the brain as simply the
human brain. Not his in particular. :). 

Thanks,

Marilyn A. Hilb
Value Part, Inc
Direct: 847-918-6099
Fax: 847-367-1892
[EMAIL PROTECTED]
www.valuepart.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UV] making 00001 our of 1

[Pingilley, Ron]

I've seen:

("0":VARNAME)[5]  on UniVerse to do that.  Ugly, but works.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Wednesday, March 02, 2005 3:30 PM
To: u2-Users
Subject: [U2] [UV] making 1 our of 1

Hi all,

I have a need to search through our program files for any code that
format a number from 1 through 9 with leading 0's.
I have always used "R%5" but I may miss programs that use other
techniques to arrive at the same result.  Can someone give me examples
that they have seen for changing 1 to 1?

Thanks much,

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] Using an I descriptor in a UniBasic program

[Pingilley, Ron]

Bill,

Welcome to the U2 family!

Let me make sure I understand what you're trying to do.  Are you
trying to read a "virtual column"  worth of data out of a file in one
shot, a la SQL?  Or are you wanting to get a hold of the actual
I-descriptor itself?

Maybe if you flesh out what you're trying to do, with some
examples, it would help us help you!

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Bill Stinocher
Sent: Tuesday, March 01, 2005 4:19 PM
To: [EMAIL PROTECTED]
Subject: [U2] Using an I descriptor in a UniBasic program

Hello all. Being new to UniData, I hope that maybe someone can help me.
How do you read an I descriptor in a UniBasic program? The IBM manual
gives me a hint (looking at the CALCULATE command), but the example
given uses a select on the entire file. I am looking for a way to read
the actual data and the I descriptor within a loop without using a
select. I'm familiar with opening, reading, updating, etc. the data
portion of a file, but not the dictionary.

Can anybody point me in the right direction?

Thanks
---
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] EVAL keyword -- was: uv pe

[Pingilley, Ron]

John,

 Per the Unidata 6.1 manual on the IBM web site:

EVAL

Syntax

EVAL "expression"

Description
---
The UniQuery EVAL keyword allows you to define a virtual attribute
expression for the current execution of a UniQuery statement only.
expression can be any expression valid in a virtual attribute. You must
enclose expression in single or double quotation marks.

Note: UniQuery only supports the EVAL keyword in ECLTYPE U.

--

You could do something like this (at least in UniVerse :)

SELECT blah WITH EVAL "UPCASE(@RECORD)" LIKE
"...HELLO..."

That would create an on-the-fly virtual field for the
comparison.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Aherne, John
Sent: Thursday, February 17, 2005 6:29 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] uv pe


 converts criteria into caps for comparison. E.g.
SELECT blah WITH UPCASE(x) LIKE "...HELLO..."

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

RE: [U2] Printing different

[Pingilley, Ron]

Harold,

You can include PCL escape codes directly in the print stream.

PRINT "This will be in the normal font.  ":
PRINT CHAR(27): codes-for-font-and-pitch:
PRINT "This will be in BIG letters"
PRINT CHAR(27): back-to-regular-size:
PRINT "And back to normal..."

Take a look at an HP PCL manual, or a web site like
http://www.nefec.org/UPM/ccPCLfrm.htm to get the exact escape sequences
you're looking for...

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Oaks, Harold
Sent: Friday, February 11, 2005 2:12 PM
To: u2-users@listserver.u2ug.org
Subject: [U2] Printing different

Does anyone know if there is an 'easy' way to create a print file, sent
to a standard HP laser priner, and get the printer to print various
fonts and sizes when desired.  What I really would like is to have the
output be normal size, then include very large letters when desired in,
say, Arial font size 24, then revert back. Obviously Word etc. can send
some string to the printer from which it understands to print the next
characters in the desired font and size.  Is there some string
"Esc-something-something-something..." which I can embed in the file
which will make this happen?  I am running under pi/open.  

Thanks-

Harold D. Oaks
Sr. Analyst/Programmer
Office of the Budget and Information Systems Clark County, Washington
ph: (360) 397-6121 x4132
fax: (360) 397-2342
---
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] GE and LE question

[Pingilley, Ron]

Brenda,

UV did a left-justified string comparison because one element
was non-numeric:

"1" < "1X" < "40"

Had SEL been a numeric, the comparison probably would have
stayed right-justified and given the results you expected.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brenda Price
Sent: Friday, February 11, 2005 12:00 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] GE and LE question


I just have a hard time visualizing why 1X is GE than 1 and LE 40 (from
the program I tracked the error to).  We are assuming it has something
to do with Scientific notation.

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

RE: [U2] GE and LE question

[Pingilley, Ron]

Brenda,

Suggestion:  put 

IF NOT(NUM(SEL)) OR SEL="" THEN . 

Before your CASE block.  That should trap any "interesting" user
input before you get to the comparisons.

--Ron P. 

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of Brenda Price
Sent: Friday, February 11, 2005 9:25 AM
To: U2-Users (E-mail)
Subject: [U2] GE and LE question

We have several programs that have been writing non-numeric when numeric
required errors to the system log.  The user inputs the value for each
program.

INPUT SEL
BEGIN CASE
 CASE SEL GE 1 AND LE MX.VALS ; * passes this line
  VAL1 = RECORD ; * line that gets the error.

I've found out what is causing the error.  The users have been inputting
a number plus "X".  While testing my fix, I entered 2Q that also past
the GE and LE test but errored at the VAL1 line.

Brenda
---
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] Unidata core dumps

[Pingilley, Ron]

I used to experience lots of core dumps on UV 8 and 9 (DG/ux) when running TCL 
selects/sorts that had I-descriptors.  I think it was someone on this list that 
suggested we look to see if the I-desc's had COMMON blocks in them.  Sure 
enough, they did.  We removed the COMMON blocks, recompiled the I-descriptors, 
and had no further problems.

Not sure if UD, or UV10 for that matter, have that glitch, but it might be 
worth a look...

--Ron P.

-Original Message-

At 11:08 AM 02/03/05, you wrote:
>Is anyone experiencing sporadic core dumps and have any suggestions to
>eliminate them?
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UV] Transaction Compile Failure

[Pingilley, Ron]

Perry,

You probably won't be able to have multiple END TRANSACTION statements. 
 One BEGIN TRANSACTION where you have it, and one END TRANSACTION at the bottom 
of the LOOP structure, should suffice.

Then just put a ROLLBACK and CONTINUE within each IF-, READ-, and 
WRITE-THEN-ELSE error trap.

It looks like the compiler treats the BEGIN TRANSACTION-->END 
TRANSACTION like it does BEGIN CASE-->END CASE as far as imposing a top-down 
coding structure.  It's not like a PRINTER ON/OFF toggle that you can set at 
will, as if it were TRANSACTION ON/OFF.  But you are right that it does force 
you to code the TRANSACTION in a specific top-down style.  Makes it tricky to 
add transaction processing to old code :)

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Perry Taylor
Sent: Tuesday, February 01, 2005 12:54 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV] Transaction Compile Failure


Logically there *is* an END TRANSACTION at two places.  One at the
bottom of the loop..

COMMIT
END TRANSACTION

And the other at the top of the loop...

IF @TRANSACTION THEN
ROLLBACK
END TRANSACTION
END

This being the case it would seem to me that the compiler cannot deal
with a transaction not being in purely straight-line code.  The only
alternative I see at this point is to put an explicit ROLLBACK / END
TRANSACTION at every point along the loop where I would need to bail out
of the transaction.  Seems to reduce the usefulness of @TRANSACTION and
structured programming.  

Any other suggestion?

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

RE: [U2] BREAK-ON help

[Pingilley, Ron]

Peter,

Try adding:

GRAND.TOTAL "'P'"

to your statement.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Peter Gonzalez
Sent: Monday, January 31, 2005 11:26 AM
To: u2-users@listserver.u2ug.org
Subject: [U2] BREAK-ON help


Hello group,
I need to assistance of this group again.  I'm working with an Unidata Proc 
(and yes, i know rewriting it in Unibasic will solve my problems) and need 
help with the BREAK-ON.  I'm using the BREAK-ON "'P'" to force a carriage 
return whenever the data changes.  That is working fine.   The problem I 
have is that the last BREA-ON and the totals are printing on the last 
page.   Is there a way to carriage return and then print the grand totals?



Peter Gonzalez
Senior Programmer Analyst
M & M Aerospace Hardware, Inc., a B/E Aerospace Company
1 NW 15 Terrace
Miami, Florida 33172
Phone: 305.925.2714
Fax: 305.925.2610
www.mmaero.com
---
u2-users mailing list
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] K = K

[Pingilley, Ron]

UniVerse also provides something they call "field level caching", which behaves 
very much like REMOVE, but happens automatically when you do an extract on a 
dynamic array.

This code snippet:

FOR I = 1 TO MAX.ATTR
   CRT DYN.ARRAY
NEXT I

runs a ton faster today with field level caching than it used to without it.  
As long as you are moving toward the end of the dynamic array, UV will keep 
track of the last attribute you accessed, and start counting from there, rather 
than starting over at position 1 each time.  If you reference a lower number 
attribute it has to start counting at position 1 of the string.  If you assign 
the variable (e.g.. K = K), then it resets the counter altogether.

Any time you can run through a dynamic array from front to end, rather then 
hopping around within it, you can REALLY speed up execution.

--Ron P.


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Martin Phillips
Sent: Wednesday, January 19, 2005 2:13 PM
To: u2-users@listserver.u2ug.org
Subject: Re: [U2] K = K


> I frequently see this type of line K = K in the code I work on and never
understood why.

This is almost certainly associated with use of REMOVE.

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

RE: [U2] [UV]Strange But True

[Pingilley, Ron]

One BIG caveat on that one:  MATCHES expects the 2nd operand to be a pattern 
matching string.  If the contents of VAL2 are a valid pattern matching 
expression, it will be treated as such, not as just any old string.  For 
example:

 RPTEST
0001 CRT TIMEDATE()
0002 VAL1 = "1234567"
0003 VAL2 = "0X"
0004 VAL3 = "ABCDE"
0005 *
0006 IF (VAL1 MATCHES VAL2) THEN CRT "VAL1 --> VAL2"
0007 IF (VAL3 MATCHES VAL2) THEN CRT "VAL3 --> VAL2"
>
>RPTEST
16:55:38 13 JAN 2005
VAL1 --> VAL2
VAL3 --> VAL2
>

The string 0X (zero + 'X') means match any number of any sort of character 
(alpha, num, etc.).

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Rex Gozar
Sent: Thursday, January 13, 2005 4:18 PM
To: u2-users@listserver.u2ug.org
Subject: RE: [U2] [UV]Strange But True


FYI - MATCH does a string comparison too.  e.g.

   VAL1 = "43008E-112" 
   VAL2 = "43008E-108" 
   IF (VAL1 MATCHES VAL2) THEN
  CRT "THIS IS STRANGE"
   END

does not print the message either.
---
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] Header Trick Needed

[Pingilley, Ron]

Bill,

You can use the backslash (\) as a delimiter within BASIC:

execute \SORT SALES.ANALYSIS BY CUST  HEADING " 'Year-To-Date Sales 
':This.Date.F "  \

note the backslashes surround the entire command to be "executed".

Or you could build the command in a variable, piece by piece, then 
EXECUTE TCL.CMD

--Ron P.
  
original e-mail

  execute "SORT SALES.ANALYSIS BY CUSTHEADING " 'Year-To-Date Sales ' :
This.Date.F " "

Perhaps more than the two standard quote chararacters, ['] and ["] are
available.
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] How to "exit" out mulitple loops?

[Pingilley, Ron]

>>>Any other ideas?

>>>George

If you don't mind the additional overhead of a GOSUB, you could modularize the 
code as such:

.
.
.
FOR T=1 TO 10
   GOSUB INNER.LOOP
NEXT T
.
.
.

INNER.LOOP:  * two additional loops
FOR Q=1 TO 6
FOR X=1 TO 9
 IF CONDITION THEN RETURN
NEXT X
NEXT Q

* normal termination of for-next's
RETURN
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] How to set 'delete' key action in UniVerse

[Pingilley, Ron]

Peter,

Make sure your emulator is sending the same ASCII sequence your term 
type is expecting.  Even if you change your terminfo's, and use TERM/PTERM/etc. 
to use ASCII 8 (backspace), your emulator may still be sending DEL (which often 
shows up as ^? when it's not interpreted and trapped by UV as the "backspace" 
key).  See if your emulator allows you to set what ASCII sequence it sends when 
you hit the backspace key on your PC keyboard

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of
[EMAIL PROTECTED]
Sent: Tuesday, November 30, 2004 9:34 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] How to set 'delete' key action in UniVerse


Peter,

> 
> Hola -
> 
> I've got a request from my programmer to set the delete key 
> to act as the backspace key does inside UniVerse 

Check out the TERM command.
TERM ,nn where nn is the ASCII number of the key to use for back
space.

E.g. 

TERM ,65 will make a capital A act as back space.

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

RE: [U2] broken up SELECTS

[Pingilley, Ron]

The UV keyword REQUIRE.SELECT makes this a possibility.  On the Mentor and 
Ultimate systems I cut my teeth on, if the 1st select returned zero records, 
then the second select would select against the entire file.  Once I moved to 
UV, and learned about REQUIRE.SELECT, then breaking out SELECT statements made 
more sense.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Adrian Matthews
Sent: Thursday, November 11, 2004 9:27 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] broken up SELECTS


It's something I've always done over the last twenty years. The select
processor in theory should apply optimisiation but I always break my
statements down to reduce the working record set and to increase readability.

Makes very little difference on smaller amount of records but makes a huge
difference when record counts get into the millions, especially on distributed
files or selects which work on a mixture of non-indexed and indexed fields.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UD] Files from UD Unix to UD Windows

[Pingilley, Ron]

Bruce,

Did you try an ascii transfer?  That probably won't work on a hashed UD file.  
Try a binary ftp.  UV has a tool called format.conv for byte-swapping.  Not sure what 
UD calls it.  You may have to use that tool on the file after it's transferred over.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] On Behalf Of
[EMAIL PROTECTED]
Sent: Wednesday, November 03, 2004 12:26 PM
To: [EMAIL PROTECTED]
Subject: [U2] [UD] Files from UD Unix to UD Windows


Is there a way to use files ftp'ed from UD on UNIX to UD on Windows XP?

I'm not going to bore you with why other than I want to know if I can do

it.   I ftp the file, set up the voc pointer and I get the message "File

D_FILE.837 does not belong to current language group" 

Any ideas?

Bruce M Neylon
Health Care Management Group 
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

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

[Pingilley, Ron]

Wendy,

We're on UV 10.1.2, on AIX.  We have the READU..LOCKED..THEN..ELSE logic in 
MANY of our programs:

READU dyn.arr FROM F.FILE1,rec.id LOCKED
   ***handle the locked condition
END THEN
   * do the update
END ELSE
   * type in the right item-id, dude!
END

If you have an example of one that's not compiling right, post the code for us 
to examine.  This logic worked on UV 9.6 as well...

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Wendy Smoak
Sent: Friday, October 29, 2004 4:08 PM
To: [EMAIL PROTECTED]
Subject: [U2] READU ... THEN _or_ ELSE but not both?


>From the documentation:

READU dyn.array.var FROM [file.var,] record.ID.expr [LOCKED statements]
[ON ERROR statements] {THEN statements [END] | ELSE statements [END]}

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...) 

At the moment I think I need both. :/ And I need to do the same thing in
either case, so I ended up with:

READU R.XBWU FROM F.XBWU, X.ONE.ID LOCKED
   CRT 'XBWU RECORD IS LOCKED, IGNORE IT'
END THEN
   X.LOCKED = '1'
END ;*END READU

IF X.LOCKED = '1' THEN
   CRT 'OBTAINED LOCK ON XBWU RECORD'
   R.XBWU = X.ASURITE
   WRITE R.XBWU TO F.XBWU, X.ONE.ID ON ERROR
  IF STATUS() = 10 THEN 
 ;* Either the ASURITE or USER.ID is duplicated
 X.ERROR = X.DUPLICATE.ON.WRITE
  END ;* IF STATUS
   END ;* END WRITE
END ;* IF X.LOCKED

Suggestions for improvement are welcome!

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

RE: [U2] $<50>

[Pingilley, Ron]

I've seen this sort of thing a lot when emulators don't emulate the original 
*exactly*.  We used to get $<20> after a @(-1) in ProComm Plus doing a Wy50 emulation. 
 When we looked in the terminfo library, sure enough, there was the clear-screen 
escape sequence followed by "$<20>".  An actual Wy50 green-screen processed that extra 
text, and didn't display it.  The ProComm Plus emulation just spat the "$<20>" out to 
the screen.

After modifying the source, and doing the tic and uvtic to compile it, the $<20> went 
away.

Had to do some mods to the vt100 terminfo source on our new AIX box.  Our emulator 
(Reflection) had trouble with the keypad, arrow keys, and a few other things.  Our dba 
did the mods, put them in a new terminal type, did the uvtic stuff, and now it works 
like a champ!

So try copying & pasting a new term-type into the terminfo source, getting rid of the 
extra text that's showing up in your emulator, and doing the tic & uvtic.  Then use 
TERM or SET.TERM.TYPE to select that new one, and see if you get the behavior you want 
without the offending $<20>

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Ray Wurlod
Sent: Thursday, October 28, 2004 3:58 PM
To: [EMAIL PROTECTED]
Subject: [U2] $<50>


UniVerse does not use termcap, it uses a pair of terminfo databases - the UNIX one and 
another one, in the UV home account, primarily to support the @() function.
When these tokens appear, it means that somehow the terminal definition has not been 
able to be retrieved (perhaps because the TERM environment variable could not be 
evaluated).
The first thing to try is to set the terminal type, for example using the 
SET.TERM.TYPE command.
If the symptom persists, a UV administrator can recompile the terminfo databases.  In 
the UV home directory there is a sample terminfo database source file.  Use uvtic -a < 
sample/terminfo.src to recompile.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UD] running a subroutine

[Pingilley, Ron]

Mark,

How about allowing 2 usage forms:

PRINT ; stmts {; morestmts}

-or-

PRINT

If no "stmts" are supplied at the command line, then LOOP for input, building 
a dynamic array, then write that out as the temporary program.  That would allow you 
to build something more complex on-the-fly, if a one-liner didn't fit the bill.

--Ron P.


-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Mark Johnson
Sent: Wednesday, October 20, 2004 7:54 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] [UD] running a subroutine


Biased as I may be, but my PRINT example program will handle any of this and
much, much more instead of writing (and forgetting about) miscellaneous
procs and other small, limited use programs. It will give you more.

A problem with sending stuff to a proc is knowing how many parameters are
necessary as they all get slotted in A1, A2, A3 etc. If the values in the
subroutine contain (or allow) spaces, then this proc is useless. Plus, you
would have to test for n number of parameters before closing the
parenthesis.

Clearly typing this at tcl is better:

PRINT ; CALL SUBNAME(VAL1, VAL2, VAL3)

Later in the day you could type:

PRINT ; CALL ANOTHERSUB(VAL1, VAL2, VAL3, VAL4, VAL5, X) ; PRINT X

and not have to write another proc.

In fact, I welcome any criticisms or limitations anyone would have against
establishing this PRINT command to handle everything. I know of 2 limits: 1)
No hanging ELSE or THENs. 2) Cannot use READNEXT. Other than that I'm all
ears.

My 3 cents.

- Original Message -
From: "Peter Olson" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Tuesday, October 19, 2004 8:43 AM
Subject: RE: [U2] [UD] running a subroutine


> "but i want more!"
>
> found it!
>
> 0001: PQ
> 0002: HSELECT
> 0003: H EVAL "SUBR('
> 0004: A\2
> 0005: H',
> 0006: A3
> 0007: H )" FROM VOC FIRST 1;
> 0008: P
>
> now it's
>
> tcl>TS AGE.DATE -2224,42
>
> Cool thanks!
>
>
> This e-mail, including attachments, may include confidential and/or
> proprietary information, and may be used only by the person or entity to
> which it is addressed. If the reader of this e-mail is not the intended
> recipient or his or her authorized agent, the reader is hereby notified
> that any dissemination, distribution or copying of this e-mail is
> prohibited. If you have received this e-mail in error, please notify the
> sender by replying to this message and delete this e-mail immediately.
> ---
> u2-users mailing list
> [EMAIL PROTECTED]
> To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] UniVerse File Types

[Pingilley, Ron]

David,

A type-1 directory file splits item-id's at 14 characters, which I believe was 
based on the old Unix file name limit.  If a record's ID is longer than 13 characters, 
a new subdirectory is created to contain the "rest" of the name.  If the "rest" of the 
name is also longer than 13 characters, yet another subdirectory is created.

The TCL command UNIX.PATH simulates this:

>UNIX.PATH 123456789012345678901234567890
12345678901234/56789012345678/90

So if you said ED TYPE1FILE 123456789012345678901234567890 and filed that 
item, the body of the record would reside at:

/.../TYPE1FILE/12345678901234/56789012345678/90

If you had typed ED TYPE1FILE 12345678901234 you would get:

/.../TYPE1FILE/12345678901234/?

Which is a real PAIN to deal with at the Unix level, since "?" is a special 
character.

I MUCH prefer type-19 files, which don't do any subdirectory stuff.  As long 
as your underlying OS can handle the item-id, you're good to go...

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of David Wolverton
Sent: Thursday, October 14, 2004 3:59 PM
To: [EMAIL PROTECTED]
Subject: [U2] UniVerse File Types


This question has been posed before, but when I do a search on 'FILE TYPE'
in my U2 email folder, and get 1700 hits. Yikes!  So here it is, probably
again...

What is the difference in TYPE 1 and TYPE 19 files?

And where can I find this documented?  I just downloaded the current
UniVerse docs, and only the CREATE.FILE command seems to talk about it, but
not what the implications are of the types.

I find 'File Types' defined, but again, it doesn't tell me what the choices
of "2 - 18" involve, or why one is better/worse/different. As well, I know 1
and 19 are diretory, but why are there two of them?  I know it must be based
on the key structure, but WHERE do I find those defintions?
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] gvim on UD

[Pingilley, Ron]

Shawn,

I just started using gVim last week, UV 10.1 on AIX.  I have the Windows 
client side stuff loaded & running on my PC, and use FTP to get the source code and 
write it back to the UV server.  Nothing running on the UV side.

I do a :edit ftp://server/path/program.name to get the code, and :w or ZZ to 
write it back, and it all works quite well.  When I first started, I used :Nread  
to get the source code, which introduced a blank line at the top of the file.  If 
that's what you are experiencing, try using :edit instead of :Nread.

How do you have your gVim set up?

--Ron P.

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Shawn Waldie
Sent: Thursday, October 07, 2004 2:23 PM
To: [EMAIL PROTECTED]
Subject: [U2] gvim on UD


I modified a program using gvim (for the first time) this morning, but
the compiler returns several errors, the first of which is due to a line
with nothing but a CR.  I obviously need to tweak something.  Has anyone
out here encountered this?


* Shawn WaldieSan Juan College *
* Programmer/Analyst 4601 College Blvd *
* Phone: (505)566-3072   Farmington, NM  87402 *
*  email: [EMAIL PROTECTED]   *
*  *
* HP-UX 11.11   UniData 6.0.4Colleague R17 *

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

RE: [U2] Numeric rounding - UV 9.4 & 10.1

[Pingilley, Ron]

Mark,

I'm on UV 10.1.2.

The 1st value for Y didn't change after uncommenting the 2nd set
of statements.  It came back 1235 both times.  What did you observe, and
did you run this on UV 10.1.0?

--Ron Pingilley

-Original Message-
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Daly, Mark
Sent: Monday, September 20, 2004 9:25 AM
To: '[EMAIL PROTECTED]'
Subject: RE: [U2] Numeric rounding - UV 9.4 & 10.1


Quick follow up:  One of the guys discovered this:

Run the following pgm, then uncomment out the last 2 lines and run it
again.
Watch what happens to the first value for Y
 

X = 1234.78
Y = X "0"
CRT X
CRT Y
  
* Y = X"R#0"
* CRT Y


 

-Original Message-
From: Daly, Mark 
Sent: Monday, September 20, 2004 9:28 AM
To: '[EMAIL PROTECTED]'
Subject: [U2] Numeric rounding - UV 9.4 & 10.1

I have a habbit of using the following syntax to round numbers to a
certain
number of decimal places:

X = 1.623
CRT X '2'
CRT X '0'

Yields:

1.62
2

It's always worked fine. Until we did an upgrade to 10.1. Now it has
been
deemed un-reliable because it produced an undesirable result (an empty
string) in a rather sensitive program.

So, first question is:  Is this a bad habbit I've had all these years?

Second question:  Has anyone else experienced a problem with this method
of
rounding? Is it a known bug?
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UV] How to return 'column' from dyn array?

[Pingilley, Ron]

Allen,

From what I've seen in UV literature, they tend to officially call
CHAR(253) @FM for "field mark", but use @AM "attribute mark" for
compatibility with other PICK-like implementations.

--Ron P.

-Original Message-
From: Allen E. Elwood (CA) [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 19, 2004 4:28 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2] [UV] How to return 'column' from dyn array?


All the documentation I've seen before refers to TM, SVM, VM and AM.  I've
never seen FM before except on the radio.:)  Is this the Universe method of
notation?  I've only worked with native pick and U2.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] EVAL formatting

[Pingilley, Ron]

Kevin,

Tried this on my UV system, and it works just fine:

LIST INVOICE 16 17 WITH 16 > "0.00" AND WITH 17 > 16 EVAL "(@RECORD<16> /
@RECORD<17>) * "1""   CONV "MD2" FMT "14R" COL.HDG "Tax % of Gross"
05:28:17pm  16 Aug 2004  PAGE1
INVOICE... Tax Amount Net Invoice... Tax % of Gross

394407  30.19 555.19   5.44
788813   5.17  91.35   5.66
788814   7.33 101.85   7.20
788815   5.82  80.88   7.20

The values stored in attributes 16 and 17 are scalar integers with
virtual decimals, so had to do the * "1" to make the decimals come out
right

--Ron P.

-Original Message-
From: Kevin Michaelsen [mailto:[EMAIL PROTECTED]
Sent: Monday, August 16, 2004 4:02 PM
To: [EMAIL PROTECTED]
Subject: [U2] EVAL formatting


I had one of my IT folks look at this one and I don't want to belive them. 
They said you cannot display a decimal when using the EVAL command. I think 
there is got to be a way. That's why I put this out. The current EVAL 
statement displays 1 or 0. Any ideas??

LIST CS.2004 H.HCG.AWARDED.ALL H.TOTAL.AWARD EVAL 
"H.HCG.AWARDED.ALL/H.TOTAL.AWARD"


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

RE: [U2] How do we get unique records from Universe file(Table)

[Pingilley, Ron]

What are the attribute numbers in the ORDERS file where the MFG.NO and
PART.NO are stored?

Let's say it's 4 and 18, respectively.

: SELECT ORDERS SAVING UNIQUE EVAL "@RECORD<4>:'*':@RECORD<18>"

should do it.

The "Illegal attribute name for sort: MFG.NO:'*':PART.NO" error message may
be saying that you don't have an I-descriptor or D-descriptor in DICT ORDERS
named MFG.NO or PART.NO.  Using @RECORD will work without having to
have an existing I- or D- descriptor in place.

Here's what I get in a similar test on my system (Universe):

>SELECT VENDOR SAVING UNIQUE EVAL "@RECORD<3>:'*':@RECORD<4>"
@RECORD < 3 > : * : @RECORD < 4 >  

1263 record(s) selected to SELECT list #0.
>>SAVE.LIST VEND.TEST

1263 record(s) SAVEd to SELECT list "VEND.TEST".
>

--Ron P.

-Original Message-
From: Chauhan, Savita [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 12, 2004 2:53 PM
To: [EMAIL PROTECTED]
Subject: RE: [U2] How do we get unique records from Universe file(Table)


Yes, I am trying to build a key to another file.

It gives me following error:
: Illegal attribute name for sort: MFG.NO:'*':PART.NO

Savita Chauhan, 
Programmer/Analyst
x:1754 Central Texas College.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] How do we get unique records from Universe file(Table)

[Pingilley, Ron]

"tax in advance" -- sounds like the US Government! :)

If you're doing a SELECT at tcl, try adding SAVING UNIQUE to your statement.
Here's an example:

> SELECT ORDERS WITH ORDER.DATE > "8/1" PART.NUMBER

...10456 items selected

>> SELECT INVENTORY SAVING UNIQUE @ID

...395 items selected

>> SAVE.LIST AUG.PARTS

1st step selected the PART.NUMBER field from the ORDERS file, with lots of
duplicate part numbers showing up.  The 2nd step pared that list down to
just unique part numbers.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, August 12, 2004 9:05 AM
To: [EMAIL PROTECTED]
Subject: [U2] How do we get unique records from Universe file(Table)


Hi,

Can anybody help me in retriving the unique(distinct) records from 
Universe file

tax in advance

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

RE: [U2] Question on Unidata tables access speeds

[Pingilley, Ron]

AFAIK = acronym for As Far As I Know

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Monday, August 09, 2004 11:30 AM
To: [EMAIL PROTECTED]
Subject: Re: [U2] Question on Unidata tables access speeds


I am doing select with BRANCH = "0616" "0844" AND LEASE_TYPE # "RA"

Also What is AFAIK, how do we set it up for multiple connections ?
thanks



 

  "Brian Leach"

  <[EMAIL PROTECTED]To:
[EMAIL PROTECTED]

  o.uk>  cc:

  Sent by:   Subject:  Re: [U2]
Question on Unidata tables access speeds 
  [EMAIL PROTECTED]

  er.u2ug.org

 

 

  08/09/2004 10:18 AM

  Please respond to

  u2-users

 

 





That might explain why one query takes so long, but not the time for the
four queries
(unless he is out of resource).

UniData can run multiple queries concurrently, but AFAIK only one per
connection. So I
guess the question is how DataStage is connecting to UniData, as it looks
like DataStage
is scheduling these sequentially.

Brian

On Mon, 9 Aug 2004 10:35:01 -0400
 <[EMAIL PROTECTED]> wrote:
>You may want to try FILE.STAT and see if your file is properly sized.  If
not, then use
>the RESIZE command.
>
>Just my $0.001 worth.
>
>Grant
>
>-Original Message-
>From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
>Sent: Monday, August 09, 2004 10:09 AM
>To: [EMAIL PROTECTED]
>Subject: RE: [U2] Question on Unidata tables access speeds
>
>
>It is indexed on the key column, even then if I run the run the job
(query)
>4 times in parallel, I am not getting advange of the parallel query. Is
>Unidata not good for the parallel query ?, or is there any tuning method ?
>thanks
>
>
>
>

>
>  "Kevin King"
>

>
>  <[EMAIL PROTECTED]To:
>  [EMAIL PROTECTED]

>  >  cc:
>

>  Sent by:   Subject:  RE: [U2]
Question on
>Unidata tables access speeds
>  [EMAIL PROTECTED]
>

>
>  er.u2ug.org
>

>
>

>
>

>
>  08/08/2004 06:09 PM
>

>
>  Please respond to
>

>
>  u2-users
>

>
>

>
>

>
>
>
>
>
>Is anything indexed?  Sounds like you could probably benefit from
>adding some indexes on fields used for the selection. That would make
>a BIG difference.
>
>-Original Message-
>From: [EMAIL PROTECTED]
>[mailto:[EMAIL PROTECTED] On Behalf Of
>[EMAIL PROTECTED]
>Sent: Sunday, August 08, 2004 3:57 PM
>To: [EMAIL PROTECTED]
>Subject: [U2] Question on Unidata tables access speeds
>
> Hi ,
>Project  data warehouse, Sources are  Unidata tables, tool  Datastage.
>Performance issue,
>while dumping in to hash file(Allowing stage write cash). It is
>searching
>5.5 million
>rows and fetching 2.6 million rows and taking 2.5 hours. There is only
>one key column in the ouput. When I remove select caluse(I mean select
>all rows) and put that filter in my tool, it is ok, but not great.
>After that When I run parallel jobs , I mean select the data by 4 jobs
>for different ranges(all at the same time), it is taking
>4 times than normal time . In other words, I am not getting
>performance like Oracle or other data bases. I am new to Unidata, is
>there any method where I can get good access speeds on Unidata.Any
>help will be highly appreciated.
>
>thanks
>pbr
>
>
>--
>
>Electronic Privacy Notice. This e-mail, and any attachments, contains
>information that is, or may be, covered by the Electronic
>Communications Privacy Act, 18 U.S.C. 2510-2521, and is also
>confidential and proprietary in nature. If you are not the intended
>recipient, please be advised that you are legally prohibited from
>retaining, using, copying, distributing, or otherwise disclosing this
>information in any manner. Instead, please reply to the sender that
>you have received this communication in error, and then immediately
>delete it. Thank you in advance for your cooperation.
>==
>
>---
>u2-users mailing list
>[EMAIL PROTECTED]
>To unsubscribe please visit http://listserver.u2ug.org/
>---
>u2-users mailing list
>[EMAIL PROTECTED]
>To unsubscribe please visit http://listserver.u2ug.org/
>
>
>
>
>
>---
---

>Electronic Privacy Notice. This e-mail, and any attachments, contains
information that
>is, or may be, covered by the Electronic Communications Privacy Act, 18
U.S.C.
>2510-2521, and is also confidential and proprietary in nature. If you are
not the
>intended recipient, please be advised that you are legally proh

RE: [U2] OT: Ardent.com

[Pingilley, Ron]

The properties on the photo say "bob_zurek.jpg", so looks like Bob from
Account Temps is to blame :)

-Original Message-
From: Karl L Pearson [mailto:[EMAIL PROTECTED]
Sent: Friday, August 06, 2004 12:45 PM
To: u2-users
Subject: [U2] OT: Ardent.com


Just for those who remember, check out www.ardent.com or
www.ardentsoftware.com. Someone's slip is showing...

-- 
Karl L. Pearson
Director of IT,
ATS Industrial Supply
Direct: 801-978-4429
Toll-free: 888-972-3182 x29
Fax: 801-972-3888
http://www.atsindustrial.com
[EMAIL PROTECTED]
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] What is &UFD& ????

[Pingilley, Ron]

Joe,

&UFD&, as to my understanding, points to the home directory of the
account you are in, where the VOC resides.  So you are actually looking at
the Windows/Unix level information.  A type-18 file, for example, is just
one big file/record to Unix or Windows, and would look mammoth!  PLEASE be
careful dinking around with &UFD& as you could mess up or delete your
files!!!

--Ron Pingilley

-Original Message-
From: Joe Walter [mailto:[EMAIL PROTECTED]
Sent: Monday, July 19, 2004 12:22 PM
To: [EMAIL PROTECTED]
Subject: [U2] What is &UFD& 


Just got word from tech support to create an empty record named ERRLOG in
&UFD& file. I've discovered &UFD& voc entry really points to the file D_UV
in the universe home directory and there are many, many, many records in
this file - some of the huge in terms of number of attributes.

Can anyone shed some light on what this file is all about?

Thanks much,
joey

Joe Walter
Fax/Voice mail: 1.435.514.5132

We are living in a world today where lemonade is made from
artificial flavors and furniture polish is made from real lemons.
---Alfred E. Newman
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [OT] SAP

[Pingilley, Ron]

Scott,

SAP is written mostly in German :)

Seriously, being developed by a German company, the underlying table
names, column names, etc., are German or abbreviations of German words.

The main programming language is ABAP.

--Ron P.

-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 15, 2004 10:44 AM
To: [EMAIL PROTECTED]
Subject: [U2] [OT] SAP


Hi all,

There are rumblings around our company about moving to an SAP package.  What
is SAP all about?  What language is it written in?  Any other info would be
greatly appreciated.

Thanks,

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

RE: [U2] UV Read failure

[Pingilley, Ron]

Sara,

That error message looks like there is a:

STOP 201,"CONTRACT"

or

STOP 201,FILE.NAME.VAR

at that point in the program, probably in the ELSE clause of an OPEN
statement.  Can you post the top 20 lines or so of source code for that
program?  If it is a STOP statement generating the error text, the string
being passed for display may not have anything to do with the real file name
which the program is trying to OPEN.

e.g.  OPEN "WORKORDERS" TO F.WKORD ELSE STOP 201,"CONTRACT"

is a perfectly valid statement for syntax, but EXTREMELY misleading
at run time!!!

--Ron P.

-Original Message-
From: Sara Burns [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 01, 2004 7:21 PM
To: U2 List ([EMAIL PROTECTED])
Subject: [U2] UV Read failure


  
0079 TRAN*y   15  
0080 Program "PTREVBRB": Line 15, Read operation failure.  [EFAULT] Bad
address
0081 [201] 'CONTRACT' IS NOT A FILE NAME 
 
CONTRACT was being used a few "seconds" before.

 
AIX 5.2, UV 10.0.11 
 
Sara Burns
 
Sara Burns (SEB) 
Development Team Leader

Public Trust 
Phone: +64 (04) 474-3841 (DDI) 

Mobile: 027 457 5974
<  mailto:[EMAIL PROTECTED]>

Information contained in this communication is confidential. If you are not
the intended recipient the information should not be used, disclosed, copied
or commercialised. The information is not necessarily the views nor the
official communication of Public Trust. No guarantee or representation is
made that the communication is free of errors, virus or interference.
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/
---
u2-users mailing list
[EMAIL PROTECTED]
To unsubscribe please visit http://listserver.u2ug.org/

RE: [U2] [UV] INPUT madness

[Pingilley, Ron]

Barry,

The INPUT @ is the only UV BASIC command that will display the
contents of the variable, and preserve the contents if you only hit RTN.

If you could look at the code behind your 3rd party app. you'll
probably find:

A.STRING = 'HELLO WORLD'
PRINT @(00,02): A.STRING: @(00,02):
INP.HOLD = A.STRING
INPUT A.STRING
IF A.STRING = "" THEN A.STRING = INP.HOLD

or something to that effect.  They probably use an external input
subroutine that accomplishes this, and call that sub from all their screen
I/O programs.

--Ron P.

-Original Message-
From: Barry Brevik [mailto:[EMAIL PROTECTED]
Sent: Friday, May 14, 2004 2:10 PM
To: [EMAIL PROTECTED]
Subject: [U2] [UV] INPUT madness



Is it possible to get both features? Actually, I know it is because we run a
3rd party app that does it, but I can't see inside it.
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users

RE: [U2] My Sincere Condolences

[Pingilley, Ron]

-Original Message-
From: Hanwell, David [mailto:[EMAIL PROTECTED]
Sent: Tuesday, May 04, 2004 11:18 AM
To: [EMAIL PROTECTED]
Subject: RE: [U2] My Sincere Condolences


><<"Our son's hamster died this AM. He doesn't know yet.">>

"But I'm not dead yet"

>"Behold I am become Death,
>the shatterer of worlds." - Vishnu,
>in the Hindu Bhagavad Gita.
>David Hanwell

54 When the perishable has been clothed with the imperishable, and the
mortal with immortality, then the saying that is written will come true:
"Death has been swallowed up in victory."
55"Where, O death, is your victory? 
   Where, O death, is your sting?"

I Corinthians 15:54-55
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users
---
u2-users mailing list
[EMAIL PROTECTED]
http://www.u2ug.org/listinfo/u2-users