Class ObjectScript.DataEntry3
{
// this is where the ValidDOB() method is
/// display the data
ClassMethod Display(answers as %String)
{
set $listbuild(name, phone, intdob) = answers
/* the line above is equivalent to
set name = $list(answers, 1),
phone = $list(answers, 2),
intdob = $list(answers, 3) */
write !!, "========================================"
write !, "Name:", ?20, name
write !, "Phone:", ?20, phone
write !, "DOB:", ?20, $zdate(intdob, 2)
write !, "========================================", !
}
}