NAME       : HCPCPVWK
 DESCRIPTION: LOCK/UNLOCK Command work area
 DSECT      : CPVWK
 FUNCTION   : This work area contains information used
              during LOCK and UNLOCK command processing.
 LOCATED BY : R9 in HCPCPV
              - R9 in HCPCPW
 CREATED BY : HCPCPV
 DELETED BY : HCPCPV
 RELOCATION CONSIDERATIONS : None

 CPVWK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      CPVWK          LOCK/UNLOCK Command work area
0000    0 Signed       4 CPVARG         Ad-len of 1st token
0008    8 Signed       4 CPVUSER        Ad-len of userid
0010   16 Signed       4 CPVSAVE1 (16)  Save/restore for GETOPTS
0050   80 Signed       4 CPVSAVE2 (16)  Save/restore for LKPAGES
0090  144 Signed       4 CPVSAVE3 (16)  Save/restore for ULPAGES
00D0  208 Signed       4 CPVSAVE4 (16)  Save/restore for GETSPACE
0110  272 Signed       4 CPVSAVE5 (16)  Save/restore for GETASIT
0150  336 Signed       4 CPVSAVPG (16)  Work area for HCPCPVPG
0150  336 Signed       4 CPVPGFPL       First page parameter length
0154  340 Signed       4 CPVPGFPA       First page parameter address
0158  344 Signed       4 CPVPGLPL       Last page parameter length
015C  348 Signed       4 CPVPGLPA       Last page parameter address
0160  352 Bitstring   16 CPVPGFCH       First page convert from buffer
0160  352 Bitstring   16 CPVPGFWK (0)   Work area for convert to print
0160  352 Bitstring    8 CPVPGFWH       High 8 characters
0168  360 Bitstring    8 CPVPGFWL       Low 8 characters
0170  368 Bitstring    8 CPVPGFHX       First page as a hex address
0170  368 Bitstring    4 *              First address high word
0174  372 Bitstring    4 CPVPGFH1       First address low word
0178  376 Bitstring   16 CPVPGLCH       Last page convert from buffer
0188  392 Bitstring    8 CPVPGLHX       Last page as a hex address
0188  392 Bitstring    4 *              Last address high word
018C  396 Bitstring    4 CPVPGLH1       Last address low word
0190  400 Address      4 CPVSYMBA       Location of symbol being locked
0194  404 Signed       4 CPVSYMBL       Length of symbol from HCPCFDSY
0198  408 Address      4 CPVIASIT       Address of i-ASIT
      The following is the response area for the LOCK command with
      the MAP option.  (Notes      :  This reflects the maximum size
      that this area can ever be).
          0000019C       CPVRESP        * Response area - max size shown
019C  412 Character    8 *              Id field
01A4  420 Character    1 *              Blank spacer
01A5  421 Character   16 *              Virtual address - worst case
01B5  437 Character    4 *              Blanks
01B9  441 Character    8 *              Host Logical Address
01C1  449 Character    8 *              Blanks
01C9  457 Character   17 *              Host Real Address
          0000003E       CPVRESPL       *-CPVRESP Length of maximum
                                        response
01DA  474 Bitstring    1 CPVFLAG1       Flags
          ..1. ....      CPVTO          X'20' CPVTO 'FROM' keyword
                                        specified
          ...1 ....      CPVFROM        X'10' CPVFROM 'TO' keyword
                                        specified
          .... 1...      CPVREAL        X'08' CPVREAL 'R' Real address
                                        type
          .... .1..      CPVLOGIC       X'04' CPVLOGIC 'L' Logical
                                        address type
          .... ..1.      CPVFLNMP       X'02' CPVFLNMP 'NOMAP' option
          .... ...1      CPVFLMAP       X'01' CPVFLMAP 'MAP' option
01DB  475 Bitstring    1 CPVFLAG2       Flags
          1... ....      CPVFLMOD       X'80' CPVFLMOD Show locking a
                                        module
          .1.. ....      CPVFLSYS       X'40' CPVFLSYS Show working on
                                        SYSTEM addresses
          ..1. ....      CPVFLSPC       X'20' CPVFLSPC Show working on
                                        Space addresses
          ...1 ....      CPVFLNEW       X'10' CPVFLNEW New style command
                                        format
          .... 1...      CPVFL1ST       X'08' CPVFL1ST First-page switch
          .... ..1.      CPVALLLC       X'02' CPVALLLC Cyclic List Hold
                                        Lock acquired
01DC  476 Bitstring    1 CPVFLAGW       Work area for option flags
01DD  477 Bitstring    1 *              Reserved for IBM use
01DE  478 Character    8 CPVSYMNM       CP symbol locked previous time
          000001E6       CPVWKL         *-CPVWK
          0000003D       CPVWKSZ        (*-CPVWK+7)/8

 
*** CPVWK - LOCK/UNLOCK Command work area
*
*     +---------------------------+---------------------------+
*   0 |          CPVARG           |///////////////////////////|
*     +---------------------------+---------------------------+
*   8 |         CPVUSER           |///////////////////////////|
*     +---------------------------+---------------------------+
*  10 |                                                       |
*     =                       CPVSAVE1                        =
*     |                                                       |
*     +-------------------------------------------------------+
*  50 |                                                       |
*     =                       CPVSAVE2                        =
*     |                                                       |
*     +-------------------------------------------------------+
*  90 |                                                       |
*     =                       CPVSAVE3                        =
*     |                                                       |
*     +-------------------------------------------------------+
*  D0 |                                                       |
*     =                       CPVSAVE4                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 110 |                                                       |
*     =                       CPVSAVE5                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 150 |                                                       |
*     =                       CPVSAVPG                        =
*     |                                                       |
*     +-------------------------------------------------------+
* 190
*
*** CPVWK - LOCK/UNLOCK Command work area
 
*** Overlay for CPVSAVPG in CPVWK
*
*     +---------------------------+---------------------------+
* 150 |         CPVPGFPL          |         CPVPGFPA          |
*     +---------------------------+---------------------------+
* 158 |         CPVPGLPL          |         CPVPGLPA          |
*     +---------------------------+---------------------------+
* 160 |                       CPVPGFCH                        |
*     |                                                       |
*     +-------------------------------------------------------+
* 170
*
*** Overlay for CPVSAVPG in CPVWK
 
*** Overlay for CPVPGFCH in CPVWK
*
*     +-------------------------------------------------------+
* 160 |                       CPVPGFWH                        |
*     +-------------------------------------------------------+
* 168 |                       CPVPGFWL                        |
*     +-------------------------------------------------------+
* 170 |                       CPVPGFHX                        |
*     +-------------------------------------------------------+
* 178
*
*** Overlay for CPVPGFCH in CPVWK
 
*** Overlay for CPVPGFHX in CPVWK
*
*     +---------------------------+---------------------------+
* 170 |///////////////////////////|         CPVPGFH1          |
*     +---------------------------+---------------------------+
* 178 |                       CPVPGLCH                        |
*     |                                                       |
*     +-------------------------------------------------------+
* 188 |                       CPVPGLHX                        |
*     +-------------------------------------------------------+
* 190
*
*** Overlay for CPVPGFHX in CPVWK
 
*** Overlay for CPVPGLHX in CPVWK
*
*     +---------------------------+---------------------------+
* 188 |///////////////////////////|         CPVPGLH1          |
*     +---------------------------+---------------------------+
* 190 |         CPVSYMBA          |         CPVSYMBL          |
*     +---------------------------+---------------------------+
* 198 |         CPVIASIT          |///////////////////////////|
*     +---------------------------+------+--------------------+
* 1A0 |///////////////////////////|//////|////////////////////|
*     +---------------------------+------+////////////////////|
*     |///////////////////////////////////////////////////////|
*     |//////////////////////////////////+--------------------+
*     |//////////////////////////////////|////////////////////|
*     +------+---------------------------+--------------------+
* 1B8 |//////|////////////////////////////////////////////////|
*     +------+------------------------------------------------+
* 1C0 |//////|////////////////////////////////////////////////|
*     +------+------------------------------------------------+
* 1C8 |//////|////////////////////////////////////////////////|
*     +------+////////////////////////////////////////////////|
*     |///////////////////////////////////////////////////////|
*     |/////////////+------+------+------+------+-------------+
* 1D8 |/////////////|:FLAG1|:FLAG2|:FLAGW|//////|   (1DE)-    |
*     +-------------+------+------+------+------+-------------+
* 1E0 |               -CPVSYMNM                 | 1E6
*     +-----------------------------------------+
*
*** Overlay for CPVPGLHX in CPVWK

 
Symbol         Dspl Value
-------------- ---- -----
CPVALLLC       01DB 02
CPVARG         0000
CPVFLAGW       01DC
CPVFLAG1       01DA
CPVFLAG2       01DB
CPVFLMAP       01DA 01
CPVFLMOD       01DB 80
CPVFLNEW       01DB 10
CPVFLNMP       01DA 02
CPVFLSPC       01DB 20
CPVFLSYS       01DB 40
CPVFL1ST       01DB 08
CPVFROM        01DA 10
CPVIASIT       0198
CPVLOGIC       01DA 04
CPVPGFCH       0160
CPVPGFHX       0170
CPVPGFH1       0174
CPVPGFPA       0154
CPVPGFPL       0150
CPVPGFWH       0160
CPVPGFWK       0160
CPVPGFWL       0168
CPVPGLCH       0178
CPVPGLHX       0188
CPVPGLH1       018C
CPVPGLPA       015C
CPVPGLPL       0158
CPVREAL        01DA 08
CPVRESP        0198 0000019C
CPVRESPL       01C9 0000003E
CPVSAVE1       0010
CPVSAVE2       0050
CPVSAVE3       0090
CPVSAVE4       00D0
CPVSAVE5       0110
CPVSAVPG       0150
CPVSYMBA       0190
CPVSYMBL       0194
CPVSYMNM       01DE
CPVTO          01DA 20
CPVUSER        0008
CPVWKL         01DE 000001E6
CPVWKSZ        01DE 0000003D