p_record array[] = { &r1, &r2, &r3, &r4, &r5 };

records_in (array, array_length (array), (int index,  
                                          p_p_record record'') {
                                                                 ...
                                                               });
