Why not simply examine the dump. That will show what is doing the freemain!
On Mon, 12 May 2014 14:07:24 +0000 "Vernooij, CP (SPLXM) - KLM" <[email protected]> wrote: :>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 -- Binyamin Dissen <[email protected]> http://www.dissensoftware.com Director, Dissen Software, Bar & Grill - Israel Should you use the mailblocks package and expect a response from me, you should preauthorize the dissensoftware.com domain. I very rarely bother responding to challenge/response systems, especially those from irresponsible companies. ---------------------------------------------------------------------- For IBM-MAIN subscribe / signoff / archive access instructions, send email to [email protected] with the message: INFO IBM-MAIN
