RE: [UD] Determining if list exists

[Logan, David (SST - Adelaide)]

Title: Message

Hi Chris,

 

Why not just use the 'REQUIRE.SELECT' or 'SELECT.ONLY' keywords in your query? This will then only run if there is a select list present. The Uniquery manual documents this quite well.

 

HSSELECT AR WITH PAYMENT.DATE GE "2-9-04"
STON
P
HSAVE-LIST ARLIST
P
HGET-LIST ARLIST
STON
H<
PH
HLIST AR PAYMENT.DATE  REQUIRE.SELECT LPTR <--------------------------------
P

 

Regards

David Logan
Database Administrator
HP Managed Services
139 Frome Street,
Adelaide 5000
Australia

+61 8 8408 4273
+61 417 268 665

-----Original Message-----
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED]
Sent: Thursday, 5 February 2004 8:26 AM
To: U2 Users Discussion List
Subject: Re: [UD] Determining if list exists

If you really need to save the list;

HDELETE-LIST ARLIST
PH
HSSELECT AR WITH PAYMENT.DATE GE "2-9-04"
STON
HSAVE-LIST ARLIST
PH
IF # S G ERROR ROUTINE LABEL
HGET-LIST ARLIST
STON
HLIST AR PAYMENT.DATE LPTR
PH
 
If you don't want an error routine, leave out the if # s.

Bruce M Neylon
Health Care Management Group

"Chris Bugosh" <[EMAIL PROTECTED]> Sent by: [EMAIL PROTECTED] 02/03/2004 08:51 AM Please respond to U2 Users Discussion List

To:        <[EMAIL PROTECTED]>         cc:                 Subject:        [UD] Determining if list exists

Is there a Unidata or Uniquery command that tells you if a select list exists?  In UniBasic I can use a SelectInfo function to determine if a list exists, but I can't find a way to do it at the TCL prompt.

I have the following PQN PROC.  The PROC itself works fine if there is something to return from the selection criteria.  However, if nothing is selected in the SELECT statement (like the one below would if we ran it today), the PROC does what it is told and lists the whole file, since it is never given a list, resulting in a huge printout of every AR transaction.

HSSELECT AR WITH PAYMENT.DATE GE "2-9-04"
STON
P
HSAVE-LIST ARLIST
P
HGET-LIST ARLIST
STON
H<
PH
HLIST AR PAYMENT.DATE LPTR
P

Thanks for any suggestions you can give.

Chris _______________________________________________
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users

-- 
u2-users mailing list
[EMAIL PROTECTED]
http://www.oliver.com/mailman/listinfo/u2-users