Getting offset from PSW instruction address

mlp · New User Joined: 23 Sep 2005 Posts: 91

I am trying to get ASRAPSW in a CICS program and translate it to offset of the instruction. How can a real storage address be translated into offset which can be referred in compile listing of the program?

This I require because in my shop the abend dump is supressed and some logs are generated programatically which are not very helpful in solving the abend. So I am thinking to add the ASRAPSW (translated to offset) in that log. Please suggest.

Bill Woodger · Posted: Tue Sep 20, 2011 6:43 am

If using Cobol, check whether PROCEDURE-POINTER is any use to you. If you know the abending program name, or all the program names.

This would enable you to obtain the entry-point address of the module (or all the modules). That would give you the thing to subtract from your PSW to get the offset.

If you need to display/print in HEX, look at the Junk Buster in the Cobol forum :-)

Anuj Dhawan · Posted: Tue Sep 20, 2011 6:48 pm

This should help.

mlp · New User Joined: 23 Sep 2005 Posts: 91

I tried using procedure pointer to get the entry point but it is not working. Instead I am getting some wiered behaviour by the CICS program.

Can I invoke CECI INQ via COBOL program? If so, I can get the entry-point with this command.

Bill O'Boyle · Posted: Thu Sep 29, 2011 5:14 pm

I Googled exact phrase "debugging an asra in cics cobol" and got many hits.

Here's one of them -

cics.ufl.edu/trandump.html

Mr. Bill

Bill Woodger · Posted: Fri Sep 30, 2011 5:23 am

mlp,

Have a look at this. The comments by Mr Bill are most pertinent.

I did say "check" :-)

When I checked, it didn't take long to get to the above.

I don't know if Bill's suggestion there is useful to you. Check :-)

Just to refresh:

Due to the dictates of the management you are not allowed to produce a dump of an abend in CICS (maybe they thought they could stop program failures if they prevented the dump being produced? :-) )

To assist in the debugging-a-CICS-abend-without-a-dump, there is already some information on a "log".

You would like to enhance this meagre information by including the "offset" in the abending program by making a calculation with the PSW.

Thus you need the address of the entry-point of the abending program.

You have the PSW already, or not?

Bill O'Boyle · Posted: Fri Sep 30, 2011 6:55 am

mlp,

Check with your System's personnel and determine whether you (or they) can set the max-threshold at a particular TRANDUMPCODE (TRD) level, such as ASRA, via CEMT.

Also, discuss the possibility with them to issue a series of CEMT SET TRANDUMPCODE commands (amongst others) via a Sequential Terminal Table (STT) as part of the Startup deck after CICS has been successfully brought up ('Control given to CICS').

Another method is to create and implement a 3rd-Stage PLT-PI program, which issues the SET TRANDUMPCODE 'System Programmer' API's. This can be written in a HLL, such as COBOL or PL/I.

There is also a SIT parm which needs to be reviewed, named TRDUMAX.

The IBM default (which is astonishing) is 999, which means unlimited.

Mr. Bill

dick scherrer · Posted: Fri Sep 30, 2011 10:12 am

Hello,