JSL: How to close data tables after analysis

[#1]

I am new to JSL just started 2 weeks ago.

I am trying to create analysis for many tests, few tests are stacked togehter at a time in a new data table everytime; by the time the script is done I end up with many opened data tables. I cannot close these data tables after the analysis is done. is there a way to close these open files without closing the original data file or the actual chart?

Because now, I am ending up with over 30 data files, named test, test1,...

here is a snap of my code:

dt = Current Data Table();
NW = New Window( "TRIM_CHARTS",
           
dt << Stack(
            columns(
                  :TRIM_TARGET,
                  :Emulate_0000__,
                  :Emulate_0001__,
                  :Emulate_0010___,
                  :Emulate_0011__,
                  :Emulate_0100__,
                  :Emulate_0101__,
                  :Emulate_0110__,
                  :Emulate_0111__,
                  :Emulate_1000__,
                  :Emulate_1001__,
                  :Emulate_1010__,
                  :Emulate_1011__,
                  :Emulate_1100___,
                  :Emulate_1101__,
                  :Emulate_1110___,
                  :Emulate_1111__,
                  : _BEST_VALUE
            ),
            Source Label Column( "Label" ),
            Stacked Data Column( "Data" ),
            Output Table( "test" )
      );
      Oneway(
            Y( :Data ),
            X( :Label ),
            Name( "Means/Anova" )(1),
            Means and Std Dev( 1 ),
            Mean Diamonds( 1 ),
            Mean Error Bars( 1 ),
            Std Dev Lines( 1 ),
            Connect Means( 1 ),
            X Axis Proportional( 0 ),
            Points Spread( 1 ),
            Grand Mean( 0 ),
            SendToReport(
            Dispatch(
                  {},
                  "Oneway Plot",
                  FrameBox,
                  {Row Legend(
                        Temp,
                        Color( 1 ),
                        Color Theme( "Blue to Green to Red" ),
                        Marker( 0 ),
                        Marker Theme( "" ),
                        Continuous Scale( 0 ),
                        Reverse Scale( 0 ),
                        Excluded Rows( 0 )
                  )}
                  )
            )
      );
      dt << Stack(
     
      columns(
                  :Ilim__TRIM_TARGET,
                  :Emulate_0000_Ilim_,
                  :Emulate_0001_Ilim_,
                  :Emulate_0010_Ilim_,
                  :_iLIM_BEST_VALUE
            ),
            Source Label Column( "Label" ),
            Stacked Data Column( "Data" ),
            Output Table( "test" )
      );
      Oneway(
            Y( :Data ),
            X( :Label ),
            Name( "Means/Anova" )(1),
            Means and Std Dev( 1 ),
            Mean Diamonds( 1 ),
            Mean Error Bars( 1 ),
            Std Dev Lines( 1 ),
            Connect Means( 1 ),
            X Axis Proportional( 0 ),
            Points Spread( 1 ),
            Grand Mean( 0 ),
            SendToReport(
            Dispatch(
                  {},
                  "Oneway Plot",
                  FrameBox,
                  {Row Legend(
                        Temp,
                        Color( 1 ),
                        Color Theme( "Blue to Green to Red" ),
                        Marker( 0 ),
                        Marker Theme( "" ),
                        Continuous Scale( 0 ),
                        Reverse Scale( 0 ),
                        Excluded Rows( 0 )
                  )}
                  )
            )
      );
);
nw  <<     Set page setup(
    margins( 0.5, 0.5, 0.5, 0.5 ),
    scale( 0.8 ),
    portrait( 0 ),
    paper size( "A3" )
);
jrn = NW << Journal;
NW << save PDF( "C:\My Documents\Trim_CHARTS.pdf" );

Thanks

Sam

[#2]

this is what I end up when the final report/jrn is completed!

[#3 · Accepted solution]

When you create your stacked data tables, simply make them invisible.  They will appear in the JMP Home window, but they will not have a visible window  created.

 dt << Stack(invisible,
      columns(
                  :Ilim__TRIM_TARGET,
                  :Emulate_0000_Ilim_,
                  :Emulate_0001_Ilim_,
                  :Emulate_0010_Ilim_,
                  :_iLIM_BEST_VALUE
            ),
            Source Label Column( "Label" ),
            Stacked Data Column( "Data" ),
            Output Table( "test" )
      );

[#4 · Accepted solution]

Thanks Jim. it worked.

Appreciated.

[#5]

It is noice to hide them, but is there any way to close all the tables without specifying their names and without closing the final output (e.g. a close all except kind of thinking).

Thanks

[#6]

This may not be the most efficient way to get what you want done - but it will work .

openDTs = List(); // Define an empty list to collect names of all open data tables 
TableNames = List(); 
For( i = 1, i <= N Table(), i++,
        Insert Into( openDTs, Data Table( i ) );
        Insert Into(TableNames,Data Table(i) << get name); 
    );

// By now openDTs contains references of all tables that you have open 
DontClose = {"Test1","Result"};   // Example names of tables you want to leave open 
For( i = 1, i <= N Items(openDTs) , i++,
		TabName = openDTs[i] << Get Name ;
        If(Contains(DontClose,TabName),
            Continue(); 
            , 
            Close(openDTs[i],"No Save");
          ); 
    );

[#7]

Uday's code will work great, the code below just simplifies the same code

Names Default To Here( 1 );

DontClose = {"Test1", "Result"};   // Example names of tables you want to leave

// Loop backwards through the list, so the table numbers do not change
For( i = N Table(), i >= 0, i--, 
	If( Contains( DontClose, Data Table( i ) << get name ),
		Continue(),
		Close( Data Table( i ), "No Save" )
	)
);

[#8]

Hi Jim,

I am running a script that ends with this bit of script you have. In my case I am only interested in keeping 1 data table. When I run the script it does what is intended. However, when I use the JSL Debugger it stops on the If statement with the following red message: Cannot locate data table in access or evaluation of 'Data Table', Data Table/*###*/(i)

I was wondering if you know what this means?

I am just concerned that if I extend the script to do other things it will stop here regardless.