RTVGRPA

Extraire attributs de groupe

En bref

La commande RTVGRPA (Extraire les attributs de groupe) permet d'obtenir les informations suivantes sur le groupe du travail :

RTVGRPA se lit RTV (Extraire (récupérer)) + GRPA. Sur IBM i, le nom d'une commande associe presque toujours un verbe et un objet.

Syntaxe minimale

RTVGRPA

Paramètres

GRPJOB Variable pour GRPJOB (10)
GRPJOBL Variable pour GRPJOBL (1056)
GRPJOBCNT Variable pour GRPJOBCNT (3 0)
MSGQ Variable pour MSGQ (10)
MSGQLIB Variable pour MSGQLIB (10)
PRVGRPJOB Variable pour PRVGRPJOB (16)
CTLCDE Variable pour CTLCDE (3 0)

Astuce : dans une session 5250, tapez RTVGRPA puis F4 pour l'invite de saisie, et F1 sur un paramètre pour son aide.

Aide IBM i de la commande

Texte du F1, IBM i 7.5 en français (bibliothèque QSYS)

Où s'exécute :

Programme interactif (*IPGM)
Procédure REXX interactive (*IREXX)

Compatible multitâche : Non

La commande RTVGRPA (Extraire les attributs de groupe) permet d'obtenir les informations suivantes sur le groupe du travail :

le nom du travail de groupe appelant la commande RTVGRPA,
une liste d'informations sur tous les travaux actifs du groupe,
le nombre de travaux actifs dans le groupe,
le nom de la file d'attente de messages,
la bibliothèque contenant la file d'attente de messages,
le nom et le numéro du précédent travail actif dans le groupe,
un code de contrôle indiquant la raison pour laquelle le travail actuellement actif a pris le contrôle,

Paramètres

Mot-clé	Description	Valeurs possibles	Remarques
GRPJOB	Variable pour GRPJOB (10)	Valeur caractère	Facultatif, positionnel 1
GRPJOBL	Variable pour GRPJOBL (1056)	Valeur caractère	Facultatif, positionnel 2
GRPJOBCNT	Variable pour GRPJOBCNT (3 0)	Nombre décimal	Facultatif, positionnel 3
MSGQ	Variable pour MSGQ (10)	Valeur caractère	Facultatif
MSGQLIB	Variable pour MSGQLIB (10)	Valeur caractère	Facultatif
PRVGRPJOB	Variable pour PRVGRPJOB (16)	Valeur caractère	Facultatif
CTLCDE	Variable pour CTLCDE (3 0)	Nombre décimal	Facultatif

Variable pour GRPJOB (10) (GRPJOB)

Désigne la variable CL qui reçoit le nom du travail de groupe. Cette variable doit être de type alphabétique et d'une longueur minimale de 10 caractères. Si le nom du travail comporte moins de caractères, la valeur est complétée à droite par des blancs.

Variable pour GRPJOBL (1056) (GRPJOBL)

Désigne la variable CL qui reçoit la liste des travaux du groupe. Chaque poste contient le nom (10), le numéro (6) et la description du travail (50 caractères). Le nombre maximal de postes dans la variable est 16. Le premier poste de la liste concerne le dernier travail actif et ainsi de suite. La variable doit être de type alphabétique et d'une longueur minimale de 1056 caractères. Si la liste comporte moins de caractères, la valeur est complétée à droite par des blancs.

Variable pour GRPJOBCNT (3 0) (GRPJOBCNT)

Désigne la variable CL qui reçoit le nombre de travaux actifs. Cette variable décimale doit comprendre 3 positions, sans virgule. Ce chiffre représente le nombre de postes qui ne sont pas à blanc dans la liste de travaux du groupe. Ce nombre inclut tous les travaux actifs du groupe. Les travaux qui ont été annulés ne sont pas pris en compte.

Variable pour MSGQ (10) (MSGQ)

Désigne la variable CL qui reçoit le nom de la file d'attente de messages. Cette variable doit être de type alphabétique et d'une longueur minimale de 10 caractères. Si le nom de la file d'attente comporte moins de caractères, la valeur est complétée à droite par des blancs. Si aucune file d'attente de messages n'est associée au groupe, la variable prend la valeur spéciale *NONE.

Variable pour MSGQLIB (10) (MSGQLIB)

Désigne la variable CL qui reçoit le nom de la bibliothèque contenant la file d'attente de messages. Cette variable doit être de type alphabétique et d'une longueur minimale de 10 caractères. Si le nom de la bibliothèque comporte moins de caractères, la valeur est complétée à droite par des blancs. Si aucune file d'attente de messages n'est associée au groupe, la variable CL est mise à blanc.

Variable pour PRVGRPJOB (16) (PRVGRPJOB)

Désigne la variable CL qui reçoit le nom et le numéro du précédent travail actif dans le groupe. Cette variable doit être de type alphabétique et d'une longueur minimale de 16 caractères. Si le nom du travail comporte moins de caractères, la valeur est complétée à droite par des blancs. Si le groupe ne contient aucun travail actif précédent, la partie réservée au nom prend la valeur spéciale *NONE, et celle réservée au numéro est mise à blanc. Le format de la variable est le suivant :

Nom-travail-groupe   CHAR(10)
Numéro-travail       CHAR(6)

Variable pour CTLCDE (3 0) (CTLCDE)

Désigne la variable CL qui reçoit l'explication de la prise de contrôle par le travail actif du groupe. Cette variable décimale doit comprendre 3 positions, sans virgule. Les codes de contrôle suivants (et leurs significations) sont possibles :

0: Il n'y avait pas de travail actif précédent (aucune commande TFRGRPJOB (Transférer à travail de groupe) n'a été exécutée pour ce groupe).
10: Le précédent travail actif a sélectionné ce travail pour le transmettre à la commande TFRGRPJOB.
20: Le premier programme du groupe associé au précédent travail actif s'est arrêté normalement et ce travail était le travail actif le plus récent du groupe.
30: Le travail actif précédent a été arrêté par la commande ENDGRPJOB(Arrêter un travail de groupe) et ce travail a été sélectionné pour prendre le contrôle. (Le paramètre RSMGRPJOB Travail de groupe à reprendre (RSMGRPJOB) a indiqué ce travail de groupe.)
40: Le travail actif précédent a été arrêté par la commande ENDGRPJOB et a sélectionné un autre travail que celui-ci pour prendre le contrôle (arrêté avant de pouvoir être repris). Ce travail étant le plus récent travail actif du groupe, le contrôle lui a été transmis.
50: Le précédent travail actif a été arrêté par la commande ENDGRPJOB et ce travail était le plus récent travail actif du groupe.(Le paramètre RSMGRPJOB a indiqué *PRV).
60: Le premier programme du groupe associé au précédent travail actif ne s'est pas arrêté normalement et ce travail était le travail actif le plus récent du groupe.
70: Le précédent travail actif a été arrêté par la commande ENDJOB (Arrêter un travail) et ce travail était le plus récent travail actif du groupe.

Exemples

Supposons que les travaux 030001/QUSER/WORKST01 et 030002/QUSER/WORKST01 soient des travaux de groupe appelés respectivement GROUPJ1 et GROUPJ2. Supposons également que la file d'attente des messages QGPL/GROUPMSGQ soit associée à ce groupe. Si le travail de groupe vient d'émettre la commande TFRGRPJOB pour être transféré vers le travail de groupe GROUPJ2 et que celui-ci a appelé le programme CL suivant :

Exemple PGM

DCL   VAR(&GRPJOBN)   TYPE(*CHAR)     LEN(10)
DCL   VAR(&GRPJOBL)   TYPE(*CHAR)     LEN(1056)
DCL   VAR(&GRPCOUNT)  TYPE(*DEC)      LEN(3 0)
DCL   VAR(&MSGQNAME)  TYPE(*CHAR)     LEN(10)
DCL   VAR(&MSGQLIB)   TYPE(*CHAR)     LEN(10)
DCL   VAR(&PRVJOB)    TYPE(*CHAR)     LEN(16)
DCL   VAR(&CTLCODE)   TYPE(*DEC)      LEN(3 0)
RTVGRPA   GRPJOB(&GRPJOBN)  GRPJOBL(&GRPJOBL)  +
          GRPJOBCNT(&GRPCOUNT)  MSGQ(&MSGQNAME)  +
          MSGQLIB(&MSGQLIB)  PRVGRPJOB(&PRVJOB)  +
          CTLCDE(&CTLCODE)

Le contenu des variables CL renvoyé est le suivant :

&GRPJOBN: GROUPJ2
&GRPJOBL: GROUPJ2  030002  50 caractères pour
                           ce travail de groupe...
          GROUPJ1  030001  50 caractères pour ce
                           ce travail de groupe

Quatorze autres entrées, avec espaces

&GRPCOUNT:     002
&MSGQNAME:     GROUPMSGQ
&MSGQLIB:      QGPL
&PRVJOB:       GROUPJ1   030001
&CTLCODE:      010

Messages d'erreur

Messages *ESCAPE

CPF1309: Le sous-système ne peut pas achever la commande &1.
CPF1311: Le travail indiqué n'est pas un travail de groupe.
CPF1317: Aucune réponse du sous-système pour le travail &3/&2/&1.
CPF1351: Erreur dans le sous-système pour le travail &3/&2/&1.