ITR506 compatibilité avec EXIEEN, EXIERG et EXIEME

Caractéristiques

Cet exit est disponible en COBOL.

Restriction : Cet exit n’est disponible que pour RDJ 1.5.3.2.

Description

L’exit ITR506 a été retenu à des fins de compatibilité avec la version RDJ 1.5.3.2. Ce module permettait d’intervenir à différentes étapes du traitement et remplissait les fonctions des modules décrits précédemment :

  • Contrôle et enrichissement des enregistrements de CRE avant leur traduction (EXIEEN & EXIERG)
  • Contrôle et enrichissement des ME (EXIEME)

Principe de fonctionnement

Quatre points d'entrée sont disponibles dans ITR506 :

  1. Initialisation du module, ouverture des fichiers nécessaires avant la lecture du premier enregistrement
  2. Contrôle et enrichissement de l'enregistrement
  3. Remarque : selon les actions programmées dans l'exit, ce point d'entrée peut être le même que dans les exits EXIEEN ou EXIERG. Pour plus d’information, reportez-vous à Contrôle des CRE (EXIEEN) et Traitement des CRE (EXIERG).
  4. Contrôle et Enrichissement des ME issus de l'application d'une règle de traduction à un enregistrement
  5. Remarque : Ce point d'entrée coïncide avec l'exit EXIEME
  6. Fermeture du module, après le traitement du dernier enregistrement de CRE.

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

L10TYPTRT

9 (1)

Type de traitement activé

F8CRE

Alphanumérique (4000)

Contenu de l'enregistrement à contrôler et à enrichir (renseigné quand typtrt = 2)

Suit un tableau constitué de 90 occurrences renseigné quand typtrt = 3, et pour chacune de ces occurrences :

W8EE

Alphanumérique (4000)

Contenu du ME à contrôler et à enrichir

FILLER

Alphanumérique (13)

 

W8CDMAJ

Alphanumérique (1)

Code mise à jour du ME

FILLER

X (1)

 

W8CDEE

Alphanumérique (3)

Code du format associé au ME

Données en SORTIE

Nom en COBOL Caractéristiques/Longueur Utilisation

F8CRE

Alphanumérique (4000)

Contenu du ME à enrichir ou à contrôler
(lorsque typtrt = 2)

L10ZONERR

Alphanumérique (50)

Libellé d’anomalie en cas d’échec de la fonction

L10RETOUR

Numérique (1)

Code retour de la fonction

Suit un tableau constitué de 90 occurrences renseigné quand typtrt = 3, et pour chacune de ces occurrences :

W8EE

Alphanumérique (4000)

Contenu du ME enrichi et contrôlé

FILLER

X (13)

 

W8CDMAJ

Alphanumérique (1)

Code mise à jour du ME (voir les valeurs autorisées)

FILLER

X (1)

 

W8CDEE

Alphanumérique (3)

Code du format associé au ME

Valeur de retour

 

  • 0 zéro : fin normale de la fonction
  • 1 : demande de rejet du CRE pour typtrt = 2, ou CRE à marquer en anomalie pour typtrt= 3
  • 9 : si erreur système, dans ce cas, la vacation est arrêtée
Note   la table de ME contient l'ensemble des ME produits par la règle de traduction dans la limite de 90 ME. La table est configurée avec une taille de 90 * 4000 caractères (= Nb total ME * longueur max des ME).
Certaines séquences de ME peuvent toutefois être vides. Cette table est mise à jour à chaque appel d’un exit. Cette mise à jour est partielle et ne concerne pas les séquences de ME dont les numéros de séquence de création de ME sont indiqués en paramètre d'appel à l'exit (les autres postes ne sont pas mis à jour).

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.

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

Mise en œuvre

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

Inhibition_Exit_Regle

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

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<

 

Segment

  • Yes_rdj53 : active l’exit ITR506 en langage COBOL compatible avec RDJ 1.5.3.2
  • No : Ne pas exécuter l'exit

Rule

  • Yes_rdj53 : active l’exit ITR506 en langage COBOL compatible avec RDJ 1.5.3.2
  • No : Ne pas exécuter l'exit

OSegt

  • Yes_rdj53 : active l’exit ITR506 en langage COBOL compatible avec RDJ 1.5.3.2
  • No : Ne pas exécuter l'exit

Nom des modules

Mise en œuvre

Plateforme Nom du répertoire Programme COBOL compatible avec 1.5.3.2

Windows

%RDJ_EXEC%\exit

TR506.cbl

UNIX

$RDJ_EXEC/exit

ITR506.cbl

MVS

&RDJEXEC..SRCLIB

ITR506

 

Type de traitement Libellé

Open

TRT-INIT (typtrt = 1)

Close (Fermeture)

TRT-FIN (typtrt = 4)

Contrôle et enrichissement des CRE

TRT-CRE (typtrt = 2)

Contrôle et enrichissement des ME

TRT-ME (typtrt = 3)

Related Links