Programming Interface Information: This information is NOT intended to be used as Programming Interfaces of z/VM.

#### PGMSECT

Prolog

Control Block Contents
PGMSECT DSECT

Storage Layout

Cross Reference (Contains links to field and bit definitions)

#### PGMSECT Prolog

     Name       : PGMSECT
     Description: Program Interrupt Work Area
     DSECT      : PGMSECT
     Function   : Mapping macro that maps information
                  stored when a program interrupt occurs.

#### PGMSECT Control Block Content

#### PGMSECT DSECT

    Hex   Dec Type/Val   Lng Label (dup)    Comments
    ---- ---- --------- ---- -------------- --------
    0000    0 Structure      PGMSECT        Program Interrupt Work Area
         STOREAGE FOR PROGRAM INTERRUPT ROUTINE ("INTPROG")
    0000    0 Signed       4 DEBPSW         Used to point to DEBUG
    0008    8 Signed       4 PICADDR        - PICA ADDRESS FROM RECENT "SPIE"
    000C   12 Signed       4 PIEPTR         Anchor for SPIE/ESPIE exit rtns
    0010   16 Dbl-Word     8 PIE (0)        - ***PROGRAM INTERRUPT ELEMENT***
    0010   16 Character    4 *
    0014   20 Address      4 EPIEPARM       Pointer to ESPIE plist
    0018   24 Signed       4 EPIEREGS (16)  Save area for regs at interrupt
    0058   88 Signed       4 EPIEPSW (2)    Saved PGM old PSW In XA-mode, it
                                            is an XA PSW In XC-mode, it is an
                                            XC PSW In 370-mode, it is a
                                            BC-mode PSW
    0060   96 Signed       4 EPIEINT        Interrupt code save area First 2
                                            bytes=ILC Last 2 bytes=interrupt
                                            code
    0064  100 Signed       4 EPIETXCP       XA or XC Translation exception
                                            information ***END PROGRAM
                                            INTERRUPT ELEMENT
    0068  104 Bitstring    1 TEMPOLD (8)    - WORK AREA
    0070  112 Bitstring    1 TEMPNEW (8)    -
    0078  120 Signed       4 R13AREA        - SAVED R13
    007C  124 Signed       4 PSAVE (16)     - REGS SAVED AT INT TIME
    00BC  188 Signed       4 SCBPTR         - POINTER TO FIRST STAE CONTROL
                                            BLOCK
              1... ....      STAEBIT        X'80'
              .1.. ....      STAIBIT        X'40'
              ..1. ....      RETRYBIT       X'20'
    00C0  192 Address      4 SCBWORK        - ADDRESS OF WORK AREA FOR STAE
                                            EXIT ROUTINE
    00C4  196 Address      4 SCBSAV12       - ADDRESS OF REG 12 SAVE AREA FOR
                                            DMSSAB
    00C8  200 Address      4 SCBSAV13       - ADDRESS OF REG 13 SAVE AREA FOR
                                            DMSSAB
    00CC  204 Address      4 SCBSAV14       - ADDRESS OF REG 14 SAVE AREA FOR
                                            DMSSAB
    00D0  208 Address      4 SCBSAV15       - Address of DMSSAB REG15 save
                                            area.
    00D4  212 Address      4 AUPIE          - ADDRESS OF USER'S PIE, IN SPIE
                                            EXI
         The following fields are needed to handle the MC 0,10 and MC 2,10
         interupts that come back from CP when running in XA or XC mode and
         tracing events in TRSOURCE BLOCK mode.
    00D8  216 Signed       4 PGMSAVE (18)   Save area for calls to DMSBMRAR
                                            and DMSJDX
    0120  288 Character   24 PGMEXHD        Area for EXTRA HEADER needed to
                                            get CMS to format trace data
    0138  312 Signed       4 AREGS (0)      Save area for Access Registers
    0138  312 Signed       4 AREG0          Access Register 0
    013C  316 Signed       4 AREG1          Access Register 1
    0140  320 Signed       4 AREG2          Access Register 2
    0144  324 Signed       4 AREG3          Access Register 3
    0148  328 Signed       4 AREG4          Access Register 4
    014C  332 Signed       4 AREG5          Access Register 5
    0150  336 Signed       4 AREG6          Access Register 6
    0154  340 Signed       4 AREG7          Access Register 7
    0158  344 Signed       4 AREG8          Access Register 8
    015C  348 Signed       4 AREG9          Access Register 9
    0160  352 Signed       4 AREG10         Access Register 10
    0164  356 Signed       4 AREG11         Access Register 11
    0168  360 Signed       4 AREG12         Access Register 12
    016C  364 Signed       4 AREG13         Access Register 13
    0170  368 Signed       4 AREG14         Access Register 14
    0174  372 Signed       4 AREG15         Access Register 15
    0178  376 Signed       4 ARALET         Access Register ALET
    017C  380 Bitstring    1 AREXID         Access Register id
    017D  381 Bitstring    2 *              Reserved for future IBM use
         The ABEFLAG is used to communicate between DMSABE and DSSAB.
    017F  383 Bitstring    1 ABEFLAG        ABE to/from SAB communication
              1... ....      ABEABN         X'80' Indictes this was a DMSABN
                                            initiated abend.
              .1.. ....      ABEBRENT       X'40' Indictes that the DMSABN
                                            call was branch entered. If off,
                                            SVC enterd
              ..1. ....      ABESVC13       X'20' Indictes that DMSABE was
                                            entered via a SVC 13, the MVS
                                            ABEND macro
              ...1 ....      ABEXFRES       X'10' Indictes that DMSABE
                                            transferred control to DMSSAB to
                                            drive ESTAE
    0180  384 Address      4 ABESDWA        Save area for CMS's SDWA address

#### PGMSECT Storage Layout

    *** PGMSECT - Program Interrupt Work Area
    *
    *     +---------------------------+---------------------------+
    *   0 |          DEBPSW           |///////////////////////////|
    *     +---------------------------+---------------------------+
    *   8 |         PICADDR           |          PIEPTR           |
    *     +---------------------------+---------------------------+
    *  10 |///////////////////////////|         EPIEPARM          |
    *     +---------------------------+---------------------------+
    *  18 |                                                       |
    *     =                       EPIEREGS                        =
    *     |                                                       |
    *     +-------------------------------------------------------+
    *  58 |                       EPIEPSW                         |
    *     +---------------------------+---------------------------+
    *  60 |         EPIEINT           |         EPIETXCP          |
    *     +---------------------------+---------------------------+
    *  68 |                       TEMPOLD                         |
    *     +-------------------------------------------------------+
    *  70 |                       TEMPNEW                         |
    *     +---------------------------+---------------------------+
    *  78 |         R13AREA           |                           |
    *     +---------------------------+                           |
    *  80 |                                                       |
    *     =                        PSAVE                          =
    *     |                           +---------------------------+
    *  B8 |                           |          SCBPTR           |
    *     +---------------------------+---------------------------+
    *  C0 |         SCBWORK           |         SCBSAV12          |
    *     +---------------------------+---------------------------+
    *  C8 |         SCBSAV13          |         SCBSAV14          |
    *     +---------------------------+---------------------------+
    *  D0 |         SCBSAV15          |          AUPIE            |
    *     +---------------------------+---------------------------+
    *  D8 |                                                       |
    *     =                       PGMSAVE                         =
    *     |                                                       |
    *     +-------------------------------------------------------+
    * 120 |                                                       |
    *     =                       PGMEXHD                         =
    *     |                                                       |
    *     +---------------------------+---------------------------+
    * 138 |          AREG0            |          AREG1            |
    *     +---------------------------+---------------------------+
    * 140 |          AREG2            |          AREG3            |
    *     +---------------------------+---------------------------+
    * 148 |          AREG4            |          AREG5            |
    *     +---------------------------+---------------------------+
    * 150 |          AREG6            |          AREG7            |
    *     +---------------------------+---------------------------+
    * 158 |          AREG8            |          AREG9            |
    *     +---------------------------+---------------------------+
    * 160 |          AREG10           |          AREG11           |
    *     +---------------------------+---------------------------+
    * 168 |          AREG12           |          AREG13           |
    *     +---------------------------+---------------------------+
    * 170 |          AREG14           |          AREG15           |
    *     +---------------------------+------+-------------+------+
    * 178 |          ARALET           |AREXID|/////////////|:FLAG |
    *     +---------------------------+------+-------------+------+
    * 180 |         ABESDWA           | 184
    *     +---------------------------+
    *
    *** PGMSECT - Program Interrupt Work Area

#### PGMSECT Cross Reference

    Symbol         Dspl Value
    -------------- ---- -----
    ABEABN         017F 80
    ABEBRENT       017F 40
    ABEFLAG        017F
    ABESDWA        0180
    ABESVC13       017F 20
    ABEXFRES       017F 10
    ARALET         0178
    AREGS          0138
    AREG0          0138
    AREG1          013C
    AREG10         0160
    AREG11         0164
    AREG12         0168
    AREG13         016C
    AREG14         0170
    AREG15         0174
    AREG2          0140
    AREG3          0144
    AREG4          0148
    AREG5          014C
    AREG6          0150
    AREG7          0154
    AREG8          0158
    AREG9          015C
    AREXID         017C
    AUPIE          00D4
    DEBPSW         0000
    EPIEINT        0060
    EPIEPARM       0014
    EPIEPSW        0058
    EPIEREGS       0018
    EPIETXCP       0064
    PGMEXHD        0120
    PGMSAVE        00D8
    PICADDR        0008
    PIE            0010
    PIEPTR         000C
    PSAVE          007C
    RETRYBIT       00BC 20
    R13AREA        0078
    SCBPTR         00BC
    SCBSAV12       00C4
    SCBSAV13       00C8
    SCBSAV14       00CC
    SCBSAV15       00D0
    SCBWORK        00C0
    STAEBIT        00BC 80
    STAIBIT        00BC 40
    TEMPNEW        0070
    TEMPOLD        0068

This information is based on z/VM V4R3.0.
Last updated on 1 May 2002 at 14:26:51 EDT.
Copyright IBM Corporation, 1990, 2002