Contrôle des CRE (EXIEEN)

Cet exit est disponible en COBOL et C.

Caractéristiques

Description

L'utilisation de cet exit permet d'enrichir ou de contrôler le contenu des enregistrements de CRE avant l'application des phases de traduction.

Cette fonctionnalité est également fournie dans le module ITR506. Pour plus d'information, reportez-vous à la section ITR506 compatibilité avec EXIEEN, EXIERG et EXIEME.

Principe de fonctionnement

L'exit est appelé pour chaque enregistrement à traiter (détaillé ou résultat d'une agrégation).

Particularités

Lorsque un enregistrement est contrôlé dans cet exit, le CRE qui contient l’enregistrement peut être rejeté ou la vacation fermée. Les fonctions qui suivent dans la cinématique sont ensuite appliquées sur les contenus d'enregistrements de CRE enrichis par cet exit.

Les données du CRE rejeté sont les données enrichies : il faut donc prévoir dans la programmation de cet exit l'éventualité de devoir traiter des CRE déjà enrichis.

Les données échangées

Certains champs alphanumériques peuvent avoir différentes descriptions selon le langage de programmation et le format utilisé (Latin ou UTF-16). Pour plus d’information, reportez-vous à Gérer les Exits et les appels externes.

Données en ENTRÉE

Nom en C Nom en COBOL Caractéristiques/Longueur Utilisation

szSourceCode

 

Alphanumérique / 25

Code émetteur associé à la vacation (seule donnée disponible à l'initialisation)

nEntryCode

L10TYPTRT

Numérique / 1

Code du point d'entrée

szIEventCode

 

Alphanumérique / 25

Nom du type de CRE contenant l'enregistrement à traiter

szIEventVersion

 

Alphanumérique / 25

Valeur de référence pour définir la version du CRE traité :

  • Date sous forme AAAAMMJJ
  • Nombre à 3 chiffres

nIEventVersionType

 

Numérique / 1

Type d'identification de la version du CRE traité :

  • 1 : version définie par numéro
  • 2 : version identifiée par la valeur de la date (ci-dessus)

szIEventInstCode

 

Alphanumérique / 34

Code instance du CRE contenant l'enregistrement à traiter

nSegmentNumber

 

Numérique / 4

Numéro de l'enregistrement à traiter dans le CRE

szSegtCode

 

Alphanumérique / 25

Nom du type d'enregistrement à traiter

nSegtLenght

L10LGCRE

Numérique / 4

Longueur de l'enregistrement à traiter

sSegt

F8CRE

Alphanumérique / 4000 max

Contenu de l'enregistrement à traiter

 

Données en SORTIE

Nom en C Nom en COBOL Caractéristiques/Longueur Utilisation

szErrorLabel

L10ZONERR

Alphanumérique / 50

 

Libellé de l'anomalie décelée

nSegtLenght

L10LGCRE

Numérique / 4

Longueur de l'enregistrement éventuellement enrichi

 

 

 

 

sSegt

F8CRE

Alphanumérique / 4000 max

Contenu de l'enregistrement éventuellement enrichi

Valeur de retour

L10RETOUR

 

  • 0 zéro (PLG_nNOERREUR)
  • 1 (PLG_nANOMALIE), demande de rejet du CRE
  • 9 (PLG_nERREURSYSTEME), si erreur système, auquel cas, la vacation est arrêtée

 

Mise en œuvre

Conventions d’écriture

  Description

1.

Les données retournées par la fonction implémentée au point d'entrée choisi doivent être renseignées

2.

Par défaut, le code retour est à zéro (OK) Si vous le modifiez, il doit prendre une des valeurs citées dans le tableau précédent

3.

Le CRE a déjà été identifié lorsqu'il est passé à cet exit.
Vous ne pouvez pas modifier les valeurs de l'identifiant en utilisant cet exit.
Toutefois, les modifications de contenu sont prises en compte par les traitements de traduction ultérieurs.

Le système garde les valeurs initiales des identifiants lors de l’appel aux fonctions $ENV

4.

Par défaut, le contenu de l'enregistrement de sortie est identique à l'enregistrement d'entrée

5.

Si vous demandez le rejet du CRE (code retour = 1) ou si une erreur de programme survient, vous devez renseigner la zone qui contient le libellé d'erreur

 

Paramétrage

Cet exit peut être activé dans l'étape T.

fichier script.ges

Mot-clé Description/Valeur à définir
Section >Configuration<

 

Inhibition_Exit_Cre

  • No : ne pas annuler l’exécution de l’exit
  • Oui : annuler l’exécution de l’exit

fichier sys.dat

Mot-clé + section Description/Valeur à définir
Section > Enrich_ Exit<

 

Segment

  • Yes_C : exécuter EXIEEN
  • Yes_Cobol : Exécuter EXIEEN.cbl
  • No : Ne pas exécuter l'exit

Nom des modules

Mise en œuvre

Plateforme Nom du répertoire Programme C Programme COBOL équivalent au programme C

Windows

%RDJ_EXEC%\exit

EXIEENC.c

plgdllh.h fichier entête

EXIEEN.cbl

UNIX

$RDJ_EXEC/exit

EXIEENC.c

plgdllh.h fichier entête

EXIEEN.cbl

MVS

&RDJEXEC..SRCLIB

EXIEENC , plgdllh.h fichier entête

EXIEEN

 

Type de traitement Point d'entrée Libellé

Open

PLG_nINIT

TRT-INIT (typtrt = 1)

Close (Fermeture)

PLG_nFERM

TRT-FIN (typtrt = 3)

Contrôle et enrichissement d'un enregistrement avant l'application des traitements

PLG_nIDENT_

ENRICHISSEMENT

TRT-CRE (typtrt = 2)

Related Links