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 V4R1.0.
Last updated on 12 Jul 2001 at 14:01:16 EDT.
Copyright IBM Corporation, 1990, 2001