ibm:vm370-lib:copy:qcpblok.copy_src
Table of Contents
QCPBLOK Source
References
- Fixes Applied : 1
- This Source Date : Thursday, October 11, 1979
- Last Fix ID : [HRC019DK]
Source Listing
- QCPBLOK.COPY.txt
- *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
ibm/vm370-lib/copy/qcpblok.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator