• NDV User Exit (Coded in Natural)

• Enabling an NDV User Exit

---

NDV User Exit (Coded in Natural)

Natural Single Point of Development provides the following user exit.

NDV-UX01

The NDV-UX01 user exit is invoked before a Natural source object or a DDM is edited. It can be used to reject editing certain sources.

The name of the source code of this exit in the SYSLIB Natural system library is NDV-SX01.

To use this user exit, you must first enable it. For instructions, see Enabling an NDV User Exit.

You can specify the following parameters for NDV-UX01:

Parameter	Format	In/Out	Description
FUSER-DBID	N5	In	Database ID of the system file that contains the object.
FUSER-FNR	N5	In	File number of the system file that contains the object.
LIBRARY	A8	In	Name of the library that contains the object.
OBJECT-NAME	A32	In	Name of the Natural object or DDM that is edited.
USERID	A8	In	ID of the current user.
OBJECT-TYPE	A1	In	Natural type of the object.
ALLOW-DISALLOW-TRANSFER	L	Out	Possible values: TRUE - allows editing of the object. This is the default. FALSE - rejects editing of the object.
DISALLOW-DESCRIPTION	A65	Out	Error message issued by NDV if the edit request is rejected.

Enabling an NDV User Exit

The NDV user exit is delivered in the SYSLIB Natural system library.

The source of the user exit routine is named NDV-SXnn, where nn denotes the number of the user exit routine.

To make an NDV user exit routine available:

1. Copy the source code of the user exit NDV-SXnn from the SYSLIB Natural system library into a user library and save it under the name NDV-UXnn.

   Renaming the user exit guarantees that the object is not affected if the user exit source is overwritten by an installation update.

2. Adapt the values of the parameters as required and stow the user exit.

3. Copy the cataloged object of NDV-UXnn to the SYSLIB Natural system library.