Here's an example from the TCB formatter, for the 3 bytes at offset x'AD'.
I'm not sure if it conforms to Bob Wright's recommendations, as it is quite
old. When in doubt, follow Bob's advice!
BLSQMFLD NAME=TCBNDSP,OFF=X'00AD',LEN=3,VIEW=X'8280',DECODE
,...
TCBNDSP BLSQMDEF CBLEN=X'0003',MAINTLV=HBB5520,PREFIX=8, X
HEADER=TCBNDSP,OFFSETS=NOPRINT
* -----NDSP1 BITS ------------------------------
BLSQMFLD SHDR=NDSP1HD,VIEW=X'FF08'
BLSQMFLD SHDR=DARTN,VIEW=X'8008',NEWLINE
BLSQMFLD SHDR=DARPN,VIEW=X'4008',NEWLINE
BLSQMFLD SHDR=RSTND,VIEW=X'2008',NEWLINE
BLSQMFLD SHDR=RSPND,VIEW=X'1008',NEWLINE
BLSQMFLD SHDR=DDRND,VIEW=X'0808',NEWLINE
BLSQMFLD SHDR=TPSP,VIEW=X'0408',NEWLINE
BLSQMFLD SHDR=PIEND,VIEW=X'0208',NEWLINE
BLSQMFLD SHDR=ABTIN,VIEW=X'0108',NEWLINE
* -----NDSP2 BITS ------------------------------
BLSQMFLD SHDR=NDSP2HD,VIEW=X'FC04'
BLSQMFLD SHDR=ABD,VIEW=X'8004',NEWLINE
BLSQMFLD SHDR=STPP,VIEW=X'4004',NEWLINE
BLSQMFLD SHDR=NDSVC,VIEW=X'2004',NEWLINE
BLSQMFLD SHDR=NDTS,VIEW=X'1004',NEWLINE
BLSQMFLD SHDR=IWAIT,VIEW=X'0804',NEWLINE
BLSQMFLD SHDR=OWAIT,VIEW=X'0404',NEWLINE
* -----NDSP3 BITS ------------------------------
BLSQMFLD SHDR=NDSP3HD,VIEW=X'BD02'
BLSQMFLD SHDR=LJSND,VIEW=X'8002',NEWLINE
BLSQMFLD SHDR=SRBND,VIEW=X'2002',NEWLINE
BLSQMFLD SHDR=SLPER,VIEW=X'1002',NEWLINE
BLSQMFLD SHDR=S3MR,VIEW=X'0802',NEWLINE
BLSQMFLD SHDR=AREQ,VIEW=X'0402',NEWLINE
BLSQMFLD SHDR=NDINT,VIEW=X'0102',NEWLINE
BLSQMDEF END
* -----NDSP1 BIT DESCRIPTORS --------------
NDSP1HD BLSQSHDR 'Task non-dispatchability flags from TCBNDSP1:'
DARTN BLSQSHDR ' Damage assessment routine temporary non-dispatchablX
e'
DARPN BLSQSHDR ' Damage assessment routine permanent non-dispatchablX
e'
RSTND BLSQSHDR ' RMS/SER set temporarily non-dispatchable'
RSPND BLSQSHDR ' RMS/SER set permanently non-dispatchable'
DDRND BLSQSHDR ' Task in device allocation during device reconfiguraX
tion'
TPSP BLSQSHDR ' Waiting for TCAM I/O appendage or SVC routine to coX
mplete'
PIEND BLSQSHDR ' SRB is to be scheduled to perform PIE/PICA processiX
ng'
ABTIN BLSQSHDR ' Task is being set up for abnormal termination'
* -----NDSP2 BIT DESCRIPTORS --------------
NDSP2HD BLSQSHDR 'Task non-dispatchability flags from TCBNDSP2:'
ABD BLSQSHDR ' ABDUMP is processing'
STPP BLSQSHDR ' Task set non-dispatchable by STATUS STOP'
NDSVC BLSQSHDR ' SVC Dump is executing for another task'
NDTS BLSQSHDR ' Task is being swapped out'
IWAIT BLSQSHDR ' Task is in an INPUT WAIT'
OWAIT BLSQSHDR ' Task is in an OUTPUT WAIT'
* -----NDSP3 BIT DESCRIPTORS --------------
NDSP3HD BLSQSHDR 'Task non-dispatchability flags from TCBNDSP3:'
LJSND BLSQSHDR ' Task is ABENDing, and non-dispatchable because it hX
as a job step subtask'
SRBND BLSQSHDR ' TCB is non-dispatchable because SRBs are stopped'
*
SLPER BLSQSHDR ' SLIP/PER is altering RB PSW PER bit'
S3MR BLSQSHDR ' Stage 3 exit effector must run to synchronize atten*
tion interrupt'
AREQ BLSQSHDR ' TSO authorized request processing active'
NDINT BLSQSHDR ' Initiator is in CANCEL processing'
Peter Relson
z/OS Core Technology Design
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [EMAIL PROTECTED] with the message: GET IBM-MAIN INFO
Search the archives at http://bama.ua.edu/archives/ibm-main.html
