Identification et contrôle des ME (EXIEME)

Caractéristiques

Cet exit est disponible en COBOL et C.

Description

L'utilisation de cet exit permet, dès la production des ME par une règle de traduction de :

  • Les mettre en forme
  • Les contrôler
  • Leur attribuer des identifiants (destinataire et règles de traitement de ME)
  • Les enrichir.

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

Selon le cas :

  • la version C de cet exit est appelée, ME par ME, avant l'identification du destinataire et l'application des traitements au ME
  • la version COBOL et la version compatible avec RDJ 1.5.3.2 de cet exit sont appelées, pour chaque groupe de ME générés par l'application d'une règle de traduction, avant l'identification du destinataire et l'application des traitements aux ME.

Les données enrichies des ME sont conservées pour les traitements appliqués aux ME et écrites physiquement dans les zones d'échange de sortie.

Note   La version COBOL ne peut pas gérer de ME interactifs.

Particularités

Lorsqu’un ME est contrôlé, le CRE source peut être mis en anomalie, selon la phase dans laquelle le traitement a été effectué
ou la vacation peut être fermée.

Les données échangées dans la version C

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 Caractéristiques/Longueur Utilisation

szSourceCode

Alphanumérique / 25

Code émetteur associé à la vacation

nEntryCode

int

Code du point d'entrée

szIEventCode

Alphanumérique / 25

Nom du type du CRE à l'origine du ME

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

int / 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

Impact UTF16
cf Note &1.1

Code instance du CRE à l'origine du ME

szSegtCode

Alphanumérique / 25

Nom de l'enregistrement sur lequel la règle de traduction a été appliquée

nSegmentNumber

int / 4

Numéro de l'enregistrement dans le CRE traité (nième enregistrement)

szDateAppliRegle

Alphanumérique /10

Date d'application des règles sous la forme JJ/MM/AAAA

sSchemeNumber

int / 2

Numéro du schéma à l'origine du ME

sFillingSeqNumber

int / 2

Numéro de fabrication du ME

nNeedOSegt

int / 4

Indicateur qui indique si le ME doit être enrichi

sOSegtFormatCode

Alphanumérique / 2

Code format du ME

sOSegtContaining

Alphanumérique / 4000

Contenu du ME à enrichir ou à contrôler

nOSegtLenght

int / 4

Longueur du ME à enrichir ou à contrôler

nNeedCodeDestME

int

Indicateur indiquant si le code destinataire doit être valorisé par l'exit.

szCodeDestME

Alphanumérique / 25

Code destinataire identifié
(si nNeedCodeDest est défini)

nNeedCodeRegleAudit

int / 4

Indicateur indiquant si le code règle Audit doit être identifié

szCodeRegleAudit

Alphanumérique / 25

Code de la règle d'audit identifié
(si nNeedCodeRegleAudit est défini)

nNeedCodeRegleEquil

int / 4

Indicateur indiquant si le code règle Équilibre doit être identifié

szCodeRegleEquil

Alphanumérique / 25

Code de la règle d'équilibre identifié
(si nNeedCodeRegleEquil est défini)

nNeedCodeRegleAgreg

int / 4

Indicateur indiquant si le code règle Agrégation doit être identifié

szCodeRegleAgreg

Alphanumérique / 25

Code de la règle d'agrégation identifié
(si nNeedCodeRegleAgreg est défini)

Données en SORTIE

Nom en C Caractéristiques Utilisation

szErrorLabel

Alphanumérique / 50

Libellé de l'anomalie décelée

sOSegtContaining

Alphanumérique / 4000 max

Contenu du ME enrichi et contrôlé

nOSegtLenght

int / 4

Longueur du ME enrichi et contrôlé

Valeur de retour

 

  • 0 zéro (PLG_nNOERREUR)
  • 1 (PLG_nANOMALIE) : demande de mise en anomalie du CRE d'origine
  • 9 (PLG_nERREURSYSTEME) : si erreur système, dans ce cas, la vacation est arrêtée

Les données échangées dans la version COBOL

Lorsque vous programmez cet exit (section TRT_ME), vous devez utiliser le contenu de la table L10LISTME pour traiter l’information dans la table REC-W8TABME. Pour des raisons de performance, seules les entrées de la table qui ont été traitées sont réinitialisées entre 2 appels.

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 COBOL Caractéristiques/Longueur Utilisation

L10TYPTRT

9 (1)

Code point d'entrée

F8CRE

Alphanumérique (4000)

Contenu de l'enregistrement à l'origine des ME

Suit un tableau constitué de 90 occurrences. Pour chacune de ces occurrences :

W8ME

Alphanumérique (4000)

Contenu du ME à contrôler et à enrichir

W8ADGAR

S9(4) COMP

Non utilisé

W8NUMNIV

S9(4) COMP

Non utilisé

W8ADGARNIV

S9(4) COMP

Non utilisé

W8LGMAX

Numérique (4)

Longueur du ME à contrôler et à enrichir

W8CDCHARGE

Alphanumérique (1)

Non utilisé

W8CDECLAT

Alphanumérique (1)

Non utilisé

W8CAR

Alphanumérique (1)

Non utilisé

W8CDMAJ

Alphanumérique (1)

Code mise à jour du ME

W8SIGNE-MT

Alphanumérique (1)

Non utilisé

W8CDME

Alphanumérique (3)

Code format du ME

L10CDREGL

Alphanumérique (5)

Code de la règle de traduction à l'origine

L10LGCRE

Numérique (4)

Longueur de l'enregistrement à l'origine des ME

L10NOSCHE

Numérique (2)

Numéro du schéma à l'origine du ME

L10NOSEQ-ME

Numérique (2)

Numéro de séquence de fabrication du ME

Données en SORTIE

Nom en COBOL Caractéristiques/Longueur Utilisation

L10RETOUR

Numérique (1)

Code retour de la fonction

 

 

  • 0 zéro : fin normale de la fonction
  • 1 : demande de mise en anomalie du CRE d'origine
  • 9 : si erreur système, dans ce cas, la vacation est arrêtée
Suit un tableau constitué de 90 occurrences. Pour chacune de ces occurrences :

W8ME

Alphanumérique (4000)

Contenu du ME enrichi et contrôlé

W8ADGAR

S9(4) COMP

Non utilisé

W8NUMNIV

S9(4) COMP

Non utilisé

W8ADGARNIV

S9(4) COMP

Non utilisé

W8LGMAX

Alphanumérique (4)

Longueur du ME enrichi et contrôlé

W8CDCHARGE

Alphanumérique (1)

Non utilisé

W8CDECLAT

Alphanumérique (1)

Non utilisé

W8CAR

Alphanumérique (1)

Non utilisé

W8CDMAJ

Alphanumérique (1)

Code mise à jour du ME

W8SIGNE-MT

Alphanumérique (1)

Non utilisé

W8CDME

Alphanumérique (3)

Code format du ME

Mise en œuvre

Conventions d’écriture

  Description

1.

Par défaut, le code retour est à 0 (zéro)

2.

Par défaut, le contenu du ME est identique à celui du CRE

3.

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

4.

Exits en C uniquement

Si nNeedCodeDest est non renseigné (valeur = 1), le code destinataire doit être valorisé (c'est une identification réclamée par et utilisée dans l'exit)

5.

Exits en COBOL uniquement

Pour chacun de ces ME, un code CDMAJ est renseigné ; les valeurs prises en compte sont :

  • S ou espace : le ME associé n'est pas généré en sortie de la vacation
  • M : le ME associé est généré en sortie de la vacation
  • F : Le ME associé est généré en sortie de la vacation et c'est le dernier généré par l'application de la Règle de Traduction

Paramétrage

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

fichier script.ges

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

 

Inhibition_Exit_ME

  • 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 >Exit_Enrich<

 

OSegt

  • Yes_C : active l’exit EXIEME en langage C
  • Yes_Cobol : active l’exit EXIEME en langage Cobol
  • 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

plgdllh.h fichier entête

EXIEME.cbl

UNIX

$RDJ_EXEC/exit

EXIEMEC.cplgdllh.h fichier entête

EXIEME.cbl

MVS

&RDJEXEC..SRCLIB

EXIEMEC plgdllh.h fiichier entête

EXIEME

 

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 des ME

PLG_nIDENT_
ENRICHISSEMENT

TRT-ME (typtrt = 2)

Related Links