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:
From:
Bob Schlosser <[log in to unmask]>
Reply To:
Date:
Fri, 26 Jan 2007 11:41:41 -0600
Content-Type:
text/plain
Parts/Attachments:
text/plain (112 lines)
Ray

If you setvar HPMSGFENCE 1 you will stop the display of the message.
remember to set it back to 0 after the command to see warnings again.

Robert Schlosser
Global Business Systems
Premier Farnell plc
T 864 487-1362
F 864.487.1904
E [log in to unmask]
www.newarkinone.com



-----Original Message-----
From: Ray Shahan [mailto:[log in to unmask]]
Sent: Friday, January 26, 2007 11:43 AM
To: [log in to unmask]
Subject: [HP3000-L] How to catch CIERROR before it's displayed


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

 

 

 

 

TIA for any help, and have a great weekend!

 

 

  <http://www.republictitle.com/> 

Raymond Shahan

Computer Programmer
 REPUBLIC TITLE OF TEXAS, INC. <http://www.republictitle.com/> 
  2701 W Plano Parkway
<http://maps.yahoo.com/maps_result?addr=2701+w+plano+parkway&csz=75075&c
ountry=us&new=1&name=&qty=>  
Plano, TX 75075

 


direct 214.556.0202
main 972.578.8611
fax 972.424.5621

 www.republictitle.com <http://www.republictitle.com/> 

[log in to unmask]

 

 


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


https://www.mailcontrol.com/sr/wQw0zmjPoHdJTZGyOCrrhg==
0o!UXQWLHXsZEhE0!9BjNtggGMuu4Bc2O+6k7QegZxpMkNQSt+C9dlUYcZU1vOTt7!LwQCuRZtx2
PBM4WNKyWgETq0L!suxg2HmO6iOlR7hi0VXsTriTUUd+2adAL1TmblzZefJYw!GCHig3lj2WEpkV
c6ZHXtlAEuXzpNFzM46V9zsalNY  
Click on the link above to report this email as spam to BlackSpider.

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

ATOM RSS1 RSS2