What is S0C4 Abend?

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

I am getting S0C4 Abend sometimes.

My code (basically read a input file and create a new file both of same LRECL, and format) runs fine and gives proper output file when there is less number of records (in 100's) in input file but it got abended when there are records in thousands in i/p file. Also, the same happens when there is an empty input file.

My Job uses two programs. The first one create the sorted output for the next program. The S0C4 abend always occurs in the second program only which uses the sorted input.

I tried reading the dump and there it shows MVCL( Long Move) and also inaccessible storage for large number of records and inaccessible storage for empty file layout.

I have initialized my output file also but still getting the abend.

enrico-sorichetti · Posted: Mon Apr 23, 2012 1:40 pm

When S0C4 Abend occurs

do You have any tables in Your program ?

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

Enrico, empty file layout is same as that of other i/p files. I don't have tables in program. check is already there in place for end of file processing.

Bill Woodger · Posted: Mon Apr 23, 2012 1:51 pm

The S0C4 tells you that you were trying to access storage that you were not allowed to, so no surprise to see references to that in the formatted dump.

An MVCL is certainly a possibility for a failing instruction, but tells us nothing in itself.

What language is the second program in your Job written in? Have you located which (presumably) high-level-language instruction caused the abend?

The S0C4 for an "empty" file is possibly the same thing, and possibly not. If, in you end-of-file processing, you access anything from the input record area, you will likely get an S0C4 for an "empty" file.

The "other" S0C4 is down to the processing you do when there is data on the file. You have to tell us more about that, including answering enrico's question,

Bill Woodger · Posted: Mon Apr 23, 2012 1:54 pm

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

Bill, second program is reading the output file created from pgm 1. my requirement is that if the records are there in the i/p file for 2nd program then it should format that input file and create a new file. If there is no record in the i/p file for 2nd pgm then it should create an empty file. The 2nd pgm is not called by any program nor does it calls other. It uses the output created from previous pgm in the job and then format the files accordingly.
The code is written in cobol.

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

And, it always fails at the point of first time write i.e WRITE OUTPUT-RECORDS FROM WS-INPUT RECORDS.

enrico-sorichetti · Posted: Mon Apr 23, 2012 2:42 pm

how do You tell the called program that no record is being passed and it has to do nothing?

who is opening and closing the output file ?

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

I am checking for the low values in the first record ( in case of empty file) before the execution of WRITE statement and if it is low values then exit from this para and close all the files.

Bill Woodger · Posted: Mon Apr 23, 2012 3:04 pm

If you open a file, read, get end-of-file and then try to use the record area (check for low-values) you will get S0C4. Once end-of-file is reached, don't ever try to use an input-record area.

Your "empty" file is identified by counting the records as you successfully read them. Once end-of-file is encountered, if you have zero records counted, then you have an empty file.

The "other" S0C4 may well be the same problem, but could be different.

I don't see, without overwriting of code, how write output from ws could give an S0C4 - or is your output file not open at the time?

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

Bill, I am able to resolve the S0C4 for empty file. However, it remains as such for file with large number of records.
Is that I need to set the region parameter on this step with 0M (if there may be memory issue). The file is open output before writing.

dbzTHEdinosauer · Posted: Mon Apr 23, 2012 7:25 pm

most of the addressing issues would go away
and you would be left with just the logic to debug
if you were to insure that

all READs use the WORK-AREA OPTION
all WRITEs use the WORK-AREA OPTION
and no instruction references a file structure in the FD, and i mean nooooon

also,
the assumption that a record will contain binary zeros at the end of file
is wrong.
use file status to determine if the i/o was successful.
as bill said, after the first read, and end-of-file would indicate empty file.

that you occaisionally receive a data protection leads me to guess,
that you have code that checks the buffer, even after end-of-file.
using the buffer (FD File area) contents is poor programming
as well as error prone.
based on the size of the buffer and the number of records
sometimes the program will run ok and sometimes it will not.

stay out of the FD File area,
only reference the work-area in WORKING-STORAGE,
only use WORK-AREA OPTION for READs and WRITEs.

Robert Sample · Posted: Mon Apr 23, 2012 7:38 pm

Bill Woodger · Posted: Mon Apr 23, 2012 9:07 pm

Would you like to confirm how you resolved that S0C4, please?

Region=0M? No. It will be nothing to do with that.

OK. If you don't have it already, compile with the generated pseudo-assembler.

Make sure the instruction you see at the offset in the program is the one you see at the offset in the formatted dump, and check that the stuff close to it in the dump looks like your program code. We don't usually check for that specifically, you just notice something "looks" wrong when it is, and confirm with the compile listing.

In the dump, either directly or from your W-S, check that the output file is open. Remember. You have an error in your program (at least one). So even though you think your file is open, it might not be.

What sort of file is it? V/VB, F/FB, VSAM, what?

You say it is an MVCL. You show a WRITE... FROM W-S, so that is consistent with seeing an MVCL. Unless you have trashed something big-time, you haven't lost addressability of your working-storage, so it is the record-area/buffer that does not exist. Quickest way to get that is to fail to open the file successfully or to successfully close it before the write. Those are the most likely scenaria.

If none of that, you'll have to start showing us some snippets of relevant code. OPEN, CLOSE, READ and WRITE, FDs and SELECTS, output messages from the step and the JCL for the step.

faizm · New User Joined: 13 Apr 2012 Posts: 59 Location: India

well (S0C4 for empty file) that was solved by setting a flag at the end of file and then bypass the write statement when it is true.

I have already FILE STATUS in place and it shows file not open at the time of WRITE. Well my file is in OPEN OUTPUT mode defined in Initialize para. How come the file get closed before the Write statement? I have another question coming in that why it happens when there are huge records in the i/p file and no S0C4 for less number of records.

Bill Woodger · Posted: Tue Apr 24, 2012 2:13 pm

If you have opened your output file, yet it is closed by the time you come to a particular WRITE and you weren't expecting that, then you have a logic error in your program. With the smaller number of records (probably the content of the records, rather than the number of records is the problem) then it has just not created the situation where the logic error causes the file to be closed by your program.

dick scherrer · Posted: Tue Apr 24, 2012 8:51 pm

Hello,