NAME       : LGRIORBK
 DESCRIPTION: Relocation mapping for HCPIORBK
 DSECT      : $IORBK
 FUNCTION   : LGRIORBK describes those fields of the IORBK that
              will be migrated to the destination system during
              guest relocation.
 LOCATED BY : This is a mapping of the RDODATA area within the
              RDOBK during guest relocation.
 CREATED BY : HCPRLFIF - IORBK Formatter for LGR
 DELETED BY : HCPRLDRL - Release storage associated with an RDP
 RELOCATION CONSIDERATIONS : This control block is used during live guest
              relocation.  It is used to relocate a control block
              defined in a corresponding HCP COPY file.  Any
              fields or bits defined in HCPIORBK which are
              required on the destination system must be defined
              here, and code must be added to migrate the field
              or bit during a relocation.

 $IORBK DSECT
Top of page

Hex   Dec Type/Val   Lng Label (dup)    Comments
---- ---- --------- ---- -------------- --------
0000    0 Structure      $IORBK         Relocation mapping for HCPIORBK
          00000001       $IOR_VER       1 Mapping version number for this
                                        DSECT. Version is independent of
                                        the CP level and need only be
                                        changed when this DSECT is
                                        changed. The convention is to
                                        increment by 1.
0000    0 Signed       2 $IOR_HDRL      Header length (in bytes)
0002    2 Signed       2 $IOR_BITL      Length of mapped bits (in bytes)
0004    4 Signed       4 *              Reserved for future use
          00000008       $IOR_HDLN      *-$IORBK Length of header (bytes)
      Bit map: Contains the IORBK flags that are subject to
               relocation. These bits are defined sequentially,
               regardless of how they are defined in HCPIORBK.
               This yields a consistent mapping that ensures
               compatibility when a guest is relocated between
               systems at differing service levels.
               Names in the comments column indicate the control
               block byte which contains the flag. This name is
               subject to change if the flag definition changes.
         ====> NEVER change bits which already exist here.
         ====> NEVER change the order of bits in this section.
         ====> ALWAYS add new bits at the end of this section,
               together with new flag bytes as required.
0008    8 Signed       2 $IOR_BITS (0)  Bit map area
0008    8 Bitstring    1 $IOR0
          1... ....      $IORRESUM      X'80' $IORRESUM IORIFLG
          .1.. ....      $IORCOPY       X'40' $IORCOPY IORCFLG
          ..1. ....      $IORSNS        X'20' $IORSNS IORSTAT
          ...1 ....      $IORCSNAV      X'10' $IORCSNAV IORSTAT
          .... 1...      $IORSIFCC      X'08' $IORSIFCC IORSTAT
          .... .1..      $IORUIFCC      X'04' $IORUIFCC IORGFLGS
          .... ..1.      $IORCONT       X'02' $IORCONT IORIFLG
          .... ...1      $IORPAVAF      X'01' $IORPAVAF IORPAVFG
          00000001       $IOR_BLEN      *-$IOR_BITS Length of bit map
                                        area
      Data:    Contains all HCPIORBK data that is subject to
               relocation, except for flag bits, which are
               handled separately.
               All fields are defined as XLnn to avoid alignment
               warnings and to pack the data efficiently.
         ====> NEVER change fields which already exist here.
         ====> NEVER change the order of fields in this section.
         ====> ALWAYS add new fields at the end of this section.
               together with new flag bytes as required.
0009    9 Bitstring    1 $IOR_DATA (0)  Start of data map
0009    9 Bitstring    4 $IORFPNT       Pointer to next queued IORBK
000D   13 Bitstring    4 $IORPIOR       Pending interruption list
0011   17 Bitstring   32 $IORORB        ORB
0031   49 Bitstring    4 $IORUCTL       Saved guest control field values
0035   53 Bitstring   96 $IORIRB        Interruption Response Block
0095  149 Bitstring    2 $IORSCNT       Sense byte count
0097  151 Bitstring   32 $IORSDATA      Sense data buffer
00B7  183 Bitstring    1 $IORPPEQS      PPRC Extended Query Scope
          00000017       $IORSIZE       (*-$IORBK+7)/8 $IORBK DWord size

          
*** $IORBK - Relocation mapping for HCPIORBK
*
*     +-------------+-------------+---------------------------+
*   0 | $IOR_HDRL   | $IOR_BITL   |///////////////////////////|
*     +------+------+-------------+------+--------------------+
*   8 |$IOR0 |         $IORFPNT          |     $IORPIOR-      |
*     +------+---------------------------+--------------------+
*  10 |-(00D)|                                                |
*     +------+                                                |
*  18 |                                                       |
*     =                       $IORORB                         =
*     |      +---------------------------+--------------------+
*  30 |      |         $IORUCTL          |                    |
*     +------+---------------------------+                    |
*  38 |                                                       |
*     =                       $IORIRB                         =
*     |                                  +-------------+------+
*  90 |                                  |  $IORSCNT   |      |
*     +----------------------------------+-------------+      |
*  98 |                                                       |
*     =                      $IORSDATA                        =
*     |                                                +------+
*  B0 |                                                |(0B7) |
*     +------------------------------------------------+------+
*  B8
*
*** $IORBK - Relocation mapping for HCPIORBK

 
Symbol         Dspl Value
-------------- ---- -----
$IOR_BITL      0002
$IOR_BITS      0008
$IOR_BLEN      0008 00000001
$IOR_DATA      0009
$IOR_HDLN      0004 00000008
$IOR_HDRL      0000
$IOR_VER       0000 00000001
$IORCONT       0008 02
$IORCOPY       0008 40
$IORCSNAV      0008 10
$IORFPNT       0009
$IORIRB        0035
$IORORB        0011
$IORPAVAF      0008 01
$IORPIOR       000D
$IORPPEQS      00B7
$IORRESUM      0008 80
$IORSCNT       0095
$IORSDATA      0097
$IORSIFCC      0008 08
$IORSIZE       00B7 00000017
$IORSNS        0008 20
$IORUCTL       0031
$IORUIFCC      0008 04
$IOR0          0008