Sender: |
|
Subject: |
|
From: |
|
Date: |
Wed, 26 Sep 2001 16:27:48 -0700 |
Content-Type: |
text/plain; charset="iso-8859-1" |
MIME-Version: |
1.0 |
Reply-To: |
|
Parts/Attachments: |
|
|
> SETVAR _CN ' '
> WHILE NOT NUMERIC ("!_CN") OR NOT LEN ("!_CN") = 10
> INPUT _CN;PROMPT="Paste or type 10-digit Customer Number
> here:";READCNT=10
> if not numeric ( "!_CN" ) or not len ( "!_CN" ) = 10
> echo Wrongo try again
> ENDIF
> endif
A slight variation on the above perfectly valid scheme:
setvar num ""
while len(setvar(num,input("Paste or type...",,10))) <> 10 or &
not numeric(num)
endwhile
# now we have a 10 digit string in the 'num' variable ...
FWIW,
Jeff Vance, CSY
* To join/leave the list, search archives, change list settings, *
* etc., please visit http://raven.utc.edu/archives/hp3000-l.html *
|
|
|