ibm:vm370-lib:copy:qalocblk.copy_src
Table of Contents
QALOCBLK Source
References
- Fixes Applied : 0
- This Source Date : Wednesday, February 15, 2006
- Last Fix ID : [Unmodified]
Source Listing
- QALOCBLK.COPY.txt
- *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
ibm/vm370-lib/copy/qalocblk.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator