|
Programming Interface Information:
This information is NOT intended to be used as Programming Interfaces of z/VM. |
PGMSECT
Control Block Contents
PGMSECT DSECT
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
Last updated on 10 Sep 2004 at 08:12:14 EDT.
Copyright IBM Corporation, 1990, 2004