<<********************************************************>>            00010000
<<********* b e g i n   m p e  v   jit *******************>>            00015000
<<********* i n c l u d e   f i l e    *******************>>            00020000
<<********************************************************>>            00025000
                                                                        00030000
               comment                                                  00035000
                                                                        00040000
    this is the include file for the mpe  v jit (job                    00045000
information table).                                                     00050000
                                                                        00055000
the user should note that it is required that the user set              00060000
up the addressing mode within the code accessing the                    00065000
variables or this table. it is also required that in                    00070000
conjunction with setting up the addressing mode tha the user            00075000
use anarray called "JITARR" to reference the variables of the           00080000
jit table.  the following are examples of how jitarr reserved           00085000
variable should be used.                                                00090000
                                                                        00095000
    1) how to use when doing an exchangedb to the jit:                  00100000
                                                                        00105000
          integer array jitarr(*) = db + 0:                             00110000
          logical sessionflag:                                          00115000
                  .                                                     00120000
                  .                                                     00125000
                  .                                                     00130000
          if sessionflag then                                           00135000
          begin                                                         00140000
             exchangedb(jitdst):                                        00145000
             jitjstype := 1:                                            00150000
             exchangedb(0):                                             00155000
          end:                                                          00160000
                                                                        00165000
    2) how to use when doing a mfds/mtds with the jit:                  00170000
                                                                        00175000
          integer i,j,k:                                                00180000
          integer array jitarr(0:jitentrysize-1):                       00185000
                  .                                                     00190000
                  .                                                     00195000
                  .                                                     00200000
          movetodseg(jitdst,targetptr,jitusername,count):               00205000
                                                                        00210000
                                                                        00215000
;      << end header comment  >>                                        00220000
$if x8 = off                                                            00225000
$control nolist                                                         00230000
$if                                                                     00235000
                                                                        00240000
comment                                                                 00245000
     jit -job information table                                         00250000
     --------------------------          jit dst is word 11             00255000
                       1 1 1 1 1 1       in pxglob                      00260000
   0|1:2:3|4:5:6|7:8:9|0:1:2|3:4:5                                      00265000
  |-------------------------------|                                     00270000
 0| jit dst                       | 0                                   00275000
  |-------------------------------|                                     00280000
 1|    6      :     not used      | 1                                   00285000
  |-------------------------------|                                     00290000
 2|  pointer to job info        8 | 2                                   00295000
  |-------------------------------|                                     00300000
 3|  pointer to acct info      48 | 3                                   00305000
  |-------------------------------|                                     00310000
 4| pointer to reserved area   59 | 4                                   00315000
  |-------------------------------|                                     00320000
 5|    association table index    | 5                                   00325000
  |-------------------------------|                                     00330000
 6|                             :f| 6   f - job/session-wide            00335000
  |-------------------------------|         fpmap option flag           00340000
 7|ty :   job number              | 7       (jsfpmap)                   00345000
10|                               | 8   ty - 1 = session                00350000
  |-------------------------------|          2 = job                    00355000
11|                              7| 9                                   00360000
  |-------------------------------|                                     00365000
12| jitmaxp       :eof:           |10   jitmaxp-maxjobpri               00370000
  |-------------------------------|     capability                      00375000
13| jitmpn                        |11   jitmpn-job main pin             00380000
  |-------------------------------|     jiteof-fclose uses a            00385000
14|       ds dataseg              |12   tell ci a $stdin(x)             00390000
  |-------------------------------|     file was closed w/o             00395000
15|          jitasec              |13   finding an eof.                 00400000
  |-------------------------------|     (0:1)=$stdin                    00405000
16|       jitgsec (2 words)       |14   (1:1)=$stdinx                   00410000
  |       group security          |                                     00415000
  |-------------------------------|                                     00420000
20|       jithan (4 words)        |16                                   00425000
  |       account name            |                                     00430000
  |-------------------------------|                                     00435000
24|       jithgn (4 words)        |20                                   00440000
  |       home group              |                                     00445000
  |-------------------------------|                                     00450000
30|       jitlgn (4 words)        |24                                   00455000
  |       log-on group            |                                     00460000
  |-------------------------------|                                     00465000
34|                               |28                                   00470000
35|           jitun               |29                                   00475000
36|          user name            |30                                   00480000
37|                               |31                                   00485000
  |-------------------------------|                                     00490000
40| pointer to jitaip          53 |32                                   00495000
  |-------------------------------|                                     00500000
41|p|m: pointer to jitgip      55 |33   p - group's home                00505000
  |-------------------------------|         volume is a                 00510000
42|            lattr              |34       private volume              00515000
43|       local attributes        |35   m - private volume              00520000
  |-------------------------------|         mounted (ie. grp            00525000
44|            passf              |36       bound to home vol.          00530000
45|       passed file pointer     |37       set), jitgip=57             00535000
  |-------------------------------|                                     00540000
46|            ucap               |38                                   00545000
47|       user capability *       |39                                   00550000
  |-------------------------------|                                     00555000
50|///////////////////////////////|40                                   00560000
51|///////////////////////////////|41                                   00565000
52|///////////////////////////////|42                                   00570000
  |-------------------------------|                                     00575000
53|       local rin pointer       |43                                   00580000
  |-------------------------------|                                     00585000
54|                               |44                                   00590000
55|            jitjn              |45                                   00595000
56|           job name            |46                                   00600000
57|                               |47                                   00605000
  |-------------------------------|                                     00610000
60|                             3 |48   accounting info                 00615000
  |-------------------------------|                                     00620000
61| jitcrec - # of creations      |49                                   00625000
  |-------------------------------|                                     00630000
62|          jitcpuc              |50                                   00635000
63|       cpu milliseconds        |51                                   00640000
  |-------------------------------|                                     00645000
64|   not used    :    hipri      |52     hipri - highest               00650000
  |-------------------------------|       job pri.                      00655000
65|               0               |53                                   00660000
66|            jitaip             |54                                   00665000
  |-------------------------------|                                     00670000
67|               0               |55                                   00675000
70|            jitgip             |56  system volume set                00680000
  |-------------------------------|                                     00685000
71|       0       :    mvtabx     |57                                   00690000
72|            jitgip             |58  mounted private                  00695000
  |-------------------------------|    volume set                       00700000
73|                             1 |59                                   00705000
  |-------------------------------|                                     00710000
74|                             0 |60                                   00715000
  |-------------------------------|                                     00720000
75|                               |61   for bit mask                    00725000
76|      allow mask               |62   definitions see                 00730000
77|                               |63   opcommand listing or            00735000
100|                              |64   comsearch of segment            00740000
101|                              |65   ciinit                          00745000
102|                              |66                                   00750000
  |-------------------------------|                                     00755000
   0|1:2:3|4:5:6|7:8:9|0:1:2|3:4:5                                      00760000
                       1 1 1 1 1 1                                      00765000
                                                                        00770000
                                                                        00775000
 * the format for ucap (%46-47) is as follows:                          00780000
                                                                        00785000
        |-----------------------------------------------|               00790000
        | 0| 1| 2| 3| 4| 5| 6| 7| 8| 9|10|11|12|13|14|15|               00795000
        |-----------------------------------------------|               00800000
  word1 |sm|am|al|gl|di|op|cv|uv|lg|           |cs|nd|sf|               00805000
        |-----------------------------------------------|               00810000
  word2 |                    |ba|ia|pm|     |mr|  |ds|ph|               00815000
        |-----------------------------------------------|               00820000
                                                                        00825000
;   << end comment  >>                                                  00830000
                                                                        00835000
$if x8 = off                                                            00840000
$control list                                                           00845000
$if                                                                     00850000
                                                                        00855000
<<********************************************************>>            00860000
<<                                                        >>            00865000
<<b e g i n   m p e v   j i t   i n c l u d e   f i l e   >>            00870000
<<                                                        >>            00875000
<<********************************************************>>            00880000
<< ***************************************************** >>             00885000
<< remember to change the access method to the system    >>             00890000
<< allow mask.  if we forget, we're all be dead meat!!   >>             00895000
<< ***************************************************** >>             00900000
                                                                        00905000
equate                                                                  00910000
   jit'job'info'ptr      = 7,                                           00915000
   jit'locrin'ptr        = 43,                                          00920000
   jit'acct'info'ptr     = 48,                                          00925000
   jit'resrv'area'ptr    = 59,                                          00930000
   jit'jitaip'ptr        = 53,                                          00935000
   jit'jitgip'ptr        = 55,                                          00940000
   jit'gname'ptr         = 24,                                          00945000
   jit'aname'ptr         = 16,                                          00950000
   jit'uname'ptr         = 28,                                          00955000
   jit'lgname'ptr        = 20,                                          00960000
   jit'allow'mask'length = 6,                                           00965000
   jit'entry'size        = 67;                                          00970000
define                                                                  00975000
                                                                        00980000
   jitdst          = jitarr(0)#,                                        00985000
   jitvalue6       = jitarr(1).(0:6)#,                                  00990000
   jitjobinfoptr   = jitarr(2)#,                                        00995000
   jitacctinfoptr  = jitarr(3)#,                                        01000000
   jitreserveptr   = jitarr(4)#,                                        01005000
   jitassocindex   = jitarr(5)#,                                        01010000
   jitfpmapflag    = jitarr(6).(15:1)#,                                 01015000
   jitjobnumber    = jitarr(7).(2:14)#,                                 01020000
   jitjstype       = jitarr(7).(0:2)#,                                  01025000
   jitvalue7       = jitarr(9)#,                                        01030000
   jitmaxpri       = jitarr(10).(0:8)#,                                 01035000
   jiteof          = jitarr(10).(8:2)#,                                 01040000
   jitmainpin      = jitarr(11)#,                                       01045000
   jitdsdataseg    = jitarr(12)#,                                       01050000
   jitacctsec      = jitarr(13)#, <<acct security  >>                   01055000
   jitgroupsec     = jitarr(14)#, <<group security >>                   01060000
   jithacctname    = jitarr(16)#, <<home acct name >>                   01065000
   jithomegroup    = jitarr(20)#,                                       01070000
   jitlogongroup   = jitarr(24)#,                                       01075000
   jitusername     = jitarr(28)#,                                       01080000
   jitaipptr       = jitarr(32)#,                                       01085000
   jitgipptr       = jitarr(33)#,                                       01090000
   jitgipvf        = jitarr(33).(0:1)#,                                 01095000
   jitgimvf        = jitarr(33).(1:1)#,                                 01100000
   jitlocalattr    = jitarr(34)#, <<local attributes >>                 01105000
   jitpassfile     = jitarr(36)#,                                       01110000
   jitpassfilevtabx= jitarr(36).(0:8)#,  << passed file volume >>       01115000
                                         << table index        >>       01120000
   jitpassfileptr1 = jitarr(36).(8:8)#, <<passed file ptr 1>>           01125000
   jitpassfileptr2 = jitarr(37)#,       <<passed file ptr 2>>           01130000
   jitusercaps     = jitarr(38)#, <<user capabilities>>                 01135000
   jitlocalrinptr  = jitarr(43)#,                                       01140000
   jitjobname      = jitarr(44)#,                                       01145000
   jitacctinfo     = jitarr(48)#, <<accounting info  >>                 01150000
   jitnumcreations = jitarr(49)#,                                       01155000
   jitcpuc         = jitarr(50)#, <<cpu milliseconds >>                 01160000
   jithipri        = jitarr(52).(8:8)#,                                 01165000
   jitaip          = jitarr(53)#,                                       01170000
   jitaip2         = jitarr(54)#,                                       01175000
   jitgip          = jitarr(55)#,                                       01180000
   jitgip2         = jitarr(56)#,                                       01185000
   jitpvgip        = jitarr(57)#,                                       01190000
   jitmvtabx       = jitarr(57).(8:8)#,                                 01195000
   jitpvgip2       = jitarr(58)#,                                       01200000
   jitvalue1       = jitarr(59)#,                                       01205000
   jitvalue0       = jitarr(60)#,                                       01210000
   jitallowmask    = jitarr(61)#; <<6 word allow mask>>                 01215000
<<                                                        >>            01220000
<<  defines for the byte array stuff                      >>            01225000
<<                                                        >>            01230000
define                                                                  01235000
   bjithacctname   = bjitarr(32)#,                                      01240000
   bjithomegroup   = bjitarr(40)#,                                      01245000
   bjitlogongroup  = bjitarr(48)#,                                      01250000
   bjitusername    = bjitarr(56)#;                                      01255000
<<                                                        >>            01260000
<<   end of defines for the jit                           >>            01265000
<<                                                        >>            01270000
