<<************************************************************>>        00010000
<<*********MPE V  P C B X G L O B A L ************************>>        00015000
<<********* I N C L U D E   F I L E   ************************>>        00020000
<<************************************************************>>        00025000
                                                                        00030000
COMMENT                                                                 00035000
                                                                        00040000
User of the PCBXGLOBal include file must declare within                 00045000
each procedure that accesses informtion from the PCBXGLOBal             00050000
area of the stack, an array called QARRAY.  This array is               00055000
crucial in the location of variables located within the                 00060000
PCBXGLOBal area.                                                        00065000
                                                                        00070000
   The following declarations must be made within procedure:            00075000
       ARRAY QARRAY = Q + 0:                                            00080000
       INTEGER PCBGLOBLOC:                                              00085000
       PXGLOBAL:   ::DOES INITIALIZATION PROCESS ::                     00090000
                                                                        00095000
 2) The following is an example of how these                            00100000
    declarations are to be used:                                        00105000
                                                                        00110000
                                                                        00115000
       PROCEDURE EXAMPLE:                                               00120000
       BEGIN                                                            00125000
       ARRAY QARRAY = Q + 0:                                            00130000
          INTEGER                                                       00135000
          PCBGLOBLOC:  ::disp from q+0 to pcbx global::                 00140000
                                                                        00145000
       PXGLOBAL:  :: INITIALIZE POINTER TO PCBX GLOBAL >>               00150000
          .                                                             00155000
          .                                                             00160000
          .                                                             00165000
       IF PXG'INTERACTIVE THEN ...                                      00170000
; << end comment >>                                                     00175000
                                                                        00180000
$IF X8 = OFF                                                            00185000
$CONTROL NOLIST                                                         00190000
$IF                                                                     00195000
                                                                        00200000
COMMENT                                                                 00205000
 PXGLOB FORMAT:                                                         00210000
The PXGLOB portion of the PCBX is for job information and               00215000
contains the same job related information for all                       00220000
processes belonging to the same job.                                    00225000
                                                                        00230000
     0  1  2  3  4  5  6  7  8  9 10 11 12 13 14 15                     00235000
   |--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|--|                    00240000
  0|      DL-a=SEG. REL DL VALUE                   |0                   00245000
   |-----------------------------------------------|                    00250000
  1|    DB-a=SEG. REL DB VALUE                     |1                   00255000
   |-----------------------------------------------|                    00260000
  2|          USER ATTRIBUTES                      |2                   00265000
   |-----------------------------------------------|                    00270000
  3|             JMAT INDEX                        |3                   00275000
   |-----------------------------------------------|                    00280000
  4|            JPCNT INDEX (Rel Bit address)      |4                   00285000
   |-----------------------------------------------|                    00290000
  5|            JCUT INDEX                         |5                   00295000
   |-----------------------------------------------|                    00300000
  6|SB| R|  TY | D| I|//|//|//|//| STACK DUMP FLAGS|6                   00305000
   |-----------------------------------------------|                    00310000
  7|///////////////////////|  NATIVE LANGUAGE      |7                   00315000
   |-----------------------------------------------|                    00320000
 10|        ACTUAL JOB INPUT LDEV                  |8                   00325000
   |-----------------------------------------------|                    00330000
 11|        ACTUAL JOB OUTPUT LDEV                 |9                   00335000
   |-----------------------------------------------|                    00340000
 12|           JDT DST INDEX                       |10                  00345000
   |-----------------------------------------------|                    00350000
 13|           JIT DST INDEX                       |11                  00355000
   |-----------------------------------------------|                    00360000
                                                                        00365000
  R = restart bit               Stack Dump Flags                        00370000
  I = job in/list interactive    Bit 10 = Armed                         00375000
  D = job in/list duplicative    Bit 11 = Suppress traceback            00380000
 TY = job type                   Bit 12 = Suppress ASCII                00385000
  0 = undefined                  Bit 13 = Q-63 to S                     00390000
  1 = session                    Bit 14 = QINIT to S                    00395000
  2 = job                        Bit 15 = DL to QINIT                   00400000
  3 = task                                                              00405000
                                                                        00410000
;    << END COMMENT >>                                                  00415000
$IF X8=OFF                                                              00420000
$CONTROL LIST                                                           00425000
$IF                                                                     00430000
                                                                        00435000
                                                                        00440000
<<************************************************************>>        00445000
<<**************** B E G I N   T H E         *****************>>        00450000
<<****************  P X G L O B A L          *****************>>        00455000
<<**************** D E C L A R A T I O N S   *****************>>        00460000
<<************************************************************>>        00465000
                                                                        00470000
DEFINE                                                                  00475000
   PXGLOBAL = PUSH(Q,DL);  ASSEMBLE(XCH,LSUB);                          00480000
              PCBGLOBLOC := TOS-QAM1(S0)#;                              00485000
                                                                        00490000
EQUATE                                                                  00495000
   PXG'JOBINFO'LEN = 9,                                                 00500000
   PXG'JOBINFO'OFFSET = 3,                                              00505000
   PXG'RELDB'OFFSET = 1,                                                00510000
   PXG'SIZE = 12;                                                       00515000
                                                                        00520000
DEFINE                                                                  00525000
   PXG'RELATIVE'DL      = QP0(PCBGLOBLOC)#,                             00530000
   PXG'RELATIVE'DB      = QP1(PCBGLOBLOC)#,                             00535000
   PXG'USERATTRIBUTES   = QP2(PCBGLOBLOC)#,                             00540000
   PXG'JMATINX          = QP3(PCBGLOBLOC)#,                             00545000
   PXG'JPCNTINX         = QP4(PCBGLOBLOC)#,                             00550000
   PXG'JCUTINX          = QP5(PCBGLOBLOC)#,                             00555000
   PXG'STKDUMPFLAGS     = QP6(PCBGLOBLOC).(10:6)#,                      00560000
   PXG'STUNBIT          = QP6(PCBGLOBLOC).(0:1)#,                       00565000
   PXG'RESTART          = QP6(PCBGLOBLOC).(1:1)#,                       00570000
   PXG'INTERACTIVE      = QP6(PCBGLOBLOC).(5:1)#,                       00575000
   PXG'DUPLICATIVE      = QP6(PCBGLOBLOC).(4:1)#,                       00580000
   PXG'JOBTYPE          = QP6(PCBGLOBLOC).(2:2)#,                       00585000
   PXG'NATIVELANG       = QP7(PCBGLOBLOC).(8:8)#,                       00590000
   PXG'INPUTLDEV        = QP8(PCBGLOBLOC)#,                             00595000
   PXG'OUTPUTLDEV       = QP9(PCBGLOBLOC)#,                             00600000
   PXG'JDTDST           = QP10(PCBGLOBLOC)#,                            00605000
   PXG'JITDST           = QP11(PCBGLOBLOC)#;                            00610000
                                                                        00615000
<<************************************************************>>        00620000
<<  E N D    P C B X G L O B A L   I N C L U D E   F I L E    >>        00625000
<<************************************************************>>        00630000
