Re: S0C4 x'4' abend while reading VSAM KSDS file



I haven't read this thread yet, but has someone said:

A) to call ILBOWAT0, you must compile the CALLING program with DATA(24)
and
B) That calls to ILBOWAT0 should now be replaced by calls to CEE3DLY, see:
http://publibz.boulder.ibm.com/cgi-bin/bookmgr_OS390/BOOKS/CEEA3180/2.2.5.5


--
Bill Klein
wmklein <at> ix.netcom.com
<vbarathee@xxxxxxxxx> wrote in message
news:a9a3f442-72d5-496f-be8c-3e361866b1d5@xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
hi all ,

Hope someone can resolve my clarifications on cobol , please find
below the scenario,

We have a batch job runs with two input files, one PS file and a VSAM
KSDS file , we read the acct number from the PS file and check with
KSDS file , we use the acct no as key and take details , then we write
into MQ series . Also we have a wait time logic in the pgm which calls
ILBOWAT module so that once the threshold reaches some 250,000 in MQ ,
all the jobs will wait for 180 secs and then it will continue writing
into MQ.

This program was a generic one and used by 10 split jobs running
parallely in production , recently we added the VSAM file , previously
the pgm had only PS file. Now the job is getting abend with S0C4 x'4'
when it waits for the threshold limit and abends exactly when it tries
to read the input VSAM file.

The VSAM file was defined in Online region , but no job or region
would update or access the file at the time of run. The share option
for VSAM was (3,3) and no RLS option was used.

Please find below abend code details ,

MQM-REASON-CODE: 000000000
MQ-TARGET-QUEUE : HNCDSCVR.LQ.FCMSLOW
************** CALL TO MQOPEN *****************
MQM-OBJECT-HANDLE: 000000001
MQM-REASON-CODE: 000000000
### MQ DEPTH: 79481 RECORDS WRITTEN: 10001 02:32:22
### MQ DEPTH: 159281 RECORDS WRITTEN: 20002 02:33:04
### MQ DEPTH: 244216 RECORDS WRITTEN: 30003 02:33:33
### MQ DEPTH: 327990 RECORDS WRITTEN: 40004 02:34:01
### MQ DEPTH: 227646 RECORDS WRITTEN: 40004 02:37:01
CEE3204S The system detected a protection exception (System
Completion Code=0C4).
From compile unit DSCB6100 at entry point DSCB6100 at
compile unit offset +000545C4 at entry offset +000545C4
at address 0005B904.


02.37.02 JOB02101 +IDI0001I Fault Analyzer V6R1M0 (PK29971
2006/08/24) invoked by IDIXDCAP using MVSP.FANALYZE.PARMLIB(IDICNF00)
02.37.03 JOB02101 +IDI0081I IEWBIND unusual condition INCLUDE
DSCB6100 rc=3000526
02.37.19 JOB02101 +IDI0002I Module IGZCXFR offset X'280': Abend S0C4-
X'4' (Protection Exception)
02.37.19 JOB02101 +IDI0003I Fault ID F04475 assigned in history file
MVSP.FA.PROD.BATCH.HIST


Fault analyzer details :

File Name . . . . . . . . . : DSCCQUEU
RT??? Data Set Name . . . . . . : DSCP.VO00P.CICS160I.DSCCQUEU
ëRT?5 File Attributes . . . . . : ORGANIZATION=INDEXED VSAM, ACCESS
MODE=RANDOM,
?RT??? RECFM=FIXED
?RT??? Last I/O Function . . . . : READ
?RT??? Open Status . . . . . . . : INPUT
RT??? File Status Code. . . . . : 23
ïRT?5 An attempt was made to randomly
access a record
?RT?5
ïRT?5 that does not exist in the file,
or a START or
?RT?5
ïRT?5 random READ statement was
attempted on an optional
?RT?5
ïRT input file that was not present.
?RT
?RTööö Return Code . . . . . . . : X'8'
?RT??? Function Code . . . . . . : X'0'
?RT??? Feedback Code . . . . . . : X'10'
ïRTass Record not found, or the RBA is
not found in the
?RTass
ïRT??? buffer pool. (If multiple RPL
requests are issued
?RT???
ïRT??? for alternate indexes, getting
return code
?RT???
ïRT??? 16(X'10') might mean a temporary
situation where
?RT???
ïRT??? processing has not been completed
on either the
?RT???
ïRT base cluster or the associated
alternate indexes.)
?RT

The same code works fine when we use Dynamic access mode and a START
verb before reading the VSAM file.

We are able to track the pgm where it gets abend , but we are unable
to locate the exact reason . The same code runs in testing environment
fine if it is not going to wait time logic .

Please let me know ur findings.

Thanks
Barathi.v


.



Relevant Pages

  • Re: S0C4 x4 abend while reading VSAM KSDS file
    ... If you are still using calls to ILBOWAT0, then you need to be careful about ... HOWEVER, if you have neither, then COBOL will ABEND when an unsuccessful (e.g. ... in the VSAM file and you get a file status 23, ... Also we have a wait time logic in the pgm which calls ...
    (comp.lang.cobol)
  • Cobol and VSAM I/O
    ... incorrectly coded in that it has a VSAM file that does not have a FILE ... From compile unit FFND02 at entry point FFND02 at statement 444 at ... I wouldn't expect the open to abend because (though I can't find the ... the statement that produced the fatal exception condition unless the rules ...
    (comp.lang.cobol)
  • S0C4 x4 abend while reading VSAM KSDS file
    ... We have a batch job runs with two input files, one PS file and a VSAM ... Also we have a wait time logic in the pgm which calls ... Now the job is getting abend with S0C4 x'4' ... to read the input VSAM file. ...
    (comp.lang.cobol)
  • Re: Closing VSAM File
    ... happens to the VSAM file? ... If by chance the file is not closed properly because of the abend is there a way or utility by the VSAM can be closed explicitly from outside so that it is available for use. ... For IBM-MAIN subscribe / signoff / archive access instructions, ... send email to listserv@xxxxxxxxxxx with the message: GET IBM-MAIN INFO ...
    (bit.listserv.ibm-main)