Can I copy the embedded scripts from one table to another?

[#1]

If I have a parent table with many scripts embedded.  Can I copy those easily to a summary table or transposed table automatically using JSL?

[#2 · Accepted solution]

Yes 

Names Default To Here(1); 

dt1 = open("$SAMPLE_DATA/Big Class.jmp");
dt2 = open("$SAMPLE_DATA/Big Class Families.jmp");
dt2 << Delete Scripts(dt2 << Get Table Script Names);

For Each({sname}, dt1 << Get Table Script Names,
	s = dt1 << Get Script(sname);

	Eval(EvalExpr(dt2 << New Script(sname,
		Expr(NameExpr(s))
	)));	
);

Write();

[#3]

Jarmo

Brilliant!  You should see the script this replaced!

[#4]

This has been a repeated topic in the Discussion Group.  A simple search would have provided the answer to you faster and more efficiently that opening a new discussion and waiting for someone to respond.

[#5]

Jim

I apologise profusely, it won't happen again!