HP3000-L Archives

March 2007, Week 1

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:
David N Lukenbill <[log in to unmask]>
Reply To:
David N Lukenbill <[log in to unmask]>
Date:
Thu, 1 Mar 2007 14:02:52 -0500
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines)
%Prompt String _tapec = "Enter Cycle type: (PART, FULL MEND, OR AVAIL): ";
&
     Check = Pos(UPS(_tapec),'PART FULL MEND AVAIL')>0 or _tapec=""; &
     CheckError = "Invalid tape cycle name; try again or <ctrl-y> to exit"


--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

This is a PRIVATE message. If you are not the intended recipient, please
delete without copying and kindly advise us by e-mail of the mistake in
delivery. NOTE: Regardless of content, this e-mail shall not operate to
bind CSC to any order or other contract unless pursuant to explicit written
agreement or government initiative expressly permitting the use of e-mail
for such purpose.
--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------




Below is a standard prompt which also does some checking on the value
input.  I'm trying to figure out a way to use this command and also have
it check if the user just presses the enter-key (which is a valid
option).  I can't figure out how to do this.  Anyone out there have a
suggestion?  It works for any of the 4 values in the POS statement with
the exception of a blank (pressing the enter-key) with nothing else
entered.

I would greatly appreciate any help; and thanks in advance.

Larry B.


 %prompt string _tapec = "Enter Cycle type: (PART, FULL, MEND, or AVAL):
" ;&
   check = pos(ups(_tapec),'PART FULL MEND AVAL ') > 0 ;&
   checkerror = Invalid tape cycle name; try again or <ctrl-y> to exit "

* 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