JOBDAT

xcall JOBDAT, job'info

JOBDAT.SBR 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'SYSNAM  ,S,16

! OS name, e.g. "Windows/32"

 

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)