Here is a simple solution.....all messages and functions used are documented in both the Scripting Guide and the Scripting Index
names default to here( 1 );
dt = Open( "$SAMPLE_DATA\Big Class.JMP" );
dt << select where( Row() > 1 );
dt << delete rows;
Jim