HP3000-L Archives

October 2001, Week 2

HP3000-L@RAVEN.UTC.EDU
Options: Use Monospaced Font
Show Text Part by Default
Show All Mail Headers

Message: [<< First] [< Prev] [Next >] [Last >>]
Topic: [<< First] [< Prev] [Next >] [Last >>]
Author: [<< First] [< Prev] [Next >] [Last >>]

Print Reply
Subject:
Re: Powerhouse Question
From:
Paul H Christidis <[log in to unmask]>
Reply To:
Paul H Christidis <[log in to unmask]>
Date:
Wed, 10 Oct 2001 17:47:01 -0700
Content-Type:
text/plain
Parts/Attachments:
text/plain (35 lines) 
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 *

ATOM RSS1 RSS2