There are plenty of demonstrations of saving expressions to table script so here is a repeat
Names Default To Here(1);
dt = Open("$SAMPLE_DATA/Big Class.jmp");
ow_script = dt << Get Script("Oneway");
dt2 = Open("$SAMPLE_DATA/Big Class Families.jmp");
Eval(EvalExpr(
dt2 << New Script("Oneway", Expr(NameExpr(ow_script)));
));
-Jarmo