Note: Real parameters are passed by name to be compatible with COBOL calling requirements. Numeric entries are held as packed decimal, with the length given in hex digits, not bytes.
Entrypoint GET-RUN-INFO
Parameter: EBCDIC ARRAY table info
| Parameter Name | Type |
|---|---|
| GEN-SYSNAME | A 10 |
| DB | A 10 |
| COMS-WINDOW | A 10 |
| SYSVERS | N 4 |
| CREATE-DATE | N 8 |
| CREATE-TIME | N 8 |
| DATE | A 2 |
| HOC | A 1 |
| ROC | A 1 |
| KANJI | A 1 |
| SAVERECOV | A 1 |
| NOREAP-FLAG | A 1 |
| WDP-Ispec-6 | A 6 |
| WDP-NORMAL-TYPE | A 4 |
| WDP-BYE-TYPE | A 4 |
| INPUTPROTECTION | A 1 |
| DECOPT | N 1 |
| LOG-LEVEL | N 1 |
| LOG | N 4 |
| BIGLOG | N 6 |
| BASE-YEAR | N 4 |
| CENTURY-BASE | N 4 |
| PROTECT-DI | N 1 |
| LSS-TIMEOUT | N 2 |
| DESCRIPTION | A 50 |
| VERSID | A 20 |
| LANGUAGE | A 17 |
| LANG-NAME | A 17 (occurs 15 times) |
| DEFAULT-PACK | A 17 |
| PRIMARY-PACK | A 17 |
| ALT-PACK | A 17 |
| AUDIT-PACK | A 17 |
| DICTIONARY-PACK | A 17 |
| EVENT-PACK | A 17 |
| LINCLOG-PACK | A 17 |
| OBJECT-PACK | A 17 |
| ROC-FILE-PACK | A 17 |
| ROC-PACK | A 17 |
| STATION-PACK | A 17 |
| COMS-POFNAME | A 17 |
| FIRE-UP | A 5 |
| 2PC | A 1 |
| NEW-PLATEAU | A 1 |
| OLTP | A 1 |
| OLTP-TIMEOUT | N 4 |
| MAX-BUFFER | N 6 |
| CCSVERSION | A 17 |
| AE1-USER | A 17 |
| AE1-DB | A 17 |
| AE1-PACK | A 17 |
| AE2-USER | N 17 |
| AE2-DB | A 17 |
| AE2-PACK | A 17 |
| NAP | A 1 |
| NAP buffer | N4 |
| Integrity | A1 |
| OLTP report timeout | N4 |
Entrypoint GET-IspecS
Parameter: EBCDIC ARRAY table info, (resized if required). Result: REAL # entries
Multiple entries of:
| Parameter Name | Type |
|---|---|
| Ispec-NAME | A 5 |
| Ispec-LGTH | N 6 |
| Ispec-SYS | N 2 |
| Ispec-Vanilla | N 1 |
| Ispec-DW | N 1 |
| Filler | N 1 |
Example
The following example shows the programmatic interface in ALGOL:
beginlibrary lincsupport(title="MYSYSTEM/LINCSUPPORT.");
ebcdic array myispecs[0:0]; %will be resized by library
real num_ispecs, i;
real procedure get_ispecs (ispecs);
ebcdic array ispecs[0];
library lincsupport;
%lets get the table of all ispecs
if num_ispecs:=get_ispecs(myispecs) geq 0 then
for i:=0 step 1 until num_ispecs do
display("Ispec #"!!string(i,*)!!" is "!!string(myispecs[i*10],5))
else
display("No ispecs defined")
end.