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:
Neil Armstrong <[log in to unmask]>
Reply To:
Neil Armstrong <[log in to unmask]>
Date:
Fri, 26 Jan 2007 14:12:04 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (100 lines) 
At 01:22 PM 1/26/2007, Ray Shahan wrote:
Did you initialize?

setjcw cierror,0

may help.

Neil


>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