$JNEW mapping

Table 1. Structure JNEW
Offset
Dec
Offset
Hex
Type Len Name(Dim) Description
0 (0) STRUCTURE 0 JNEW  
0 (0) CHARACTER 4  JNEWID JNEW identifier
4 (4) ADDRESS 1  JNEWVERS Version
      .... ...1  JNEWVRSN "X'01'" Version equate
5 (5) BITSTRING 1  JNEWFLAG Flag byte
      1... ....  JNEWMOVD "B'10000000'" JESNEWS was moved
6 (6) ADDRESS 2 Reserved
8 (8) SIGNED 4  JNEWUSE Use Count
12 (C) ADDRESS 4  JNEWNEXT Address of next JNEW
16 (10) SIGNED 4  JNEWJNUM Job number of JQE
20 (14) SIGNED 4  JNEWLEVL Level of the news
24 (18) ADDRESS 4  JNEWMTTR MTTR of JESNEWS data set
28 (1C) ADDRESS 4  JNEWIOTT MTTR of JESNEWS IOT
32 (20) SIGNED 4  JNEWRECT Data set record count
36 (24) SIGNED 4  JNEWPGCT Page data page count
40 (28) BITSTRING 80  JNEWTOKN JESNEWS Security token
120 (78) CHARACTER 53  JNEWENTY JESNEWS entity name
173 (AD) BITSTRING 1  JNEWRECF Data set record format
174 (AE) BITSTRING 2  JNEWRECL Maximum data set record lng
176 (B0) BITSTRING 4 Reserved
184 (B8) DBL WORD 8   (0) Ensure boundry
184 (B8) X'B8' 0  JNEWSIZE "*-JNEW" Size of JNEW control block
Table 2. Cross Reference for $JNEW
Name Offset Hex Tag
JNEW 0
JNEWENTY 78
JNEWFLAG 5
JNEWID 0
JNEWIOTT 1C
JNEWJNUM 10
JNEWLEVL 14
JNEWMOVD 5 80
JNEWMTTR 18
JNEWNEXT C
JNEWPGCT 24
JNEWRECF AD
JNEWRECL AE
JNEWRECT 20
JNEWSIZE B8 B8
JNEWTOKN 28
JNEWUSE 8
JNEWVERS 4
JNEWVRSN 4 1