Class ObjectScript.Lookup1
{
//// given an ID, retrieve data and write it on a line
ClassMethod DisplayLine(id as %Integer)
{
set $listbuild(name, phone, intdob) = ^PersonD(id)
/* the line above is equivalent to
set answers = ^PersonD(id),
name = $list(answers, 1),
phone = $list(answers, 2),
intdob = $list(answers, 3) */
write name, ?20, phone, ?35, $zdate(intdob, 2)
}
}