$BERT mapping

Table 1. Structure BERT
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BERT , Block Extension Reuse Table
0 (0) X'1' 0  BERTVERS "1" BERT version number
0 (0) BITSTRING 4  BRTWALLY(0) Composite of TYPE and CB
0 (0) BITSTRING 1  BRTTYPE Control block type
0 (0) X'0' 0  BRTINT "$DGBINT" Internal control block
0 (0) X'1' 0  BRTJQE "$DGBJQE" JQE extension
0 (0) X'2' 0  BRTCAT "$DGBCAT" Class attribute table
0 (0) X'3' 0  BRTWSCQ "$DGBWSCQ" WLM service class queue
      1111 1111  BRTFREE "X'FF'" Free BERT
1 (1) BITSTRING 3  BRTCB Related control block index
4 (4) BITSTRING 1  BRTSEQ Sequence number
5 (5) BITSTRING 3  BRTNEXT Next BERT in CB chain
8 (8) BITSTRING 2 Reserved for future use
8 (8) X'A' 0  BRTPRLEN "*-BERT" Length of BERT prefix
10 (A) BITSTRING 54  BRTDATA Data area for BERTIEs
10 (A) X'40' 0  BRTLEN "*-BERT" Total size of a BERT 
         Special wally values for internal BERTs used by the
         DOGBERT service internally.
      .... ....  BRTWYDYN "X'00000000'" Wally for dynamic heads (BRTPBERT.BRTNEXT chain)
10 (A) BITSTRING 0  BRTWYNAM "X'00001000'" Named internal CBs header (BRTPINTH chain)
10 (A) BITSTRING 0  BRTWYNIB "X'00800000'" Named internal CBs combined with CB number
Table 2. Structure BERTIE
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BERTIE , BERT information element
0 (0) BITSTRING 1  BRTIID Section identifier
      1111 111.  BRTIICNT "X'FE'" Continued in next BERT
      1111 1111  BRTIIEND "X'FF'" End of BERTIEs
1 (1) BITSTRING 1  BRTILEN Length of BERTIE data (does not include this prefix)
1 (1) X'2' 0  BRTIPLEN "*-BERTIE" Prefix area length
2 (2) BITSTRING 1  BRTIDATA(0) Start of actual data
Table 3. Structure BERTI0
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BERTI0 , Type 0 BERTIE
0 (0) BITSTRING 1  BRT0LOCK Lock byte (QSESIBSY value)
1 (1) BITSTRING 1  BRT0FLG0 Type 0 flag byte
      1111 ....  BRT0USEQ "B'11110000'" Update sequence counter (4 bit count)
1 (1) X'2' 0  BRT0LEN1 "*-BERTI0" Minimum type 0 BERTIE
2 (2) BITSTRING 1  BRT0FLAG General flags for chaining
3 (3) BITSTRING 3  BRT0NXT1 1st CB chain field
6 (6) BITSTRING 3  BRT0NXT2 2nd CB chain field
9 (9) BITSTRING 1  BRT0KEY(0) Search key
9 (9) X'9' 0  BRT0LEN2 "*-BERTI0" Size with search key (plus key len)
Table 4. Structure BRTPREF
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BRTPREF , BERT CTENT prefix area
0 (0) BITSTRING 10  BRTPBERT Start with a standard prefix
10 (A) SIGNED 2  BRTPLEN Size of BERT prefix
12 (C) SIGNED 4  BRTPFREE Index of 1st free BERT
16 (10) SIGNED 4  BRTPFNUM Number of free BERTs
20 (14) SIGNED 4  BRTPMAP BERT token for NAME to ID map
24 (18) BITSTRING 1  BRTPMXTY Max known BERT type
25 (19) BITSTRING 3 Reserved for future use
28 (1C) SIGNED 4   (2) Reserved for future use 
         BERT queue heads. There is one per entry even if
         they are not used. These must be in the same order
         as the ID number of control blocks.
28 (1C) X'0' 0  BRTPQHED "0,4,C'F'" Queue head part of entry
28 (1C) X'4' 0  BRTPQHNM "4,4,C'F'" Number of elements on queue
28 (1C) X'8' 0  BRTPQHDL "8"
36 (24) SIGNED 4  BRTPQHDS(0) --+ Start of queue heads
36 (24) SIGNED 4  BRTPJQE | First JQE BERT (not used)
40 (28) SIGNED 4  BRTPJQEN | Number of JQEs (not used)
44 (2C) SIGNED 4  BRTPCAT | First CAT BERT
48 (30) SIGNED 4  BRTPCATN | Number of CATs defined
52 (34) SIGNED 4  BRTPWSCQ | First WSCQ BERT
56 (38) SIGNED 4  BRTPWSCN --+ Number of WSCQs defined
56 (38) X'3' 0  BRTPQHDN "(*-BRTPQHDS)/BRTPQHDL" Number of queue heads
56 (38) X'3' 0  BRTPQHMX "(*-BRTPQHDS)/BRTPQHDL" Max queue heads 
         BRTPINTH is a pointer to a chain of BERTs that
         represents the internal named BERT pointer
         structure. Named internal BERTs each have a number
         assigned using the BERTMAP and that number indexes
         into this structure. The 0th entry in the pointer
         structure is not used.
60 (3C) SIGNED 4  BRTPINTH Named internal BERT pointer structure
60 (3C) X'40' 0  BRTPSIZE "*-BRTPREF" Size of prefix area
64 (40) ADDRESS 2   (0) Verify size
Table 5. Structure BRTMAP
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BRTMAP , BERTIE name to ID table
0 (0) CHARACTER 8  BRTMNAME Name of BERTIE (A value of all FF indicates end of table)
8 (8) BITSTRING 1  BRTMTYPE Control block type (see BRTTYPE for a list of valid values)
9 (9) BITSTRING 1  BRTMID ID assigned to this BERTIE name
10 (A) BITSTRING 2 Reserved
12 (C) SIGNED 4   (2) Reserved for future use
12 (C) X'14' 0  BRTMLEN "*-BRTMAP" Length of map entry
Table 6. Structure BRTCNT
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 BRTCNT , BERT count array
0 (0) CHARACTER 8  BRTCNAME Name of BERT entry
8 (8) BITSTRING 1  BRTCID Control block type
9 (9) BITSTRING 1  BRTCFLG1 Flag bytes
      1... ....  BRTCF1DF "B'10000000'" BERTTAB found
10 (A) BITSTRING 2 Reserved
12 (C) SIGNED 4  BRTCMAIN Sequence one BERT count
16 (10) SIGNED 4  BRTCNUM Total BERT count
20 (14) ADDRESS 4  BRTCTRAN BRTRANS table pointer for CB type - main task only
20 (14) X'18' 0  BRTCLEN "*-BRTCNT" Size of an entry
20 (14) X'1800' 0  BRTCSIZE "BRTCLEN*256" Size of a full array
Table 7. Cross Reference for $BERT
Name Offset Hex Tag
BERT 0
BERTIE 0
BERTI0 0
BERTVERS 0 1
BRTCAT 0 2
BRTCB 1
BRTCFLG1 9
BRTCF1DF 9 80
BRTCID 8
BRTCLEN 14 18
BRTCMAIN C
BRTCNAME 0
BRTCNT 0
BRTCNUM 10
BRTCSIZE 14 1800
BRTCTRAN 14
BRTDATA A
BRTFREE 0 FF
BRTIDATA 2
BRTIICNT 0 FE
BRTIID 0
BRTIIEND 0 FF
BRTILEN 1
BRTINT 0 0
BRTIPLEN 1 2
BRTJQE 0 1
BRTLEN A 40
BRTMAP 0
BRTMID 9
BRTMLEN C 14
BRTMNAME 0
BRTMTYPE 8
BRTNEXT 5
BRTPBERT 0
BRTPCAT 2C
BRTPCATN 30
BRTPFNUM 10
BRTPFREE C
BRTPINTH 3C
BRTPJQE 24
BRTPJQEN 28
BRTPLEN A
BRTPMAP 14
BRTPMXTY 18
BRTPQHDL 1C 8
BRTPQHDN 38 3
BRTPQHDS 24
BRTPQHED 1C 0
BRTPQHMX 38 3
BRTPQHNM 1C 4
BRTPREF 0
BRTPRLEN 8 A
BRTPSIZE 3C 40
BRTPWSCN 38
BRTPWSCQ 34
BRTSEQ 4
BRTTYPE 0
BRTWALLY 0
BRTWSCQ 0 3
BRTWYDYN A 0
BRTWYNAM A 1000
BRTWYNIB A 800000
BRT0FLAG 2
BRT0FLG0 1
BRT0KEY 9
BRT0LEN1 1 2
BRT0LEN2 9 9
BRT0LOCK 0
BRT0NXT1 3
BRT0NXT2 6
BRT0USEQ 1 F0