*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