Simple task - remove empty columns

viralnerd2013

Hello SAS forum,

I am trying to remove all columns in a dataset that are empty, and I cannot figure out how to do this in JMP9. Can you help? There will be variable number of patients and AA's

Data input

   

Patient	Sample	AA_1	AA_2	AA_3	AA_4	AA_5	AA_6
2234	Day 1		A				C
2234	Day 11		A		V/M/S		C
2234	Day 21		A				C
2234	Day 24		A			S/T	C

Output

Patient	Sample	AA_2	AA_4	AA_5	AA_6
2234	Day 1	A			C
2234	Day 11	A	V/M/S		C
2234	Day 21	A			C
2234	Day 24	A		S/T	C

ms

When doing this interactively in JMP, I tend to use missing data pattern and summary. But for large tables and repeated tasks JSL script is more effective.

This should work for removing empty columns of any data type.

dt = Current Data Table();

nc = N Col( dt );

names = dt << Get Column Names();

dt1 = dt << Missing Data Pattern( columns( Eval( names ) ), invisible );

nr = N Row( dt1 );

For( i = nc, i >= 1, i--,

  If( Col Sum( Column( dt1, i + 3 ) ) < nr,

  Remove From( names, i )

  )

);

Try( dt << delete columns( names ) );

Close( dt1, nosave );