Inventory Exit Interface

CA‑PanAPT models can use information stored in the Inventory Record to generate customized processing instructions which vary by member. A model could, for example, use the ENVIRONMENT inventory item to determine whether to apply CICS pre‑processing to a member. In this way, members for batch and CICS could be maintained under the same Library Code, but the model could generate different processing for each.

But models can only deal with pre‑defined conditions. If a user entered CICSHX as the ENVIRONMENT inventory item for a member, the model might fail. That, in turn, could terminate the entire daily processing job.

The CA‑PanAPT Inventory Exit can ensure that data entered for an Inventory Record meets the site's standards. You can also use it to alter information entered on the Inventory File Maintenance panel. CA‑PanAPT invokes the exit when a user adds, changes, or approves an Inventory Record.

The Inventory Exit is called after user input is collected and before the data is written to the Inventory file.

When the Inventory Exit point is taken, four parameters are passed to the exit program:

Inventory information obtained from the Inventory File panel
The Inventory File record
The Library Code record
Fields from the CA‑PanAPT system data area.

These parameters give the user an opportunity to approve or disapprove pending activity by comparing panel input data to existing records.

When the user exit finishes processing, data contained in the following fields is used to update the Inventory Record. Your exit must not place bad data in these fields.

APIP610‑LIB‑CODE	APIP610‑USER‑TABLE‑8
APIP610‑LIB‑SUBCODE	APIP610‑USER‑TABLE‑16
APIP610‑OWNER‑ID	APIP610‑USER‑TABLE‑50
APIP610‑APPROVED‑FLAG	APIP610‑COMPILER‑OPTIONS
APIP610‑DESCR	APIP610‑LINKAGE‑OPTIONS
APIP610‑ENVIRONMENT	APIP610‑DB‑OPTIONS
APIP610‑APPLICATION	APIP610‑CICS‑OPTIONS
APIP610‑LANGUAGE	APIP610‑LINK‑STREAM
APIP610‑COMMENTS	APIP610‑LIST‑OVERRIDE
APIP610‑PANEL‑ID	APIP610‑OBJECT‑OVERRIDE
APIP610‑DIBSCFLG	APIP610‑LOAD‑OVERRIDE
APIP610‑DIBSUFLG

CA‑PanAPT provides a sample exit program (APCS0304) to edit Inventory Records being created, modified, or deleted.

Notes:

Field APIP610‑PANEL‑ID contains either APIP610, APIP611, or APIP612. If you want to edit data on any of these panels, you must first check that APIP610‑PANEL‑ID currently contains the correct panel name. If it does not, then your exit might validate data that has not been entered yet.
Field APIP610‑DIBSCFLG contains the 1-byte Compile/Link Options Y/N value from panel APIP610. It allows the user to indicate if they want to display or maintain the compiler option fields on panel APIP612.
Field APIP610‑DIBSUFLG contains the 1-byte User data Y/N value from panel APIP610. It allows the user to indicate if they want to display or maintain the user fields on panel APIP611.
CA‑PanAPT provides a sample exit program (APCS0304) to edit Inventory Records being created, modified, or deleted.