Ejecucion automatica de varios juegos de datos

[gdmj1107]

Hola a todos, les comento que utilizando el programa RSBDCSUB, y haciéndole unas modificaciones (hice un programa Z), con la finalidad de ejecutar varios juegos de datos inmediatamente termine el que le antecede. Para ello utilizo la tabla TBTCO y verifico el estatus de cada job lanzado. Sin embargo ese manejo no me permite lanzar inmediatamente ejecutar el job siguiente porque utilizo el acceso a la tabla dentro de un do. antes del próximo submit.
DO.
SELECT SINGLE STATUS FROM TBTCO INTO L_STATUS
WHERE JOBNAME = JNAMEANT
AND JOBCOUNT = JNUMBANT.

IF L_STATUS = 'F' OR L_STATUS = 'A'.
EXIT.
ELSE.
WAIT UP TO 30 SECONDS.
ENDIF.
ENDDO.
Los 30 segs. pueden ser cambiados, sin embargo les pido ayuda para evitar el uso del anterior código.
Gracias anticipadamente.