$PDDB mapping

Table 1. Structure PDB
Offset
Dec		 Offset
Hex		 Type Len Name(Dim) Description
0 (0) STRUCTURE 0 PDB HASP PDDB DSECT
0 (0) BITSTRING 1  PDBFLAG1(0) Flag byte
1 (1) BITSTRING 1  PDBRECFM Data set record format
2 (2) SIGNED 2  PDBLRECL Maximum data set LRECL
4 (4) BITSTRING 4  PDBMTTR Starting track address of data set
8 (8) BITSTRING 4  PDBMTTRL Last track address of DS
12 (C) SIGNED 4  PDBDSKEY Data set number of data set
16 (10) ADDRESS 2  PDBSIZE Size of a PDDB
18 (12) CHARACTER 1  PDBCLASS Output class of data set
19 (13) ADDRESS 1  PDBCOPYS Copies of this data set
20 (14) SIGNED 4  PDBDEST(0) Data set output dest
20 (14) SIGNED 2  PDBDNODE Node number (binary)
22 (16) SIGNED 2  PDBDRMT Remote number (binary)
24 (18) CHARACTER 8  PDBUSER(0) Dataset dest USERID/rmtid
32 (20) BITSTRING 1 Reserved for future use 
         PDDB version number
         Version 0 - Old style PDDB of length PDBLEN1
         Version 1 - Newer style PDDD of length PDBLENM
33 (21) BITSTRING 1  PDBVER PDDB Version number - default is version 1
33 (21) X'0' 0  PDBVER0 "0" Small size PDDB
33 (21) X'1' 0  PDBVER1 "1" Larger size PDDB
34 (22) BITSTRING 1  PDBFLAG2 Second flag byte
35 (23) BITSTRING 1  PDBCPTN Compaction table number
36 (24) SIGNED 4  PDBRECCT Data set record count
40 (28) SIGNED 4  PDBPGCT Page data page count
44 (2C) SIGNED 4  PDBBYTCT Actual byte count
48 (30) CHARACTER 8  PDBFORMS(0) Eight-byte forms number
48 (30) X'30' 0  PDBLOGDD "PDBFORMS,8,C'C'" DD name of logging dataset (see PDBYLOG)
56 (38) CHARACTER 4  PDBFCB(0) Four-byte 3211 FCB id
60 (3C) CHARACTER 4  PDBUCS(0) Four-byte 1403 or 3211 UCS id
64 (40) CHARACTER 8  PDBDSID(0) 3540 dataset id
64 (40) X'40' 0  PDBWTRID "PDBDSID,,C'C'" 8-byte output writer id
72 (48) BITSTRING 8  PDBRBA 8-byte checkpoint record 
    THE FOLLOWING FIELDS MUST BE KEPT TOGETHER FOR SJF UPDATE
80 (50) CHARACTER 4  PDBCHAR1(0) N/I Printer xlate tab 1
84 (54) CHARACTER 4  PDBCHAR2(0) N/I Printer xlate tab 2
88 (58) CHARACTER 4  PDBCHAR3(0) N/I Printer xlate tab 3
92 (5C) CHARACTER 4  PDBCHAR4(0) N/I Printer xlate tab 4 
    END OF THE FIELDS NEEDED FOR SJF UPDATE
96 (60) CHARACTER 4  PDBFLASH(0) N/I Printer flash cart id
100 (64) CHARACTER 4  PDBMODF(0) N/I Printer copy mod image
104 (68) BITSTRING 1  PDBFLSHC N/I printer # flash copies
105 (69) BITSTRING 1  PDBMODFT N/I printer tbl ref char
106 (6A) BITSTRING 8  PDBCOPYG(0) N/I Printer copy groups
114 (72) BITSTRING 2  PDBCKPTP Nr of logical page/ckpt
116 (74) BITSTRING 2  PDBCKPTL Nr of lines/logical page
118 (76) BITSTRING 1  PDBFLAG3 The third flag byte
119 (77) BITSTRING 1  PDBFLAGY Symbol substitution flags for DD * and DD DATA
120 (78) CHARACTER 2  PDBID(0) Output id qualifier for JOE
122 (7A) CHARACTER 8  PDBNAME(0) Output name for this PDDB
132 (84) SIGNED 4  PDBCRTME Create Time
136 (88) SIGNED 4  PDBSEGID Segment identifier
140 (8C) SIGNED 4  PDBGGTOK Generic grouping token 
         WHEN USED AS A SPIN PDDB
144 (90) ADDRESS 4  PDBPLIOT Pointer to normal IOT place holder
148 (94) SIGNED 4  PDBPLOFF The offset to related PDDB 
         WHEN USED AS A PLACE HOLDER PDDB
144 (90) SIGNED 4  PDBSPTTR MTTR of spin IOT
152 (98) CHARACTER 4  PDBSSOFM(0) Save forms at allocation
156 (9C) CHARACTER 8  PDBPNAME(0) Proc step name
164 (A4) CHARACTER 8  PDBSNAME(0) Step name
172 (AC) CHARACTER 8  PDBDDNAM(0) DD name
180 (B4) CHARACTER 8  PDBPRMD(0) PRMODE name
188 (BC) BITSTRING 80  PDBTOKEN(0) Security tkn
268 (10C) CHARACTER 8  PDBCRUID(0) Creator userid
276 (114) CHARACTER 8  PDBSECLB(0) Security label
284 (11C) BITSTRING 1  PDBLINCT Dataset line cnt (LINECNT)
285 (11D) BITSTRING 1  PDBINDEX 3211 FCB index value
286 (11E) BITSTRING 1  PDBFUNC 3525 function byte
287 (11F) BITSTRING 1  PDBPRIO Data set priority 
         All PDDB flags should be cleared on return from
         exit 47 in module HASPNSR.
288 (120) BITSTRING 1  PDBFLAG4 The fourth flag byte
289 (121) BITSTRING 1  PDBFLAG5 The fifth flag byte
290 (122) BITSTRING 1  PDBFLAG6 The sixth flag byte
291 (123) BITSTRING 1  PDBFLAG7 The seventh flag byte
292 (124) SIGNED 4  PDBSWBOT Starting trk output SWBs
296 (128) BITSTRING 8  PDBOUTOK(0) Data sets output SWB token
304 (130) CHARACTER 8  PDBCPTNM(0) Compact table name
312 (138) SIGNED 1  PDBSTPN Job step number where SYSOUT data set allocated
313 (139) BITSTRING 1  PDBFLAGA Tenth flag byte
314 (13A) SIGNED 2 Reserved for future use
316 (13C) SIGNED 4  PDBNDHTR MTTR of dataset header
320 (140) BITSTRING 1  PDBFLAG8 Eighth flag byte
321 (141) BITSTRING 1  PDBFLAG9 Ninth flag byte
322 (142) SIGNED 2  PDBDSINS Multi-dest instance count
324 (144) SIGNED 4 Reserved for future use
328 (148) BITSTRING 6  PDBINDXM MQTR of 1st data set index
334 (14E) BITSTRING 6  PDBCATLM MQTR of data set catalog
340 (154) CHARACTER 44  PDBDSNAM(0) Data set name
384 (180) SIGNED 4   (0)  
384 (180) X'180' 0  PDBLEN1 "*-PDB" Base PDDB length (should never change) 
         PDDB version 1 extension
384 (180) BITSTRING 6  PDBMQTR Starting track address of data set (MQTR)
390 (186) BITSTRING 6  PDBMQTRL Last track address of DS (MQTR)
396 (18C) BITSTRING 6  PDBSPQTR MQTR of spin IOT
402 (192) BITSTRING 6  PDBNDQTR MQTR of dataset header
408 (198) BITSTRING 6  PDBSWBQT MQTR Starting trk outp SWBs
414 (19E) BITSTRING 6  PDBDLQTR MQTR of data set LVL info
420 (1A4) SIGNED 4  PDBUSER1 User field #1
424 (1A8) SIGNED 4  PDBUSER2 User field #2
428 (1AC) BITSTRING 52 Reserved for future use
480 (1E0) SIGNED 4   (0)  
480 (1E0) X'1E0' 0  PDBLENM "*-PDB" Maximum PDDB length (can change rel to rel) 
         PDBFLAG1
      1... ....  PDB1NEWS "B'10000000'" JESNEWS DATA SET
      .1.. ....  PDB1NULL "B'01000000'" THIS IS A NULL PDDB
      ..1. ....  PDB1LOG "B'00100000'" THIS PDDB IS FOR THE HASP JOB LOG
      ...1 ....  PDB1MOC "B'00010000'" Multiple Output Characteristic(MOC) Spin data set indicator
      .... 1...  PDB1NSOT "B'00001000'" DATA SET IS NOT FOR SYSOUT
      .... .1..  PDB1SPIN "B'00000100'" THIS PDDB IS FOR A SPIN DATA SET
      .... ..1.  PDB1USER "B'00000010'" This PDDB is for a user
      .... ...1  PDB1DAUG "B'00000001'" This is a daughter spin IOT 
         PDBFLAG2
      1... ....  PDB2TCEL "B'10000000'" DATA SET IS TRAKCELL'ED
      .1.. ....  PDB2OPTJ "B'01000000'" OPTCD=J SPECIFIED
      ..1. ....  PDB2BRST "B'00100000'" BURST=YES SPECIFIED
      ...1 ....  PDB2PRIO "B'00010000'" Installation set JOE prio. Or dataset re-loaded.
      .... 1...  PDB2JFMS "B'00001000'" PDBFORMS SET FROM JCTFORMS
      .... .1..  PDB2HLDS "B'00000100'" HOLD= SPECIFIED ON DD
      .... ..1.  PDB2PSOR "B'00000010'" PSO ROUTE CHANGE
      .... ...1  PDB2FOLD "B'00000001'" JFCFOLD WAS SPECIFIED 
         PDBFLAG3
      1... ....  PDB3PLHD "B'10000000'" PLACE HOLDER PDDB
      .1.. ....  PDB3PSOC "B'01000000'" PSO CLASS CHANGE
      ..1. ....  PDBLNCTF "B'00100000'" LINECT SPECIFIED
      ...1 ....  PDB3STAT "B'00010000'" JOB STATISTICS IN JOB LOG
      .... 1...  PDB3LINE "B'00001000'" DATA SET HAS LINE MODE RECORDS
      .... .1..  PDB3PAGE "B'00000100'" DATA SET HAS PAGE DATA RECORDS
      .... ..1.  PDB3SP2 "B'00000010'" FORCED DOUBLE SPACING
      .... ...1  PDB3SP1 "B'00000001'" FORCED SINGLE SPACING 
         PDBFLAG4
      1... ....  PDB4OUTJ "B'10000000'" PDDB IS REFERENCE BY OUTPUT JCL
      .1.. ....  PDB4BRST "B'01000000'" BURST (Y OR N) IN DD CARD
      ..1. ....  PDB4JFCB "B'00100000'" MERGE JFCB INTO THIS PDDB
      ...1 ....  PDB4SYSN "B'00010000'" SYSTEM GENERATED NAME
      .... 1...  PDB4OCLS "B'00001000'" CLASS SET FROM OUTPUT JCL
      .... .1..  PDB4OCPY "B'00000100'" COPY SET FROM OUTPUT JCL
      .... ..1.  PDBPLNUL "B'00000010'" NULLIFIED PLACEHOLDER PDDB
      .... ...1  PDB4SDBT "B'00000001'" FORCE SDB TO TRACKCELL 
         PDBFLAG5
      1... ....  PDB5OPEN "B'10000000'" DATASET IS OPEN FOR OUTPUT
      .1.. ....  PDB5NUNK "B'01000000'" Token is NJE unknown user
      ..1. ....  PDB5SPAU "B'00100000'" DATA SET FAILED SPOOL OFFLOAD AUTHORIZATION
      ...1 ....  PDB5PTKN "B'00010000'" Token to be propagated
      .... 1...  PDB5AODS "B'00001000'" Use abnormal disp for spin
      .... .1..  PDB5XBM2 "B'00000100'" Data set is SYSIN for XBM/2
      .... ..1.  PDB5PRGA "B'00000010'" $PURGE auth check required
      .... ...1  PDB5SAFD "B'00000001'" $PURGE auth check footprint 
         PDBFLAG6
      ..1. ....  PDB6AOSO "B'00100000'" ABNORMAL OUTDISP SPECIFIED ON OUTPUT JCL STATEMENT
480 (1E0) X'10' 0  PDB6AODP "$ODPURGE" ABNORMAL OUTDISP=PURGE
480 (1E0) X'8' 0  PDB6AODW "$ODWRITE" ABNORMAL OUTDISP=WRITE
480 (1E0) X'4' 0  PDB6AODH "$ODHOLD" ABNORMAL OUTDISP=HOLD
480 (1E0) X'2' 0  PDB6AODK "$ODKEEP" ABNORMAL OUTDISP=KEEP
480 (1E0) X'1' 0  PDB6AODL "$ODLEAVE" ABNORMAL OUTDISP=LEAVE
480 (1E0) X'1F' 0  PDB6AODA "$ODANYWP" CHECK ALL BIT SETTINGS 
         PDBFLAG7
      1... ....  PDB7DSWB "B'10000000'" OUTPUT SWB to be deleted
      .1.. ....  PDB7HOPX "B'01000000'" SYSTEM HOLD DATASET DUE TO HOP COUNT EXCESSION
      ..1. ....  PDB7NOSO "B'00100000'" NORMAL OUTDISP SPECIFIED ON OUTPUT JCL STATEMENT
480 (1E0) X'10' 0  PDB7NODP "$ODPURGE" NORMAL OUTDISP=PURGE
480 (1E0) X'8' 0  PDB7NODW "$ODWRITE" NORMAL OUTDISP=WRITE
480 (1E0) X'4' 0  PDB7NODH "$ODHOLD" NORMAL OUTDISP=HOLD
480 (1E0) X'2' 0  PDB7NODK "$ODKEEP" NORMAL OUTDISP=KEEP
480 (1E0) X'1' 0  PDB7NODL "$ODLEAVE" NORMAL OUTDISP=LEAVE
480 (1E0) X'1F' 0  PDB7NODA "$ODANYWP" CHECK ALL BIT SETTINGS 
         PDBFLAG8
      1... ....  PDB8DSID "B'10000000'" DSID IN PDBDSID
      .1.. ....  PDB8FORM "B'01000000'" FORM was explicitly coded either on the DD, OUTPUT JCL or inherited from JOBPARM FORM=
      ..1. ....  PDB8UNDF "B'00100000'" Userid is undefined
      ...1 ....  PDB8NREU "B'00010000'" THE SPIN IOT REPRESENTED BY THIS PLACE HOLDER PDDB IS NOT REUSABLE
      .... 1...  PDB8UPRI "B'00001000'" PRTY was specified on the OUTPUT JCL statement
      .... .1..  PDB8UNAL "B'00000100'" SYSOUT data set has been unallocated (not set for any special data sets)
      .... ..1.  PDB8SYIN "B'00000010'" SYSIN data set (from input services)
      .... ...1  PDB8RERT "B'00000001'" Dataset was rerouted by SYSOUT receiver 
         PDBFLAG9
         The following flag is set only at sysout data set
         allocation time and later used in setting the
         corresponding bit JOE2IPAD in $JOE during output
         grouping. Subsequent processing will only use the
         $JOE flag.
      1... ....  PDB9IPAD "B'10000000'" Dataset's dest in IP-format 
         PDB9CTKN indicates that a client token was returned
         as part of the dynamic allocation for the dataset.
         PDB9CTKN is only turned on for the first data set
         for MOCHA. PDB9CTKN is never turned off.
      .1.. ....  PDB9CTKN "B'01000000'" Client token returned for data set
      ..1. ....  PDB9JESL "B'00100000'" SPIN-ANY spin data set
      ...1 ....  PDB9SALC "B'00010000'" Separate track group map used to create data set
      .... 1...  PDB9TRC "B'00001000'" TRC was specified on the OUTPUT JCL statement
      .... .1..  PDB9CRTM "B'00000100'" PDBCRTME is from JOE (spool reload)
      .... ..1.  PDB9ONOT "B'00000010'" Issue NOTIFY from HOPE
      .... ...1  PDB9INDX "B'00000001'" Data set is indexed 
         PDBFLAGA
      1... ....  PDBARCNP "B'10000000'" Received this data set as non-printable SYSOUT that should transmit via NJE
      .1.. ....  PDBAVDS "B'01000000'" Volatile dataset (data can be appended)
      ..1. ....  PDBAENCR "B'00100000'" Contained dataset is encrypted
      ...1 ....  PDBACOMP "B'00010000'" Contained dataset is compressed
      .... 1...  PDBABOTH "B'00001000'" Contained dataset is encrypted and compressed 
         PDBFLAGY
         PDBFLAGY flag byte is used to control instream
         symbol substitution.
         PDBYSCTL defines the substitution control bits.
         PDBYJCL/PDBYEXEC/PDBYCNVT should be compared for
         equality, not as individual bits.
      111. ....  PDBYSCTL "B'11100000'" Substitution type: 000 - no substitution
      ..1. ....  PDBYJCL "B'00100000'" SYMBOLS=JCLONLY
      .1.. ....  PDBYEXEC "B'01000000'" SYMBOLS=EXECSYS
      .11. ....  PDBYCNVT "B'01100000'" SYMBOLS=CNVTSYS
      ...1 ....  PDBYLOG "B'00010000'" substitution logging requested 
               DATA SET KEYS FOR SPECIAL DATA SETS
480 (1E0) X'1' 0  PDBINJCL "1" INPUT JCL STATEMENTS
480 (1E0) X'2' 0  PDBOUHJL "2" HASP JOB LOG
480 (1E0) X'3' 0  PDBOUJCI "3" JCL IMAGES
480 (1E0) X'4' 0  PDBOUMSG "4" SYSTEM MESSAGES
480 (1E0) X'5' 0  PDBINTXT "5" INTERNAL TEXT
480 (1E0) X'6' 0  PDBINJNL "6" JOB JOURNAL
480 (1E0) X'7' 0  PDBSWABL "7" SWA blocks
480 (1E0) X'8' 0  PDBEVTLG "8" EVENTLOG
480 (1E0) X'64' 0  PDBUISKY "100" INITIAL DATA SET KEY NUMBER
Table 2. Cross Reference for $PDDB
Name Offset Hex Tag
PDB 0
PDBABOTH 1E0 8
PDBACOMP 1E0 10
PDBAENCR 1E0 20
PDBARCNP 1E0 80
PDBAVDS 1E0 40
PDBBYTCT 2C 0
PDBCATLM 14E 0
PDBCHAR1 50 5C5C5C5C
PDBCHAR2 54 5C5C5C5C
PDBCHAR3 58 5C5C5C5C
PDBCHAR4 5C 5C5C5C5C
PDBCKPTL 74 FFFF
PDBCKPTP 72 FFFF
PDBCLASS 12 C1
PDBCOPYG 6A 0
PDBCOPYS 13
PDBCPTN 23 FF
PDBCPTNM 130 0
PDBCRTME 84 0
PDBCRUID 10C 40404040
PDBDDNAM AC 40404040
PDBDEST 14
PDBDLQTR 19E 0
PDBDNODE 14 0
PDBDRMT 16 0
PDBDSID 40 40404040
PDBDSINS 142 0
PDBDSKEY C 0
PDBDSNAM 154 40404040
PDBEVTLG 1E0 8
PDBFCB 38 5C5C5C5C
PDBFLAGA 139 0
PDBFLAGY 77 0
PDBFLAG1 0 40
PDBFLAG2 22 0
PDBFLAG3 76 0
PDBFLAG4 120 0
PDBFLAG5 121 0
PDBFLAG6 122 0
PDBFLAG7 123 0
PDBFLAG8 140 0
PDBFLAG9 141 0
PDBFLASH 60 5C5C5C5C
PDBFLSHC 68 FF
PDBFORMS 30 0
PDBFUNC 11E 0
PDBGGTOK 8C 0
PDBID 78 0
PDBINDEX 11D 0
PDBINDXM 148 0
PDBINJCL 1E0 1
PDBINJNL 1E0 6
PDBINTXT 1E0 5
PDBLENM 1E0 1E0
PDBLEN1 180 180
PDBLINCT 11C 0
PDBLNCTF 1E0 20
PDBLOGDD 30 30
PDBLRECL 2 0
PDBMODF 64 5C5C5C5C
PDBMODFT 69 0
PDBMQTR 180 0
PDBMQTRL 186 0
PDBMTTR 4 0
PDBMTTRL 8 0
PDBNAME 7A 0
PDBNDHTR 13C 0
PDBNDQTR 192 0
PDBOUHJL 1E0 2
PDBOUJCI 1E0 3
PDBOUMSG 1E0 4
PDBOUTOK 128 0
PDBPGCT 28 0
PDBPLIOT 90
PDBPLNUL 1E0 2
PDBPLOFF 94 0
PDBPNAME 9C 40404040
PDBPRIO 11F 0
PDBPRMD B4 40404040
PDBRBA 48 0
PDBRECCT 24 0
PDBRECFM 1 0
PDBSECLB 114 40404040
PDBSEGID 88 0
PDBSIZE 10
PDBSNAME A4 40404040
PDBSPQTR 18C 0
PDBSPTTR 90 0
PDBSSOFM 98 0
PDBSTPN 138 0
PDBSWABL 1E0 7
PDBSWBOT 124 0
PDBSWBQT 198 0
PDBTOKEN BC 0
PDBUCS 3C 5C5C5C5C
PDBUISKY 1E0 64
PDBUSER 18 0
PDBUSER1 1A4 0
PDBUSER2 1A8 0
PDBVER 21 1
PDBVER0 21 0
PDBVER1 21 1
PDBWTRID 40 40
PDBYCNVT 1E0 60
PDBYEXEC 1E0 40
PDBYJCL 1E0 20
PDBYLOG 1E0 10
PDBYSCTL 1E0 E0
PDB1DAUG 1E0 1
PDB1LOG 1E0 20
PDB1MOC 1E0 10
PDB1NEWS 1E0 80
PDB1NSOT 1E0 8
PDB1NULL 1E0 40
PDB1SPIN 1E0 4
PDB1USER 1E0 2
PDB2BRST 1E0 20
PDB2FOLD 1E0 1
PDB2HLDS 1E0 4
PDB2JFMS 1E0 8
PDB2OPTJ 1E0 40
PDB2PRIO 1E0 10
PDB2PSOR 1E0 2
PDB2TCEL 1E0 80
PDB3LINE 1E0 8
PDB3PAGE 1E0 4
PDB3PLHD 1E0 80
PDB3PSOC 1E0 40
PDB3SP1 1E0 1
PDB3SP2 1E0 2
PDB3STAT 1E0 10
PDB4BRST 1E0 40
PDB4JFCB 1E0 20
PDB4OCLS 1E0 8
PDB4OCPY 1E0 4
PDB4OUTJ 1E0 80
PDB4SDBT 1E0 1
PDB4SYSN 1E0 10
PDB5AODS 1E0 8
PDB5NUNK 1E0 40
PDB5OPEN 1E0 80
PDB5PRGA 1E0 2
PDB5PTKN 1E0 10
PDB5SAFD 1E0 1
PDB5SPAU 1E0 20
PDB5XBM2 1E0 4
PDB6AODA 1E0 1F
PDB6AODH 1E0 4
PDB6AODK 1E0 2
PDB6AODL 1E0 1
PDB6AODP 1E0 10
PDB6AODW 1E0 8
PDB6AOSO 1E0 20
PDB7DSWB 1E0 80
PDB7HOPX 1E0 40
PDB7NODA 1E0 1F
PDB7NODH 1E0 4
PDB7NODK 1E0 2
PDB7NODL 1E0 1
PDB7NODP 1E0 10
PDB7NODW 1E0 8
PDB7NOSO 1E0 20
PDB8DSID 1E0 80
PDB8FORM 1E0 40
PDB8NREU 1E0 10
PDB8RERT 1E0 1
PDB8SYIN 1E0 2
PDB8UNAL 1E0 4
PDB8UNDF 1E0 20
PDB8UPRI 1E0 8
PDB9CRTM 1E0 4
PDB9CTKN 1E0 40
PDB9INDX 1E0 1
PDB9IPAD 1E0 80
PDB9JESL 1E0 20
PDB9ONOT 1E0 2
PDB9SALC 1E0 10
PDB9TRC 1E0 8