En un Sort es posible forzar un código de retorno determinado (0, 4 u 8) si el SORTOUT (fichero de salida) no tiene registros. Se hace mediante la opción NULLOUT = RCn, donde n puede tomar el valor 0, 4 u 8 (el valor por defecto es 0).
Gracias a esta utilidad podemos construir un paso de JCL que devuelva retorno 4 si el fichero de entrada está vacío y 0 en caso contrario. Como solo necesitamos leer un registro del fichero de entrada, usamos también la instrucción STOPAFT = 1.
Ejemplo:
//PA0010 EXEC PGM=SORT
//SYSOUT DD SYSOUT=*
//SORTIN DD DSN=FICHERO.PRUEBA.NULLOUT,DISP=SHR
//SORTOUT DD DSN=&&TEMP,DISP=(,PASS)
//SYSIN DD *
OPTION COPY,NULLOUT=RC4,STOPAFT=1