talk to enhanced log

[#1]

The enhanced log knows which command is sent to which data table and indicates the source and output data tables and reports  with different colors. The icons can be used to bring the respective window to the front:

Is there a JSL functionality that allows me to talk to the enhanced log?

like

log << list commands(10);

to get the last 10 commands.

or log << list commands("3h"); for the commands of the last 3 hours?

or

log << list commands(data table(dt));

to get all commands which were triggered with target data table dt.

[#2 · Accepted solution]

Enhanced Log is inside window called Log (if you are using enhanced log), from there you can use show properties and figure out that there is table box which contains a lot of different things

Names Default To Here(1);

elog = Window("Log")[Table Box(1)] << get;

[#3]

cool!

dt = Open( "$SAMPLE_DATA/Big Class.jmp" );

dtsum = dt << Summary( Group( :age, :sex ), Mean( :weight ) );

Wait( 0 );

myname = Current Data Table() << get name();
myname = "Summary of Big Class grouped by age, sex"; // ?!?!?

dtsum << Graph Builder(
	Variables( X( :age ), X( :sex, Position( 1 ) ), Y( :"Mean(weight)"n ) ),
	Elements( Points( X( 1 ), X( 2 ), Y, Legend( 4 ) ) )
);

dtsum << New Formula Column( Operation( Category( "Combine" ), "Product" ), Columns( :age, :N Rows ) );

elog = Window( "Log" )[Table Box( 1 )] << make into data table;
Eval( Eval Expr( myRows = Where( Contains( Origin, Expr( myname ) ) | Contains( Result, Expr( myname ) ) ) ) );
Window( "Log" )[Table Box( 1 )] << Set Selected Rows( myRows );
New Window( "my Script", <<Type( "Script" ), Substitute( Window( "Log" )[Script Box( 1 )] << get text, "/*:", ""))
;