Column manipulations

Aam_jmp

I have tables that have data in the following order:

I want all the tables to look like this:

 

How can I achieve this in jsl? 

uday_guntupalli

@Aam_jmp, 
      In your specific example, the following would work: 

 

Clear Log(); Clear Globals(); 

dt = Current Data Table();  
dt2 = (dt << Tabulate(
						Set Format( N( 9, "Best" ) ),
						Add Table(
							Column Table( Analysis Columns( :Age, :Height, :Weight ) ),
							Column Table( Grouping Columns( :Result ) ),
							Row Table( Grouping Columns( :Name ) )
								 )
				      )
	  ) << Make Into Data Table; 

dt2 << New Column("Result",Character,Nominal,Formula(If(:Fail==1,"Fail",If(:Pass==1,"Pass")))); 

However, you will have to adjust the last column every single time in this approach. 
A more generalized approach is shown below: 

 

Clear Log(); Clear Globals(); 

dt = Current Data Table(); 
CharValsAA = Associative Array(dt:Result); 
Results = CharValsAA << Get Keys; 

for(i = 1, i < N Items(Results), i++,
		If(!IsMissing(Results[i]),
			,
			Remove From(Results,i);
		  );
   );

dt2 = (dt << Tabulate(
						Set Format( N( 9, "Best" ) ),
						Add Table(
							Column Table( Analysis Columns( :Age, :Height, :Weight ) ),
							Column Table( Grouping Columns( :Result ) ),
							Row Table( Grouping Columns( :Name ) )
								 )
				      )
	  ) << Make Into Data Table; 
nR = N Rows(dt2);

// Short sighted approach 
//dt2 << New Column("Result",Character,Nominal,Formula(If(:Fail==1,"Fail",If(:Pass==1,"Pass")))); 

// Generalized Approach 
dt2 << New Column("Test",Character,Nominal, Set Each Value("a")); 
for(i = 1, i <= N Items(Results), i++,
		VarName = Results[i]; 
		Eval(Parse(Eval Insert("\[ Temp_^i^ = Loc(dt2:^VarName^ << Get Values)  ; ]\" ))); 
		Eval(Parse(Eval Insert("\[ for(r = 1, r <= N Rows(Temp_^i^), r++,
										 If(Temp_^i^[r] > 0,
											dt2:Test[Temp_^i^[r]] = Results[^i^];
										   );
									   ) ; ]\" ))); 
   );