*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