SUBROC processing: Copy routing @ L.V. Expertise X3

AFTCREROH: After creation of a routing header

Use this entry point to take over after the creation of a routing header in the ROUTING table, in order to process additional specific tables.

Context and operating mode

Description of the call context

There is one transaction in progress.

Log file

There is an open log file.

Available screen class

The [M:DIA] screen is loaded.

Use

This entry point is called in the For [ROH] Where... loop that concerns the original site routings, after each write of a new routing in the destination site via the [F:ROHW] class, knowing that the operations and schedulings of this routing have been created beforehand.

The GOK variable is set to 1 upon calling the entry point. It is then tested. If GOK<1, the processing is stopped and the transaction is entirely rollbacked.

The GERR variable is set to 0 upon calling the entry point. It is then tested. If GERR=1, the processing is stopped and the transaction is entirely rollbacked with the addition of the GMESSAGE error message to the log file.

Open tables

Tables with significant content

ROUTING [ROH] Routing headers (original site, read)

ROUTING [ROHW] Routing headers (destination site, write)

TABFOR [TFO] Formulas

Tables with no significant content

ROUOPE [ROO] Routing operations (original site, read)

ROUOPE [ROOW] Routing operations (destination site, write)

ROUSCD [ROS] Routing operation scheduling (original site, read)

ROUSCD [ROSW] Routing operation scheduling (destination site, write)

WORKSTATIO [MWS] Work centers (original site, read)

WORKSTATIO [MWSW] Work centers (destination site, read)

ATEXTRA [AXX] Translatable texts

TABROUALT [TRO] Routing codes

AFTCREROO: After creation of a routing operation

Use this entry point to take over after the creation of a routing operation in the ROUOPE table, in order to process additional specific tables.

Context and operating method