Need to get column name in other dataset

[shiv999]

Hell all , I'm looking to get the column headers name in other dataset based on the flag . Please see the attached pdf for the requirements.
Do we have any options to create it please let me know thanks in advance.

[PeterClemmensen]

data have;
input name $ id (Location_1-Location_3)(:$1.);
datalines;
STEF  1001 Y N N
JACK  1002 N N Y
MADDY 1003 Y N N
JEFFY 1004 N N Y
BEN   1005 N N Y
LAMAR 1006 Y N N
;

data want(drop=name location_:);
   set have;
   array l {*} Location_1-Location_3;
   location = vname(l[whichc('Y', of l[*])]);
run;

Result:

id    location 
1001  Location_1 
1002  Location_3 
1003  Location_1 
1004  Location_3 
1005  Location_3 
1006  Location_1