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 |
|
|
|
Many of the terminal features in the table above can be accessed via Tab Functions.
* (function key)
