Si un programa cobol devuelve un file status 34 cuando se está grabando un registro en un fichero de salida se debe a la falta de espacio en disco. Es decir, es el mismo motivo que cuando devuelve un file status 24.
¿Solución? Ampliar el espacio de memoria que se reserva para el fichero de salida. Es decir, si tenemos lo siguiente:
//SALIDA DD DSN=<<fichero_salida>>,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(400,200))
Se podría sustituir por lo siguiente:
//SALIDA DD DSN=<<fichero_salida>>,
// DISP=(,CATLG,DELETE),
// SPACE=(CYL,(1000,500))
Observar que en la cláusula SPACE se ha sustituido (400,200) por (1000,500). Así ya no debería devolver ese file status y si lo da habría que seguir aumentando el espacio hasta que deje de producirse dicho error.