378-14 Private area storage is not in the specified subpool, is not in
the specific key or >>is not owned by the specified task<<.
You say: Later on I delete the exit and free up the storage
Is the storage freed by another task, that does not own the storage?
Kees.
-----Original Message-----
From: IBM Mainframe Discussion List [mailto:[email protected]] On Behalf
Of MichealButz
Sent: Monday, May 12, 2014 15:52
To: [email protected]
Subject: 378-14 Abend In TSO Verify exit
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
********************************************************
For information, services and offers, please visit our web site:
http://www.klm.com. This e-mail and any attachment may contain confidential and
privileged material intended for the addressee only. If you are not the
addressee, you are notified that no part of the e-mail or any attachment may be
disclosed, copied or distributed, and that any other action related to this
e-mail or attachment is strictly prohibited, and may be unlawful. If you have
received this e-mail by error, please notify the sender immediately by return
e-mail, and delete this message.
Koninklijke Luchtvaart Maatschappij NV (KLM), its subsidiaries and/or its
employees shall not be liable for the incorrect or incomplete transmission of
this e-mail or any attachments, nor responsible for any delay in receipt.
Koninklijke Luchtvaart Maatschappij N.V. (also known as KLM Royal Dutch
Airlines) is registered in Amstelveen, The Netherlands, with registered number
33014286
********************************************************
----------------------------------------------------------------------
For IBM-MAIN subscribe / signoff / archive access instructions,
send email to [email protected] with the message: INFO IBM-MAIN
