So why not just merge that file with the final results? e.g.:
data players;
input player;
cards;
5
7
10
;
proc sort data=players;
by player;
run;
data h1;
input game
player1 pos1 $
player2 pos2 $
player3 pos3 $
player4 pos4 $
player5 pos5 $
player6 pos6 $
player7 pos7 $
player8 pos8 $
player9 pos9 $
player10 pos10 $;
cards;
1 1 a 5 b 6 c 8 d 7 e 10 f 12 g 14 h 16 i 18 j
2 1 a 2 b 3 c 4 d 5 e 6 f 7 g 8 h 9 i 10 k
3 1 a 2 b 5 c 7 d 9 e 11 f 13 g 15 h 17 i 19 k
;
data need (keep=game player pos);
set h1;
array players(*) player1-player10;
array position(*) $ pos1-pos10;
do i=1 to 10;
player=players(i);
pos=position(i);
output;
end;
run;
proc sort data=need;
by player game;
run;
data want (keep=player games);
set need;
length games $70;
retain games;
by player;
game_and_pos=catx(" ",game,pos);
if first.player then games=game_and_pos;
else games=catx(",",games,game_and_pos);
if last.player then output;
run;
data want;
merge want players (in=inb);
by player;
if inb;
run;
