UDB module

The UDB facility is a convenience feature which enables the user to alter the current UDB setting from within Peek. In order to make this facility available to the users, it must be enabled from the PKUSRN01 module. Additionally, the SAG module USR1040N must be copied from the SYSEXT library to SYSTEM.

1750 * Specify whether the user is permitted to view the UDB setting.
1760 * Possible values are:
1770 *   0 = UDB feature unavailable
1780 *   1 = UDB value may be queried, but not modified
1790 *   2 = UDB value may be set to any value
1800 *   3 = UDB value may be set, subject to site security
1810 *
1820   #UDB-LEVEL := 0

Below is the sample program generated by PKINSTAL. It will only be called if the #UDB-LEVEL = 3.

0010 DEFINE DATA
0020 PARAMETER
0030   1 #UDB                           (N5)
0040 END-DEFINE
0050 *
0060 IF #UDB = 5 OR = 6 OR = 25        /* For example...
0070   #UDB := 0                       /* Prevent the UDB change
0080 END-IF
0090 *
0100 END