FUNCTION locate_file()

DEFINE k RECORD 
   nombre_file STRING,
   contenido BYTE
END RECORD

   LOCATE k.contenido IN MEMORY

   DECLARE busca_file CURSOR FOR
      SELECT * FROM cob000 a ORDER BY a.num_req

      FOREACH busca_file INTO K.*
        
      END FOREACH 
END FUNCTION