dt=Open("$SAMPLE_DATA/Big Class.jmp"); scriptContent = dt << Get Script("Oneway"); d9 = New Table("A"); d9 << New Script("Oneway", scriptContent);
Thanks Experts!
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))); ));