data have ;
input ID from :$1. to :$1.;
datalines;
1 b c
1 c d
1 a b
2 e f
2 f g
3 x y
run;
data need (keep=id nodename node);
set have;
by id;
if _n_=1 then do;
length prior node next $1;
declare hash triples();
triples.definekey('id','node');
triples.definedata('id','node','prior','next');
triples.definedone();
end;
/*Populate triples hash */
if triples.find(key:id,key:from)^=0 then call missing(prior);
triples.replace(key:id,key:from,data:id,data:from,data:prior,data:to);
if triples.find(key:id,key:to)^=0 then call missing(next);
triples.replace(key:id,key:to,data:id,data:to,data:from,data:next);
if last.id;
triples.output(dataset:'triples');
triples.find();
if not missing(prior) then do until (missing(prior));
triples.find(key:id,key:prior);
end;
nodename='Source'; /* Output nodes from source to sink */
output;
if not missing(next) then do seq=2 by 1 until(missing(next));
triples.find(key:id,key:next);
if missing(next) then nodename='Sink';
else nodename=cats('Node_',seq);
output;
end;
run;
proc transpose data=need out=want (drop=_name_) ;
by id;
var node;
id nodename;
run;basically I create a new case with id3, there is only two nodes x and y. The error in the log file shows:
1 OPTIONS NONOTES NOSTIMER NOSOURCE NOSYNTAXCHECK;
55
56 data have ;
57 input ID from :$1. to :$1.;
58 datalines;
NOTE: The data set WORK.HAVE has 6 observations and 3 variables.
NOTE: DATA statement used (Total process time):
real time 0.00 seconds
cpu time 0.00 seconds
65 run;
66
67 data need (keep=id nodename node);
68 set have;
69 by id;
70 if _n_=1 then do;
71 length prior node next $1;
72 declare hash triples();
73 triples.definekey('id','node');
74 triples.definedata('id','node','prior','next');
75 triples.definedone();
76 end;
77
78 /*Populate triples hash */
79 if triples.find(key:id,key:from)^=0 then call missing(prior);
80 triples.replace(key:id,key:from,data:id,data:from,data:prior,data:to);
81
82 if triples.find(key:id,key:to)^=0 then call missing(next);
83 triples.replace(key:id,key:to,data:id,data:to,data:from,data:next);
84
85 if last.id;
86 triples.output(dataset:'triples');
87
88 triples.find();
89 if not missing(prior) then do until (missing(prior));
90 triples.find(key:id,key:prior);
91 end;
92
93 nodename='Source'; /* Output nodes from source to sink */
94 output;
95 if not missing(next) then do seq=2 by 1 until(missing(next));
96 triples.find(key:id,key:next);
97 if missing(next) then nodename='Sink';
98 else nodename=cats('Node_',seq);
99 output;
100 end;
101 run;
NOTE: Variable node is uninitialized.
NOTE: The data set WORK.TRIPLES has 4 observations and 4 variables.
NOTE: The data set WORK.TRIPLES has 7 observations and 4 variables.
NOTE: The data set WORK.TRIPLES has 9 observations and 4 variables.
ERROR: Key not found.
NOTE: The SAS System stopped processing this step because of errors.
NOTE: There were 6 observations read from the data set WORK.HAVE.
WARNING: The data set WORK.NEED may be incomplete. When this step was stopped there were 8 observations and 3 variables.
WARNING: Data set WORK.NEED was not replaced because this step was stopped.
NOTE: DATA statement used (Total process time):
real time 0.04 seconds
cpu time 0.02 seconds
102
103 proc transpose data=need out=want (drop=_name_) ;
104 by id;
105 var node;
106 id nodename;
107 run;
NOTE: There were 8 observations read from the data set WORK.NEED.
NOTE: The data set WORK.WANT has 3 observations and 5 variables.
NOTE: PROCEDURE TRANSPOSE used (Total process time):
real time 0.01 seconds
cpu time 0.00 seconds
108
109
110 OPTIONS NONOTES NOSTIMER NOSOURCE NOSYNTAXCHECK;
122
Thanks!!!
