PARM varname, minlen=4, maxlen=8

# RANDVAR.XEQ
# Michael D. Hensley - Allegro Consultants Inc.
# (enhanced from a script by Jeff Vance of Hewlett Packard)
#
# This script returns in the variable specified as "varname" a
# 'random' name consisting of letters and numbers (cannot start
# with a number) at least "minlen" characters long and not more
# than "maxlen" chars.

# expression for a "random" consonant
setvar consonants "bcdfghjklmnpqrstvwxyz"
setvar consonant "str(consonants,(hpcpumsecs mod 21)+1,1)"

# expression for a "random" vowel
setvar vowels "aeiou"
setvar vowel "str(vowels,(hpcpumsecs mod 5)+1,1)"

# first character must be a letter
setvar !varname !consonant

# now fill in the rest, must have at least "minlen" chars,
# up to "maxlen"
setvar i 1
setvar limit min((hpcpumsecs mod !maxlen)+!minlen, !maxlen)

while setvar(i,i+1) <= limit do
   if odd(i) then
      setvar !varname !varname + !consonant
   else
      setvar !varname !varname + !vowel
   endif
endwhile