In case the data tables are invisible - at least for me they then do not show up in my recent files list when saving them
dt = Open( "$SAMPLE_DATA/Big Class.jmp", Add to Recent Files( 0 ) , invisible);
dt << Select Where( Row() < 21 );
d3 = dt << Subset( Output Table( "AA" ), Selected Rows( 1 ), selected columns( 0 ) , invisible);
Try( d3 << Delete Table Property( "Source" ) );
Try( d3 << Delete Table Property( "Source" ) );
d3 << Save( ".\test.jmp" );
Close( dt, nosave );
Close( d3, nosave );
/****NeverStopLearning****/