<< LINES .001/.009 ARE RESERVED FOR SYSTEMS INTEGRATION>>               00000001
<<************************************************************>>        00001000
<<*********MPE V  P C B X G L O B A L ************************>>        00002000
<<********* I N C L U D E   F I L E   ************************>>        00003000
<<************************************************************>>        00004000
                                                                        00005000
COMMENT                                                                 00006000
                                                                        00007000
User of the PCBXGLOBal include file must declare within                 00008000
each procedure that accesses informtion from the PCBXGLOBal             00009000
area of the stack, an array called QARRAY.  This array is               00010000
crucial in the location of variables located within the                 00011000
PCBXGLOBal area.                                                        00012000
                                                                        00013000
   The following declarations must be made within procedure:            00014000
       ARRAY QARRAY = Q + 0:                                            00015000
       INTEGER PCBGLOBLOC:                                              00016000
       PXGLOBAL:   ::DOES INITIALIZATION PROCESS ::                     00017000
                                                                        00018000
 2) The following is an example of how these                            00019000
    declarations are to be used:                                        00020000
                                                                        00021000
                                                                        00022000
       PROCEDURE EXAMPLE:                                               00023000
       BEGIN                                                            00024000
       ARRAY QARRAY = Q + 0:                                            00025000
          INTEGER                                                       00026000
          PCBGLOBLOC:  ::disp from q+0 to pcbx global::                 00027000
                                                                        00028000
       PXGLOBAL:  :: INITIALIZE POINTER TO PCBX GLOBAL >>               00029000
          .                                                             00030000
          .                                                             00031000
          .                                                             00032000
       IF PXG'INTERACTIVE THEN ...                                      00033000
; << end comment >>                                                     00034000
                                                                        00035000
$IF X8 = OFF                                                            00036000
$CONTROL NOLIST                                                         00037000
$IF                                                                     00038000
                                                                        00039000
COMMENT                                                                 00040000
 PXGLOB FORMAT:                                                         00041000
The PXGLOB portion of the PCBX is for job information and               00042000
contains the same job related information for all                       00043000
processes belonging to the same job.                                    00044000
                                                                        00045000
     0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                     00046000
   |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                    00047000
  0|      DL-a=SEG. REL DL VALUE                   |0                   00048000
   |-----------------------------------------------|                    00049000
  1|    DB-a=SEG. REL DB VALUE                     |1                   00050000
   |-----------------------------------------------|                    00051000
  2|          USER ATTRIBUTES                      |2                   00052000
   |-----------------------------------------------|                    00053000
  3|             JMAT INDEX                        |3                   00054000
   |-----------------------------------------------|                    00055000
  4|            JPCNT INDEX (Rel Bit address)      |4                   00056000
   |-----------------------------------------------|                    00057000
  5|            JCUT INDEX                         |5                   00058000
   |-----------------------------------------------|                    00059000
  6|SB| R|  TY | D| I|//|//|//|//| STACK DUMP FLAGS|6                   00060000
   |-----------------------------------------------|                    00061000
  7|///////////////////////|  NATIVE LANGUAGE      |7                   00062000
   |-----------------------------------------------|                    00063000
 10|        ACTUAL JOB INPUT LDEV                  |8                   00064000
   |-----------------------------------------------|                    00065000
 11|        ACTUAL JOB OUTPUT LDEV                 |9                   00066000
   |-----------------------------------------------|                    00067000
 12|           JDT DST INDEX                       |10                  00068000
   |-----------------------------------------------|                    00069000
 13|           JIT DST INDEX                       |11                  00070000
   |-----------------------------------------------|                    00071000
                                                                        00072000
  R = restart bit               Stack Dump Flags                        00073000
  I = job in/list interactive    Bit 10 = Armed                         00074000
  D = job in/list duplicative    Bit 11 = Suppress traceback            00075000
 TY = job type                   Bit 12 = Suppress ASCII                00076000
  0 = undefined                  Bit 13 = Q-63 to S                     00077000
  1 = session                    Bit 14 = QINIT to S                    00078000
  2 = job                        Bit 15 = DL to QINIT                   00079000
  3 = task                                                              00080000
                                                                        00081000
;    << END COMMENT >>                                                  00082000
$IF X8=OFF                                                              00083000
$CONTROL LIST                                                           00084000
$IF                                                                     00085000
                                                                        00086000
                                                                        00087000
<<************************************************************>>        00088000
<<**************** B E G I N   T H E         *****************>>        00089000
<<****************  P X G L O B A L          *****************>>        00090000
<<**************** D E C L A R A T I O N S   *****************>>        00091000
<<************************************************************>>        00092000
                                                                        00093000
DEFINE                                                                  00094000
   PXGLOBAL = PUSH(Q,DL);  ASSEMBLE(XCH,SUB);                           00095000
              PCBGLOBLOC := TOS-QARRAY(S0-1)#;                          00096000
                                                                        00096100
EQUATE                                                                  00096200
   PXG'JOBINFO'LEN = 9,                                                 00096210
   PXG'JOBINFO'OFFSET = 3,                                              00096220
   PXG'RELDB'OFFSET = 1,                                                00096230
   PXG'SIZE = 12;                                                       00096300
                                                                        00097000
DEFINE                                                                  00098000
   PXG'RELATIVE'DL      = QARRAY(PCBGLOBLOC + 0)#,                      00098100
   PXG'RELATIVE'DB      = QARRAY(PCBGLOBLOC + 1)#,                      00098200
   PXG'USERATTRIBUTES   = QARRAY(PCBGLOBLOC + 2)#,                      00099000
   PXG'JMATINX          = QARRAY(PCBGLOBLOC + 3)#,                      00100000
   PXG'JPCNTINX         = QARRAY(PCBGLOBLOC + 4)#,                      00101000
   PXG'JCUTINX          = QARRAY(PCBGLOBLOC + 5)#,                      00102000
   PXG'STKDUMPFLAGS     = QARRAY(PCBGLOBLOC + 6).(10:6)#,               00103000
   PXG'STUNBIT          = QARRAY(PCBGLOBLOC + 6).(0:1)#,                00103100
   PXG'RESTART          = QARRAY(PCBGLOBLOC + 6).(1:1)#,                00104000
   PXG'ALLOWMASK        = QARRAY(PCBGLOBLOC + 6).(6:1)#,       << 2214>>00104100
   PXG'INTERACTIVE      = QARRAY(PCBGLOBLOC + 6).(5:1)#,                00105000
   PXG'DUPLICATIVE      = QARRAY(PCBGLOBLOC + 6).(4:1)#,                00106000
   PXG'JOBTYPE          = QARRAY(PCBGLOBLOC + 6).(2:2)#,                00107000
   PXG'NATIVELANG       = QARRAY(PCBGLOBLOC + 7).(8:8)#,                00108000
   PXG'INPUTLDEV        = QARRAY(PCBGLOBLOC + 8)#,                      00109000
   PXG'OUTPUTLDEV       = QARRAY(PCBGLOBLOC + 9)#,                      00110000
   PXG'JDTDST           = QARRAY(PCBGLOBLOC + 10)#,                     00111000
   PXG'JITDST           = QARRAY(PCBGLOBLOC + 11)#;                     00112000
                                                                        00113000
<<************************************************************>>        00114000
<<  E N D    P C B X G L O B A L   I N C L U D E   F I L E    >>        00115000
<<************************************************************>>        00116000
