*COPY QALOCBLK                                                          QAL00010
         PUSH  PRINT                                                    QAL00020
         AIF   ('&SYSPARM' NE 'SUP').QALB01                             QAL00030
         PRINT OFF,NOGEN                                                QAL00040
.QALB01  ANOP                                                           QAL00050
QALBLOK  DSECT                                                          QAL00060
         SPACE 1                                                        QAL00070
***            QALOCBLK -  QUERY ALLOC STATUS BLOCK                     QAL00080
*                                                                       QAL00090
*          0   +-----------------------------------------------+        QAL00100
*              |                    QCPMSG1                    |        QAL00110
*          8   +-----------------------------------------------+        QAL00120
*              |                    QCPMSG2                    |        QAL00130
*         10   +-----------------------------------------------+        QAL00140
*              |                                               |        QAL00150
*              =   QCPBUF (DATA AREA OF VARIABLE LENGTH)       =        QAL00160
*              |                                               |        QAL00170
*              +-----------------------------------------------+        QAL00180
*                                                                       QAL00190
***            QCPBLOK  -  QUERY CP SYSTEM STATUS BLOCK                 QAL00200
         SPACE 1                                                        QAL00210
QCPMSG1  DS    2F             LENGTH AND ADDRESS OF FIRST MSG           QAL00220
QCPMSG2  DS    2F             LENGTH AND ADDRESS OF SECOND MSG          QAL00230
QCPBUF   DS    0C             MESSAGE BUFFER (LENGTH IS VARIABLE)       QAL00240
         EJECT                                                          QAL00250
         POP   PRINT                                                    QAL00260
         SPACE ,                                                        QAL00270