numeric i;
string alphabet = "ABCDEFGH";
do i = 1 while i <= 8
string letter = alphabet[i:1];
if pos(letter, S1P08) <> 0 then
S1P08A_i = 1;
else
S1P08A_i = 0;
endif;
enddo;
But it doesn't work. I would appreciate any suggestions. I didn't define S1P08A as a single item with multiple occurences because S1P08A is already in a roster with multiple occurences.