To stop errors (not just warnings) it needs to be 2 (or maybe 18, depending on
how you feel about false branches on 'if's being displayed)
----- Original Message -----
From: "Ray Shahan" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Friday, January 26, 2007 10:22
Subject: Re: [HP3000-L] How to catch CIERROR before it's displayed
Yikes! I get a CIERROR 9003 even if you enter a value and hit return.
Am I doing something wrong here (geez, this was going to be a quick CMD
file, but I'm having a Monday here).
SETVAR HPMSGFENCE 1
INPUT FILES_TO_COPY, &
"Enter file set to copy (ex: A@, JHK@)<@> "; &
DEFAULT=@;WAIT=60
IF CIERROR=9003
ECHO
ECHO Function cancelled
DELETEVAR FILES_TO_COPY
RETURN
ENDIF
Raymond Shahan
Computer Programmer
REPUBLIC TITLE OF TEXAS, INC.
2701 W Plano Parkway
Plano, TX 75075
direct 214.556.0202
main 972.578.8611
fax 972.424.5621
www.republictitle.com
[log in to unmask]
-----Original Message-----
From: HP-3000 Systems Discussion [mailto:[log in to unmask]] On
Behalf Of Vance, Jeff H (Cupertino)
Sent: Friday, January 26, 2007 11:56 AM
To: [log in to unmask]
Subject: Re: [HP3000-L] How to catch CIERROR before it's displayed
You can set the HPMSFENCE variable to 1. See HELP HPMSGFENCE for more
values.
E.g.
setvar savemsgfence hpmsgfence
setvar hpmsgfence 1
continue
input files_to_copy, & ...
if hpcierr = -9003 then
# input timed out...
endif
setvar hpmsgfence savemsgfence
HTH,
Jeff Vance, vCSY
> -----Original Message-----
>> Hi all,
>
> It seems like I ought to know this but can't recall how to
> do it. I'm doing an MPE INPUT statement with the WAIT parm, and when
> the INPUT times out, I get the CIERROR 9003. I don't want the CIERROR
> to display - I want to trigger an action if the INPUT times
> out, and not have the error display.
>
> Here's my code snippet:
>
> INPUT FILES_TO_COPY, &
> "Enter file set to copy (ex: A@, JHK@)<@> "; &
> DEFAULT=@;WAIT=25
>
> IF CIERROR=9003
> ECHO
> ECHO Function cancelled
> DLETEVAR FILES_TO_COPY
> RETURN
> ENDIF
>
* 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 *
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|