MVSFORUMS.com

[ravikumar_sri2001]

Experts,

I am reading file X (KSDS file) sequentially (using STARTBR, READNEXT) and writing records to file Y (KSDS file) until some condition is satisfied for the record read in file X.

Before writing record to file Y, i am reading (EXEC CICS READ) the file Y with new key to make sure that new record is not available in file Y already.

In a particular situation, i need to read 904 records from file X and write it into file Y. Till 752th record every write operation in file Y is successfull.
But while writing 752th record, the program abends with abend 'AFCY'.
In expeditor, i got message "AFCY (TRANS PRGD WHI WAIT ON FILE CNTL)".

Can you please help me in solving this problem ?.

Thanks,
Ravikumar.

[Himesh]

Hi Ravi,

Some pointers that could help.

Problem 1

Problem 2

The problem looks like something to do with the Control Interval (CI) of the VSAM.

Pls refer to the available IBM manual for more info on deciding on appropriate CI.
VSAM programmer's Reference

regards,
himesh

[ravikumar_sri2001]

Himesh,

Thanks your explanation. I reduced CISIZE. Abend got solved.

Thanks,
Ravikumar.