         PROC
XTU#DSTZ NAME  X                        .  3/9/76  CREATE DSECT
TU#DSTZ  NAME  0
*        DEFINE QHOLD, QRELSE, QDEPTH PARAMETER LIST FIELDS
*        VER   4.0 RELEASE
TQ#QDSCT DSECT
TQ#QERR  DS    H              . 2  ERROR HALF WORD
TQ#QLNF  EQU   X'80'          . LINE NOT FOUND
TQ#QTNF  EQU   X'40'          . TERMINAL NOT FOUND
TQ#QNF   EQU   X'20'          . QUEUE NOT FOUND
TQ#QNPF  EQU   X'10'                    . NO SUCH PROCESS FILE
TQ#QTLG  EQU   X'08'                    . DATA BEYOND TBL OR PROG AREA
TQ#QTNFW EQU   X'04'                    . TABLE NOT ON FW BNDRY
TQ#QIQT  EQU   X'02'                    . INVALID PRTY QUEUE
TQ#QFLAG DS    XL1            . 1  FLAG BYTE
TQ#QTP   EQU   X'80'          . TYPE P
TQ#QTQ   EQU   X'40'          . TYPE Q
TQ#QTTAL EQU   X'20'          . TYPE T, ALL PRIORITY
TQ#QTTH  EQU   X'24'          . TYPE T, HIGH
TQ#QTTM  EQU   X'22'          . TYPE T, MEDIUM
TQ#QTTL  EQU   X'21'          . TYPE T, LOW
TQ#QTL   EQU   X'10'          . TYPE L
TQ#QFUNC DS    XL1            . 1 MACRO FUNCTION INDICATOR
TQ#QDEP  EQU   X'80'          . QDEPTH  FUNCTION
TQ#QHLD  EQU   X'40'          . QHOLD   FUNCTION
TQ#QRLS  EQU   X'20'          . QRELSE  FUNCTION
TQ#QCPY  EQU   X'10'          . CCACPY  FUNCTION
TQ#QRLM  EQU   X'11'                    . RELEASM FUNCTION
TQ#QQCLR EQU   X'60'                    . QCLEAR  FUNCTION
TQ#QQTRN EQU   X'90'                    . QTRANS  FUNCTION
TQ#QPCPY EQU   X'08'                    . POLCPY
TQ#QPREP EQU   X'04'                    . POLREP
TQ#QTCPY EQU   X'02'                    . TRMCPY
TQ#QTREP EQU   X'01'                    . TRMREP
TQ#QPLTN DS    CL4            . 4  PROC FILE, LINE OR TERM NAME
TQ#QWALG DS    YL1
TQ#QWORK DS    AL3
TQ#QNME  EQU   TQ#QWALG                 . QUEUE NAME FOR QHOLD/QRELSE
TQ#QCAI  EQU   TQ#QPLTN                 . ADRS CCA INFO TABLE
TQ#QTNT  EQU   TQ#QWORK                 . ADRS TERM NAME TABLE
TQ#QFN1  EQU   TQ#QPLTN
TQ#QFN2  EQU   TQ#QWALG
TQ#QNAME DS    CL4            . 4  NAME OF QUEUE
TQ#QLEN1 EQU   TQ#QNAME                 . LENGTH CCA INFO TABLE
TQ#QLEN2 EQU   TQ#QNAME+2               . LENGTH TERM NAME TABLE
&SYSECT  CSECT
*        DEFINE QDEPTH WORK AREA FIELDS
*        VER   4.0 RELEASE
TQ#QDWA  DSECT
TQ#QWAL  DS    H              . 2  NBR BYTES IN WORK AREA
TQ#QNQ   DS    H              . 2  NBR OF QUEUES
TQ#QNAM  DS    CL4            . 4  NAME OF PROC FILE, LINE OR TERM
TQ#QLOW  DS    CL4            . 4  NAME OF LO PR QUE
TQ#QLCNT DS    H              . 2  NBR MSGS ON LO QUE
TQ#QMED  DS    CL4            . 4  NAME OF MED PR QUE
TQ#QMCNT DS    H              . 2  NBR MSGS ON MED PR QUE
TQ#QHIGH DS    CL4            . 4  NAME OF HI PR QUE
TQ#QHCNT DS    H              . 2  NBR MSGS ON HI PR QUE
TQ#QINTR DS    CL4            . 4  NAME OF INTERCEPT QUE
TQ#QICNT DS    H              . 2  NBR  MSGS ON INTCPT QUE
&SYSECT  CSECT
*        DEFINE CCACPY TERMINAL NAME LIST (I/P DATA)
TC#CCINP DSECT
TC#CTRMI DS    CL4
&SYSECT  CSECT
*        DEFINE CCACPY CCA INFORMATION TABLE (O/P DATA)
TC#CCOTP DSECT
TC#CTRM  DS    CL4
TC#CLINE DS    CL4
         DS    XL1
TC#CU100 DS    XL1
TC#CU80C EQU   X'00'
TC#CU64C EQU   X'10'
TC#CNRT  DS    H'0'
TC#CTIDX DS    H'0'
TC#CLLN  DS    H'0'
TC#CDCT  DS    F'0'
&SYSECT  CSECT
         END
