$XEQWORK mapping

Table 1. Structure PCE
Offset
Dec
Offset
Hex
Type Len Name(Dim) Description
0 (0) STRUCTURE 0 PCE , Continue PCE DSECT
320 (140) SIGNED 4  XEQOFFST SJB QUEUE TABLE OFFSET
324 (144) SIGNED 4  XEQXPARM(0) EXIT PARM LIST
324 (144) SIGNED 4  XEQXSJB EXIT PARM ONE
328 (148) SIGNED 4  XEQNXTTK NEXT CKPT TOKEN TO $CHECK
332 (14C) SIGNED 4  XEQLSTTK LAST CKPT TOKEN $CHECKED
336 (150) SIGNED 4  XEQTOPST CKPT TOKEN TO BE POSTED
340 (154) SIGNED 4  XEQXECB(0) HASPXEQ SVJ lock ENQ ECB and jobgroup logging termination
364 (16C) SIGNED 4  XEQENQST(0) True start of ENQ list

          MACRO-DATE = 03/16/15
364 (16C) SIGNED 4   (0) ESTABLISH A FULLWORD BOUNDARY
364 (16C) ADDRESS 4 PREFIX - ECB ADDRESS
364 (16C) X'170' 0  XEQENQPL "*" X02113
368 (170) ADDRESS 1 PELLAST flag byte. X02113
369 (171) ADDRESS 1 PELMILEN - RNAME length.
370 (172) BITSTRING 1  

                                       PELFLAG - flag byte 2.
371 (173) ADDRESS 1 PELRET - return code byte.
372 (174) ADDRESS 4 QNAME ADDRESS
376 (178) ADDRESS 4 RNAME ADDRESS
376 (178) X'16C' 0  XEQENQL "XEQENQST,*-XEQENQST" ENQ parm length, IPCS use
380 (17C) SIGNED 4  XEQDEQST(0) True start of DEQ list

         MACRO-DATE = 03/16/2015
380 (17C) SIGNED 4   (0) ESTABLISH A FULLWORD BOUNDARY
380 (17C) X'17C' 0  XEQDEQPL "*" X02113
380 (17C) ADDRESS 1 PELLAST flag byte. X02113
381 (17D) ADDRESS 1 PELMILEN - RNAME length.
382 (17E) BITSTRING 1  

                                       PELFLAG - flag byte 2.
383 (17F) ADDRESS 1 PELRET - return code byte.
384 (180) ADDRESS 4 QNAME ADDRESS
388 (184) ADDRESS 4 RNAME ADDRESS
388 (184) X'17C' 0  XEQDEQL "XEQDEQST,*-XEQDEQST" DEQ parm length, IPCS use
392 (188) CHARACTER 108  XEQMSGWA $WTO work area
500 (1F4) ADDRESS 4  XEQPARM NODE TABLE ADDRESS
504 (1F8) ADDRESS 4 CONTROL BLOCK ADDRESS
508 (1FC) ADDRESS 4 ADDRESS OF JQE
512 (200) ADDRESS 1 QUEUE TYPE SPECIFIED
513 (201) ADDRESS 1 WORK SELECTION TYPE FLAG
514 (202) ADDRESS 1 RESERVED FOR FUTURE USE
514 (202) X'1F4' 0  XEQLST "XEQPARM,*-XEQPARM" QGET PARAMETER LIST STORAGE
515 (203) CHARACTER 2  XEQJOBSL FAKE JOB CARD SLASHES
517 (205) CHARACTER 8  XEQJOBNM Fake job card name in RJCS, also used as job name work area in HASPXEQ
525 (20D) CHARACTER 12  XEQJOBFN FAKE JOB CARD FUNCTION NAME
537 (219) BITSTRING 1  XEQSJBF1 SJBFLG1 after SJB is freed
538 (21A) BITSTRING 1  XEQSJBF2 SJBFLG2 after SJB is freed
539 (21B) BITSTRING 1  XEQFLAG1 Flags
      1... ....  XEQ1NDUP "B'10000000'" Skip release of jobs with duplicate jobnames
      .1.. ....  XEQ1SCAN "B'01000000'" Do scan of inits
      ..1. ....  XEQ1X14 "B'00100000'" Exit 14 enabled
      ...1 ....  XEQ1NOPT "B'00010000'" Don't optimize class list/ service class list
      .... 1...  XEQ1714I "B'00001000'" 714 message issued at least once
      .... .1..  XEQ1PHDT "B'00000100'" Dump taken at $PJES2 time for outstanding AS's
      .... ..1.  XEQ1PHDS "B'00000010'" Conditions ripe to take HASP714 dump
      .... ...1  XEQ1PHNR "B'00000001'" No more room in ASID list supplied to SDUMPX
540 (21C) BITSTRING 1  XEQSJBFB SJBFLGB after SJB is freed
541 (21D) CHARACTER 6  XEQRSV1 Reserved for future use
548 (224) SIGNED 4  XEQHSBCT Current count of HASB's
552 (228) SIGNED 4  XEQHSBCP Previous count of HASB's
560 (230) DBL WORD 8  XEQWTTIM Time of last wait at start of $QGET
568 (238) BITSTRING 4  XEQLDVID Last used psuedo-device id
576 (240) DBL WORD 8  XEQPHWAI TOD when last exit from $PHASP
584 (248) CHARACTER 8  XEQJNAME Jobname from job card
592 (250) BITSTRING 1  XEQJQEF7 Copy of JQEFLAG7
593 (251) BITSTRING 1  XEQFLAG2 Flags
      1... ....  XEQ2WITH "B'10000000'" Unmatched WITH= jobs
      .1.. ....  XEQ2SVJL "B'01000000'" SVJ lock is held
594 (252) BITSTRING 2 Reserved for future use
596 (254) ADDRESS 4  XEQXWM Queue head for sevice class optimization elements
600 (258) SIGNED 4  XEQPTIME TOD $PJES2 process'g began wait-a-bit loop
604 (25C) SIGNED 4  XEQDTIME TOD $PJES2 processing began interval to HASP714 dump
608 (260) SIGNED 2  XEQASIDL(5) ASID list for SDUMPX and HASP715
608 (260) X'5' 0  XEQASDNO "(*-XEQASIDL)/2" Number of ASIDs allowed
618 (26A) BITSTRING 2 Reserved for future use
620 (26C) SIGNED 4  XEQDOMID DOMID for $HASP714
624 (270) BITSTRING 12  XEQTQE XEQ TQE for $STIMER
636 (27C) SIGNED 1  XEQSJBPR Priority of job from SJB
637 (27D) BITSTRING 1  XEQSJFN1 Request type from SJB
638 (27E) BITSTRING 2 Reserved for future use
640 (280) SIGNED 4  XEQ715DM DOMID for $HASP715
644 (284) CHARACTER 8  XEQJBNML(5) JOBNAME list for HASP715
644 (284) X'5' 0  XEQJBNMN "(*-XEQJBNML)/8" Number of JOBNAMEs allowed
684 (2AC) SIGNED 4  XEQASDSA ASDS data space ALET
688 (2B0) BITSTRING 1  XEQWLMIS WLM Init ASDS ent stat updt
689 (2B1) BITSTRING 15  XEQRSV2 Reserved for future use
704 (2C0) DBL WORD 8   (0) ALIGN XEQ WORK
704 (2C0) X'180' 0  XEQPCEWS "*-PCEWORK" XEQ PCE WORK AREA LENGTH
Table 2. Cross Reference for $XEQWORK
Name Offset Hex Tag
PCE 0
XEQASDNO 260 5
XEQASDSA 2AC
XEQASIDL 260
XEQDEQL 184 17C
XEQDEQPL 17C 17C
XEQDEQST 17C
XEQDOMID 26C
XEQDTIME 25C
XEQENQL 178 16C
XEQENQPL 16C 170
XEQENQST 16C
XEQFLAG1 21B
XEQFLAG2 251
XEQHSBCP 228
XEQHSBCT 224
XEQJBNML 284
XEQJBNMN 284 5
XEQJNAME 248
XEQJOBFN 20D
XEQJOBNM 205
XEQJOBSL 203
XEQJQEF7 250
XEQLDVID 238
XEQLST 202 1F4
XEQLSTTK 14C
XEQMSGWA 188
XEQNXTTK 148
XEQOFFST 140
XEQPARM 1F4
XEQPCEWS 2C0 180
XEQPHWAI 240
XEQPTIME 258
XEQRSV1 21D
XEQRSV2 2B1
XEQSJBFB 21C
XEQSJBF1 219
XEQSJBF2 21A
XEQSJBPR 27C
XEQSJFN1 27D
XEQTOPST 150
XEQTQE 270
XEQWLMIS 2B0
XEQWTTIM 230
XEQXECB 154
XEQXPARM 144
XEQXSJB 144
XEQXWM 254
XEQ1NDUP 21B 80
XEQ1NOPT 21B 10
XEQ1PHDS 21B 2
XEQ1PHDT 21B 4
XEQ1PHNR 21B 1
XEQ1SCAN 21B 40
XEQ1X14 21B 20
XEQ1714I 21B 8
XEQ2SVJL 251 40
XEQ2WITH 251 80
XEQ715DM 280