ITR506 compatibility with EXIEEN, EXIERG, and EXIEME

Characteristics

This exit is available in COBOL.

Restriction: This exit is only available in RDJ 1.5.3.2.

Description

The ITR506 exit has been retained for compatibility with RDJ version 1.5.3.2. This module enabled you to intervene at different stages of processing and filled in the functions of the modules previously described:

  • Control and enrichment of Input-Event segments (EXIEEN & EXIERG)
  • Control and enrichment Output Event (EXIEME)

Operating principle

Four entry points are available in ITR506:

  1. Initializes the module, opens the necessary files, before reading the first segment
  2. Checks and enriches the segment
  3. Note:Depending on the actions programmed in the exit, this entry point can be the same as in EXIEEN or in EXIERG exits. For more information, refer to Check Input-Events (EXIEEN) and Process Input-Events (EXIERG).
  4. Checks and enriches the Output-Events resulting from the application of a Transformation-Rule to a segment
  5. Note: This entry point coincides with the EXIEME exit
  6. Closes the module after processing the last Input-Event segment

Exchanged data

Alphanumeric fields may have different descriptions depending on the programing language and the Latin or UTF-16 format used. For more information, refer to Manage exits and external calls.

INPUT data

Name in COBOL Characteristics/ Length Use

L10TYPTRT

9 (1)

Type of processing executed

F8CRE

Alphanumeric (4000)

Content of the segment to be checked and enriched (set when typtrt = 2)

A table composed of 90 occurrences is created when typtrt = 3 Each occurrence is structured as follows:

W8EE

Alphanumeric (4000)

Content of the Output-Event to be checked and enriched

FILLER

Alphanumeric (13)

 

W8CDMAJ

Alphanumeric (1)

Output-Event update code

FILLER

X (1)

 

W8CDEE

Alphanumeric (3)

Structure code associated with the Output-Event

OUTPUT data

Name in COBOL Characteristics/ Length Use

F8CRE

Alphanumeric (4000)

Content of the segment checked or enriched
(when typtrt = 2)

L10ZONERR

Alphanumeric (50)

Error message if function fails

L10RETOUR

Numeric (1)

Function return code

A table composed of 90 occurrences is created when typtrt = 3, each occurrence is structured as follows:

W8EE

Alphanumeric (4000)

Content of the enriched and checked Output-Event

FILLER

X (13)

 

W8CDMAJ

Alphanumeric (1)

Output-Event update code (see the authorized values)

FILLER

X (1)

 

W8CDEE

Alphanumeric (3)

Structure code associated with the Output-Event

Return value

 

  • 0 zero: Function ends normally
  • 1: Input-Event rejection request for typtrt = 2, or Input-Event to the anomaly state for typtrt= 3
  • 9: If a system error is detected the session is closed
Note   The Output-Event table contains all the Output-Events produced by the Transformation-Rule with a limit of 90 Output-Events. The table is configured to a size of 90 * 4000 characters = Total number of Output-Events * maximum length of one Output-Event.
Output-Event sequences can be empty. This table is updated each time an exit is called. This update is partial and does not include Output-Event sequences where the Output-Event creation sequence numbers are indicated in the call parameters of the exit (the other table entries are not updated).

Description conventions

  Description

1.

By default, the return code is 0 (zero)

2.

By default, the Output-Event is identical to the Input-Event

3.

If you request that the source Input-Event be set to the anomaly state (return code = 1) or if there is a program error, you must set the error message field

4.

For each of these Output-Events, a CDMAJ code is defined; the values taken into account are as follows :

  • S or space: The associated Output-Event is not generated as output of the session
  • M: The associated Output-Event is generated as output of the session
  • F: The associated Output-Event is generated as output of the session and it is the last one generated by applying the Transformation-Rule

Implementation

Parameter settings

This exit can be executed during step T.

script.ges file

Keyword Description / Value to be Defined
>Configuration< Section

 

Turnoff_Exit_IEvent

  • No: Do not cancel exit execution
  • Yes: Cancel exit execution

Turnoff_Exit_Rule

  • No: Do not cancel exit execution
  • Yes: Cancel exit execution

Turnoff_Exit_OSegt

  • No: Do not cancel exit execution
  • Yes: Cancel exit execution

sys.dat file

Keyword Description / Value to be Defined
> Enrich_ Exit< Section

 

Segment

  • Yes_rdj53: Execute the ITR506 exit in COBOL compatible with RDJ 1.5.3.2
  • No: Do not execute the exit

Rule

  • Yes_rdj53: Execute the ITR506 exit in COBOL compatible with RDJ 1.5.3.2
  • No: Do not execute the exit

OSegt

  • Yes_rdj53: Execute the ITR506 exit in COBOL compatible with RDJ 1.5.3.2
  • No: Do not execute the exit

Module names

Implementation

Platform Directory Name COBOL Program Compatible with 1.5.3.2

Windows

%RDJ_EXEC%\exit

TR506.cbl

UNIX

$RDJ_EXEC/exit

ITR506.cbl

MVS

&RDJEXEC..SRCLIB

ITR506

 

Processing Type Label

Open

TRT-INIT (typtrt = 1)

Close

TRT-FIN (typtrt = 4)

Check and enrich Input-Events.

TRT-CRE (typtrt = 2)

Check and enrich Output-Events.

TRT-ME (typtrt = 3)

Related Links