jsl script to recode multiple columns

MFVIT

Dear All,

I am trying to recode multiple columns by using the following script (also in attachment together with an example data table). I tried several changes but it does not work. The values in the columns just disappears instead of being recoded. 

I appreciate any help.

Many thanks,
Marcello.

 

 

dt3 = Current Data Table();
n3 = dt3 << Get Column Names();
Show( n3 );

lstColNames_n3 = dt3 << Get Column Names();
Show( lstColNames_n3 );


Show( lstCols_n3 );
lstCols_n3 = {};
For( i = 1, i <= N Items( lstColNames_n3 ), i++,
    colName = lstColNames_n3[i];
    col = Column( dt3, i );
    Insert Into( lstCols_n3, col );
);
Show( lstCols_n3 );

For Each Row(
    For( i = 1, i <= N Items( lstColNames_n3 ), i++,
        As Column( lstColNames_n3[i] ) = Match( As Column( lstColNames_n3[i] ),
            "1", "too low",
            "2", "too low",
            "3", "right",
            "4", "too high",
            "5", "too high"
        )
    )
);

 

 

JAR.jmp

recoding.jsl

txnelson

Here is the solution using the Recode feature written in JSL It is much faster than doing row by row processing

Names Default To Here( 1 );
dmdt = current data table();

nc = dmdt << get column names( Character );

For( i = 1, i <= N Items( nc ), i++,
	col = Column( dt, nc[i] );
	colname = col << getname();

	Eval(
		Parse(
			Eval Insert(
				"\[
		dmdt << Recode Column(
			:Name("^colname^"),
			{Map Value( _rcOrig, 
			{	"1", "too low",
				"2", "too low",
				"3", "right",
				"4", "too high",
				"5", "too high"}, 
			Unmatched( _rcNow ) )},
			Update Properties( 1 ),
			Target Column( :Name("^colname^") )
		);
	]\"
			)
		)
	);
);