Script de base de données partagée R5
Voici quelques exemples de scripts de base de données.
Exemple de script de base de données partagée
Le texte entouré d'astérisques (**) est un commentaire.
**Attente pour l'échelonnement correct des différents processus (durée aléatoire). Attente de 0 à 5 minutes (5 min = 300000 ms)**
Pause 0-300000**En cas d'erreur, attente de 1 à 2 minutes avant de réessayer.**
ErrorDelay 60000-120000BeginCrit
**Création d'une base de données de discussion**
changeto "[MailServer]!![DiscussionDB]" [DiscTemplate] -KeepOpen
open
**Redéfinition du nombre de documents d'origine via la suppression d'une grande partie des documents existants**
getall
@If [NBTestReset]
delete [MaxDocToDelete]
@EndIf
**Vérification que la base courrier contient suffisamment de documents (une fois seulement)**
populate [NumMailNotesPerUser]
close
** Ouvrir la vue actuelle**
Ouvrir
**Fermeture de la vue**
1close
EndCrit
**Démarrage de la partie du script fonctionnant en boucle**
BeginLoop
**Ouvrir une base de discussion**
changeto "[Mailserver]!![DiscussionDB]" [DiscTemplate] -KeepOpen
** Ouvrir la vue actuelle**
open
getall
**Lecture de 20 documents à partir de la vue actuelle**
entries 1 20
**Attente de 5 à 10 secondes avant de parcourir la vue**
Pause 5000-10000**Progression de deux pages dans la vue et lecture de chaque fenêtre durant 3 à 10 secondes**
entries 21 20
pause 3000 - 10000entries 41 20
pause 3000 - 10000**Définition de la liste Non lus sur 30 documents sélectionnés de manière aléatoire**
unread 30
**Ouvrir 3 documents non lus suivants et lire chacun d'eux durant 10 à 30 secondes**
navigate 1 next_unread
pause 10000 - 30000navigate 1 next
pause 10000 - 30000navigate 1 next
pause 10000 - 30000add [DiscDbAddDocRate] 100
**Suppression de 2 documents anciens lors de la fermeture de la base de données**
close
**Attente sur le bureau de 4 à 8 minutes lors d'une réunion en interne**
pause 240000 - 480000**Répétition de la séquence entière (retour à l'instruction BeginLoop)**
rewind