[JSL bug] Concatenate all opened table into 1 table and close all

Stokes

Can someone help me to take a look bellow jsl?

I am trying to use it concatenate all open table into a single table, and close all the open table, only leave a final table which was concatenated from all of them.

When I run the jsl, it has a bug to re-produce multiple "final" table and not concatenate into 1 single table.

Not clear where the bug is coming from.

Thanks

 

 

Clear Globals();

// Create your Tables list
Tables = {};
For( i = 1, i <= N Table(), i++,
    Insert Into( Tables, Data Table( i ) << get name )
);

// Run the concatinations
For( i = 1, i < N Items( Tables ), i++,
    ConcTable = Data Table( Tables[i] ) << Concatenate(
        Data Table( Tables[i + 1] ),
        Create source column,
        Output Table Name( "final" )
    );
    Close( Data Table( Tables[i] ), No Save );
);

 

txnelson

Doing what you want to do, if you didn't want the Source Table Column, is very simple

Names Default To Here( 1 );
Clear Globals();

// Create your Tables list
Tables = {};
For( i = 1, i <= N Table(), i++,
	Insert Into( Tables, Data Table( i ) << get name );
);

new Table("all data");
// Run the concatinations
For( i = 1, i <= N Items( Tables ), i++,
	 Data Table( "all data" ) << Concatenate(
		Data Table( Tables[i] ),
		append to first table(1)
	);
	Close( Data Table( Tables[i] ), No Save );
);

It gets more complex if you want a Source Table.  Using the built in option of "Create Source Column", will produce a new Source Table column for each concatenation you do.  So some adjustments need to be made.  Below is a working script that should give you what you want

Names Default To Here( 1 );
Clear Globals();

// Create your Tables list
Tables = {};
TablesN = {};
For( i = 1, i <= N Table(), i++,
	Insert Into( Tables, Data Table( i ) << get name );
	for(k=1,k<=n rows(data table(i)),k++, insert into(TablesN,data table( i ) << get name));
);

new Table("all data");
// Run the concatinations
For( i = 1, i <= N Items( Tables ), i++,
	 Data Table( "all data" ) << Concatenate(
		Data Table( Tables[i] ),
		append to first table(1)
	);
	Close( Data Table( Tables[i] ), No Save );
);
 
 data table( "all data" ) << add multiple columns("Source Table", 1, before first, character );
:Source Table << set values( TablesN );