BOI Software Entwicklung und Vertrieb GmbH

Phone: +43 (0) 732 / 736423 - 0

Spazgasse 4

Email: office@boi.at

4040 Linz, Austria

www.boi.at

How to call a a customer defined exit after table selection but before table maintenance?

General information

If the exit is to be called between table selection and table maintenance, you cannot use the protocol exit, because logging is done just before saving and therefore after maintenance.

The following entry $TAB4PTC24 (database TABCTL) defines, that the exit entry for the AFTTBSEL exit for function Edit table mit is set with system setting EXITTBSEL:

EXITPAR

MODID

EXITTYPE

EXITTBSEL

P4_EDT_SLC

AFTTBSEL

The system setting EXITTBSEL defines, that the entry AFTTBSEL of the module EXITTEST is called as exit.

Parameter

value

EXITTBSEL

EXITTEST AFTTBSEL

Parameters of the exit program

Parameter number

contents

1.

Name of the table (INPPAR 1)

2.

Version date of the table (INPPAR 2)

3.

File extension of the table (INPPAR 3)

4.

File extension of the production database (INPPAR 4)

5.

Return code (OUTPAR 5)

If a value not equal blank is returned, the table selection is displayed again and the message specified in parameter 6 is displayed.

6.

Message parameter (OUTPAR 6)

Values for message processing by $TAB4_I015.PUTMSG. The first 'word' delimited by blank is passed as first parameter, the rest as second parameter to $TAB4_I015.PUTMSG. A character variable with length <= 450 must be specified.

Example

000001 module
000002
000003 afttbsel: proc
000004 dcl Tabname          char(10)  inppar 1
000005 dcl Tabvers          char(8)   inppar 2
000006 dcl Tabdd            char(8)   inppar 3
000007 dcl Secdd            char(8)   inppar 4
000008 dcl Furc             char(1)   outpar 5
000009 dcl Msgpar           char(80)  outpar 6
000010
000011 display tabname tabvers tabdd secdd
000012
.....
000099 end

$TAB4_I015.PUTMSG is an internal SSL function and is not officially documented. If an error occurs (return code in'OUTPAR 5' > ' '), the message is generated by the system, but an own message can also be defined.

Documentation

BOIDOC_209a_config_en.pdf, chapter Exit after selecting a TABEX table

See also BOI WIKI: How to pass a user-defined message to an exit, which is displayed in case of an error.

Valid from

TABEX/4 Version 4.1.0

Migration Packages

BOI GmbH offers migration packages for the table management systems SPITAB, TABSYS and VTAS.

 

» Migrations Packages

Success Stories

AirPlus has been using TABEX for 20 years.

Now TABEX/4 JAVA APPLICATION ENGINE has additionally been launched for audit-proof logging of the business processes by Java applications.

 

» read this success story

» more success stories