Portal | Manuals | References | Downloads | Info | Programs | JCLs | Master the Mainframes
IBM Mainframe Computers Forums Index
 
Register
 
IBM Mainframe Computers Forums Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Usergroups Profile Log in to check your private messages Log in
 

 

CICS screen failing with ASRA abend

 
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS
View previous topic :: :: View next topic  
Author Message
pradipta786

New User


Joined: 13 Jun 2007
Posts: 3
Location: kochi

PostPosted: Wed Jun 13, 2007 4:59 pm    Post subject: CICS screen failing with ASRA abend
Reply with quote

Hi All,

I am facing an unusual abend while trying a transaction in the CICS screen. The screen works perfectly fine with the Baseline load, but when the online load is moved from a CHGMAN pkg it fails with an ASRA abend. I have not made any change to the code or compiler options of the Online programs.

Our compiler option was last changed from COBOL3 to COBOLE. The DUMP gives me the following message :

An,ASRA,abend occurred in program,DFSLI000.The,Protection Exception,occurs when the Storage Protect Key of an operand,
instruction, or data does not match the program's protection key.? This
normally occurs by executing an instruction that either references or
resides at an illegal storage location.

This error occured within a program but is probably caused by inadvertently overlaying the program or save areas with invalid data.
****
I compared the two online loads, i.e. the baseline load and the CHGMAN pkg load, and could find the DFSLI000 is newly inserted. But while compiling the programs I dont get any such option.

Can anybody suggest me what can be the cause of such an issue or where I can check to avoid such a scene.

Thanks a lot in advance for the help.

Pradipta Subudhi icon_smile.gif
Back to top
View user's profile Send private message

socker_dad

Active User


Joined: 05 Dec 2006
Posts: 147
Location: Columbia, MO

PostPosted: Wed Jun 13, 2007 9:21 pm    Post subject: Re: CICS screen failing with ASRA abend
Reply with quote

Actually, according to my documentation, ASRA means that the task has terminated abnormally because of a program interrupt.

In my experience, I get these because of data errors, i.e., alpha data in numeric fields - just like a S0C7 in batch.

Personally, I would NEWC (newcopy) the load module in the test region, run Xpediter (XPED nnnn where 'nnnn' is your module's name), set a break point and step through it until the error is reached.

However, from your explanation, it sounds like you are getting this ASRA just on a move of the load module from one region to another? Weird. I've never heard of this error. Usually, the region doesn't care about the load module until you try to execute it. icon_question.gif icon_question.gif icon_question.gif
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Wed Jun 13, 2007 10:16 pm    Post subject:
Reply with quote

With the ASRA, there wil be either DFHAP0001 or DFHSR0001 and possibly a DFHSR0622.
What is the full text of that/those message(s)?
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Mon Jun 18, 2007 9:19 am    Post subject:
Reply with quote

your test CICS region may not have "storage protect" turned on.

I would contact technical support.
Back to top
View user's profile Send private message
pradipta786

New User


Joined: 13 Jun 2007
Posts: 3
Location: kochi

PostPosted: Mon Jun 18, 2007 2:53 pm    Post subject:
Reply with quote

Hi,

I found DFSLI000 getting included in my CHGMAN package load but the baseline doesn't have this.

And the abend message is as put below :

----------------- XPEDITER/CICS - ASSEMBLER BREAK/ABEND (2.20) ------------JSA2
COMMAND ===> SCROLL ===> CSR
PROGRAM: DFSLI000 +++++++++++ NO SOURCE AVAILABLE. USE HELP KEY ++++++++++++
CAUSE: PROTECTION EXCEPTION ABEND CODE: ASRA
APPLID: DHIPM053 USERID: DPSUBU TERM: 2002 NETNAME: W95080D3 TRAN: AEGN
INTERRUPT OFFSET: 00008E ADDRESS: BA9F9A56 PSW: 079D1000 BA9F9A5A 00040004
RESUME OFFSET: 00008E ADDRESS: BA9F9A56 LAST CICS COMMAND:

INSTRUCTION: 58F0 F018 L 15,X'018'(0,15)
REGISTERS:

0-3 00000000_00000002 00000000_3880A220 00000000_3881A104 00000000_3A9ABB40

4-7 00000000_3881A300 00000000_3846373C 00000000_384636EC 00000000_00000000

8-B 00000000_3A9AA1E4 00000000_38819FC0 00000000_3881B300 00000000_3A9AAE44

C-F 00000000_38808040 00000000_38809DF8 00000000_BA9ABC4E 00000000_00006080

Thanks
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 18, 2007 3:11 pm    Post subject:
Reply with quote

Protection exception trying to access an address located at X'6080', out of reach for your program.
Wrong key?
Protected CICS area?
How is your transaction and program defined?
Is the load inside CICS generated code?
Back to top
View user's profile Send private message
pradipta786

New User


Joined: 13 Jun 2007
Posts: 3
Location: kochi

PostPosted: Mon Jun 18, 2007 3:31 pm    Post subject:
Reply with quote

Thanks a lot for the reply

I have defined the PCT entry for the transaction , and given the PPT entry for the program . The load of DFSLI000 is getting included in the CICS generated load , but this load does not seem to be present in the baseline load.

I have also copied the load of DFSLI000 into the IMS program library that my CICS region is connected to as well .

Could you let me know how did you get the address (X'6080') from the log .
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 18, 2007 3:39 pm    Post subject:
Reply with quote

L 15,X'018'(0,15)
Load R15 from X'18' off of R15

C-F 00000000_38808040 00000000_38809DF8 00000000_BA9ABC4E 00000000_00006080
R15 = 00006080

INTERRUPT OFFSET: 00008E
Look at your program at X'8E', there you should be able to find the load:
58F0 F018
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 18, 2007 3:49 pm    Post subject:
Reply with quote

Have you checked the tranid's TASKDATALoc and TASKDATAKey and the program's DAtalocation?
Back to top
View user's profile Send private message
ajinth_c

New User


Joined: 11 May 2007
Posts: 4
Location: Bangalore

PostPosted: Mon Jun 18, 2007 3:55 pm    Post subject:
Reply with quote

Hi William ,
How do we check the trans id s TASKDATALOC and TASKDATAKEY ??? Do we have any specific command for that ??

Thanks in advance,

Regards,
Ajinth
Back to top
View user's profile Send private message
William Thompson

Global Moderator


Joined: 18 Nov 2006
Posts: 3158
Location: Tucson AZ

PostPosted: Mon Jun 18, 2007 3:59 pm    Post subject:
Reply with quote

You said you defined the transid, what did you define for them?
What is at X'8E' in your program?
Back to top
View user's profile Send private message
ajinth_c

New User


Joined: 11 May 2007
Posts: 4
Location: Bangalore

PostPosted: Mon Jun 18, 2007 4:19 pm    Post subject:
Reply with quote

The tran name is "AEBA" and the prog name is "OE00010T" . So we just used the CEDA command to define the PPT and the PCT entries and then installed the same in CICS . X'8E' is one of the IMS calls in our program .

The particular portion where it is failing is

0010-SCHEDULE-PSB.

MOVE 620-PCB TO 620-FUNCTION.
MOVE 900-PSB-NAME TO 620-PSBNAME.
MOVE 900-PSB-NAME TO 600-PSB-NAME.

CALL 'CBLTDLI' USING 620-FUNCTION
620-PSBNAME
ADDRESS OF DLIUIB.

Regards,
Ajinth
Back to top
View user's profile Send private message
Earl

Active User


Joined: 17 Jun 2007
Posts: 148
Location: oklahoma

PostPosted: Mon Jun 18, 2007 8:15 pm    Post subject:
Reply with quote

if its not failing in your test environment, there must be a difference in definitions between test and production.


Check system settings both test and production and compare for differences.

perform
cemt inquire system

Storeprotect(Active) << storage protect is ON for this region


perform
cemt inquire program(DFSLI000)
cemt inquire tran (AEBA)

Taskdatakey(Udatakey) user data key

Taskdatakey(Cdatakey) cics data key


perform
cemt inquire progr(OE00010T)

Leng(0000008576) << make sure proram lengths are the same
Back to top
View user's profile Send private message
View previous topic :: :: View next topic  
Post new topic   Reply to topic    IBMMAINFRAMES.com Support Forums -> CICS All times are GMT + 6 Hours
Page 1 of 1

 

Search our Forum:

Similar Topics
Topic Author Forum Replies Posted
No new posts CICS transaction slow response time vasanthz All Other Mainframe Topics 1 Thu Jan 19, 2017 1:31 am
No new posts INDEPENDENT CICS TS 4.1 MRO REGION UP... Kyle Carroll CICS 0 Wed Dec 14, 2016 6:55 pm
No new posts CICS START AND CANCEL blayek CICS 1 Wed Dec 07, 2016 3:27 am
No new posts How does a called pgm know if its cal... Graeme Westerman COBOL Programming 4 Tue Nov 29, 2016 9:25 pm
No new posts IMS BMP program causes 878 system abend Artemk IMS DB/DC 7 Tue Nov 22, 2016 8:26 pm


Facebook
Back to Top
 
Mainframe Wiki | Forum Rules | Bookmarks | Subscriptions | FAQ | Tutorials | Contact Us