Commande CRITSECT

Permet de gérer les conflits d’accès à des ressources du PC, dans le cas ou le serveur LAUNCHER Office du PC est configuré pour accepter plusieurs connexions en simultanées.

Syntaxe

CHGVAR	VAR(&CMD) VALUE('CRITSECT')
CHGVAR	VAR(&PARM1) VALUE('Name="Nom" [;Enter] \| [;Leave]')
CHGVAR	VAR(&PARM2) VALUE(' ')
CALL	PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 + &PARM2 &RESULT)

Paramètres

Parm1

Name est un nom symbolique de ressource.

Enter indique que l’application entre dans une phase critique, qui se terminera par une exécution de CRITSECT, sur la même ressource, avec l’option Leave.

Leave indique que l’application quitte une phase critique.
Une autre application peut y entrer à son tour.

Parm2

Consultez le chapitre sur la configuration multi connexions du serveur LAUNCHER Office.

Quand une application doit utiliser une ressource partagée sur un PC, telle que le presse papier, ou un fichier de travail, elle doit entrer dans une phase critique et en ressortir quand l’utilisation de cette ressource est terminée.

L’application restera en attente si une autre application est déjà dans cette même phase critique, jusqu’à la libération.

Le nom de la ressource est virtuel. Il est fixé par l’application.

Exemple

CHGVAR VAR(&CMD) VALUE('CRITSECT')
CHGVAR VAR(&PARM1) VALUE('Name="PhaseCrit";Enter')
CALL  PGM(LNCCMD) PARM(&HANDLE &OPT &PARM1 &PARM2 &RESULT)

/* Copier vers le presse papier */
CHGVAR VAR(&CMD) VALUE('WCOPY')
CALL  PGM(LNCCMD) PARM(&HANDLE &OPT &PARM1 &PARM2 &RESULT)

/* Coller le contenu du presse papier */
CHGVAR VAR(&CMD) VALUE('WPASTE')
CALL  PGM(LNCCMD) PARM(&HANDLE &OPT &PARM1 &PARM2 &RESULT)

/* On peut maintenant sortir */

CHGVAR VAR(&CMD) VALUE('CRITSECT')
CHGVAR VAR(&PARM1) VALUE('Name="PhaseCrit";Leave')
CALL PGM(LNCCMD) PARM(&HANDLE &OPT &PARM1 &PARM2 &RESULT)