Hi,
I have TSO verify exit in which I am enabling LLA exit CSVLLIX1 exit and
then deleting it this seems intermittently to cause a 378-14 abend
Below is the code
*
* Add LLA exit CSVLLIX1 in case module is LLA MANAGED
*
* LOAD PROGRAM
*
*
LOAD EP=AAALLIX1
SLL R1,8 Get rid of auth code
SRL R1,5 Length is in double words
ST R1,LLA_LENGTH
ST R0,LLA_EXIT
L R7,LLA_LENGTH Get Length
*
* MOVE TO KEY 0 STORAGE
*
MODESET MF=(E,SUP_ON) Athorize us
*
STORAGE OBTAIN,LENGTH=(R7),ADDR=(R6),SP=224
*
O R6,=X'80000000' 31 BIT AM MODE
ST R6,LLA_ADDR Save Address
LR R1,R7 Prime Length
L R0,LLA_EXIT
MVCL R6,R0 Move program
L R9,PSAAOLD-PSA(,R0)
ZZ USING ASCB,R9
L R8,ZZ.ASCBASSB
USING ASSB,R8
MVC ADRSSTKN,ASSBSTKN
PRIME_JOB DS 0H
LA R8,JOB_NAME
CSVDYNEX REQUEST=ADD, X
EXITNAME=CSVLLIX1, X
STATE=ACTIVE, X
MODNAME=AAALLIX1, X
MODADDR=LLA_ADDR, X
STOKEN=ADRSSTKN, X
POS=FIRST, X
RETCODE=RETCODE, X
RSNCODE=RSNCODE,MF=(E,DYN_PARM)
*
*
*
L R15,X'21C' Get Current TCB
USING TCB,R15
LA R14,LLA_AREA
XC LLA_AREA(LLA_LEN),LLA_AREA Clear Area
MVC LLA_PGM,AA.NAME
ST R14,TCBUSER
MODESET MF=(E,SUP_OFF)
Later on I delete the exit and free up the storage
CSVDYNEX REQUEST=DELETE, X
EXITNAME=CSVLLIX1, X
MODNAME=SGBLLIX1, X
FORCE=NO, X
RETCODE=RETCODE, X
RSNCODE=RSNCODE,MF=(E,DYN_PARM)
L R6,LLA_ADDR
L R7,LLA_LENGTH
*
STORAGE RELEASE,LENGTH=(R7),ADDR=(R6),SP=224
* MODESET MF=(E,SUP_OFF)
DELETE EP=AAALLIX1
*
* MODESET MF=(E,SUP_OFF)
This the abend I get intermittently
The exit doesn't contain any STORAGE macros
IEA705I ERROR DURING FREEMAIN SYS CODE = 378-14 IBMUSER ISPFPROC ISPFPR
IEA995I SYMPTOM DUMP OUTPUT
SYSTEM COMPLETION CODE=378 REASON CODE=00000014
TIME=03.07.19 SEQ=00039 CPU=0081 ASID=0036
PSW AT TIME OF ERROR 070C1000 8149BE10 ILC 2 INTC 0D
NO ACTIVE MODULE FOUND
NAME=UNKNOWN
DATA AT PSW 0149BE0A - 00181610 0A0D18CE 18FB180C
AR/GR 0: 008DB6C0/84000000 1: 00000000/84378000
2: 00000000/008BE6FC 3: 00000000/00000003
4: 00000000/008DB6C0 5: 00000000/008B79D8
6: 00000000/81496E10 7: 00000000/00FBFA00
IEA705I 00FBFA00 008DB6C0 008FF070 00000300 00000020 0004DF78
8: 00000000/00000000 9: 00000000/0000001C
A: 00000000/0004DF78 B: 00000000/7F5662E0
C: 00000000/00000081 D: 00000000/0004C030
E: 00000000/0438B5A2 F: 00000000/00000014
END OF SYMPTOM DUMP
Abend 00378000 hex occurred processing authorized command 'SPSWT'.
ISPD210 CMD abended - 'SPSWT' terminated abnormally.
***
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
