Subject: | |
From: | |
Reply To: | |
Date: | Thu, 11 Oct 2001 09:49:21 +0100 |
Content-Type: | text/plain |
Parts/Attachments: |
|
|
Forgot to mention that you need the SCANFILE command file that can also be
obtained from this site.
-----Original Message-----
From: Robert Mills
Sent: 11 October 2001 09:42
To: [log in to unmask]
Subject: RE: Powerhouse Question
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 *
|
|
|