Programming Interface Information:
This information is NOT
intended to be
used as Programming Interfaces of VM/ESA. It is to be used for diagnosis only. |
PGMSECT
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 0 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
(contains links to field and bit definitions)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 12 Aug 1999 at 11:25:03 EDT.
Copyright IBM Corporation, 1990, 1999