Traitement des CRE (EXIERG)

Caractéristiques

Cet exit est disponible en COBOL et C.

Description

L'utilisation de cet exit permet d'enrichir ou de contrôler le contenu des enregistrements de CRE pendant les traitements, juste avant l'application d'une règle de traduction ou de modification.

Cette fonctionnalité est également fournie dans le module ITR506 (version RDJ 1.5.3.2). 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, et pour chaque règle de traduction (ou de modification) à appliquer à l'enregistrement.

Particularités

Le contrôle d'un enregistrement peut donner lieu à la mise en anomalie du CRE qui contient l'enregistrement. La règle de traduction (ou de modification), qui suit dans la phase, tient compte des données enrichies de l'enregistrement. L'enrichissement est ensuite perdu pour l'application d'une autre règle à l'enregistrement courant.

Lorsqu’un enregistrement est contrôlé dans cet exit, le CRE peut être mis en anomalie (comme il l’était avant l’appel de l’exit) ou la vacation peut être fermée.

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

szSegtCode

 

Alphanumérique / 25

 

Nom du type d'enregistrement à traiter

szIEventCode

 

Alphanumérique / 25

Nom du CRE contenant le type d’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

szCodePhase

 

Alphanumérique / 25

Nom de la phase dans laquelle le traitement a lieu

szCodeRegle

L10CDREGL

Alphanumérique / 5

(25 en COBOL ???)

  • Nom de la règle de traduction
  • de modification qui doit être appliquée à l'enregistrement

lDateDebRegle

 

Numérique / 8

Date de début de validité de la règle à appliquer (format AAAAMMJJ)

lDateFinRegle

 

Numérique / 8

Date de fin de validité de la règle à appliquer (format AAAAMMJJ)

nSegmentNumber

 

Numérique / 4

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

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 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 mise en anomalie du CRE
  • 9 (PLG_nERREURSYSTEME) si erreur système Dans ce 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.

Si vous demandez la mise en anomalie 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_Regle

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

fichier sys.dat

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

 

Rule

  • Yes_C : Exécuter EXIERG
  • Yes_Cobol : Exécuter EXIERG.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

EXIERGC.c

plgdllh.h fichier entête

EXIERG.cbl

UNIX

$RDJ_EXEC/exit

EXIERGC.c

plgdllh.h fichier entête

EXIERG.cbl

MVS

&RDJEXEC..SRCLIB

EXIERGC.c

plgdllh.h fichier entête

EXIERG

 

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 d'une règle

PLG_nIDENT_

ENRICHISSEMENT

TRT-CRE (typtrt = 2)

Related Links