libname save 'sasdata';

data save.mgus;
    infile 'data.mgus';
    input  id 3. age 3.  sex 2.   dxyr 3. +1 dx $3. sdtime 5. futime 6. 
	               death 2.  alb 4.1 creat 4.1  hgb 5.1 mspike 4.1;

    if (sdtime=.) then do;
	time = futime;
	status = death;
	end;
    else do ;
        time = sdtime;
        status=1;
        end;

data save.mgus2; set save.mgus;
    drop futime sdtime death dx;
    if (sdtime =.) then do;
        time= futime;  status = death;
        endpoint='death  '; output;
        status=0;
        endpoint='myeloma'; output;
        endpoint='other';            output;
        end;

    else do;
        time = sdtime;
        status =0;  endpoint='death  '; output;
        if(dx='MM') then status=1; else status=0;
        endpoint='myeloma '; output;

        if(dx='AM' or dx='MA' or dx='LP') 
              then status=1; else status=0;
        endpoint='other';      output;
        end;