alias pinfo {
var %tbl = pinfo, %entries = 100
if (!$hget(%tbl)) {
/hmake %tbl 10
var %p = 0, %tab = $chr(9)
while (%p < %entries) {
var %n = 0, %len = $rand(6,12)
while (%n < %len) {
var %name = $+(%name,$rand(a,z))
/inc %n
}
/hadd %tbl %p $+($rand(1,10),%tab,$rand(1,10),%tab,$rand(1,10),%tab,%name,%tab,$rand(1,1000),%tab,$rand(1,65535))
/unset %name
/inc %p
}
/echo -s Table %tbl created with %p entries
}
}