Help needed to fix S0C7 abend

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

Hi,

I am getting S0C7 abend and trying for hours to fix it. can someone please let me know how to find the variable causing teh error using the offset in teh abend report. Any help would be greatly appreciated.

agkshirsagar · Posted: Fri Oct 12, 2007 9:27 am

Please refer this Link
See the post by Jack (mmwife)

nuthan · Posted: Fri Oct 12, 2007 9:42 am

Take the offset where you got the error. Go to program listing and find this offset, then you will get the line number causing the abend. Chenck the line program to find the variable for this abend. First check whether all of your data is properly initialized or not.

hemanth.nandas · Active User Joined: 18 Aug 2007 Posts: 120 Location: India

HI Satyaraj,

Welcome To Forum..

hemanth.nandas · Active User Joined: 18 Aug 2007 Posts: 120 Location: India

Hi Moderator,

Please Change Code to Quote

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

Thnx every one for your support.

I am passing a numeric data from a table variable to a vsam file key feild. Then I am trying to read the records in the file for the corresponding feilds. Even the key feild is numeric so I dont know where the actual problem is. How can i go with this..?

nuthan · Posted: Fri Oct 12, 2007 2:22 pm

Use DISPLAY statement to diaplay ur variable which you have received from table and check whether its the valid numeric vlaue or not.

hemanth.nandas · Active User Joined: 18 Aug 2007 Posts: 120 Location: India

Hi Satyaraj,

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

@ nuthan

I checked the table variable its numeric.

@ hemanth

Lets pressume that the table has the list of department codes. the VSAM file has data for which dep code is the key. I want only the data for the Dep codes in the table. The working variables and teh key feilds are initialised. I am calling a separate program to initialise the VSAM file using a copy book.

Thnx both of you for the support. please let me know if you need more clarity in this.

agkshirsagar · Posted: Fri Oct 12, 2007 3:19 pm

Sathya
Ok. We know that variable is numeric. We are saying that content of it is NOT. (Thats why you get S0C7)

From your posts I can see that you havent really found the offending variable. If you could atleast post your code then we may be able to help. (Just the relavent portion).

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

my input file declaration

FD CUST-FILE
LABEL RECORDS ARE STANDARD
RECORDING MODE IS F
BLOCK CONTAINS 0 RECORDS
RECORD CONTAINS 80 CHARACTERS
DATA RECORD IS CUST-INPUT-RECORD.

01 CUST-INPUT-RECORD.
05 CUST-NUM PIC 9(07).
05 CUST-IP PIC 9(01).
05 FILLER PIC X(72).

Table declaration

01 WS-PLAN-TABLE.
05 WS-HOLD-TABLE-RECORD OCCURS 2000 TIMES.
10 WS-CUST-NO PIC 9(07) VALUE ZEROES.
10 WS-CUST-IP PIC 9(01) VALUE ZEROES.

Passing the table variable to the key

MOVE LOW-VALUES TO ORG-CES-32-BYTE-KEY
MOVE WS-CUST-NO(SUB-TAB) TO ORG-CES-KEY-CUSTOMER-NUMBER
PERFORM 5100-READ-INFORCE
THRU 5100-EXIT.

The reading part

*------------------*
5100-READ-INFORCE.
*------------------*

MOVE K-READ-NEXT TO USG-REQUEST-CODE
CALL USG-INFORCE-IO-PGM USING
STANDARD-CES-USING-AREA
ORIG-CES-AREA
NEW-CES-AREA
ORIG-JOBCNTRL-AREA.

IF RETURN-IO-SUCCESSFUL-IN-USG
THEN
ADD K-1 TO CTR-INF-RECORD-COUNT
IF ORG-CES-KEY-CUSTOMER-NUMBER NOT EQUAL
WS-CUST-NO(SUB-TAB)
THEN
MOVE SW-ON TO SW-EOF
END-IF
ELSE
IF RETURN-END-OF-FILE-IN-USG
OR RETURN-RECORD-NOT-FOUND-IN-USG
THEN
MOVE SW-ON TO SW-EOF

Please let me know if you need anything else..

agkshirsagar · Posted: Fri Oct 12, 2007 3:48 pm

Did you follow my first post in this thread and found out the offending line?
I don't think you did.

I assume that you are sure that you are getting abend in one of the instructions posted above.
Now add display statements in the program above to display all the variables used in below code.

ADD K-1 TO CTR-INF-RECORD-COUNT

IF ORG-CES-KEY-CUSTOMER-NUMBER NOT EQUAL
WS-CUST-NO(SUB-TAB)
You get S0C7 when you try to do arithmatic operation on Non numeric data.
One more question why are moving low values in ORG-CES-32-BYTE-KEY ?

Earl · Posted: Mon Oct 15, 2007 3:48 am

moving low-values to a vsam key is common practice if you are preparing
for browsing a file and want to start with first record in the file.

for the OC7, if you are NOT blowing up at
ADD K-1 TO CTR-INF-RECORD-COUNT

then
my guess is the record you are reading contains
garbage in field ORG.CES-KEY-CUSTOMER=NUMBER,

are you sure you have successfully read a record before the
comparison?

i would verify that switch RETURN-IO-SUCCESSFUL-IN-USG
is set properly

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

Hi Every one,

I ran the code using xpeditor and found that the problem occurs when the code is trying to read the VSAM file. the return code is 10(End of file or no records matching to the key) But i manually checked the VSAM file in file-aid to find the records there. Any guesses for the possible causes for this error..?

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

Sagar,

I tried to locate the offset. The parm LIST is working fine.. but am not able to use the parm NOOFF... its throwing an error... INVALID PARM...

Earl · Posted: Mon Oct 15, 2007 7:20 pm

endof FILE?

thats your problem.
you can not compare against a record that is not there.

change your program to NOT do the compare, when there is a non-zero
response from the read

see my previous reply
then
my guess is the record you are reading contains
garbage in field ORG.CES-KEY-CUSTOMER=NUMBER,

are you sure you have successfully read a record before the
comparison?

mmwife · Super Moderator Joined: 30 May 2003 Posts: 1592

Hi Sathyaraj,

You may want to try the following:

dick scherrer · Posted: Mon Oct 15, 2007 8:28 pm

Hello,

Earl · Posted: Mon Oct 15, 2007 9:01 pm

looks to me like it is endof file condition causing the problem,

You are checking for endof file condition at wrong place in your logic.

your current code is falling through to the comparison on record-key,
you have no valid record in storage at that point.

change your code ..

to do this >>>

IF RETURN-END-OF-FILE-IN-USG
OR RETURN-RECORD-NOT-FOUND-IN-USG
MOVE SW-ON TO SW-EOF

THEN
ELSE
IF RETURN-IO-SUCCESSFUL-IN-USG
THEN
ADD K-1 TO CTR-INF-RECORD-COUNT
IF ORG-CES-KEY-CUSTOMER-NUMBER NOT EQUAL
WS-CUST-NO(SUB-TAB)
THEN
MOVE SW-ON TO SW-EOF
END-IF
ELSE
DISPLAY 'LOGIC PROBLEM'.

kris22_24 · New User Joined: 28 Oct 2006 Posts: 18

1)Refer the sysout of the job and get the next sequential instruction to be executed (offset)

2) Compile the program with LIST option

3)Check for the offset in the compilation list and get the respective statement number

4) Identify the statement this would be a numeric operation

5) Identify the source of the numeric data and correct it.

rameshvaamshy · New User Joined: 19 Aug 2007 Posts: 14 Location: bangalore

[quote="hemanth.nandas"]HI Satyaraj,

Welcome To Forum..

Earl · Posted: Thu Oct 18, 2007 7:31 pm

Sathyaraj,

are you still have this problem ? and if fixed, what did you do?

sathyaraj · New User Joined: 28 Sep 2007 Posts: 71 Location: India.

Thnx a ton everyone for your support.

Finally I fixed the abend.. Expeditor helped me the most…

The problem was like I was checking the date field in the file with the current date..

Since I took the dated backup of the loadlib and was using the new one I dint notice that the date conversion sub program code was not in the loadlib… So the working storage variable had junk values and during the comparison it abended…. I copied the load module to the new lib and everything is fine.. I just have one more query.. Usually we get SOC806 if load module is missing rite..? but duno why it happened the other way this time…

Thanx once again everyone for your support in this thread… Looking forward for your support in the future too..

dick scherrer · Posted: Wed Oct 24, 2007 3:07 am

Hello,