Adabas Security
This feature is used to enable Peek to access files that have been protected by Adabas Security. It can be activated by setting the appropriate value in module PKUSRN01. See the documentation in that module for further information.
1240 * Set the ADABAS SECURITY parameter 1250 * 1260 * If any of your files are protected by ADABAS SECURITY, you must 1270 * specify #USING-ADABAS-SECURITY = TRUE. Also, you will need to 1280 * modify the module PKPSWN01. This module allows you to specify the 1290 * password for each protected file. 1300 * 1310 * The parameters for this module are: 1320 * 1330 * ---> #REQ-FILE-NO (B2) 1340 * ---> #REQ-DATABASE (B2) 1350 * <--- #ADABAS-PASSWORD (A8) 1360 * <--- #ADABAS-CIPHER (A8) 1370 * 1380 #USING-ADABAS-SECURITY := FALSE 1390 * |
Below is the sample program generated by PKINSTAL. It will only be called if #USING-ADABAS-SECURITY = TRUE.
0010 * ---------------------------------------------------------------------- 0020 * Description 0030 * ----------- 0040 * Use this module if your site uses ADABAS SECURITY. Set the password 0050 * for each protected file/DB combination. 0060 * ---------------------------------------------------------------------- 0070 * Copyright (C) Denis Molony 1991-2002. All rights reserved. 0080 * ---------------------------------------------------------------------- 0090 DEFINE DATA 0100 PARAMETER 0110 1 #REQ-FILE-NO (B2) /* Passed by PEEK 0120 1 #REQ-DATABASE (B2) /* Passed by PEEK 0130 1 #PASSWORD (A8) /* Set by this routine 0140 1 #CIPHER (A8) /* Set by this routine 0150 END-DEFINE 0160 * 0170 DECIDE ON FIRST VALUE OF #REQ-FILE-NO 0180 VALUE 1 MOVE 'Password' TO #PASSWORD 0190 VALUE 2 MOVE 'Password' TO #PASSWORD /* ...etc. 0200 NONE 0210 WRITE (CD=TU) 0220 'The PEEK password routine has been called for file' #REQ-FILE-NO 0230 / 'on database' #REQ-DATABASE 'but no password has been defined.' 0240 STOP 0250 END-DECIDE 0260 * 0270 END |