Re: Memo: Re: [UD] Determining if list exists
At 12:12 AM 02/05/2004, you wrote: [snipped] The same applies (here) with a BASIC program that : 0011 SENTENCE = \SELECT MD WITH F! RUBBISH\ 0012 EXECUTE SENTENCE CAPTURING JUNK RETURNING ERR In this case ERR = 0 if there's no items, not 401 under vanilla (R83, AP) Pick Unless.. Is there a UV Option (besides Pick Flavo*u*r) that gives back a 401?? Uh. No. Error messages in UV are generated from the SYS.MESSAGE file in a manner completely different (and incompatible with) Pick. The ERRMSG file within UV is there simply to support the STOPE/ABORTE BASIC commands. -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
RE: Memo: Re: [UD] Determining if list exists
At 06:34 PM 02/03/2004, you wrote: Goo'day, Are you sure the IF E = 401 bit works in UV? This would not work within UV unless proc had been rewritten (doubtful). The error handling within uv is different and this is one of those areas affected by that difference. You can only test IF E or IF #E. AFAIK, in UV, E = 0 if there are no items SELECTed, at least in Pick flavo*u*r. Yep. The 401 bit is vanilla Pick, which I remember we had to change on conversion to UV back in 9.3???. Dunno about UD, though At 10:06 04/02/04, you wrote: In a proc you would have: PQ HSELECT SOMEFILE SAMPLE 3 P IF E = 401 G 99 HLIST SOMEFILE P 99 O No Items Selected __ Do you Yahoo!? Yahoo! SiteBuilder - Free web site building tool. Try it! http://webhosting.yahoo.com/ps/sb/ -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users -- Incoming mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 -- 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
RE: Memo: Re: [UD] Determining if list exists
I realize the context of the original reply was a PROC, but for the sake of completeness, you can also handle it within a paragraph. Check @SYSTEM.RETURN.CODE. SELECT SOMEFILE WITH F1 EQ XYZ IF @SYSTEM.RETURN.CODE LT 1 THEN GO NONE.SEL Tim Snyder IBM Data Management Solutions Consulting I/T Specialist , U2 Professional Services [EMAIL PROTECTED]-- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
Re: Memo: Re: [UD] Determining if list exists
I once worked on a UV (SCO/Dell Poweredge) that was ported from a MCD that had a lot of IF E = 401, IF E = 201 etc. Come to think of it, every TCL statement generates an ERRMSG. They're just not all errors. 100 items selected is stored in ERRMSG. The ERRMSG dialect is evoked from the STOP databasic Statement. Does anyone know of any other way to evoke ERRMSG text. I've often wondered. thanks. - Original Message - From: Glenn Herbert [EMAIL PROTECTED] To: U2 Users Discussion List [EMAIL PROTECTED] Sent: Wednesday, February 04, 2004 9:17 AM Subject: RE: Memo: Re: [UD] Determining if list exists At 06:34 PM 02/03/2004, you wrote: Goo'day, Are you sure the IF E = 401 bit works in UV? This would not work within UV unless proc had been rewritten (doubtful). The error handling within uv is different and this is one of those areas affected by that difference. You can only test IF E or IF #E. AFAIK, in UV, E = 0 if there are no items SELECTed, at least in Pick flavo*u*r. Yep. The 401 bit is vanilla Pick, which I remember we had to change on conversion to UV back in 9.3???. Dunno about UD, though At 10:06 04/02/04, you wrote: In a proc you would have: PQ HSELECT SOMEFILE SAMPLE 3 P IF E = 401 G 99 HLIST SOMEFILE P 99 O No Items Selected __ Do you Yahoo!? Yahoo! SiteBuilder - Free web site building tool. Try it! http://webhosting.yahoo.com/ps/sb/ -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users -- Incoming mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 -- 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 -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
RE: Memo: Re: [UD] Determining if list exists
Thanks. I couldn't get the IF S or IF #S to work, so I used Anthony Youngman's advice and used the REQUIRE.SELECT which worked fine. Also, Greenpeace will be glad to know that no trees were harmed in the creation of these reports. All printouts were held. Disk space however was used quite extensively since, when the criteria is met, this report is usually 191K but when it lists the whole file, it grows to 161MB. Chris -Original Message- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of [EMAIL PROTECTED] Sent: Tuesday, February 03, 2004 9:02 AM To: U2 Users Discussion List Subject: Memo: Re: [UD] Determining if list exists Hi Chris, I believe there is the IF S or the IF #S construct that you can use in a proc to test the existence or otherwise of a select list. So if you modify your proc: HSSELECT AR WITH PAYMENT.DATE GE 2-9-04 STON P HSAVE-LIST ARLIST P HGET-LIST ARLIST STON H PH IF #S G 10 HLIST AR PAYMENT.DATE LPTR P 10 O No items Selected that should save a few trees. cheers, asvin Chris Bugosh [EMAIL PROTECTED] on 03 Feb 2004 13:51 Please respond to U2 Users Discussion List [EMAIL PROTECTED] Sent by:[EMAIL PROTECTED] To:[EMAIL PROTECTED] cc: bcc: 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 ** This message originated from the Internet. Its originator may or may not be who they claim to be and the information contained in the message and any attachments may or may not be accurate. ** (See attached file: C.htm) ___ u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users HSBC Bank plc Registered Office: 8 Canada Square, London E14 5HQ Registered in England - Number 14259 Authorised and Regulated by the Financial Services Authority Member of the HSBC Bank marketing group. We sell life assurance, pensions and collective investment schemes and advise only on our own range of these products. _ This transmission has been issued by a member of the HSBC Group HSBC for the information of the addressee only and should not be reproduced and / or distributed to any other person. Each page attached hereto must be read in conjunction with any disclaimer which forms part of it. Unless otherwise stated, this transmission is neither an offer nor the solicitation of an offer to sell or purchase any investment. Its contents are based on information obtained from sources believed to be reliable but HSBC makes no representation and accepts no responsibility or liability as to its completeness or accuracy. ___ u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
RE: Memo: Re: [UD] Determining if list exists
In a proc you would have: PQ HSELECT SOMEFILE SAMPLE 3 P IF E = 401 G 99 HLIST SOMEFILE P 99 O No Items Selected __ Do you Yahoo!? Yahoo! SiteBuilder - Free web site building tool. Try it! http://webhosting.yahoo.com/ps/sb/ -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
RE: Memo: Re: [UD] Determining if list exists
Goo'day, Are you sure the IF E = 401 bit works in UV? AFAIK, in UV, E = 0 if there are no items SELECTed, at least in Pick flavo*u*r. The 401 bit is vanilla Pick, which I remember we had to change on conversion to UV back in 9.3???. Dunno about UD, though At 10:06 04/02/04, you wrote: In a proc you would have: PQ HSELECT SOMEFILE SAMPLE 3 P IF E = 401 G 99 HLIST SOMEFILE P 99 O No Items Selected __ Do you Yahoo!? Yahoo! SiteBuilder - Free web site building tool. Try it! http://webhosting.yahoo.com/ps/sb/ -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users -- Incoming mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users
Re: Memo: Re: [UD] Determining if list exists
The E=401 is a test to see if a process generated an ERRMSG record, item-id of 401. The ERRMSG file had its own syntax of displaying the messages with the parameters, but i'm sure it's a long lost art. Sort of like RUNOFF and BATCH. GFE (Gone ForEver). - Original Message - From: Bruce Nichol [EMAIL PROTECTED] To: U2 Users Discussion List [EMAIL PROTECTED] Sent: Tuesday, February 03, 2004 6:34 PM Subject: RE: Memo: Re: [UD] Determining if list exists Goo'day, Are you sure the IF E = 401 bit works in UV? AFAIK, in UV, E = 0 if there are no items SELECTed, at least in Pick flavo*u*r. The 401 bit is vanilla Pick, which I remember we had to change on conversion to UV back in 9.3???. Dunno about UD, though At 10:06 04/02/04, you wrote: In a proc you would have: PQ HSELECT SOMEFILE SAMPLE 3 P IF E = 401 G 99 HLIST SOMEFILE P 99 O No Items Selected __ Do you Yahoo!? Yahoo! SiteBuilder - Free web site building tool. Try it! http://webhosting.yahoo.com/ps/sb/ -- u2-users mailing list [EMAIL PROTECTED] http://www.oliver.com/mailman/listinfo/u2-users -- Incoming mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 Regards, Bruce Nichol Talon Computer Services ALBURYNSW 2640 Australia Tel: +61 (0)411149636 Fax: +61 (0)260232119 If it ain't broke, fix it till it is! -- Outgoing mail is certified Virus Free. Checked by AVG Anti-Virus (http://www.grisoft.com). Version: 7.0.211 / Virus Database: 261.8.1 - Release Date: 30/01/04 -- 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
