You can use the <<Get Property("Spec Limits") message on a column to get the spec limits and then put them into a data table.
Try something like this:
dt = Current Data Table();
specs = New Table( "SpecLimits.jmp",
New Column( "ColName", Character, Nominal, width( 30 ) ),
New Column( "LSL", Numeric, Nominal ),
New Column( "USL", Numeric, Nominal ),
New Column( "Target", Numeric, Nominal )
);
nc = N Col( dt );
For( i = 1, i <= nc, i++,
If( Column( dt, i ) << get data type() == "Numeric",
If( !Is Empty( x = Column( dt, i ) << get property( "Spec Limits" ) ),
specs << add rows( 1, N Row( specs ) );
Try( Column( specs, "lsl" )[N Row( specs )] = x["lsl"] );
Try( Column( specs, "usl" )[N Rows( specs )] = x["usl"] );
Try( Column( specs, "target" )[N Rows( specs )] = x["target"] );
Column( specs, "colname" )[N Rows( specs )] = Column( dt, i ) << get name;
)
)
);
-Jeff
-Jeff