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

2008-09-16 Thread rbl000
Jeff,

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

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

Best Regards,

Richard Lewis


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

My Pick Pocket Guide fails me.

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

Thanks
--

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

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





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


RE: [U2] multi-valued extraction

2008-05-19 Thread rbl000
In a Pick-style dictionary, a correlative like this should work:

T1,4^253TOTHER.FILE;X;;99
or:
A1(T1,4)(TOTHER.FILE;X;;99)
or:
F;1;(T1,4);(TOTHER.FILE;X;;99)

or as an I-descriptor expression:

TRANS(OTHER.FILE,SUBSTRINGS(F1,1,4),99,'X')

Best Regards,

Richard Lewis
IBM Certified Solutions Expert

 --- On Mon 05/19, Brenda Price  [EMAIL PROTECTED]  wrote:
From: Brenda Price [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Mon, 19 May 2008 15:23:59 -0500
Subject: [U2] multi-valued extraction

I know I've done this before several times in fact but for some reason,today I 
just can't get my dict item to work correctly.Field 1 is multivalued with 10 
digit ids, I want to extract only thefirst 4 digits of those ids, then read 
another field with each of thoseextracted ids.  My dict item works fine until I 
add the [1,4], then onlythe first 4 digits of the first 10 digit Id is 
returned.  My co-workerwith 25 years plus experience is drawing a blank on this 
at the momentalso.Rec1 = 1154960101:@vm:3456960201:@vm:4565982341Dict item 
comes back with 1154 only, instead of 1154, 3456, and 4565.Brenda 
PriceAAC---u2-users mailing [EMAIL PROTECTED] unsubscribe please visit 
http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT fatal memory fault.

2008-03-20 Thread rbl000
We only use PICK flavor here, no special options set.

Richard Lewis

 --- On Thu 03/20, Ray Wurlod  [EMAIL PROTECTED]  wrote:
From: Ray Wurlod [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 20 Mar 2008 12:03:21 +0800
Subject: RE: [U2] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT fatal memory  fault.

Just out of curiosity, because EXECUTE is (may be) handled differently, what is 
the account flavor in each case?  And have you set any compiler options such as 
EXEC.EQ.PERFORM ?---u2-users mailing [EMAIL PROTECTED] unsubscribe please 
visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT fatal memory fault.

2008-03-19 Thread rbl000
Charles,

One of the guys in our shop tested this on one of our machines (HP Itanium, 
HPUX 11.23, UV 10.2.6) and couln't see any problem.

He ran this code for 3,572,053 iterations with no increase in memory (not even 
a byte):

0001: CNT = 0
0002: LOOP
0003:   CNT +=1
0004:   CRT OCONV(CNT, MR0,)
0005:   EXECUTE TIME CAPTURING TIME.GOO
0006: UNTIL @FALSE DO
0007: REPEAT

He the following code 288,448 times with no increase in memory:

0001: CNT = 0
0002: LOOP
0003:   CNT +=1
0004:   CRT OCONV(CNT, MR0,)
0005:   EXECUTE * anything CAPTURING TIME.GOO
0006: REPEAT

Best Regards,

Richard Lewis
Nu Skin Enterprises


 --- On Mon 03/17, Stevenson, Charles  [EMAIL PROTECTED]  wrote:

This is on HP Itanium, HPUX11.23, UV10.2.6
Anticipating some of your questions:

* My simple case fails at about
1/4 million iterations to fail on my smaller dev system,
1 million on the 2 larger production system.

* The memory leak applies to the session, not the program.
If I limit the number of iterations in the program,
but repeatedly execute it from TCL, eventually it fails.
This fails just the same:

VOC M.LOOP
O1 PA
02 LOOP
03 EXECUTE RUN CDS.BP M
04 SH -cps -lp $$PID
05 REPEAT
where M is limited to 100,000:
CDS.BP M
01 FOR I = 1 TO 10
02 EXECUTE * comment CAPTURING X
03 REPEAT


Thank-you in advance,

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


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT fatal memory fault.

2008-03-19 Thread rbl000
Since we'll be moving our production server to Itanium, etc., in the next new 
months, we'll be very interested to learn the circumstances that cause the 
problem, etc.

Thanks!
Richard


 --- On Wed 03/19, Stevenson, Charles  [EMAIL PROTECTED]  wrote:
From: Stevenson, Charles [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Wed, 19 Mar 2008 16:31:59 -0400
Subject: RE: [U2] UV: LOOP;EXECUTE cmd CAPTURING X; REPEAT  fatal memory   
fault.

I hear IBM was finally able to reproduce my problem. I don't know any
other details yet.
After I learn more, maybe I'll come back at you, Richard, and ask to
compare our 2 systems's configurations.
Thanks,
cds


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Slave Printing Problem

2008-01-21 Thread rbl000
Is this a terminal or a PC?
If terminal, what manufacturer, model, etc.?
If PC what terminal emulation software are you using?

Richard Lewis
Nu Skin Enterprises


 --- On Mon 01/21, Bessel, Karen  [EMAIL PROTECTED]  wrote:
From: Bessel, Karen [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Mon, 21 Jan 2008 14:33:04 -0600
Subject: [U2] Slave Printing Problem

Turning auxiliary port on/off using CHAR(18) and (20) - I have alsotried (24)  
(20).After the CHAR(18)/(24), the slave output is turned on but it does 
notcapture any of the output. This is occurring with both proc  BP typeoutput. 
If I run the proc/BP to spooler hold, there is printed outputso it's not an 
issue with selection criteria/data/etc.This is a really old version of UV 
(9.5.1.1).Any ideas?---u2-users mailing [EMAIL PROTECTED] unsubscribe 
please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] PORT.STSTUS ?

2007-12-20 Thread rbl000
Sounds like an interesting project, but you're on the wrong line number.  The 
0x178 refers to the hex addresses in the VLIST output.  On my system the hex 
addresses are the second set of numbers on each line (00760 and 00766 in your 
example).  You could then grab the first numbers on the line, which are the 
source code line numbers, and grab that line from your source code.

Sincerely Best Regards,

Richard Lewis


 --- On Thu 12/20, Doug Chanco  [EMAIL PROTECTED]  wrote:
From: Doug Chanco [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 20 Dec 2007 08:29:10 -0500
Subject: [U2] PORT.STSTUS ?

Hey all,

I am trying to replace the PORT.STATUS command with one that would
replace

[ BUILD.TR.TAG @ 0x178 ]

With

[BUILD.TR.TAG]
178 FOR LINE.CNT = 1 TO LINE.NO

From the VLIST command I assume that the above 0x178 refers to one of
the below (the first I assume) I am just curious as to what the two
lines following mean

00178: FOR LINE.CNT = 1 TO LINE.NO
00178 00760 : 0F8 move 0 = LINE.CNT
00178 00766 : 098 forincr LINE.CNT LINE.NO 1 0087C:

It look kind of like assembly instructions
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Accessing the OS

2007-12-05 Thread rbl000
EXECUTE 'SH -c unix command goes here'

for example:

EXECUTE 'SH -c ls -l

Richard Lewis
IBM Certified Solutions Expert
U2 Family Application Development

Sr. Programmer/Analyst
Nu Skin Enterprises

President
QWASI, Inc.
Quality Widgets and
Software International, Inc.

(Is that full disclosure enough?)

 --- On Wed 12/05, Brutzman, Bill  [EMAIL PROTECTED]  wrote:
From: Brutzman, Bill [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Wed, 05 Dec 2007 15:11:26 -0500
Subject: [U2] Accessing the OS

From a UniBasic green-screen application (using Dynamic Connect), what 
BASICcommand(s) allow the programmer to execute an Unix command (with 
parameters)such that something like a SendMail command could be handled.We 
have UniVerse and HP-Ux.--Bill---u2-users mailing [EMAIL PROTECTED] 
unsubscribe please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] U2 University

2007-10-30 Thread rbl000
Two of us are planning to attend, if the registration doesn't close before we 
get signed up.  I guess we've been procrastinating our registration since there 
appears to be no incentive to register early.

Richard Lewis
Nu Skin Enterprises


 --- On Tue 10/30, Nancy Fisher  [EMAIL PROTECTED]  wrote:
From: Nancy Fisher [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Tue, 30 Oct 2007 09:15:27 -0700
Subject: [U2] U2 University

Is anyone going to the San Francisco end of Nov venue?Nancy FisherPeninsula 
Truck Lines, IncAuburn, Washington253/[EMAIL PROTECTED] mailing [EMAIL 
PROTECTED] unsubscribe please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Size of Key Question

2007-10-16 Thread rbl000
Jeff F. will certainly have better critique, but it appears that the key 
structure and hash-algorithm aren't very well suited to each other.

You have 883,026 records in 3,000,017 groups, and one of the groups has 7,417 
records in it, so you have at least 2,124,407 empty groups.

I believe every disk sold in the last 5 or more years reads at least 4 frames 
at a time, so a separation of 4 (or 8, etc.) will likely improve speed as well.

The fact that you have over 8% of 883,026 records hashing to the same group 
looks like the primary problem.  The usual hash algorithms tend to give the 
best spread of records when the last several bytes of the key have the widest 
range of values.  How are the 64 byte keys composed?

Kind Regards,

Richard Lewis

 --- On Tue 10/16, roy  [EMAIL PROTECTED]  wrote:
File name = SALES-HIST-BR1
File type = 18
Number of groups in file (modulo) = 317
Separation = 1
Number of records = 883026

Maximum number of records in a group = 7417

Average number of bytes per record = 170.6213
Minimum number of bytes in a record = 64
Maximum number of bytes in a record = 2644


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


Re: [U2] OT: Where to sell Systech serial port servers (for Serial printers/Serial Terminals)

2007-10-04 Thread rbl000
If you can't find a local place to donate them, there may be some libraries who 
would be willing to pay the shipping for such a donation.  If you're 
interested, let me know and I can put you in touch with a listserve you can get 
their availability posted to.

Richard Lewis
[EMAIL PROTECTED]

 --- On Thu 10/04, Clifton Oliver  [EMAIL PROTECTED]  wrote:
From: Clifton Oliver [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 4 Oct 2007 00:41:33 -0700
Subject: Re: [U2] OT: Where to sell Systech serial port servers (for  Serial  
printers/Serial Terminals)

I doubt it you will ever make anything on these. You might check you  local 
colleges and non-profits to see if you can get them to come  haul them away (or 
pay the shipping) and then you take a charitable  contribution deduction.-- 
Regards,ClifOn Oct 3, 2007, at 11:43 , Larry Hiscock wrote: Gabriel wrote: 
We also have over 100 ADDS Viewpoint terminals, but I have yet to   find 
someone who will buy them where we make anything after shipping Look 
at the bright side ... At least you wouldn't have to pay   someone to haul 
them away, which is what will happen if you hold on to them   too much longer 
 ;-) Larry Hiscock Western Computer Services --- u2-users mailing 
list u2-users@listserver.u2ug.org To unsubscribe please visit 
http://listserver.u2ug.org/---u2-users mailing [EMAIL PROTECTED] 
unsubscribe please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] How to use LOCATE in an I Descriptor

2007-08-10 Thread rbl000
Since I like to avoid subroutines when I can, this is how I would do it (using 
Perry's sample data slightly modified):

EVENTCODE
P]B]F]B]R

And

EVENTSTATUS
A-T]B-T]FP-T]K-P]A-P


TRIM(IFS(EQS(EVENTCODE,REUSE('B')),EVENTSTATUS,REUSE('')),@VM)

Which returns all values for EVENTCODE 'B', else empty.  My concern with using 
INDEX is that you usually end up with only the first occurence in the results.

Sincerely Best Regards,

Richard Lewis
IBM Certified Solutions Expert -- U2 Family Application Development

Sr. Programmer/Analyst
Nu Skin Enterprises

 --- On Fri 08/10, Boydell, Stuart  [EMAIL PROTECTED]  wrote:
From: Boydell, Stuart [mailto: [EMAIL PROTECTED]

001 I
002 MV.ATTRIBUTE.TO.SEARCH;EQS(REUSE('SEARCH.STRING'),@1);IF SUM(@2)THEN 
@11,(INDEX(@2,1,1)+1)/2 ELSE 'NOT FOUND'
003 ...



___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Single Part vs. Multi part UniVerse Files

2007-02-09 Thread rbl000
Just wanted to report back to the list what we found.
 
As Stephen O'Neal suggested, indexes appears to have been the problem.  We 
found that the process we were concerned about was updating an indexed field 
that contains 15 values.  In fact, the index contained only 37 unique entries.  
In the single-part file, the largest entry was about 65MB.  Upon further 
inquiry, we found that index was not even useful to the business, so we 
eliminated it.  A test run on the same machine as was used before showed the 
following results:
 
   Single Part   Multi-part Single W/o Index
Run time  Run time   Run time
Batch Process A 00:59:02  00:35:26   01:02:33
Batch Process B 05:42:33  00:28:00   00:57:38
 
While the multi-part file is still faster, it is now close enough for our 
present needs.

Thanks very much for the help!

Richard Lewis
Nu Skin Enterprises



___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


[U2] Single Part vs. Multi part UniVerse Files

2007-01-19 Thread rbl000
We are a UniVerse shop using rel.10.1.15 on HPUX.  We have a particular file 
that is quite large and central to many if not most activities.  Unix file size 
limitations on older hardware and the OS dictated that this file be created as 
a 10 part multipart file. Recently we converted it to a single part file with 
expectations of decreased access times.  Our assumption was there would now be 
a single hash to access the data instead of the multipart algorithm to 
determine the part and then the hash into the physical part file.  After the 
changeover many of our batch processes against this file were much slower 
rather than being slightly faster.
 
The file is on an EMC array which is striped over 32 logical disks.  The sizing 
of the file does not seem to be poor.
 
We isolated a copy of the file on a test system and ran 2 batch processes 
against the single part file as a baseline.  We then restored the file and 
converted it back to a 10 part file with the original parting algorithms we 
wrote and re-ran the same two batch processes.  The results were:
 
  Single Part   Multi-part
 Run time  Run time
Batch Process A 00:59:02  00:35:26
Batch Process B 05:42:33  00:28:00
 
o   All ten parts are the same size which is about 1/10 of the single part. 
 FILE-STATs of the 10 parts seem to indicate hashing distribution to be about 
the same as with the single part file, i.e. the number of groups  100% full on 
the multipart is roughly 1/10 of those in the single part file and the same for 
each of the other %full categories.
o   Both processes are multi-threaded, i.e. they each have a controlling 
parent program that phantoms 36 child processes to do the real work.
o   Process A's parent selects the file and builds a select list of the 
entire file.  It then builds child lists, one for each child, by dividing the 
large list up into equal sized chunks. These child lists are created in 
file/group order.  After creating the lists it phantoms its children.
o   Process B re-uses the lists built by process A, and immediately 
phantoms its children.
o   Process A's children read every record in the list, apply filtering 
criteria, and then either update and write the record or release it.  (Only a 
small percentage meets the criteria to be updated.)
o   Process B's children read every record in the list, update certain 
attributes and then write every record.
o   The test machine has 8 processors.  The production machine where we 
first observed this has 16 processors.

We tried another very simple batch process that was single threaded and that 
read, updated, and wrote every record.  We created a single part and multi-part 
version of the file as we had in the above tests.  We ran the batch process 
against each of them and the results were:

 Single PartMulti-part
 Run time  Run time
  00:26:45  00:29:40

Needless to say while the single threaded access conformed to our original 
expectations, it did little to enlighten us other than to point towards a link 
between multi-threading and multi-parting.
 
Can anyone shed any light on what we are missing that explains why the 
multi-part file is so much faster?

Any insights would be welcome and appreciated.

Richard Lewis
Nu Skin Enterprises


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] cODE39

2007-01-08 Thread rbl000
After a little search on Google, I found the following page:

http://www.barcodeisland.com/code39.phtml

Which includes a table with the entire Code39 character set and barcode (width) 
definitions.  Your table appears to have a '1' at the end of every character, 
which I'm guessing represents the narrow intercharacter space required by 
Code39.  Other than that your table of 1's and 2's seems to correspond to the 
N's and W's (for Narrow and Wide) included in the table on the above web page.

Best Regards,

Richard B Lewis
Sr. Programmer/Analyst
Nu Skin Enterprises



___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Sending to the HOLD file

2006-11-29 Thread rbl000
--- On Wed 11/29, Bob Woodward  [EMAIL PROTECTED]  wrote:
Subject: [U2] Sending to the HOLD file

I justwant to be able to send an AD-HOC report to the HOLD file without 
havingto go through a PROC.  Can anyone offer up a QD TCL command for this?
Thanks,Bob Woodward
Senior Programmer/Analyst
Harbor Wholesale Grocery
---

I use something like this:

SETPTR ,3,AS NEXT ADHOC,BRIEF,NFMT,NHEAD,NODEFAULT
LIST ...

Then you'll want to reset the SETPTR settings to the usual.  Logging off and 
back on does this, of course, but it would be easier if you had a 
paragraph/proc that could be executed that just did a SETPTR to the usual 
settings.

Best Regards,

Richard Lewis


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Bad DICTionary Attributes

2006-10-10 Thread rbl000
 --- On Tue 10/10, Brutzman, Bill  [EMAIL PROTECTED]  wrote:
I would like to see what is in field 8 for several data dictionaries.I need a 
command like...  LIST DICT INVOICE WITH FIELD 8 LIKE Mbut I need help with 
syntax on the Field 8 part.


How about:

LIST DICT INVOICE WITH F8 LIKE M

Richard Lewis
IBM Certfied Solutions Expert -- U2 Family Application Development

Sr. Programmer/Analyst
Nu Skin Enterprises


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] D Debugger

2006-09-07 Thread rbl000
It seems like this has always happened when the process was waiting on a record 
lock.  In other words, the process you're interrupting is trying to do a READU 
without a LOCKED clause, but the record it's trying to READU is locked by 
another process.

I think I've also run into this when the process was waiting on some other disk 
subsystem operation, as well, but I can't remember the details.

Also happens during an EXECUTE, as Tom mentioned.

Richard Lewis





 --- On Thu 09/07, Mark Eastwood  [EMAIL PROTECTED]  wrote:
From: Mark Eastwood [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 7 Sep 2006 10:10:23 -0700
Subject: RE: [U2] D Debugger

I'm not getting the D Option when entering a control-break whilerunning basic 
programs.I checked VOC INTR.KEY and it looks okay - what else controls the 
Doption?RUN OE.BP X TRAPENTER [RETURN] ?Break: Option (A,C,L,Q,?) =.L 
INTR.KEY INTR.KEY001 X002 ACLQDThanks,MarkUniVerse 9.5 (I know, I know, 
it's old)---u2-users mailing [EMAIL PROTECTED] unsubscribe please visit 
http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Secondary Index Problem

2005-12-13 Thread rbl000
I'm guessing you want quotes around the '1' in your I-descriptor expression.  
Try instead of this:

IF @RECORD67 # '' THEN 1 ELSE ''
try this:
IF @RECORD67 # '' THEN '1' ELSE ''

Richard Lewis


 --- On Tue 12/13, [EMAIL PROTECTED]  [EMAIL PROTECTED]  wrote:
From: [EMAIL PROTECTED] [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Tue, 13 Dec 2005 17:06:07 +
Subject: [U2] Secondary Index Problem

Hi All,UV9.6.1.16HPUX 11I have an index that is no longer working and am not 
sure why.  The whole purpose of this index is to allow me to use the 
SELECTINDEX to get a list of items that have something in field 67 of the 
record.  The index has 13 records but there are actually 876 records with 
something in 67.  I can rebuild the index but I really want to know what went 
wrong.Any thoughts would be appreciated.The dictionary item looks like...0001: 
I0002: IF @RECORD67 # '' THEN 1 ELSE ''0003:0004: Send^2532SAP0005: 4R0006: 
S0007:Here is the output from LIST.INDEXLIST.INDEX MS_POH SIM.TRIGGER 
STATSAlternate Key Index Statistics for file MS_POHFile... 
MS_POHIndices 1 (0 A-type, 0 C-type, 0 D-type, 1 I-type, 0 SQL, 0 
S-type)Index Updates.. Enabled, No updates pendingIndex name  Type  Build   
 Nulls  In DICT  S/M  Just Unique Field num/I-typeSIM.TRIGGER  INot 
Reqd  No Yes  SR NIF @RECORD67 #  
 !
  
'' THEN 1 ELSE  
  ''Statistics:Number   Records per 
Alternate Key Index  SizeIndex name  of Keys   Average   Minimum   
Maximum   StdDev   (in Bytes)SIM.TRIGGER 1 1313
130 92---u2-users mailing [EMAIL PROTECTED] unsubscribe 
please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] NESTING EVAL

2005-10-25 Thread rbl000
You don't nest EVAL's, you nest IF's.  I would rewrite your expression for 
clarity this way:

LIST CS.2005 TOTAL EVAL IF (H.CS.NEXT.CLASS NE Y) THEN 0 ELSE 
IF(H.HCG.AWARDED.ALL  0) THEN 1 ELSE 0

Or perhaps:

LIST CS.2005 TOTAL EVAL IF (H.CS.NEXT.CLASS = Y) * (H.HCG.AWARDED.ALL  0) 
THEN 1 ELSE 0

Richard Lewis
IBM Certified Solutions Expert -- U2 Family Application Development



 --- On Tue 10/25, Kevin Michaelsen  [EMAIL PROTECTED]  wrote:
From: Kevin Michaelsen [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Tue, 25 Oct 2005 11:00:58 -0400
Subject: [U2] NESTING EVAL

Can I nest when using the EVAL command. Here is my statement that doesn't work. 
Do I need to put extra quotes somewhere or do I need to put brackets somewhere 
or is it not possible?LIST CS.2005 TOTAL EVAL IF (H.CS.NEXT.CLASS = Y) THEN 
EVAL IF(H.HCG.AWARDED.ALL  0) THEN 1 ELSE 0 ELSE 0 Any help would be 
appreciated.KevinKevin MichaelsenAssociate Director of Financial Aid198 College 
Hill RoadHamilton CollegeClinton, NY  13323telephone (315) 859-4434   
(800) 859-4413fax   (315) 859-4457 ---u2-users mailing [EMAIL 
PROTECTED] unsubscribe please visit http://listserver.u2ug.org/

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] Date Conversion Codes

2005-10-12 Thread rbl000
 --- On Wed 10/12, Stevenson, Charles  [EMAIL PROTECTED]  wrote:
From: Stevenson, Charles [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Wed, 12 Oct 2005 18:38:12 -0400
Subject: RE: [U2] Date Conversion Codes

My favourite is to get CCYYMMDD format by date conversion,
then Mask-Character-Numeric to strip out the delimiters:

01 D some date field, output as CCYYMMDD
02 nnn
03 DYMD[4,2,2]}MCN
04
05 8R

Or in basic:
CCMMYDD = OCONV( Idate, 'DYMD[4,2,2]':@VM:'MCN' )
^
---

And did you know you can get that result without multiple conversions?

Try:

DYMD[4'',2'',2]

instead of:

DYMD[4,2,2]}MCN

Just for a little more jollies!

Sincerely Best Regards,

Richard Lewis
Sr. Programmer/Analyst
Nu Skin Enterprises


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [OT] [U2] chance encounter with a u2 site

2005-10-11 Thread rbl000
They began developing a client-server product about 1990, using OS/2 and 
Modula-2 and Sybase.  Over the years they moved to Windows, went through C, 
C++, and are now using Java, and the database preferences are Oracle, MS SQL, 
and DB2 (I believe).

The private investors who bought the company some years ago finally flipped 
their investment this year, by selling the company to a competitor (Sirsi).  
The new company name is SirsiDynix.

I believe the Dynix customer base is still about 33% on the legacy product, 
including at least a couple of  VERY large libraries in metropolitan areas 
_everyone_ would recognize, in North America and Asia.

I finally (after almost 21 years) got a better offer locally last year.

Richard Lewis
Sr. Programmer/Analyst
Nu Skin Enterprises


 --- On Thu 10/06, [EMAIL PROTECTED]  [EMAIL PROTECTED]  wrote:
From: [EMAIL PROTECTED] [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 6 Oct 2005 10:15:16 -0600 (MDT)
Subject: RE: [OT] [U2] chance encounter with a u2 site

They aren't. They have switched to Sybase, IIRC. There are a couple 
formerbrDynix employees on this list that could verify 
that.brbrKarlbrbrquote who=Robert Patersonbr Ah, but they could 
still be using U2 - just UniData 7.1 as thebr application server to 
DB2...brbr -Original Message-br From: [EMAIL PROTECTED]br 
[mailto:[EMAIL PROTECTED] On Behalf Of Sharyl Lindsaybr Sent: 06 October 
2005 16:16br To: u2-users@listserver.u2ug.orgbr Subject: RE: [OT] [U2] 
chance encounter with a u2 sitebrbr The Dynix website mentions that some 
of their IBM clients are switchingbr to DB2.brbrbr This e-mail is 
for the use of the intended recipient(s) only. If you havebr received this 
e-mail in error, please notify the sender immediately andbr then delete it. 
If you are not the intended recipient, you must not use,br disclose or 
distribute this e-mail without the author's prior 
permission.br We have taken precautions to minimize the risk of transmitting 
softwarebr viruses, but we advise you to carry out your own virus checks on 
anybr attachment to this message. We cannot accept liability for any loss 
orbr damage caused by software viruses.br ---br u2-users mailing 
listbr u2-users@listserver.u2ug.orgbr To unsubscribe please visit 
http://listserver.u2ug.org/brbrbrbr-- brkarlbrbr _/  _/  
_/  _/_/_/      __obr_/ _/   _/  _/_/ 
  _-\._br   _/_/_/  _/_/_/ (_)/ 
(_)br  _/ _/   _/  _/   ..br _/   _/ 
arl _/_/_/  _/ earson[EMAIL PROTECTED]brbr--brIT Director, ATS 
Industrial Supply, Inc.brhttp://www.atsindustrial.combrToll-free: 
800-789-9300 x29brDirect2Desk: 801-978-4429brFacsimile: 
801-972-3888br--br---bru2-users mailing 
listbru2-users@listserver.u2ug.orgbrTo unsubscribe please visit 
http://listserver.u2ug.org/br

___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] CLEARINPUT - Universe

2005-09-29 Thread rbl000
At a company I used to work for, 'Press any key' was not sufficient.  There was 
so much trouble with _some_ users who were too busy scanning barcodes to read 
the screen, that various 'error' conditions were set to require input of a 
specific single character as recognition that the message had been read 
(different error msg., different single character).  If other inputs were 
given, the 'error' message simply redisplayed (along with terminal bells).

Best Regards,

Richard Lewis


 --- On Thu 09/29, Anthony Dzikiewicz  [EMAIL PROTECTED]  wrote:
From: Anthony Dzikiewicz [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Thu, 29 Sep 2005 15:42:01 -0400
Subject: RE: [U2] CLEARINPUT - Universe

Yes it can.  The problem is when the user hits enter - say 10 times.brLets 
say the program clears the screen, prints the message, and has abr'press any 
key to continue' type prompt.  After the user presses enter,bryou clear the 
screen again and continue on your way.brbrIf the user presses enter all 
these times, then the message will flashbrby in an instant (depending on the 
speed of the terminal etc..).brbrSo, doing an INPUTCLEAR (Im spelling it 
right these days) before thebrnext input prompt, Press any key to continue, 
will clear all those keybrstrokes the users haphazardly pressed and force 
them to read thebrmessage.brbrAnthonybr


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] [UV] SELECT without

2005-08-10 Thread rbl000
You mean something other than HUSH ON followed by the select, etc., followed by 
HUSH OFF?

Sincerely Best Regards,

Richard Lewis
Sr Programmer/Analyst
Nu Skin Enterprises
[EMAIL PROTECTED]


Barry queried:

When executing SELECT from a PA, is there some keyword that will suppress
the message n records selected to select list 0. Because if there is, I
can't find it.

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


___
No banners. No pop-ups. No kidding.
Make My Way  your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/


RE: [U2] BREAK-ON help

2005-01-31 Thread rbl000
Peter,

You can accomplish this by adding a GRAND.TOTAL phrase with a similar 'P' 
option string.

Best Regards,

Richard Lewis
Quality Widgets and
Software International, Inc.
rbl at qwasi-inc.com


 --- On Mon 01/31, Peter Gonzalez  [EMAIL PROTECTED]  wrote:
From: Peter Gonzalez [mailto: [EMAIL PROTECTED]
To: u2-users@listserver.u2ug.org
Date: Mon, 31 Jan 2005 12:26:07 -0500
Subject: [U2] BREAK-ON help

Hello group,brI need to assistance of this group again.  I'm working with an 
Unidata Proc br(and yes, i know rewriting it in Unibasic will solve my 
problems) and need brhelp with the BREAK-ON.  I'm using the BREAK-ON 'P' to 
force a carriage brreturn whenever the data changes.  That is working fine.   
The problem I brhave is that the last BREA-ON and the totals are printing on 
the last brpage.   Is there a way to carriage return and then print the grand 
totals?brbrbrbrPeter GonzalezbrSenior Programmer AnalystbrM  M 
Aerospace Hardware, Inc., a B/E Aerospace Companybr1 NW 15 
TerracebrMiami, Florida 33172brPhone: 305.925.2714brFax: 
305.925.2610brwww.mmaero.combr---bru2-users mailing 
listbru2-users@listserver.u2ug.orgbrTo unsubscribe please visit 
http://listserver.u2ug.org/br

___
No banners. No pop-ups. No kidding.
Make My Way your home on the Web - http://www.myway.com
---
u2-users mailing list
u2-users@listserver.u2ug.org
To unsubscribe please visit http://listserver.u2ug.org/