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 |