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:
"Reid E. Baxter" <[log in to unmask]>
Reply To:
Date:
Fri, 26 Jan 2007 12:51:41 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (137 lines)
Ray,

Perhaps HPMSGFENCE would be applicable here.

Regards,

Reid E. Baxter



                                                                           
             Ray Shahan                                                    
             <rshahan@REPUBLIC                                             
             TITLE.COM>                                                 To 
             Sent by: HP-3000          [log in to unmask]              
             Systems                                                    cc 
             Discussion                                                    
             <[log in to unmask]                                     Subject 
             TC.EDU>                   [HP3000-L] How to catch CIERROR     
                                       before it's displayed               
                                                                           
             01/26/2007 11:42                                              
             AM                                                            
                                                                           
                                                                           
             Please respond to                                             
                Ray Shahan                                                 
             <rshahan@REPUBLIC                                             
                TITLE.COM>                                                 
                                                                           
                                                                           




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 *



-----------------------------------------
This transmission may contain information that is privileged,
confidential, legally privileged, and/or exempt from disclosure
under applicable law.  If you are not the intended recipient, you
are hereby notified that any disclosure, copying, distribution, or
use of the information contained herein (including any reliance
thereon) is STRICTLY PROHIBITED.  Although this transmission and
any attachments are believed to be free of any virus or other
defect that might affect any computer system into which it is
received and opened, it is the responsibility of the recipient to
ensure that it is virus free and no responsibility is accepted by
JPMorgan Chase & Co., its subsidiaries and affiliates, as
applicable, for any loss or damage arising in any way from its use.
If you received this transmission in error, please immediately
contact the sender and destroy the material in its entirety,
whether in electronic or hard copy format. Thank you.

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

ATOM RSS1 RSS2