Parameters that control the operation of Adabas Online System can be set at installation time by changing the defaults in the Natural program AOSEX1.
The table below lists the parameters and possible values. Default values are underlined:
| Parameter | Valid Values / Default | Function |
|---|---|---|
ADMIN-LEVEL (N1) |
0-9 / ( 6 ) | Administration level: Allows access to certain functions that can cause error conditions in the ADABAS environment. When set to 8 or higher, it allows the "CATCH RSP-CODE" direct command to occur, and when set to 9, it allows the "ZAP" function to be issued. |
AOS-END-MSG |
Yes ( Y ) / No (N) | Display AOS end-of-session message? |
AOS-LOGO |
Yes ( Y ) / No (N) | Display AOS logo? |
BATCH-ERROR (A1) |
Yes ( Y ) or No (N) / No (N) | Batch job cond code: When AOS is executing from a batch job and has an error condition, and if BATCH-ERROR is set to "Y", AOS will terminate with a condition code of 8. This function will be fully implemented over time, as all AOS programs must be modified for this. |
BLK-CYL |
Cylinder (C) Block ( B ) |
Space control by block or cylinder |
CMD-INT |
Natural (N) AOS ( A ) |
Pass-through control for invalid AOS commands: "N" passes invalid commands to Natural; "A" displays an error message for invalid commands. |
CPEXLIST |
No ( N ): normal list Yes (Y): extended |
Display extended checkpoint list? |
EXF-UTI |
E: EXF exception U : UTI exception |
UTI or EXF file lock exception |
MAX-AC-IOS |
0-999999 ( 150 ) | AC read converter block threshold value |
MAXANZ |
1-99999999 ( 100 ) | Maximum displayed user queue elements |
NR-EXT |
1, 2, 3, 4, 5, 6, 7, 8, 9 | "Critical" extent threshold for listing file |
NR-PERCENT(N3) |
1-99 / ( 89 ) | Report function: NR-PERCENT is a threshold value for the display of critical files concerning the percentage full of the extents reached in AC/UI/NI/DS table type. A value greater than NR-PERCENT will be highlighted. |
PURGE-UQE |
Yes (Y) / No ( N ) | Remove user queue element? |
SAVEFDT |
Yes (Y) / No ( N ) | Keep deleted file's FDT? |
STATINTV |
1-9999 seconds ( 60 ) | Statistics-gathering interval |
TID-DISPLAY |
B, A, I | Control display for TID in "display user queue" function: "B" = binary TID display; "A" = alpha TID display; "I" = alpha for A-Z/0-9, otherwise binary. |
TIMELA |
0-99999999 seconds ( 0 : no limitations) | Display user queue elements with activity during the last "n" seconds. |
TIN-JOBN |
T (time-in) J (jobname) |
Display either jobname or time-in in "display command queue" function |
To change the defaults, you must edit the Natural AOSEX1 program and make the changes directly within the program listing in the defaults area, which looks as follows:
.
.
.
DEFINE DATA PARAMETER USING P-AOSEX1
END-DEFINE
*
* SET THE DEFAULTS
*
ADMIN-LEVEL = '6' (Allows access to certain functions that can cause error conditions in the ADABAS environment)
AOS-END-MSG = 'Y' (Display end-of-session message)
AOS-LOGO = 'Y' (Adabas Online System logo display-set to 'N' for no logo display)
BATCH-ERROR = 'N' (If BATCH-ERROR is set to "Y", AOS will terminate with a condition code of 8 if an error occurs.)
BLK-CYL = 'B' (Space allocation default-set to 'C' for cylinders)
CMD-INT = 'A' (Pass invalid Adabas commands to (N)atural, or intercept (A))
CPEXLIST = 'N' (Checkpoint list control-set to 'Y' for extended checkpoint list)
EXF-UTI = 'U' (File locking exception-set to 'E' to except files in EXF status)
MAXANZ = 100 (Maximum user queue elements displayed. range: 1 - 99,999,999 elements)
NR-EXT = 4 (Critical extent threshold-1, 2, 3, 4, 5, 6, 7, 8 or 9)
NR-PERCENT = '89' (NR-PERCENT is a threshold value for the display of critical files)
MAX-AC-IOS = 150 (AC read converter block threshold)
PURGE-UQE = 'N' (Remove element from user queue. Pre-5.1 default is "Y")
SAVEFDT = 'N' (Keep old FDT for SAVE operation-set to 'Y' to save FDTs)
STATINTV = 60 (Statistic-gathering time. range: 1 - 9999)
TID-DISPLAY = 'I' (TID display control: B=binary, A=alpha, I=normally alpha, special characters as binary)
TIMELA = 0 (Include activity in last 'n' seconds. range: "all" (0) -last 99,999,999 seconds)
TIN-JOBN = 'J' (Command queue display-"J" for jobname, "T" for "time in queue" )
*
END
