Access AccountingIntegrator internal tables

In the exits, when you access tables via RDJTAB, the Rule Engine opens the table files at the beginning of the session and closes them at the end. You can include the access to these tables in all the exits and external calls via the call to the RDJTAB module located in the DLL used to access the tables. This DLL is also called in the Transformation-Rule for standard access to tables.

Platform Directory Name DLL

Windows

$RDJ_HOME/bin

librdjges.dll

UNIX

$RDJ_HOME/bin

librdj ges.suff (shared library)

z/OS

&RDJHOME.. EXELIB

RDJgesDL

Exchanged data

Access to the RDJTAB module is written in COBOL or C language according to the language used in user exits or external calls.

Input and output data fields are listed in the exit directory files:

  • Copy clause file LRDJTAB for COBOL
  • Header file rdjtabh.h for C language

INPUT data

Name in COBOL Name in C language Data type / Length Use

LXTYPTAB

sTypTab

Alphanumeric / 1

Table type:

  • S: only short table is accessed
  • L: only long table is accessed
  • Space : short table is accessed first. If argument is not found AND table control flag is empty then the second long table is accessed.

LXNOMTAB

sNomTab

Alphanumeric / 8

Table name

LXARGUMENT

sArgument

Alphanumeric / 128

Argument name

Length:

  • Short tables: 17 characters maximum
  • Long tables: 128 characters maximum

LXDTARG

sDtArg

Alphanumeric / 7

Argument date (SAAMMDD), by default current date

No date control is performed but the date must be inferior to the expiry date.

OUTPUT data

Name in COBOL Name in C language Data type / Length Use

LXTYPTAB

sTypTab

Alphanumeric / 1

Table type:

  • S: short table found
  • L: long table found

LXCDACC

sCdAcc

Alphanumeric / 1

Quick access code :

  • O: quick access
  • N: otherwise

LXCDRETOUR

sCdRetour

Alphanumeric / 1

Return code:

  • 0 (TAB_nEntryFound): entry is found
  • 1 (TAB_nEntryNotFound): otherwise

LXTABVAL

sTabVal

Alphanumeric / 256

Expected value

LXLGARG

sLgArg

Alphanumeric / 4

Length of table arguments

LXLGVAL

sLgVal

Alphanumeric / 4

Length of table values

LXCLARG

sClArg

Alphanumeric / 1

Class of table arguments

LXCLVAL

sClVal

Alphanumeric / 1

Class of table values

LXCDERR

sCdErr

Alphanumeric / 7

Error code:

  • Space: entry found
  • 0001580: table not found
  • 0001623: entry not found

LXCDVALDEF

sCdValDef

Alphanumeric / 1

Default value flag:

  • O: entry found with default value of the table
  • N: otherwise

LXCTRLTAB

sCtrlTab

Alphanumeric / 1

Table control flag

Table control is applied only if entry is not found ('O','N' or space '.')

Note:

  • An existing table updated by the rdjmaj procedure is either a short table or a long table but never both.
  • If an entry is not found, it is recommended that you set the “table control flag” parameter to not empty in the table definition so that you can test if there is an error ('O') or not ('N').

Implementation

In the COBOL exits or ITR501 external call:

  • Add the following line in in the Working-Storage section:
    COPY LRDJTAB.
  • Call the RDJTAB module in the different processes.
    For more information, refer in the Appendices to the example that calls RDJTAB in COBOL language.

In the C exits or ITR501 external call:

  • Add the following line in the general description:
    "#include "rdjtabh.h"

Call the RDJTAB module in the different processes.
For more information, refer in the Appendices to the example that calls RDJTAB in C language.

Related Links