039

Explanation
The error occurred in scanning a data set using
QISAM.
The end of the data set (EOD) was reached.  The control
program found that the DCBEODAD field of the data control block (DCB)
did not contain an end-of-data-set exit routine address.

System programmer response
If the error recurs and the program
is not in error, look at the messages in the job log for more information.
Search problem reporting data bases for a fix for the problem. If
no fix exists, contact the IBM® Support
Center. Provide the JCL and the program listing for the job.

Programmer response
Make sure that the address of a routine
to be given control when the end of the data set is reached is specified
either in the EODAD operand of the DCB macro instruction or in the
problem program before the end of the data set is reached.  Then reassemble
the program and run the job step again.

Source
DFSMSdfp