*COPY QCPBLOK                                                           00001000
         PUSH  PRINT                                                    00002000
         AIF   ('&SYSPARM' NE 'SUP').QCPB01                             00003000
         PRINT OFF,NOGEN                                                00004000
.QCPB01  ANOP                                                           00005000
QCPBLOK  DSECT                                                          00006000
         SPACE 1                                                        00007000
***            QCPBLOK  -  QUERY CP SYSTEM STATUS BLOCK                 00008000
*                                                                       00009000
*          0   +-----------------------------------------------+        00010000
*              |                    QCPMSG1                    |        00011000
*          8   +-----------------------------------------------+        00012000
*              |                    QCPMSG2                    |        00013000
*         10   +-----------------------------------------------+        00014000
*              |                                               |        00015000
*              =   QCPBUF (DATA AREA OF VARIABLE LENGTH)       =        00016000
*              |                                               |        00017000
*              +-----------------------------------------------+        00018000
*                                                                       00019000
***            QCPBLOK  -  QUERY CP SYSTEM STATUS BLOCK                 00020000
         SPACE 1                                                        00021000
QCPMSG1  DS    2F             LENGTH AND ADDRESS OF FIRST MSG           00022000
QCPMSG2  DS    2F             LENGTH AND ADDRESS OF SECOND MSG          00023000
QCPBUF   DS    0C             MESSAGE BUFFER (LENGTH IS VARIABLE)       00024000
         EJECT                                                          00025000
         POP   PRINT                                                    00026000
         SPACE ,                                                        00027000