Sorties d'utilisateur de l'agent CICS

Agents › Agent CICS pour DevTest › Sorties d'utilisateur de l'agent CICS

Sorties d'utilisateur de l'agent CICS

ITKOUEX1 : sortie d'initialisation de l'agent CICS pour DevTest

Cette sortie est appelée pendant l'initialisation de l'agent CICS pour DevTest. Vous pouvez utiliser la sortie pour effectuer les opérations suivantes :

Indiquer le groupe d'utilisateurs dont cette région CICS est membre
Indiquer le CICSPlex dont cette région CICS est membre
Allouer un espace de stockage et transmettre l'adresse/la longueur à d'autres sorties à l'aide du paramètre de jeton
Effectuer une autre initialisation requise par d'autres sorties d'utilisateur

Cette sortie est appelée via un lien CICS LINK, de sorte à pouvoir l'écrire dans une langue prise en charge par CICS. Pendant l'initialisation, une tentative de lien CICS LINK vers ITKOUEX1 est effectuée.

Si cette sortie n'est pas nécessaire, effectuez l'une des actions suivantes :

N'incluez pas de module nommé ITKOUEX1 dans la concaténation DFHRPL.
Désactivez la sortie dans PPT.

Les paramètres sont transférés dans COMMAREA.

Le tableau ci-dessous décrit ces paramètres.

Parameter (Paramètre)	Longueur en octets	Entrée ou sortie	Type de données	Description
Jeton	8	Entrée/sortie	Unknown (Inconnu)	Huit octets qui peuvent être utilisés par les sorties d'utilisateur. Conservés d'un appel de sortie à l'autre.
Group (Groupe)	8	Sortie	Caractère	Défini par la sortie. Identifie un groupe d'utilisateurs dont CICS est membre.
CICSPlex	8	Sortie	Caractère	Défini par la sortie. Identifie un CICSPlex dont CICS est membre.
Sysid	4	Entrée	Caractère	SYSID de CICSPlex issu de CICS ASSIGN SYSID().
Applid	8	Entrée	Caractère	APPLID de CICSPlex issu de CICS ASSIGN APPLID().
Jobname	8	Entrée	Caractère	Nom du job CICS à partir de CICS INQUIRE SYSTEM JOBNAME().
LPAR	8	Entrée	Caractère	Nom de la partition logique à partir de CVTSNAME dans laquelle CICS réside.
Sysplex	8	Entrée	Caractère	Nom de la partition logique à partir de ECVTSPLX dans laquelle CICS réside.

Un exemple de COBOL ITKOUEX1 est disponible dans ITKO.CICSAGNT.CNTL(ITKOUEX1). Cet exemple définit le groupe d'utilisateurs sur les quatre premiers caractères du nom du job CICS.

Le copybook de COBOL COMMAREA est disponible dans ITKO.CICSAGNT.CNTL(ITKOEX1C).

Le copybook d'assembleur COMMAREA est disponible dans ITKO.CICSAGNT.CNTL(ITKOEX1A).

La bibliothèque JCL de compilation COBOL est disponible dans ITKO.CICSAGNT.CNTL(COMPUEX1).

ITKOUEX2 : sortie d'arrêt de l'agent CICS pour DevTest

Cette sortie est appelée pendant l'arrêt de l'agent CICS pour DevTest. Vous pouvez l'utiliser pour effectuer un nettoyage requis par les sorties d'utilisateur (par exemple, libération d'espace de stockage, fermeture de fichiers).

Cette sortie est appelée via un lien CICS LINK, de sorte à pouvoir l'écrire dans une langue prise en charge par CICS. Pendant l'arrêt de l'agent, une tentative de lien CICS LINK à ITKOUEX2 est effectuée. Si cette sortie n'est pas nécessaire, effectuez l'une des actions suivantes :

N'incluez pas de module nommé ITKOUEX2 dans la concaténation DFHRPL.
Désactivez la sortie dans PPT.

Les paramètres sont transférés dans COMMAREA.

Le tableau ci-dessous décrit ces paramètres.

Parameter (Paramètre)	Longueur en octets	Entrée ou sortie	Type de données	Description
Jeton	8	Entrée/sortie	Unknown (Inconnu)	Huit octets qui peuvent être utilisés par les sorties d'utilisateur. Conservés d'un appel de sortie à l'autre.

Un exemple de COBOL ITKOUEX2 est disponible dans ITKO.CICSAGNT.CNTL(ITKOUEX2).

Le copybook de COBOL COMMAREA est disponible dans ITKO.CICSAGNT.CNTL(ITKOEX2C).

Le copybook d'assembleur COMMAREA est disponible dans ITKO.CICSAGNT.CNTL(ITKOEX2A).

La bibliothèque JCL de compilation COBOL est disponible dans ITKO.CICSAGNT.CNTL(COMPUEX2).

ITKOUEX3 : sortie de consolidation CICS COMMAREA pour LISA

Cette sortie est utilisée pour gérer une COMMAREA qui contient des adresses liées à des emplacements de stockage hors de la COMMAREA. Cette sortie consolide les fragments de stockage avec la COMMAREA pour créer une COMMAREA contiguë unique.

Cette sortie est appelée :

Pendant l'enregistrement de CICS LINK, pour les images antérieures et ultérieures, afin de créer une COMMAREA de remplacement sans adresses liées à des données hors de la COMMAREA. La sortie est chargée d'obtenir la nouvelle zone de stockage à l'aide de la commande GETMAIN. L'agent CICS pour DevTest libérera la zone à l'aide de la commande FREEMAIN. Les adresses dans la COMMAREA qui pointe vers des emplacements dans la COMMAREA sont également problématiques. Dans ce cas, la sortie doit convertir les adresses en décalages relatifs pendant l'enregistrement, puis de nouveau en adresses réelles pendant la lecture.
Pendant la lecture de CICS LINK (virtualisation) pour restaurer la COMMAREA d'origine à partir de la réponse de DevTest
Pendant l'initialisation de l'agent CICS (après la sortie d'utilisateur 1) de sorte que la sortie puisse effectuer toute tâche d'initialisation supplémentaire.
Pendant l'arrêt de l'agent CICS (avant la sortie d'utilisateur 2) de sorte que la sortie puisse effectuer toute tâche d'arrêt supplémentaire.

Cette sortie est appelée via un lien CICS LINK, de sorte à pouvoir l'écrire dans une langue prise en charge par CICS. Toutefois, le langage de l'assembleur est le plus adapté pour résoudre la manipulation et le déplacement des données de longueur variable. Pendant l'initialisation, une tentative de lien CICS LINK vers ITKOUEX3 est effectuée.

Si cette sortie n'est pas nécessaire, effectuez l'une des actions suivantes :

N'incluez pas de module nommé ITKOUEX3 dans la concaténation DFHRPL.
Désactivez la sortie dans PPT.

Les paramètres sont transférés dans COMMAREA.

Le tableau ci-dessous décrit ces paramètres.

Parameter (Paramètre)	Longueur en octets	Entrée ou sortie	Type de données	Description
Jeton	8	Entrée/sortie	Unknown (Inconnu)	Huit octets qui peuvent être utilisés par les sorties d'utilisateur. Conservés d'un appel de sortie à l'autre.
Type d'appel	1	Entrée	Binaire	12 indique une lecture. 16 indique un arrêt.
Type d'image	1	Entrée	Binaire	4 indique une image antérieure. 8 indique une image ultérieure.
Adresse COMMAREA	4	Entrée	Address	Adresse COMMAREA transférée dans l'application CICS LINK
Longueur COMMAREA	2	Entrée	Binaire	Longueur de la COMMAREA transférée dans l'application CICS LINK
Programme appelant	8	Entrée	Caractère	Nom du programme qui émet la commande CICS LINK
Programme cible	8	Entrée	Caractère	Nom de programme lié à l'aide de la commande CICS LINK.
Nouvelle adresse COMMAREA	4	Entrée/sortie	Address	Pour l'enregistrement : l'adresse de la nouvelle COMMAREA consolidée est placée ici par cette sortie. Cette sortie obtient généralement la zone à l'aide de la commande GETMAIN. Pour la lecture : l'adresse de la nouvelle COMMAREA consolidée à partir de la réponse du VSE est placée ici. Cette sortie copie le contenu dans l'application COMMAREA.
Nouvelle longueur de COMMAREA	2	Entrée/sortie	Binaire	Pour l'enregistrement : la longueur de la nouvelle COMMAREA consolidée est placée ici par cette sortie. Pour la lecture : la longueur de la nouvelle COMMAREA consolidée à partir de la réponse du VSE est placée ici pour être utilisée par cette sortie.
Code de retour	1	Sortie	Binaire	0 indique que la COMMAREA a été consolidée. L'agent CICS pour DevTest utilisera les nouvelles adresse COMMAREA et longueur COMMAREA pour créer l'image enregistrée. 4 indique que cette sortie a abouti, mais qu'aucune COMMAREA n'a été créée. L'agent CICS pour DevTest utilise la COMMAREA à partir de CICS LINK pour créer l'image enregistrée. 8 indique que cette sortie a échoué et qu'il n'existe aucune nouvelle COMMAREA. L'agent CICS pour DevTest est renvoyé vers l'application à partir CICS LINK avec les valeurs EIBRCODE, EIBRESP et EIBRESP2 comme indiqué dans les paramètres ci-dessous. 12 indique l'ensemble du traitement du code de retour 8 et que cette sortie doit être supprimée de l'enregistrement et de la lecture ultérieurs de CICS LINK pour DevTest.
EIBRCODE	6	Sortie	Binaire	Valeur EIBRCODE à utiliser lorsque le code de retour est 8 ou 12
EIBRESP	4	Sortie	Binaire	Valeur EIBRRESP à utiliser lorsque le code de retour est 8 ou 12
EIBRESP2	4	Sortie	Binaire	Valeur EIBRRESP2 à utiliser lorsque le code de retour est 8 ou 12

Un exemple de langage d'assembleur ITKOUEX3 est disponible dans ITKO.CICSAGNT.CNTL(ITKOUEX3).

Dans cet exemple, une COMMAREA est gérée au format produit par le langage Natural de Software AG lors de l'appel de COBOL avec le paramètre Natural CALLRPL=(ALL,3) ou CALLRPL=(ALL,4). Avec ce format de COMMAREA, la longueur de COMMAREA est de 12 (lorsque CALLRPL=(ALL,3) est utilisé) et de 16 (lorsque CALLRPL=(ALL,4) est utilisé). Le premier mot entier dans la COMMAREA est l'adresse d'une liste de paramètres. Le bit le plus significatif défini sur 1 dans l'adresse indique le dernier paramètre. Le troisième mot entier est l'adresse d'une liste de longueurs de paramètre.

Le copybook d'assembleur COMMAREA est disponible dans ITKO.CICSAGNT.CNTL(ITKOEX3A).

La bibliothèque JCL d'assemblage est disponible dans ITKO.CICSAGNT.CNTL(ASMBUEX3).