From: Joe Reichman [mailto:reichman...@gmail.com]
Sent: Tuesday, January 9, 2018 2:44 PM
To: 'IBM Mainframe Discussion List' <IBM-MAIN@LISTSERV.UA.EDU>
Subject:
This is the program that is causing the abend
TESTRCOV AMODE 31
TESTRCOV RMODE ANY
YREGS
AR0 EQU 0
AR1 EQU 1
AR2 EQU 2
AR3 EQU 3
AR4 EQU 4
AR5 EQU 5
AR6 EQU 6
AR7 EQU 7
AR8 EQU 8
AR9 EQU 9
AR10 EQU 10
AR11 EQU 11
AR12 EQU 12
AR13 EQU 13
AR14 EQU 14
AR15 EQU 15
**********************************************************************
* Address Space Recovery Rtn | 6
* | 7
* Determine Address Space and Type of Abend | 8
* | 9
* Give user OPtion of Sdump | 10
*+--------------------------------------------------------------------+ 34
LR R3,R15
USING TESTRCOV,R3
LR R4,R1 Save Sdwa Address
LR R10,R14
WTO 'In TESTrcov rtn ..'
*
* *---------------------------------------* 41
* * SET ADDRESSABILITY SDWA EXTENSION * 42
* *---------------------------------------* 43
USING WS_DSECT,R13
USING SDWA,R4 Address SDWA
LR R7,R4
L R4,SDWAXPAD Get Record Able Area
DROP R4
USING SDWAPTRS,R4
L R4,SDWASRVP
DROP R4
USING SDWARC1,R4
CLI SDWATYPE,SDWATFRR Is This a FRR
BNE IS_ESTAE No Must Be Is An Estae
LR R13,R0 Point to work area
ST R10,SAVE14
ST R7,SDWADDR
B PROCESS
IS_ESTAE DS 0H
ST R10,SAVE14
ST R7,SDWADDR
TESTAUTH FCTN=1,STATE=YES,KEY=YES
BZ PROCESS
LR R4,R7
DROP R4
USING SDWA,R4
ICM R2,B'1111',SDWAPARM Get Paramters
* L R2,0(,R2)
ST R2,USER_PARM
USING ESTPARM,R2
ICM R6,B'1111',SDWAPC Get PC control
USING HRPCRTN,R6
LMH R15,15,HRATSQ
L R8,HRSTNO
LR R7,R4 Hold R4
L R4,=F'-1'
*--
PC 0(R8) Make us Authorized
<-------- PC rtn
*
Program creating PC rtn
TESTRCOV CSECT
00010076
TESTRCOV AMODE 31
00011076
TESTRCOV RMODE 31
00012076
YREGS
00020000
AR0 EQU 0
00020153
AR1 EQU 0
00020253
AR2 EQU 0
00020353
AR3 EQU 0
00020453
AR4 EQU 0
00020553
AR5 EQU 0
00020653
AR6 EQU 0
00020753
AR7 EQU 0
00020853
AR8 EQU 0
00020953
AR9 EQU 0
00021053
ARA EQU 0
00021153
ARB EQU 0
00021253
ARC EQU 0
00021353
ARD EQU 0
00021453
ARE EQU 0
00021553
ARF EQU 0
00021653
STM R14,R12,12(R13)
00022053
LR R8,R15 ESTABLISH ADDRESSABILITY
00030016
USING TESTRCOV,R8
00030176
LR R14,R13
00030236
LA R13,SAVEAREA
00030336
ST R14,SAVEAREA+4
00030436
LA R0,WS_LEN
00030588
STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5)
00030789
LR R10,R13
00030888
LR R13,R5
00030988
USING WS_DSECT,R13
00031088
ST R10,4(,R13)
00031188
*
00031388
LA
R0,((SDWAEND-SDWA)+(SDWASEND-SDWARC1)+(SDWAIEND-SDWARC2)X00031476
+(SDWALEND-SDWARC3)+(SDWAEEND-SDWARC4)+(SDWAPEND-SDWAPTRX00031576
S)+(SDWAPTRS-SDWAPEND)+(SDWAREND-SDWANRC1)+(SDWASEN-SDWAX00031676
NRC2)+(SDWADEND-SDWANRC3))
00031776
STORAGE OBTAIN,LENGTH=(R0),ADDR=(R6),SP=0
00031876
LA R0,24
00031976
B XMEM
00032199
* STORAGE OBTAIN,LENGTH=(R0),ADDR=(R7),SP=227
00032299
* USING ESTPARM,R7
00032699
*
00033377
*---------------------------------------------------------------------*
00033485
* LOAD TESTAUTH AND MAKE MAKE IT A PC RTN *
00033585
*---------------------------------------------------------------------*
00033685
*
00033785
* GIVE US ABILITY TO DO ALL XMEM STUFF
00033885
00033985
XMEM DS 0H
00034096
XC ECB,ECB
00034299
LA R1,ECB
00034399
XR R1,R1
00034499
MODESET KEY=ZERO,MODE=SUP
00034599
LA R0,LESTPARM+HRPCNMS
00034699
STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5),SP=228
00034799
L R3,16
00034899
USING CVT,R3
00034999
ST R5,CVTUSER
00035099
USING ESTPARM,R5
00035199
LA R6,LESTPARM(,R5)
00035299
ST R6,SDWAPC
00035399
USING HRPCRTN,R6
00035499
SYSEVENT TRANSWAP,ENTRY=BRANCH SET ME NON-SWAPPABLE
00035599
* WAIT ECB=ECB
00035699
*
00035799
LA R2,1
00035885
AXSET AX=(R2)
00035985
00036085
LOAD EP=TESTAUTH
00036198
00036285
LR R2,R0 SAVE ADDRESS
00036385
00036485
XC ETD_1(ET_LEN),ETD_1 CLEAR TO X'00'
00036585
MVC ETD_1(ET_LEN),ETDESC MOVE IN TABLE ENTRIES
00036685
00036785
ETDEF TYPE=SET,HEADER=ETDESC,NUMETE=1
00036899
00036985
MVI ETD,0 ONE ENTRY
00037099
00037185
00037285
ETDEF TYPE=SET,ETEADR=ETD,ROUTINE=(R2),SSWITCH=YES,
X00037399
STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING
00037490
00037590
00037685
XC LXRES_DSECT(LX_LEN),LXRES_DSECT
00037799
XC EX_LIST(8),EX_LIST
00037899
XC TKL(8),TKL
00037999
MVC EX_COUNT,=F'1'
00038085
*
00038185
* TESTDIE LINKAGE=SVC
00038285
LXRES ELXLIST=EX_LIST,
X00038399
SYSTEM=YES,
X00038499
REUSABLE=YES,
X00038599
MF=(E,LXRES_DSECT)
00038699
00038785
MVC HRATSQ,EX_VALUE
00038899
MVC HRSTNO,EX_SEQ
00038999
MVC TESTPC,EX_VALUE MOVE PC NUMBER
00039085
USING PSA,0
00039199
L R4,PSAAOLD
00039299
MVC SERVASID,ASCBASID-ASCB(R4)
00039399
STCM R6,B'1111',SDWA@ADR
00039499
LA R9,MYECB
00039599
STCM R9,B'1111',SDWAECB@
00039699
00039985
LA R7,ETDESC
00040099
00040185
ETCRE ENTRIES=(R7) NO NEED TO "OR"
00040285
00040385
ST R0,TKVALUE ONLY 1 PC ENTRY
00040485
MVC TKCOUNT,=F'1'
00040585
00040685
* CONNECT IT
00040794
*
00040885
XC ETCON_DSCT(ETCON_LEN),ETCON_DSCT
00040999
ETCON ELXLIST=EX_LIST,TKLIST=TKL,MF=(E,ETCON_DSCT)
00041099
*
00041382
*
00041485
WAIT ECB=MYECB
00041577
*
00041677
XR R0,R0
00041799
IC R0,MYECB+3 GET ASID
00041899
L R15,CVTPTR R15 -> CVT
00041999
L R15,CVTASVT-CVT(,R15) R15 -> ASVT
00042099
USING ASVT,R15
00042199
CLC ASVTASVT-ASVT(4,R15),=C'ASVT' CHECK EYECATCHER
00042299
BNE RETURN
00042399
LA R15,ASVTENTY-ASVT(,R15) GET FIRST ASVT SLOT
00042499
BCTR R0,0 DOWN BY 1
00042699
SLL R0,2 MULTIPLY BY 4
00042799
AR R15,R0 POINT TO ASVT ENTRY
00042899
L R15,0(,R15) POINT TO ASCB
00042999
ST R15,TRGASCB
00043099
LA R0,184
00043199
*
00043299
STORAGE OBTAIN,LENGTH=(R0),ADDR=(R5),LOC=24
00043399
MVC 0(184,R5),SDUMPSTR
00043499
XC MYECB,MYECB
00043599
L R6,TRGASCB
00043699
POST MYECB,(R5),ASCB=(R6),ERRET=CONTINUE
00043799
CONTINUE DS 0H
00043899
MODESET KEY=NZERO,MODE=PROB
00043999
RETURN DS 0H
00044097
L R13,4(,R13)
00044176
LM R14,R12,12(R13)
00044276
XR R15,R15
00044376
BR R14
00044476
DS 0D
00044599
SAVEAREA DS CL72
00044676
MYECB DC F'0'
00044776
TRGASCB DS A
00044899
SDUMPSTR DC C'SDUMP ASID=001F,002C,004D,0050,0052 PSW=07EC4D221EFC266'
00044999
DC C'8SUBPOOL=224227130114250SDATA=ALLNUCCSALSQAVARREC=THIS'
00045099
DC C' IS THE VARIABLE RECORDING AREA YOU CAN ENTER ANY TEXT H'
00045199
DC C'RE INCLUDING HEX 123C'
00045299
DC X'00'
00045399
STR EQU *-SDUMPSTR
00045499
*----------------------------------------------------------*
00045587
* LAYOUT OF ETDEF TABLES *
00045687
*----------------------------------------------------------*
00045787
ETDESC ETDEF TYPE=INITIAL
00045887
*
00045987
ETD ETDEF TYPE=ENTRY,ROUTINE=*-*,SSWITCH=YES,
X00046087
STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING
00046187
*
00046287
ETDEF TYPE=FINAL
00046387
ET_LEN EQU *-ETDESC
00046487
WS_DSECT DSECT
00047088
*----------------------------------------------------------*
00050088
* LAYOUT OF ETDEF TABLES *
00051088
*----------------------------------------------------------*
00052088
ECB DS F
00052199
ETD_1 ETDEF TYPE=INITIAL
00053088
*
00054088
ETD_2 ETDEF TYPE=ENTRY,ROUTINE=*-*,SSWITCH=YES,
X00054188
STATE=SUPERVISOR,AKM=(0:15),EKM=0,PC=STACKING
00054288
*
00054388
ETDEF TYPE=FINAL
00054488
ETCON_DSCT ETCON ELXLIST=EX_LIST,TKLIST=TKL,MF=L
00054699
ETCON_LEN EQU *-ETCON_DSCT
00054799
LXRES_DSECT LXRES ELXLIST=EX_LIST,
X00054899
REUSABLE=YES,
X00054999
SYSTEM=YES,MF=L
00055086
LX_LEN EQU *-LXRES_DSECT
00055199
*
00055286
LXFRE_DSECT LXFRE ELXLIST=*-*,FORCE=YES,MF=L
00055395
EX_LIST DS 0F
00055490
EX_COUNT DS F
00055590
EX_SEQ DS F
00055699
EX_VALUE DS F
00055790
TESTPC DS F
00055894
TKL DS 0F
00055993
TKCOUNT DS F
00056093
TKVALUE DS F
00056193
WS_LEN EQU *-WS_DSECT
00056288
IHAASCB
00056333
CVT DSECT=YES,LIST=YES
00056433
IHAASVT
00056599
IHAPSA
00057064
IHASDWA
00057178
ESTPARM
00058077
COPY HRPCRTN
00059099
END
00070001
Joe Reichman
Joe Reichman
Lead Developer Sam Golob Systems Programming
8045 Newell St apt 403
Silver Spring MD 20910
Cell (917) 748 - 9693
Home (240) 863 3965
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to lists...@listserv.ua.edu with the message: INFO IBM-MAIN
