Bob
Here is some code I use to create alpha/numeric password (10 chars). Check
your table were you are using the 9 digit value, if your value is unique
then insert it or run the code again.
*****Code starts here
SET VAR VLoop INTEGER = 1,VPart1 TEXT, VPart2 TEXT, VPart3 TEXT, VPart4
TEXT, +
VPart5 TEXT, VPart6 TEXT, VPart7 TEXT, VPart8 TEXT, VPart9 TEXT, VPart10
TEXT
WHILE VLoop <= 10 THEN
SET VAR VCode = (RANDOM(10))
SET VAR VMod = (MOD(.VCode,2))
IF VMOD = 0 THEN
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=' &
(CTXT(.VCode)))
&VWhatPart
ELSE
SET VAR VCode1 = (RANDOM(26))
SWITCH (.VCode1)
CASE 1
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
a')
BREAK
CASE 2
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
b')
BREAK
CASE 3
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
c')
BREAK
CASE 4
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
d')
BREAK
CASE 5
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
e')
BREAK
CASE 6
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
f')
BREAK
CASE 7
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
g')
BREAK
CASE 8
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
h')
BREAK
CASE 9
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
i')
BREAK
CASE 10
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
j')
BREAK
CASE 11
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
k')
BREAK
CASE 12
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
l')
BREAK
CASE 13
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
m')
BREAK
CASE 14
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
n')
BREAK
CASE 15
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
o')
BREAK
CASE 16
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
p')
BREAK
CASE 17
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
q')
BREAK
CASE 18
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
r')
BREAK
CASE 19
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
s')
BREAK
CASE 20
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
t')
BREAK
CASE 21
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
u')
BREAK
CASE 22
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
v')
BREAK
CASE 23
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
w')
BREAK
CASE 24
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
x')
BREAK
CASE 25
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
y')
BREAK
CASE 26
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '=
z')
BREAK
DEFAULT
SET VAR VWhatPart = ('SET VAR VPart' + (CTXT(.VLoop)) & '= h')
ENDSW
&VWhatPart
ENDIF
SET VAR VLoop = (.VLoop + 1)
ENDWHILE
SET VAR VNewPass = (.VPart1 + .VPart2 + .VPart3 + .VPart4 + .VPart5)
SET VAR VNewPass = (.VNewPass + .VPart6 + .VPart7 + .VPart8 + .VPart9 +
.VPart10)
*****Code ends here
-----Original Message-----
From: Bob Powell [mailto:[EMAIL PROTECTED]]
Sent: Monday, April 23, 2001 10:05 AM
To: [EMAIL PROTECTED]
Subject: Randomly generated unique numbers
Does anyone know how to randomly generate a nine digit
number that is always unique?
----------------------
Bob Powell
The Hotchkiss School
Lakeville, Connecticut
Systems Administrator
[EMAIL PROTECTED]
