Summary of Different Test Number with Same Test Name

OneNorthJMP

I am trying to do a summary of different test number with same test name from Table 1 to Table 2. Is there a quick and dirty way in JMP to achieve this? Thanks

 

Table 1

testnum	testname
T17561	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17562	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17563	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17564	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17565	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17566	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17567	Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB
T17621	Ana_PowerRegulator_ATE_Chara@LA
T17622	Ana_PowerRegulator_ATE_Chara@LA
T17623	Ana_PowerRegulator_ATE_Chara@LA
T17624	Ana_PowerRegulator_ATE_Chara@LA

 

Table 2

testname	testnum
Ana_Limiter_vdhf_ATE_Chara_LA@LA-LB	T17561,T17562,T17563,T17564,T17565,T17566,T17567
Ana_PowerRegulator_ATE_Chara@LA	T17621,T17622,T17623,T17624

txnelson

The JSL I provided will work for any number of testnames and test numbers

Names Default To Here( 1 );
dt = New Table( "Example", New Column( "testname", character ), New Column( "testnum", character ) );
For( i = 1, i <= 50, i++,
	tnam = "Testname" || Char( i );
	kstart = Random integer( 1, 5 );
	For( k = kstart, k <= Random integer( 1, 25 + kstart ), k++,
		dt << add rows( 1 );
		dt:testname[N Rows( dt )] = tnam;
		dt:testnum[N Rows( dt )] = "T" || Char( k );
	);
);

// Create the new summary data table
dtTrans = dt << Transpose(
	columns( :testnum ),
	By( :testname ),
	Output Table( "Transpose" )
);

// Get rid of the not needed column called "Label"
dtTrans << delete columns("Label");

// Get a list of the columns in the data table
colNames = dtTrans << get column names(string);
// Get rid of the first column so the list only contains the transposed columns
colNames = remove(colNames,1,1);

// Create the new testnum column
dtTrans << New Column( "testnum", character );

// Loop through all of the rows in the table and create the concatenated column
For( theRow = 1, theRow <= N Rows( dtTrans ), theRow++,
	:testnum[theRow] = :Row 1[theRow];
	For( theCol = 2, theCol <= N Items( colNames ), theCol++,
		If( Column( colNames[theCol] )[theRow] != "",
			:testnum[theRow] = :testnum[theRow] || ", " || Char( Column( colNames[theCol] )[theRow] )
		)
	);
);

// Delete the unnecessary columns
dtTrans << delete columns( colNames );