USE Table I |
---|
FOR each P MID |
   k = Number_of_DescriptorName(PMID) |
   j = 1 |
   FOR DescriptorNames(i) (i =, 1, 2,..., k) |
      DO while j ≤ k |
         DescriptorNames Pair = DescriptorNames(i)+ |
            DescriptorNames (j) |
         j = j + 1 |
         OUTPUT DescriptorName_Pair INTO |
            table DM_pairs |
      ENDDO |
      j = 1 |
   ENDFOR |
ENDFOR |