CQS structure dump contents

CQS structure dumps should include the primary structures, the overflow structures, and the associated lock entries.

CQS structure dump example

The following example shows the STRLIST for a dump:

DUMP COMM=(MSGQ STRUCTURE DUMP)                                         
R nn,                                                                  
STRLIST=(STRNAME=imsmsgq01,LOCKE,(LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER),
STRNAME=imsmsgq01oflw,LOCKE,(LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER)),END

Where imsmsgq01 is the main structure name, and imsmsgq01oflw is the overflow structure name.

When an IMS structure dump is necessary, the z/OS® Logger function might be involved with the problem. The following example dumps the z/OS Logger address spaces, the logger structure, and the IMS CF structure.

DUMP COMM=(CQS/LOGR STRUCTURE DUMP)                                      
R xx,STRLIST=(STRNAME=imsmsgq01,LOCKE,                                   
             (LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER),CONT                  
R xx,STRNAME=imsmsgq01oflw,LOCKE,                                        
             (LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER),CONT                  
R xx,STRNAME=mvslogqmsg01,LOCKE,ACC=NOLIM,                               
             (LISTNUM=ALL,EDATA=UNSER,ADJ=CAPTURE)),CONT                 
R xx,JOBNAME=(IXGLOGR),DSPNAME=('IXGLOGR'.SYSLOGR0),CONT                 
R xx,SDATA=(COUPLE,ALLNUC,LPA,LSQA,PSA,RGN,SQA,TRT,CSA,GRSQ,XESDATA),END

Where:

imsmsgq01: The main structure name.
imsmsgq01oflw: The overflow structure name.
mvslogmsg01: The associated logger structure.

CQS - IEADMCxx example with structures

Create three SYS1.PARMLIB members named IEADMCIA, IEADMCIB, and IEADMCIC by issuing the following command:

JOBNAME=(j1,j2,j3,j4,j5),SDATA=(CSA,PSA,RGN,SQA,SUM,TRT,GRSQ),    
REMOTE=(SYSLIST=(*('j1','j2','j3','j4','j5'),SDATA))

Where:

j1: IMS Control Region Jobname.
j2: IMS DLI Region Jobname.
j3: DBRC Region Jobname.
j4: IRLM Region Jobname.
j5: IMS CQS Region.

JOBNAME=(j6,j7,j8,j9,j10),SDATA=(CSA,PSA,RGN,SQA,SUM,TRT,XESDATA),
REMOTE=(SYSLIST=(*('j6','j7','j8','j9','j10'),SDATA))

Where:

j6: APPC Region.
j7: APPC Scheduler.
j8: VTAM®.
j9: Other CQS Client Region.
j10: Other CQS Region.

JOBNAME=(IXGLOGR),DSPNAME=('IXGLOGR'.SYSLOGR0),                             
SDATA=(COUPLE,ALLNUC,LPA,PSA,RGN,SQA,TRT,CSA,GRSQ,XESDATA),                 
STRLIST=(STRNAME=imsmsgq01,LOCKE,(LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER),     
STRNAME=imsmsgq01oflw,LOCKE,(LISTNUM=ALL,ADJ=CAPTURE,EDATA=UNSER),          
STRNAME=mvslogqmsg01,LOCKE,ACC=NOLIM,(LISTNUM=ALL,EDATA=UNSER,ADJ=CAPTURE))

Where:

imsmsgq01: The main structure name.
imsmsgq01oflw: The overflow structure name.
mvslogqmsg01: The associated logger structure.