Looping Through Columns [Range Check]

Yngeinstn

I would like some guidance applying a range check based on already populated spec limits.

This one test has 87 screening limits and I would like to apply a range check in order to assist in establishing spec limits.

I know i can use the script for what i want to accomplish but i can't figure out how to apply the Range Check( LELE( 16, 46 ) ), for example..

 

Thank you for your time

 

// dtsplitmeas is the table that is split
cols = dtsplitmeas << get Column names( string );
// dtlim is _SPEC LIMITS_ .jmp attached to this thread
// dtrange is _RANGE CHECK_ .jmp attached to this thread

// Assign Spec Limit script 

For( i = 1, i <= N Cols( dtsplitmeas ), i++, 
	limrow = Try( (dtlim << get rows where( dtlim:SPEC_COL_NAMES == cols[i] ))[1], . ); 
	If( Is Missing( limRow ) == 0,  
		specs = {LSL( . ), USL( . ), Target( . ), Show Limits( 1 )}; 
		specs["LSL"] = dtlim:LSL[limrow]; 
		specs["USL"] = dtlim:USL[limrow]; 
		Column( dtsplitmeas, Char( cols[i] ) ) << set property( "spec limits", Eval( specs ) );
		);
	);

 

 

 

 

sample data.jmp

_ SPEC LIMITS_.jmp

_ RANGE CHECK_.jmp

vince_faller

This works for me.  I changed the try to just a check that it has rows in case that would fail for any reason, I wouldn't want to silently just pass errors.  

 

Names default to here(1);
dtsplitmeas = Data Table("sample data");
dtlim = Data Table("_ SPEC LIMITS_");
dtrange = Data Table( "_ RANGE CHECK_" );
// dtsplitmeas is the table that is split
cols = dtsplitmeas << get Column names( string );
// dtlim is _SPEC LIMITS_ .jmp attached to this thread
// dtrange is _RANGE CHECK_ .jmp attached to this thread

// Assign Spec Limit script 

For( i = 1, i <= N Cols( dtsplitmeas ), i++, 
	
	limrow = dtlim << get rows where( dtlim:SPEC_COL_NAMES == cols[i] ); 
	If( nrows(limrow),  
		specs = {LSL( . ), USL( . ), Target( . ), Show Limits( 1 )}; 
		specs["LSL"] = dtlim:LSL[limrow[1]]; 
		specs["USL"] = dtlim:USL[limrow[1]]; 
		Column( dtsplitmeas, Char( cols[i] ) ) << set property( "spec limits", Eval( specs ) );
		//this assumes that the spec_col_names are exactly the same in both tables
		Eval(EvalExpr(
			Column( dtsplitmeas, char(cols[i])) << Set Property("Range Check", 
				LELE(Expr(dtrange:rangeA[limrow[1]]), Expr(dtrange:rangeB[limrow[1]]))
			)
		));
	);
);