To find out the value of a working-storage field, first we need to find out location of that field in the Abend-aid dump. Each 01 level field in the working storage section is addressed by a Base locator work cell (BLW). Within each BLW cell, we can use the offset to identify the each elementary field defined under that 01 level field.
From the below compiler listing of program TX10PGM, we can see that the BLW cell and offset for each field is displayed in the right side.
Menu Utilities Compilers Help
sssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssssss
BROWSE ENDVR.TX10PGM#.X1.EX1U2.ONLINE Line 00002501 Col
Command ===> Scroll ===> CSR
DATA DIVISION.
WORKING-STORAGE SECTION.
01 CICS-COMMAREA. BLW=00000+000 0CL32604
05 TI-TRANSID PIC X(05). BLW=00000+000,0000000 5C
05 TI-DIV PIC X(03). BLW=00000+005,0000005 3C
05 TI-STATION-ID PIC X(04). BLW=00000+008,0000008 4C
“BLW=00000+008” right next to the TI-STATION-ID field specifies that the field is in BLW cell “0” and it is at offset “008” within that cell. Using this information, we can easily locate the value of this field in the abend-aid dump. Lets a take a Abend-aid entry for program TX10PGM and find out the value of TI-STATION-ID field.
From below the abend-aid directory, we can see that Entry “3700281” is reporting that TX10PGM program has abended. Now select this entry.
Abend-AID ---------------- Abend-AID Directory -------- Row 000045 of 000085
COMMAND ===> SCROLL ===> CSR
==>
Shared Directory/Database... CICS.ABE.AAFXXX1.SHRDIR
For a list of databases, select DBLIST
M Menu L Lock H Dup History R Recall T Terminate Analysis
D Delete G Messages A Analyze P Print N Contact Information
Abend
Entry Job Name Code JESID Tran Program Offset Dups Time Date
******* ******** ******** ******** **** ******** ******** **** ***** *****
3700281 CICSTEST U000 S0004979 TX10 TX10PGM 00007E7E 12 15:06 18DEC
After selecting the entry, the below screen will be displayed. Now select option “6’ to go to the control blocks.
Abend-AID ------------------ Primary Options -------------------------------
OPTION ===> 6
1 DIAG Diagnostic Summary 7 *FILE File Request Summary
2 PROG Program Information 8 *DB2 DB2 Information
3 TRACE CICS Trace 9 *L3270 Last 3270 Screen
4 *TERM Terminal Detail 10 MQINFO WebSphere MQ Information
5 TASK Task Detail 11 *CWI CICS Web Interface
6 CB Control Blocks/Storage 12 LEINFO LE Information
D DIRECTRY Abend-AID Directory R SRCDIR Source Directory
S SUMMARY Fault Summary U USER User Control Facility
N NEWS Product News X EXIT Exit
Entry=3700281(CICSTEST) Code=U001 AAFXS51 AssistMenu=PF24
Option “6” from the menu, throws the below screen. Here type “F BLW” and press ENTER key
Abend-AID --------------- Control Blocks/Storage ------ Row 000001 of 000100
COMMAND ===> f BLW SCROLL ===> CSR
==>
MEM Display Memory at Address ===>
PCLP Current Paperclip Table SACLIP Saved Paperclip Table
Name Address Length Resource Description
******** ***************** ******** ******** ***************************
CSA 00000000_00051400 0000020C CICS Common System Area
STCA 00000000_1AF20200 00000208 CICS System Transaction Con
UTCA 00000000_1AF20100 00000100 CICS User Transaction Contr
CSAOPFL 00000000_00050B48 00000638 CICS Optional Features List
TCPTCA 00000000_1AF13100 00000100 CICS Terminal Control Task
CWA 00000000_00041AA0 00000020 CICS Common Work Area
CEECAA 00000000_36C043A8 000004AC CEECAA LE Common Anchor Area
CEEEDB 00000000_36C02198 00000100 CEECAA LE Enclave Data Block
CEEENSM 00000000_36C02660 00000100 CEECAA LE Enclave Storage Manageme
CEEHPCBU 00000000_36C02678 00000030 USERHEAP LE "User" Heap Control Bloc
CEEHANCU 00000000_36C09938 00000020 USERHEAP LE "User" Heap Anchor (HANC
CEEHPCBA 00000000_36C026A8 00000030 ANYHEAP LE "Anywhere" Heap Control
CEEHANCA 00000000_36C07210 00000020 ANYHEAP LE "Anywhere" Heap Anchor (
CEEHPCBB 00000000_36C026D8 00000030 BELOHEAP LE "Below" Heap Control Blo
Entry=3700281(CICSTEST) Code=U001 AAFXS51 AssistMenu=PF24 More...
The find command locates the BLW cells. We know that TI-STATION-ID field is in BLW cell “0” and it is at offset “008” within that cell. Now place the cursor on “BLW 0000” and press enter to open the BLW cell “0”
Abend-AID --------------- Control Blocks/Storage ------ Row 000028 of 000100
COMMAND ===> SCROLL ===> CSR
==>
MEM Display Memory at Address ===>
PCLP Current Paperclip Table SACLIP Saved Paperclip Table
Name Address Length Resource Description
******** ***************** ******** ******** ***************************
BLW 0000 00000000_36C099F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0001 00000000_36C0A9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0002 00000000_36C0B9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0003 00000000_36C0C9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0004 00000000_36C0D9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0005 00000000_36C0E9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0006 00000000_36C0F9F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0007 00000000_36C109F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0008 00000000_36C119F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0009 00000000_36C129F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0010 00000000_36C139F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0011 00000000_36C149F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0012 00000000_36C159F0 00001000 TX10PGM Base Locator Work Cell of t
BLW 0013 00000000_36C169F0 00001000 TX10PGM Base Locator Work Cell of t
Entry=3700281(CICSTEST) Code=U001 AAFXS51 AssistMenu=PF24 More...
Below screens shows the contents of the BLW cell “0”. TI-STATION-ID is at offset “008”. The second column in the below screen shows the offset within BLW cell “0”. The value of TI-STATION-ID is highlighted in yellow below.
Abend-AID ------------------- Memory Display -------------------------------
COMMAND ===> SCROLL ===> CSR
Clip Prev Next Lock
Start Addr: 36C099F0 Comment:
Address Offset Word 1 Word 2 Word 3 Word 4 Storage
36C099F0 +00000000 00000000 00000000 00000000 00000000 *................*
36C09A00 +00000010 00000000 00000000 00000000 00000000 *................*
36C09A10 +00000020 00000000 00000000 00000000 00000000 *................*
36C09A20 +00000030 00000000 00000000 00000000 00000000 *................*
36C09A30 +00000040 00000000 00000000 00000000 00000000 *................*
36C09A40 +00000050 00000000 00000000 00000000 00000000 *................*
36C09A50 +00000060 00000000 00000000 00000000 00000000 *................*
36C09A60 +00000070 00000000 00000000 00000000 00000000 *................*
36C09A70 +00000080 00000000 00000000 00000000 00000000 *................*
36C09A80 +00000090 00000000 00000000 00000000 00000000 *................*
36C09A90 +000000A0 00000000 00000000 00000000 00000000 *................*
36C09AA0 +000000B0 00000000 00000000 00000000 00000000 *................*
36C09AB0 +000000C0 00000000 00000000 00000000 00000000 *................*
36C09AC0 +000000D0 00000000 00000000 00000000 00000000 *................*
36C09AD0 +000000E0 00000000 00000000 00000000 00000000 *................*
36C09AE0 +000000F0 00000000 00000000 00000000 00000000 *................*
Entry=3700281(CICSTEST) Code=U001 AAFXS51 AssistMenu=PF24 More...
Linkage sections fields are addressed by BLL cells. In the control block screen type “F BLL” to locate the BLL cells. Rest of the procedure is same as explained above.
No comments:
Post a Comment
Note: Only a member of this blog may post a comment.