mmwife
Super Moderator
Joined: 30 May 2003
Posts: 1592
|
|
|
|
First recompile your pgm using these 2 COBOL parms along with the others: : LIST,NOOFF.
This will give you a listing similar to that below.
Use the 2nd column (e.g. 00066C) to match with the offset addr from the dump listing. When the 2 addresses match you've found the offending assembler language instruction.
Now proceed back up the page untill you come to a COBOL reserved word (e.g. when). The numer to its left is the number of the COBOL stmt that caused the abend.
Find that stmt in your listing and you've found the offending COBOL stmt.
HTH, Jack.
000188 EVALUATE
000189 WHEN
00066C 95F1 7002 CLI 2(7),X'F1'
000670 4770 B294 BC 7,660(0,11)
000674 47F0 B298 BC 15,664(0,11)
000678 GN=9 EQU *
000678 47F0 B2CC BC 15,716(0,11)
00067C GN=35 EQU *
000190 IF
00067C 9500 8021 CLI 33(8),X'00'
000680 4740 B2C8 BC 4,712(0,11)
000684 957F 8021 CLI 33(8),X'7F'
000688 4720 B2C8 BC 2,712(0,11)
000191 COMPUTE
00068C F270 D118 7001 PACK 280(8,13),1(1,7)
000692 4F20 D118 CVB 2,280(0,13)
000696 4C20 A028 MH 2,40(0,10)
00069A 5A20 A014 A 2,20(0,10)
00069E 4842 8002 LH 4,2(2,8)
0006A2 4820 8022 LH 2,34(0,8)
0006A6 1A24 AR 2,4
0006A8 4020 8022 STH 2,34(0,8)
0006AC GN=11 EQU *
0006AC 47F0 B374 BC 15,884(0,11)
0006B0 GN=34 EQU *
000194 WHEN
0006B0 95F0 7002 CLI 2(7),X'F0'
0006B4 4770 B2D8 BC 7,728(0,11)
0006B8 47F0 B2DC BC 15,732(0,11)
0006BC GN=12 EQU *
0006BC 47F0 B310 BC 15,784(0,11)
0006C0 GN=37 EQU *
PP 5655-G53 IBM Enterprise COBOL for z/OS and OS/390 3.2.0
000195 IF
0006C0 9580 8021 CLI 33(8),X'80'
0006C4 4740 B30C BC 4,780(0,11)
0006C8 95FF 8021 CLI 33(8),X'FF'
0006CC 4720 B30C BC 2,780(0,11) |
|
