How to output non missing variables from a list of variables

[gpv2000]

I need help in figuring out how to output  a Subject that has two or more Tobacco types = 1 and  create a unique record for each Tobacco type

data example;

   input subject  cigarettes cigars pipe vape;

datalines;

1001 1 1 0 0

1002 0 1 1 0

1003 0 1 1 1

;

My desired output is

subject	cigarettes	cigars	pipe	vape
1001	1
1001		1
1002		1
1002			1
1003		1
1003			1
1003				1

[Tom · Accepted solution]

Seems kind of a silly thing to do.  But you could do it easily with two transposes.

data example;
   input subject  cigarettes cigars pipe vape;
datalines;
1001 1 1 0 0
1002 0 1 1 0
1003 0 1 1 1
;

proc transpose data=example out=tall;
  by subject;
  var cigarettes cigars pipe vape;
run;

proc transpose data=tall out=want(drop=_name_);
  where col1>0;
  by subject _name_;
  id _name_;
  var col1;
run;

Obs    subject    cigarettes    cigars    pipe    vape

 1       1001          1           .        .       .
 2       1001          .           1        .       .
 3       1002          .           1        .       .
 4       1002          .           .        1       .
 5       1003          .           1        .       .
 6       1003          .           .        1       .
 7       1003          .           .        .       1

[Reeza]

Agree with Tom, this data structure does not make logical sense. What are you attempting to that makes you think you require this data structure?

You mention, "output a Subject that has two or more Tobacco types = 1" but your sample data does not include any observations that meet that criteria.

[gpv2000]

I probably did not express clearly. Cigarettes, cigars, vape and pipes come under the umbrella of tobacco. If the subject uses any of these, it is captured as 1. I needed to output subjects that has 2 or more tobacco types as 2 records.

[Reeza]

The solution you've selected will output regardless if it's 2 or 1.

You can add a WHERE statement to filter it but I still feel this is probably a inefficient way to achieve a goal.