get column name by values

[sateh]

I have a table with the following structure

I need to store in a new column the names of columns where in their records is 1, here is an example of what I want to do, the names of the columns can be separated with , when I store it in that new variable called list as seen in the image highlighted in yellow

[PaigeMiller]

This is a very difficult arrangement of data to work with, and should be avoided in most cases.

What would you do with this new variable once you have it?

[PeterClemmensen]

I do not recommend this.

data want;
   set have;
   array r ACCESO_ADMIN_JUSTICIA -- SEGURIDAD_SOCIAL;
   length listado $200;
   
   do over r;
      if r = 1 then listado = catx(',', listado, vname(r));
   end;
   
run;