Talk about trying to reinvent the wheel!!

1) Connect to the following site
(http://www.fourdiamonds.net/hp3000/commandfiles.html)
2) Access the page on PowerHouse UDC's.
3) Download the AQ and BQ command files.
4) Read the comments in these files.
5) Implement.

Tis that simple and it works!!!

regards,
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
|Robert W.Mills (Systems Development Manager) |
|Windsong Services, St. Mary Cray, ENGLAND    |
|Tel  : +44 (0)1689 870622 x3005              |
|Fax  : +44 (0)1689 899026                    |
|Email: [log in to unmask]  |
+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+

-----Original Message-----
From: Paul H Christidis [mailto:[log in to unmask]]
Sent: 11 October 2001 01:47
To: [log in to unmask]
Subject: Re: Powerhouse Question


Patrick,

How about something like the following:

!...
!setvar _str_var "*W* The maximum number of records has been selected?"
!quiz ... >xstdin
!print xstdin;page=0
!WRNCHECK _str_var _warn_flag <xstdin
!if _warn_flag then
!  ... warning was located
!else
!  ...
!endif
!....


Where WRNCHECK would be the following command file

parm string="*W* " w_flag="_w_flag"
setvar m_Eof     FINFO(HPSTDIN,"eof") + 1
setvar lflag     false
while (NOT lflag) AND (SETVAR(m_Eof, m_Eof - 1) > 0) do
  INPUT _Err_Text
  setvar lflag POS("!string", _Err_Text) <> 0
endwhile
setvar !w_flag   !lflag


Regards
Paul Christidis

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *

* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *