xcall JOBDAT, job'info
JOBDAT is yet another example of a subroutine which returns a variety of information about the current job. This one seems to have been connected with the inSight juggernaut.
Parameters
MAP1 JOB'INFO
| MAP2 JD'JOBNAM ,S,6 | ! Job name |
| MAP2 JD'JOBNUM ,F,6 | ! Job number |
| MAP2 JD'JOBLOG ,S,20 | ! e.g. "DSK0:[150,277]" |
| MAP2 JD'USRNAM ,S,20 | ! User login name |
| MAP2 JD'PRGNAM ,S,6 | ! Program name |
| MAP2 JD'PRGVER ,S,16 | ! Program version |
| MAP2 JD'TRMROW ,F,6 | ! Current # display rows |
| MAP2 JD'TRMCOL ,F,6 | ! Current # display cols |
| MAP2 JD'TRMFGC ,F,6 | ! Foreground color # |
| MAP2 JD'TRMBGC ,F,6 ! Background color # |
| MAP2 JD'TRMFLG(32),B,1 | ! Terminal flags (see below) |
Each entry in the JD’TRMFLG() array corresponds to a terminal feature from the following table. The array item is set to 1 if the feature is supported by the current display device, else 0.
Item |
Meaning |
|
Item |
Meaning |
1 |
Alternate page |
|
16 |
Line insert |
2 |
Block fill |
|
17 |
Auxiliary printer port |
3 |
Column insert |
|
18 |
80/132 column |
4 |
Color |
|
19 |
Smooth scroll |
5 |
Multi-byte* translations |
|
20 |
Box commands |
6 |
Alpha terminal |
|
21 |
Mode attributes |
7 |
Addressable status lines |
|
22 |
AM70-style color commands |
8 |
Split screen |
|
23 |
No-space attributes |
9 |
Erase to end of line |
|
24 |
"True" graphics |
10 |
Erase to end of screen |
|
25 |
Gray scale |
11 |
Underscore |
|
26 |
Proportional space fonts |
12 |
Blink |
|
27 |
Variable rows |
13 |
Dim |
|
28 |
8 bit support |
14 |
Reverse video |
|
29 |
Insight Support |
15 |
Character insert |
|
|
|
* (function key)
