Portal | Manuals | References | Downloads | Info | Programs | JCLs | Mainframe wiki | Quick Ref
IBM Mainframe Forum Index
 
Register
 
IBM Mainframe Forum Index Mainframe: Search IBM Mainframe Forum: FAQ Memberlist Profile Log in to check your private messages Log in
 
How to display offset thru cobol program?

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

New User


Joined: 06 Jan 2015
Posts: 19
Location: Hyderabad, INDIA

PostPosted: Sun Apr 22, 2018 8:42 pm    Post subject: How to display offset thru cobol program?
Reply with quote

I have a scenario that our client requested to display the offset value on CICS screen when ever we get any ASRA(Soc7) abend.

Can we get the offset value in cobol program when the program is getting abend with ASRA(Soc7)?

Kindly help with the solution if any... icon_question.gif

Thanks in advance.
Back to top
View user's profile Send private message

Rohit Umarjikar

Senior Member


Joined: 21 Sep 2010
Posts: 2299
Location: NY,USA

PostPosted: Mon Apr 23, 2018 7:59 pm    Post subject:
Reply with quote

That's exactly why they created Dumps to investigate such abends. Look for the CICS dump analyzer tools available in the market to troubleshoot any such abends.
Back to top
View user's profile Send private message
Marso

REXX Moderator


Joined: 13 Mar 2006
Posts: 1330
Location: Israel

PostPosted: Wed Apr 25, 2018 1:06 pm    Post subject:
Reply with quote

But if you must: EXEC CICS ASSIGN ABOFFSET
Application Programming Reference wrote:
ABOFFSET(data-area)
Returns a fullword binary offset in bytes of an abend when the latest abend
with a code ASRA, ASRB, or ASRD occurred. If the abend is outside the
current program, a value of X’FFFFFFFF’ is returned. The data area is set to
binary zeros if no ASRA, ASRB, or ASRD abend occurred during the execution
of the issuing transaction, or if the abend originally occurred in a remote DPL
server program.

Use together with: EXEC CICS ASSIGN ABPROGRAM
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 COBOL -DB2 SQL code to have GROUP BY ... vinu78 DB2 21 Wed Oct 23, 2019 7:00 pm
No new posts Running a REXX exec program using ZOSMF Sakthi344 CLIST & REXX 2 Tue Oct 15, 2019 3:13 pm
No new posts Adding FIND to ISPF Panel display of ... Harold Barnes TSO/ISPF 3 Mon Oct 07, 2019 5:46 pm
No new posts How to handle NULL in COBOL program bhaskar_kanteti COBOL Programming 8 Mon Oct 07, 2019 3:54 pm
This topic is locked: you cannot edit posts or make replies. COBOL/CICS with real time MQ Series u... BPranav CICS 2 Mon Sep 16, 2019 9:19 pm

Facebook
Back to Top
 
Job Vacancies | Forum Rules | Bookmarks | Subscriptions | FAQ | Polls | Contact Us