HP3000-L Archives

January 2007, Week 4

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: How to catch CIERROR before it's displayed
From:
"Dave Powell, MMfab" <[log in to unmask]>
Reply To:
Dave Powell, MMfab
Date:
Fri, 26 Jan 2007 11:21:46 -0800
Content-Type:
text/plain
Parts/Attachments:
text/plain (101 lines) 
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 *

ATOM RSS1 RSS2