Peter, Thanks! My colleague is writing a HLASM exit which will examine information about DSECTs and automatically construct the source for control block models.
The problem with doing this in a non-automatic method (by hand) is the painful maintenance issue whenever a control block is changed. Tom Harper NEON Enterprise Software, Inc. IMS Utilities Development Team -----Original Message----- From: IBM Mainframe Discussion List [mailto:[EMAIL PROTECTED] On Behalf Of Peter Relson Sent: Friday, July 14, 2006 6:27 AM To: [email protected] Subject: Re: IPCS BLSQMDEF 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
