Urgent!! SOC4 reason code 4



Support for OS/VS COBOL, VS COBOL II, COBOL for OS/390 & VM and Enterprise COBOL for z/OS

Re: Urgent!! SOC4 reason code 4

Postby durga_r82 » Mon Jan 02, 2012 5:04 pm

Atlast we identified the problem with the help from support using Dumpmaster tool

Here are the steps followed.

1. Using the option "All storage areas" in progB we identified the last address which had been overlaid with spaces which is 1606F0BD
2. We did a search above this storage address to identify where the first space was displayed which was at 16068AD5.
3. Then in the data division map of ProgA we searched to locate the address 16068AD5 which was in a variable as occurs (in 6662th occurence)
4. This variable references in ProgA and the compile listing is as below

MOVE LENGTH OF VAR-A TO VAR-A-LEN
===================
01 VAR-A. BLW=00073+6F0 0CL48602

The length of VAR-A has a maximum value of 48602, as seen above

===================
10 VAR-A-OCC PIC X(01)
OCCURS 1 TO 20500
DEPENDING ON VAR-A-LEN.
===================
PERFORM VARYING WS-INIT-ERR FROM 1 BY 1 UNTIL
WS-INIT-ERR > 32750
INITIALIZE ERR-REQ-RET-BYTE(WS-INIT-ERR)

END-PERFORM

We were trying to write into VB (max length 32750) and the length of VAR-A tries to access beyond that ; which was causing the problem.

Since this was just a log file we were trying to generate we didn't look at this very closely.
====================
5. It should have happened exactly here because of the below reason.

X' 1606F0BD' MINUS X'16068AD5' +6662 = 32750

Though VAR-A is as occurs 20500, if it is as VAR-A(32750) then it would existed in 1606F0BD (which is the address that is displayed during the abend) from the above calculation which is the end of the series of spaces that overlaid progB.

Thanks for all your help in resolving the issue. Special thanks to Billyboyo who suggested to get the first address where it was being overlaid with spaces.
durga_r82
 
Posts: 24
Joined: Fri Dec 16, 2011 9:30 am
Has thanked: 0 time
Been thanked: 0 time

Re: Re: Urgent!! SOC4 reason code 4

 

Re: Urgent!! SOC4 reason code 4

Postby BillyBoyo » Mon Jan 02, 2012 7:16 pm

Very glad you got it. Thanks for letting us know.
BillyBoyo
Global moderator
 
Posts: 3804
Joined: Tue Jan 25, 2011 12:02 am
Has thanked: 22 times
Been thanked: 264 times

Previous

Return to IBM Cobol

 


  • Related topics
    Replies
    Views
    Last post