main() {

int db, i;

   if (db.documents <= 0)
       return;

   cycle(db) {

       puts(0,0,"Processing record " + str(docno(db)));

       for (i = 1; i <= db.fields; i = i + 1) {

           if (db.type[i] == 'P') {

               db->i = upper(db->i);}

           if (db.type[i] == 'T') {

               db->i = upper(db->i);}

       }

   }

}